in reply to Re: Referencing the locals
in thread Referencing the locals

although I probably don't want to refer to the array as @{$animals{'cat'}} for the rest of the program, so I guess I could add 
my @cat = @{$animals{'cat'}};
my @dog = @{$animals{'dog'}};
my @pig = @{$animals{'pig'}};

[download]

Note that makes a shallow copy of the array - personally I'd write my $cat = $animals{cat};, and if it's just a simple array and not a nested structure I'd write $$cat[$i] to access it (though many people also prefer the $cat->[$i] syntax).

Note that as of Perl 5.24, you can write $animals{cat}->@* instead of @{$animals{cat}} (in 5.20 and 5.22 this needed a use feature 'postderef';). Also, as of 5.22 there's the still experimental Assigning to References, where you can say \my @cat = $animals{cat}; and have @cat be an alias to the arrayref, which IMHO is really nice, but the feature is still experimental so it is subject to change!

Update: A few more comments:

There's also the option of just repeating the whole code block three times over instead of looping. I suppose that's alright, but doesn't really strike me as beautiful code.

I agree, DRY applies.

The text about "why it's stupid to use a variable as a variable name" makes a good point, generally. ... But that's not really applicable here

I think the point is more to make a case for why strict is a good thing.

Replies are listed 'Best First'.
Re^3: Referencing the locals
by Chuma (Scribe) on Apr 29, 2021 at 11:57 UTC

    Huh, I didn't know that, about the shallow copy. But in this case, since I'm just trying to "rename" the array, shallow copy seems like the right thing.

    There are of course situations where you can't avoid repetition, but I always figured this was a neat shortcut in Perl (I can't think of any other language that would allow it). I often find that I want to, for example, open cats.txt, @cats=<$fh>, $type{$_}='cats', print "there were $cats cats", $max{'cats'}=max(@cats), or whatever the case may be – and then do the same thing for 'dogs'. I'm not aware of any other way that's as succinct and simple as looping over the strings.

    There are a lot of people who argue that you should always use "strict", basically changing the language into a stricter version of itself. There are also those who argue that you should use an even more strict version of Perl, and that it's called Python. Different preferences, I guess.

[reply]
[d/l]
      Huh, I didn't know that, about the shallow copy. But in this case, since I'm just trying to "rename" the array, shallow copy seems like the right thing.

      The shallow copy would be a problem if your arrays are large, or if you expect changes to the array to be reflected in the original data structure. (Because it's only a shallow copy, changes to nested arrays or hashes would be reflected in the original data.)

      There are of course situations where you can't avoid repetition, but I always figured this was a neat shortcut in Perl (I can't think of any other language that would allow it). ... I'm not aware of any other way that's as succinct and simple as looping over the strings.

      If by this you mean using symbolic references, then as I said, the IMHO better appraoch is hashes. They also have the advantage that instead of for('cat','dog','pig') or for(\@cat,\@dog,\@pig) you can just write for (keys %animals), allowing your code to be more generic.

      There are a lot of people who argue that you should always use "strict", basically changing the language into a stricter version of itself. ... Different preferences, I guess.

      If you look, you'll find lots of information on why strict is a best practice. I recently wrote a bit about it here, and I encourage you to read it since I think it applies here as well.

[reply]
[d/l]
[select]

        I don't understand that first part. Wouldn't a shallow copy by faster for large arrays, since the data isn't actually being copied?

        And "changes to the array"... oh, right, as opposed to changes to the elements of the array? I think I get it. That should be fine in this case, since I never actually wanted the original array and won't use it again. Good to know in other situations, though.

[reply]

In Section Seekers of Perl Wisdom