如何在Perl中创建目录

Perl最初是在20世纪80年代为UNIX系统设计的，作为一种实用的提取和报告处理语言，或者，用非技术术语来说，是一种使文本处理更容易的语言。从那时起，该语言得到了真正的扩展，今天，除了文本处理之外，它还有很多用途。例如，Perl现在是一种非常流行的web开发语言。betwayapp下载安装你可以使用一些免费的框架来运行和维护web应用程序，比如Catalyst, Titanium和Mojo。Perl也是一种很棒的测试语言。您可以使用它来测试几种不同类型的应用程序，即使这些应用程序是用不同的语言编写的。Perl有非常广泛的用途。例如，它甚至被用于游戏开发中。betwayapp下载安装

Perl有一个简单、容易理解的语法，即使是一个完整的编程新手也可以很快学会。它有一个强大的社区来支持它的支持和发展。betwayapp下载安装最重要的是，Perl是开源的。这意味着您可以以任何您想要的方式修改Perl，并且使用它，即使是用于商业目的，也不会花费您任何费用。如果您有兴趣学习Perl或成为一名Perl程序员，我们提供了一个很好的入门Perl课程．它向您展示了成为一名Perl程序员所需知道的一切，以便您可以使用该语言构建自己的web应用程序。

在本教程中，我们将向您展示如何使用mkdir函数使用Perl创建目录。

在Perl中使用mkdir创建目录

mkdir函数允许您在现有目录中或在特定位置创建目录。mkdir函数的语法如下:

mkdir / name_of_directory, permission_setting;

mkdir函数有两个参数。“name_of_directory”参数当然是要创建的目录的名称。第二个参数是可选的，但是强烈建议您设置它。“permission_setting”参数设置了对目录的权限。例如，当前用户是否可以读取目录?修改目录?删除它吗?“permission_setting”参数将决定。“permission_setting”参数接受八进制值。还要注意，“permission_setting”参数适用于基于unix的操作系统。 If you don’t specify a “permission_setting” parameter, it will revert to 0755 by default.

让我们创建一个名为“mydir”的简单目录来演示它是如何实现的:

mkdir mydir, 0755;

这将在您当前所在的目录中创建一个名为“mydir”的目录。0755是八进制权限值。0755告诉Perl，您，当前用户，被允许读取、修改和删除该目录—您拥有对该目录做任何想做的事情的完全权限。其他用户将只允许读取该目录，而不允许修改或删除它。

如果您想在与当前目录不同的位置创建一个目录，该怎么办?你可以这样做:

$ newdir =“/ tmp / mydir”;mkdir newdir 0755美元;

正如您所看到的，这里我们已经设置了一个路径，在名为“tmp”的文件夹中创建目录。然后，我们使用变量“newdir”创建目录。如果Perl无法用指定的名称创建目录，出于某种原因，它将返回一个$!错误。

您可以将其作为任何Perl脚本的一部分。通过本课程学习如何编写自己的Perl脚本．

您可以设置不同的权限

您可以设置许多不同的权限，在不同的时间需要这些权限。我们将给出一个简短的列表，但请注意它并不包含所有可能的许可组合，只包含最常见的:

八进制值	权限信息
001	所有用户都可以执行
002	所有用户都可以写
004	所有用户都可以阅读
0010	只有组内用户可以执行
0020	只有组用户可以写
0040	组内所有用户都可以阅读
0100	只有所有者可以执行
0200	只有所有者可以写
0400	只有所有者可以阅读
0666	所有用户都可以读写

此权限列表在所有Linux和Unix变体(side: you .)中是通用的在这个Linux课程中了解更多）.

你可以像前面展示的那样设置权限，或者你可以使用一个单独的变量来提高可读性:

$newdir = " mydir ";$permissionset = " 0020 ";mkdir $newdir, oct($permissionset);

这将创建一个名为“mydir”的目录，权限为0020。请记住，权限必须是八进制值，这就是我们指定oct()函数的原因。

检查目录是否已创建成功

当然，在进行检查之前，您不知道目录是否已成功创建。虽然mkdir函数如果成功创建了一个目录就返回一个真值，但是这个值对我们是不可见的，除非我们特别检查它。我们可以这样做:

使用严格的;使用警告;子目录{我的$newdirectory = "mydir";除非(mkdir $newdirectory) {die "目录$directory还没有被创建!";}} main ();

输出(运行2次):

没有创建mydir目录!

这个Perl脚本非常简单，易于理解。在这里，我们所做的只是让Perl告诉我们，如果目录没有在unless函数的帮助下成功创建的话。尝试运行此脚本两次。第二次回显信息为:“The directory mydir has NOT been created!”这是因为Perl将无法创建两次名为“mydir”的目录。

您还可以使用-e操作符来检查系统中是否存在该目录。

$ newdir =“mydir”;mkdir newdir 0755美元;if (-e $newdir) {print "目录尚未创建! ";} else {print " Directory has been created successfully ";｝

输出:

目录尚未创建或已成功创建目录

在这里，-e操作符检查系统中是否存在名为“mydir”的文件，您将收到适当的输出。

如您所见，创建目录是一个相当简单的过程。了解关于如何在Perl中创建、修改和删除目录的更多信息选修这门全面的Perl课程，它使用了许多真实世界的例子。你也可以学习Bash脚本和Pytho入门课程查看其他脚本语言是如何工作的。别忘了玩得开心!