マイコンピュータ
マイネットワーク
マイドキュメント
ごみ箱
perl module 忘備録
フルパス名をディレクトリ・ノード名・拡張子に分解する。
use File::Basename;
パッケージをロードする。
my($filename, $directories, $suffix) = fileparse($path , qr/\.[^.]*/ );
$filename：ノード名
$directories：ディレクトリ
$suffix：拡張子(第二パラメタにマッチする部分が拡張子とみなされる）
Windowsの場合は、ドライブ名もディレクトリに含まれる。
my $previous_type = fileparse_set_fstype($type);
fileparseは、デフォルトでは実行しているOSのパス表記が仮定される。
$typeを設定することによって、他のOSのパス表記を解析させることができる。
サポートされるOS：
"MacOS", "VMS", "AmigaOS", "OS2", "RISCOS"
"MSWin32", "DOS" , "Epoc" and "Unix"
