perlで拡張子のみorファイル名のみ取り出す
久々(?)の仕事っぽいネタです
どうやら毎日おやつを食べてるだけではなかったらしいです
拡張子が●●の時だけこーしたい、とか
ファイル名だけ取り出したいんだ!とか
そういう時には↓
if ($file=~ /(.*).(.*)/) {
$name = $1;
$kakutyoshi? = $2;
}
上記で、拡張子とファイル名をわけて変数に格納
で、↓というふうに使ったりできます
if ($kakutyoshi eq “txt”) {
拡張子が「txt」だったらやりたいこと!
}