#----------------------------- |
# iterate over elements of array in $ARRAYREF |
foreach $item (@ $ARRAYREF ) { |
# do something with $item |
} |
for ( $i = 0; $i <= $ #$ARRAYREF; $i++) { |
# do something with $ARRAYREF->[$i] |
} |
#----------------------------- |
@fruits = ( "Apple" , "Blackberry" ); |
$fruit_ref = \ @fruits ; |
foreach $fruit (@ $fruit_ref ) { |
print "$fruit tastes good in a pie.\n" ; |
} |
Apple tastes good in a pie. |
Blackberry tastes good in a pie. |
#----------------------------- |
for ( $i =0; $i <= $ #$fruit_ref; $i++) { |
print "$fruit_ref->[$i] tastes good in a pie.\n" ; |
} |
#----------------------------- |
$namelist {felines} = \ @rogue_cats ; |
foreach $cat ( @{ $namelist {felines} } ) { |
print "$cat purrs hypnotically..\n" ; |
} |
print "--More--\nYou are controlled.\n" ; |
#----------------------------- |
for ( $i =0; $i <= $ #{ $namelist{felines} }; $i++) { |
print "$namelist{felines}[$i] purrs hypnotically.\n" ; |
} |
#----------------------------- |