スタイルシートで表を見やすく装飾！ ホームページ作成 All About 小人さんへの置き手紙: perl のヒアドキュメント ヒアドキュメント 'EOF' は変数展開しない。

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