Perl で第一引数のファイルを取り出すルーチン // main $input = &argcut($ARGV[0]); // sub argcut{ my($file) = @_; if(-e $file){ if($file =~ /(\w+)\.(\w+)$/){ $newfile = $1.".csv"; } else{x $newfile = $file.".csv"; } } else { print "cant find $file\n"; } return $newfile; }