#!/usr/local/bin/perl # mkdir-p.pl # On some systems, the -p option to mkdir (= also create any missing parent # directories) is not available. my $arg; foreach $arg (@ARGV) { $arg =~ tr|\\|/|; &do_mkdir_p($arg); } sub do_mkdir_p { local($dir) = @_; $dir =~ s|/*\Z(?!\n)||s; if (-d $dir) { return; } if ($dir =~ m|[^/]/|s) { local($parent) = $dir; $parent =~ s|[^/]*\Z(?!\n)||s; do_mkdir_p($parent); } mkdir($dir, 0777) || die "Cannot create directory $dir: $!\n"; print "created directory `$dir'\n"; }
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#1 | 10713 | Robert Cowham |
Populate //guest/robert_cowham/openssl/1.0.1j/... from //guest/robert_cowham/openssl/main/.... |
||
//guest/robert_cowham/openssl/main/util/mkdir-p.pl | |||||
#1 | 10711 | Robert Cowham | OpenSSL 1.0.1i |