ファイル名抽出

perl

http://example.com/hoge/fuga/sample.jpg

みたいのがあったときに, sample.jpgを抽出する方法.
File::Basenameの basenameが使えね〜だろって勝手に思っていて
以下のようなものでやっていた。

my $hoge = "http://example.com/hoge/fuga/sample.jpg";
($filename) = (split /\//, $hoge)[-1];

でも普通に File::Basenameの basenameでいけるんですね。
知らなかった.