Create a directory tree : File « File « Perl

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










Related examples in the same category

1.Copy files
2.Copying a file using the File::Copy
3.Determine the contents of a directory tree?
4.File finder and callback
5.File size with FIELDS
6.Find file
7.Find out if there's a copy of the dir program on this computer
8.File find closure
9.Using a Callback
10.Extracting file names from paths
11.$File::Find::prune = 1 if /dir1/;