クロスプラットフォームなファイル・ディレクトリパスの操作 Path::Classを使うとファイルやディレクトリの操作ができます。 ディレクトリ操作 use Path::Class qw(dir); my $dir = dir('foo', 'bar'); # もしくは use Path::Class::Dir; my $file = Path::Class::Dir->new('foo', 'bar'); # Windowsだったらfoo\bar # Unixだったらfoo/bar で表示される print "$dir\n"; # サブディレクトリの取得 my $subdir = $dir->subdir('baz'); #foo/bar/baz # 親ディレクトリの取得 my $parent = $dir->parent; # foo # 絶対パスの取得 my $abs = $dir->