Search code examples
perldirectorymkdir

How to create a folder using mkdir in Perl?

I want to create a folder in a particular path using mkdir.

Solution

  • Assuming D:/Test/Data exists

    my $dir_qfn = 'D:/Test/Data/foo';
mkdir($dir_qfn)
   or $!{EEXIST}   # Don't die if $dir_qfn exists.
   or die("Can't create directory \"$dir_qfn\": $!\n");

    If if might not,

    use File::Path qw( make_path );

my $dir_qfn = 'D:/Test/Data/foo';
make_path($dir_qfn);