Sure. But let's not stray off-topic :)
use File::Spec::Functions qw(catdir catpath splitdir splitpath);
my ($volume, $directories, $file) = splitpath '//special/semantic//pat
+h/definition';
my @dir = splitdir $directories;
my $dir1 = catdir @dir; # '/special/semantic/path'
my $dir2 = join '/', @dir; # '//special/semantic//path/'
my $path1 = catpath $volume, $dir1, $file; # '/special/semantic/path/d
+efinition'
my $path2 = catpath $volume, $dir2, $file; # '//special/semantic//path
+/definition'
The name of a directory is not the same as its pathname
There's always confusion with file nomenclature. See File system nomenclature. Death to path! |