Perl mkdir -p:如何自动创建递归目录
Perl代表实用提取和报告语言。顾名思义，Perl是专门为文本处理和创建报告而设计的。Perl程序相对稳定，可以在各种不同的平台上运行。Perl应用程序用于网络编程、系统管理和除文本操作外的其他任务。这种语言是可扩展的，并为过程式编程和面向对象编程提供支持。Perl可以很好地处理诸如HTML、XML等标记语言。这种流行而强大的编程语言支持Unicode，并且兼容Y2K。它适用于处理加密数据，其中包括电子商务交易。具有C或UNIX shell编程背景的程序员会发现，迁移到这个平台相对容易。
今天，我们将带您学习Perl mkdir -p命令。这需要对语言有基本的理解。如果您是Perl新手，您可能想学习这门入门课程在我们开始之前。
Perl mkdir命令是make目录的缩写形式。该命令用于按照指定的顺序创建目录。mkdir命令的通用语法如下所示。
mkdir / name_of_directory, permission_setting;
该命令有两个参数。第一个参数指定要创建的目录的名称。第二个参数用于设置用户对该目录的权限。注意，第二个参数不是强制性的。
使用mkdir -p命令创建递归目录
目录遍历是对计算机目录内容进行扫描的一种系统方法。这从当前工作目录开始。在许多情况下，目录遍历是递归的。换句话说，它们扫描工作目录的内容，以及工作目录中包含的每个不同文件夹或子目录的内容。使用mkdir -p选项，我们可以创建中间目录。换句话说，当使用这个命令创建一个新目录时，系统也会创建包含新创建目录的父目录。您根本不必担心父目录。语法如下:
Mkdir [-p] [-m mode] directory_name
这将创建中间目录。如果没有提供-p选项，则需要创建每个目录的完整路径前缀。创建这些中间目录的权限是0777。所有者将具有写入和搜索权限。如果要创建的目录已经存在，则不视为错误。看看下面的例子:
mkdir - p /home/java/database/sourcefiles / c /酒吧
这里我们使用Perl mkdir命令的-p选项来创建目录和所有必需的中间子目录。如果你不想使用-p -，这是比输入所有等价的命令更简单的方法:
CD home mkdir Java CD Java mkdir database CD database mkdir sourcfiles CD sourcfiles mkdir c CD c mkdir ba . bat
-m选项根据指定的模式设置目录权限。这些权限可以读取、修改和执行。模式应该是一个八进制数。mkdir命令执行成功，返回值为0。如果发生错误，将返回一个大于0的值。对于该命令，用户必须对父目录具有写权限。如果存在符号模式，则使用操作符' + '和' - '添加或删除权限。看一下下面的示例
Mkdir -m a= RWX newdir;
这里，这个命令赋予所有用户读、写和执行新创建目录newdir的内容的权限。可以设置的权限列表类似于Linux或其他Unix风格。要了解更多关于您可以在mkdir -p中设置的不同权限的信息，您可以学习这门Linux课程。
其他可以与mkdir -p命令一起使用的选项
Mkdir -p -v. txt
这里创建了中间目录，并为每个创建的目录或子目录显示一条消息。看看下面的例子
Mkdir -p -v /home/java/database/ sourcfiles /c Mkdir -p——help
这个命令调用帮助文件。要了解其他Perl命令和选项，请查看本课程．
如何创建一个目录结构使用当前年，月和日期
这可以通过执行以下命令来实现。
mkdir -p ' date +%Y ' / ' date +%m-%B ' / ' date +%d '
date命令用来显示当前日期。%Y用于获取当前年份，%m表示月份，%d以数字形式表示月份的哪一天。
如何使用操作系统Shell创建中间目录
某些Perl版本不支持-p选项。如果您的Linux或操作系统外壳支持-p，您可以使用系统命令如下所示:
系统"mkdir -p";为了更好地理解，请看下面的示例。系统"mkdir -p newdir";
如何使用Perl脚本创建中间目录
如果您的操作系统也不支持-p选项，您仍然可以通过创建和使用这个替代Perl脚本来解决它。
#！/usr/bin/perl使用警告;使用严格的;$dirname = "dir1/dir2";我的@dir = split /\//，$dirname;(0 . .$dir) {mkdir -p $dir[$_];chdir dir美元($ _);｝
在此代码中，split获取目录名列表。for循环遍历整个列表。在每个循环中，我们在mkdir函数的帮助下创建一个目录。chdir函数用于进入新创建的目录。当创建列表中的最后一个目录时，循环终止。
使用mkdir的-p选项创建中间目录
#！/usr/bin/perl使用警告;使用严格的;$dirname = "dir1/dir2";我的@folders = split /\/|\\/， $dirname;Map {mkdir $_;chdir $ _;} @folders;
上面的程序使用map函数代替chdir或其他替代方法。这只是告诉你，通常有多种方法可以达到相同的结果。您需要确定哪种替代方案最适合您的场景。您可能还想看看它是如何在其他脚本语言中实现的。通过这门课程可以了解Bash脚本和Python。
