自身のファイル名を取得[perl]

2011年4月14日

標準装備されているFile::Basenameを使う。

#自身のファイル名　model1.cgi

use File::Basename;
$name = basename($0, '.cgi');

$name =~ s/model//gis;
print $name;  #出力:1

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。