トップ
新規
一覧
単語検索
最終更新
ヘルプ
ログイン
アールメカブ
Perl で第一引数のファイルを取り出すルーチン
をテンプレートにして作成
開始行:
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]);
終了行:
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]);
ページ名:
