http://qs321.pair.com?node_id=711897


in reply to catfile/catdir collapses two leading slashes //

The name of a directory is not the same as its pathname, so why don't you use splitpath and catpath?

-- Frank

Replies are listed 'Best First'.
Re^2: catfile/catdir collapses two leading slashes //
by repellent (Priest) on Sep 17, 2008 at 07:37 UTC
    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'

    [download]

      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!
[reply]
[d/l]

In Section Seekers of Perl Wisdom