Help for this page

Select Code to Download


  1. or download this
    $path = File::Spec->catfile( @directories, $filename );
  2. or download this
    use Modern::Perl qw/2017/;
use File::Spec;
my $directory_name = 'testdir';
my $path =
  File::Spec->catfile( qw/C: Users darkblack Desktop A/, $directory_na
+me );
say $path;