in reply to Re: Perl API that emulates mkdir -p on unix?
in thread Perl API that emulates mkdir -p on unix?

Just emulate the Linux function: 
sub MkDirs ($) {
    my ($Dir) = @_;
    my @Folders = split(/\\|\//, $Dir);
    $Dir = shift @Folders;
    foreach my $Folder (@Folders) {
      $Dir = File::Spec->catfile( $Dir, $Folder );
      mkdir $Dir unless (-e $Dir);
    }
}

[download]

Replies are listed 'Best First'.
Re^3: Perl API that emulates mkdir -p on unix?
by Anonymous Monk on Jan 29, 2014 at 14:59 UTC
    the easiest way with native Perl 
    sub mkdirp($) {
    my $dir = shift;
    return if (-d $dir);
    mkdirp(dirname($dir));
    mkdir $dir;
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom