無名配列のリファレンス
use strict; use warnings; my $list_ref = ['a', 'b', 'c', 'd']; print "@$list_ref \n"; print scalar @$list_ref . "\n"; foreach my $n (1 .. scalar @$list_ref) { print "$n $list_ref->[$n - 1]\n"; } ____ a b c d 4 1 a 2 b 3 c 4 d
use strict; use warnings; my $list_ref = ['a', 'b', 'c', 'd']; print "@$list_ref \n"; print scalar @$list_ref . "\n"; foreach my $n (1 .. scalar @$list_ref) { print "$n $list_ref->[$n - 1]\n"; } ____ a b c d 4 1 a 2 b 3 c 4 d