DelphiのExtractFileName(ファイルパスからファイル名のみを抽出)に相当する正規表現
s/(.+)[\\\/]([^\\\/]+)/$2/
かなりインチキっぽい気がしますが、ちゃんと動きました(^^;たぶんUNIX環境下でも動く…かな。
$SELFFILE = $0; $SELFFILE =~ s/(.+)[\\\/]([^\\\/]+)/$2/;
とすればオフラインでも動作テストが出来るCGIを作れるので楽です。
ちょっと応用すれば、ExtractFileExt(拡張子抜きだし)やExtractFileDir(ディレクトリパス抜きだし)なんかも出来るでしょう。
