Perlでファイル名の拡張子を取得する

File::Basename モジュールの fileparse 関数を使う。

fileparse の返り値の順番が、ファイル名、ディレクトリ名、拡張子であることに注意。ふつうディレクトリ名が最初だと思うよなぁ。

実行結果:

^o^ > perl fileparse.pl sample.txt
dir:  .\
base: sample
ext:  .txt

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です