しぐまっく

愛機MacBook Pro(Mid 2010)を研究やら趣味やらに使っている際のおぼえがき.homebrewとかlinuxとかwebサービスとかも.

perlの文字列操作関連TIPS

ファイルパスよりファイル名のみを抜き出す

ディレクトリの区切りが"/"の場合には以下のコードで$filenameに抜き出すことができる.

if( $pathname =~ m|.*/(.*)$|i ) {
   $filename = $1;
}

同様に,"\"の場合は

if( $pathname =~ m/.*\\(.+)$/i ) {
   $filename = $1;
}