Revision: 20553
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
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