ExtractFileName

2017/12/18

DelphiのExtractFileName(ファイルパスからファイル名のみを抽出)に相当する正規表現

s/(.+)[/]([^/]+)/$2/

かなりインチキっぽい気がしますが、ちゃんと動きました(^^;たぶんUNIX環境下でも動く…かな。

$SELFFILE =  $0;
$SELFFILE =~ s/(.+)[/]([^/]+)/$2/;

 とすればオフラインでも動作テストが出来るCGIを作れるので楽です。
ちょっと応用すれば、ExtractFileExt(拡張子抜きだし)やExtractFileDir(ディレクトリパス抜きだし)なんかも出来るでしょう。