Help for this page

Select Code to Download

Select or download this

# fake_os.pl

...
my $x = File::Spec->catfile('a', 'b', 'c');

print $x;

Select or download this

C:\_32\pscrpt\file-spec>perl fake_os.pl
a/b/c
C:\_32\pscrpt\file-spec>perl -MTest::Harness fake_os.pl
a\b\c