Perlコーディング初心者質問スレ Part 55

[0378 nobodyさん 2007/07/05(木) 11:46:32 ID:???]

どうせなら
my ($title,$hoge01,$hoge02) = qw(タイトル 値０１ 値０２);