File Perl

  1. Home
  2. Perl
  3. File
  4. 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";