「perl/array」の編集履歴(バックアップ)一覧に戻る
@name = ("A", "B", "C"); @name = qw/A B C/; @name = ('A' .. 'C');
$size = @name; print $size; # print 3
print $#name; # print 2
$#name = 1 # remove $name[2]
@names = qw/Tom Dick Harry Pete/; @pal= @names[1..3];
($friends[0], $friends[1], $friends[2]) = @names;
print $m[x][y];
print $m[x]->[y];