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