Re^4: Perl appending \ or / based on windows or linux

[kennethk]

Rather than matching the separation character, match the directory names:

use strict;
use warnings;

use File::Spec::Functions qw(:ALL);

use feature 'say';

my $testpath = catdir('foo','bar');
#say $testpath;
my ($sepchar) = $testpath =~ m/^foo(.+)bar$/
    or die 'Separation character identification failed';
say $sepchar;

[Anonymous Monk]

Yes, you and dasgar are probably right, if one needs to get the directory separator out of File::Spec.

The only caveat I have heard of is that on some OSes, paths aren't that easy... here's a sample VMS filename I found: DKA0:[MYDIR.SUBDIR1.SUBDIR2]MYFILE.TXT;1 - interesting!