ちょっと「ん?」となったので。 今日Perl Tip. 配列をプリントアウトしたいぜ! - Lazy Programmer :-p 「それはプリントアウトじゃなくて変数展開だぜ」と細かい事を言ってみる。 my @food = qw/sashimi yakiniku purin/; local $" = ', '; # とすると print "@food"; # これは sashimi, yakiniku, purin になるが、 print @food; # これは sashimiyakinikupurin になってしまう。 "@food" eq 'sashimi, yakiniku, purin'; # true 「プリントアウトするときの区切り」は $, my @food = qw/sashimi yakiniku purin/; local $, = ', '; # とすると pri