Return to Snippet

Revision: 20553
at November 18, 2009 14:32 by awnstudio


Initial Code
my @dirs   = ();
my @path   = split /\//, '/foo/bar/baz/baz/bax/cat/dog';
my $file   = pop @path;
map { push @dirs, $_; mkdir join('/', @dirs), 0777 } @path;

Initial URL

                                

Initial Description

                                

Initial Title
Perl Recursive Mkdir

Initial Tags

                                

Initial Language
Perl