Perl5.xで配列の長さ的なもの

すぐ忘れるうえに調べても何の喜びもないTipsのメモ

my @xs = qw/1 2 3 4 5/;

print("＄＃は" . #$xs . "\n");
print("スカラーコンテキストは" . scalar(@xs) . "\n");

＃＄は4
スカラーコンテキストは5

Fin.