use File::Spec; # OO style $path = File::Spec->catfile("subdir", "filename"); # 'subdir/filename' on Unix, OS2, or Mac OS X # 'subdir:filename' on (old) Apple Macs # 'subdir\filename' on Microsoft $path = File::Spec->catfile("", "dir1", "dir2", "filename"); # '/dir1/dir2/filename' on Unix, OS2, or Mac OS X # ':dir1:dir2:filename' on (old) Apple Macs # '\dir1\dir2\filename' on Microsoft use File::Spec::Unix; $path = File::Spec::Unix->catfile("subdir", "filename"); # 'subdir/filename' (even when executed on non-Unix systems) use File::Spec::Mac; $path = File::Spec::Mac->catfile("subdir", "filename"); # 'subdir:filename' use File::Spec::Win32; $path = File::Spec::Win32->catfile("subdir", "filename";) # 'subdir\filename' # Use functional interface instead. use File::Spec::Functions; $path = catfile("subdir", "filename");
The