ファイル名から、ディレクトリ名とベース名を取り出す
#!/usr/bin/evn perl use strict; use warnings; use Path::Class; use Perl6::Say; my $file = file( 'foo', 'bar', 'tmp.txt' ); say $file->basename; say $file->dir; __END__
See also:
http://d.hatena.ne.jp/perlcodesample/20080517/1211118829