awnstudio on 11/18/09
Last Edited at 11/18/09 02:32pm
my @dirs = ();my @path = split /\//, '/foo/bar/baz/baz/bax/cat/dog';my $file = pop @path;map { push @dirs, $_; mkdir join('/', @dirs), 0777 } @path;
Report this snippet Tweet
Comment:
You need to login to post a comment.