Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re^3: 5.26 sigil reference syntax in subfunction

by BillKSmith (Prior)
on Nov 01, 2017 at 20:42 UTC ( #1202552=note: print w/replies, xml ) Need Help??

in reply to Re^2: 5.26 sigil reference syntax in subfunction
in thread 5.26 sigil reference syntax in subfunction

kcott is actually suggesting that you follow rule 2 in Using References. This rule always works. All the other dereferencing rules are essentially shortcuts that work in special situations.
  • Comment on Re^3: 5.26 sigil reference syntax in subfunction

Replies are listed 'Best First'.
Re^4: 5.26 sigil reference syntax in subfunction
by kcott (Bishop) on Nov 02, 2017 at 05:36 UTC

    G'day Bill,

    ++ Thanks for posting that link.

    It's been quite some time since I read that, and had forgotten it was there; however, that does reflect what I was saying (plus examples, plus gotchas).

    — Ken

Re^4: 5.26 sigil reference syntax in subfunction
by chenhonkhonk (Acolyte) on Nov 02, 2017 at 18:49 UTC

    Rule 2 case 3 is closest to what I am doing. The perlref page is pretty poor on explaining assigning values to subthings when the original value is a reference.

    Additionally, arrows can be omitted between brackets and braces EXCEPT when the first element is a reference (otherwise you must have $$ref{}{}thing or $ref->{}{}thing is a pretty glaring exception to "easier reading". Having ->% but not ->\% just adds to the complexity of when and which order symbols have to be used during referencing/dereferencing.

      The only advantage of rule 2 is that there are no exceptions. When I have a difficult reference problem, I solve it with rule 2, then simplify it with the other rules, testing each change as I make it. You did motivate me to read the reference document again. I find that the text of the rule is very clear. They probably should say that it can be applied recursively. I agree that the explanation (especially the examples) is confusing. I have created a few examples which I hope are more helpful. Each example shows the same thing using the variable and then the equivalent reference. I have used the test module to prove that they are the same.
      use strict; use warnings; use Test::Simple tests => 6; # Scalars my $x = 3; my $scalar_ref = \$x; ok( $x eq ${$scalar_ref}, 'EXAMPLE I'); my $scalar_ref_ref = \$scalar_ref; ok( $x eq ${${$scalar_ref_ref}}, 'EXAMPLE II' ); # Rule 2 recurrsiv +e # Array my @array = (0, 1, 2, 3); my $array_ref = \@array; ok( join( @array) eq join( @{$array_ref} ), 'EXAMPLE III' ); ok( $array[3] eq ${$array_ref}[3], 'EXAMPLE IV' ); # value = 3 # Array-0f-Arrays my @as = qw(a aa aaa aaaa); my @bs = qw(b bb bbb bbbb); my @cs = qw(c cc ccc cccc); my @ds = qw(d dd ddd dddd); my @AoA = (\@as, \@bs, \@cs, \@ds); ok( join( @ds ) eq join( @{$AoA[3]} ), 'EXAMPLE V' ); ok( $ds[3] eq ${$AoA[3]}[3], 'EXAMPLE VI' ); # value = 'dddd'

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1202552]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (3)
As of 2020-09-28 21:54 GMT
Find Nodes?
    Voting Booth?
    If at first I donít succeed, I Ö

    Results (144 votes). Check out past polls.