アールメカブ

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• Perl で第一引数のファイルを取り出すルーチン へ行く。
  • 1 (2007-10-02 (火) 12:24:23)

Perl で第一引数のファイルを取り出すルーチン $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;
}