perlの文字列操作関連TIPS
ファイルパスよりファイル名のみを抜き出す
ディレクトリの区切りが"/"の場合には以下のコードで$filenameに抜き出すことができる.
if( $pathname =~ m|.*/(.*)$|i ) { $filename = $1; }
同様に,"\"の場合は
if( $pathname =~ m/.*\\(.+)$/i ) { $filename = $1; }
ディレクトリの区切りが"/"の場合には以下のコードで$filenameに抜き出すことができる.
if( $pathname =~ m|.*/(.*)$|i ) { $filename = $1; }
同様に,"\"の場合は
if( $pathname =~ m/.*\\(.+)$/i ) { $filename = $1; }