アールメカブ

• 追加された行はこの色です。
• 削除された行はこの色です。
• Perl で第一引数のファイルを取り出すルーチン へ行く。
• Perl で第一引数のファイルを取り出すルーチン の差分を削除

Perl で第一引数のファイルを取り出すルーチン
// main
$input = &argcut($ARGV[0]);
//
Perl で第一引数のファイルを取り出すルーチンをパッケージ化


 #!/usr/bin/perl
 package ishida;

 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;
 }

呼出し側では

 #!/usr/bin/perl
 require "ishida.pl";
 $input = ishida::argcut($ARGV[0]);