Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 23 lines (20 sloc) 0.436 kB
#!/usr/bin/perl
use strict;
use File::Path qw(make_path);
use Term::ExtendedColor qw(fg);
_mkdir(@ARGV);
sub _mkdir {
my $dir = shift;
if(-f $dir) {
if($dir =~ m|(.+)\..+$|) { # I know, works for me for now.
warn "$dir is a file. Will mkdir $1\n";
$dir = $1;
}
}
if(make_path($dir)) {
printf("mkdir: created directory '%s'\n", fg('red1', fg('bold', $dir)));
}
else {
print "mkdir: $!\n";
}
}
Jump to Line
Something went wrong with that request. Please try again.