2012-05-16 ■ perl perl 久しぶりに使うと端から全部調べないと忘れてる。 open (INFILE, $file) or die "$!"; @ARGV # 引数の配列 $#ARGV # 配列の個数−1 $ARGV[0] # 最初の引数 $ARGV[$#ARGV] # 最後の引数