Learning Perl Objects, References & Modules, from O'Reilly. | 2
Learning Perl Objects, References & Modules Chapter 3: Introduction to References
Dropping Those Braces
Most of the time, the dereferenced array reference is contained
in a simple scalar variable, such as @{$items}
or ${$items}[1]. In those cases, the curly braces
can be dropped, unambiguously, forming @$items
or $$items[1].
However, the braces cannot be dropped if the value within the
braces is not a simple scalar variable. For example, for @{$_[1]}
from that last subroutine rewrite, you can't remove the braces.
This rule also means that it's easy to see where the "missing"
braces need to go. When you see $$items[1], a pretty
noisy piece of syntax, you can tell that the curly braces must belong around
the simple scalar variable, $items. Therefore,
$items must be a reference to an array.
Thus, an easier-on-the-eyes version of that subroutine might be:
sub check_required_items {my $who = shift;my $items = shift;my @required = qw(preserver sunscreen water_bottle jacket);for my $item (@required) {unless (grep $item eq $_, @$items) { # not found in list?print "$who is missing $item.\n";}}}
The only difference here is that the braces were removed for @$items.
Modifying the Array
You've seen how to solve the excessive copying problem with an array reference. Now let's look at modifying the original array.
For every missing provision, push that provision onto an array, forcing the passenger to consider the item:
sub check_required_items {my $who = shift;my $items = shift;my @required = qw(preserver sunscreen water_bottle jacket);my @missing = ( );for my $item (@required) {unless (grep $item eq $_, @$items) { # not found in list?print "$who is missing $item.\n";push @missing, $item;}}if (@missing) {print "Adding @missing to @$items for $who.\n";push @$items, @missing;}}
Note the addition of the @missing
array. If you find any items missing during the scan, push them into @missing.
If there's anything there at the end of the scan, add it to the original provision
list.
The key is in the last line of that subroutine. You're dereferencing
the $items array reference, accessing the original
array, and adding the elements from @missing. Without
passing by reference, you'd modify only a local copy of the data, which has
no effect on the original array.
Also, @$items (and its more generic
form @{$items}) works within a double-quoted string.
Do not include any whitespace between the @ and
the immediately following character, although you can include nearly arbitrary
whitespace within the curly braces as if it were normal Perl code.
Created: March 27, 2003
Revised: July 15, 2003
URL: http://webreference.com/programming/perl/learning/chap3/1

Find a programming school near you