📄 mkdir-p.pl
字号:
#!/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) { &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";}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -