Mega Code Archive

 

Categories / Perl / File

 

Create a directory tree

#!/usr/local/bin/perl -w     use File::Path;     my $count = mkpath(\@ARGV, 1, 0711);     print "The number of directories created is $count\n";