1: #!/usr/local/bin/perl
    2: 
    3: # mkdir-p.pl
    4: 
    5: # On some systems, the -p option to mkdir (= also create any missing parent
    6: # directories) is not available.
    7: 
    8: my $arg;
    9: 
   10: foreach $arg (@ARGV) {
   11:   $arg =~ tr|\\|/|;
   12:   &do_mkdir_p($arg);
   13: }
   14: 
   15: 
   16: sub do_mkdir_p {
   17:   local($dir) = @_;
   18: 
   19:   $dir =~ s|/*\Z(?!\n)||s;
   20: 
   21:   if (-d $dir) {
   22:     return;
   23:   }
   24: 
   25:   if ($dir =~ m|[^/]/|s) {
   26:     local($parent) = $dir;
   27:     $parent =~ s|[^/]*\Z(?!\n)||s;
   28: 
   29:     do_mkdir_p($parent);
   30:   }
   31: 
   32:   mkdir($dir, 0777) || die "Cannot create directory $dir: $!\n";
   33:   print "created directory `$dir'\n";
   34: }