从Perl目录中分辨文件的方法

这篇文章给大家分享的是有关从Perl目录中分辨文件的方法的内容。小编觉得挺实用的，因此分享给大家做个参考。一起跟随小编过来看看吧。

创新互联公司-专业网站定制、快速模板网站建设、高性价比偃师网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式偃师网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖偃师地区。费用合理售后完善，10多年实体公司更值得信赖。

假设您正在构建一个Perl脚本来遍历文件系统并记录它找到的内容。当您打开文件句柄时，您需要知道您是在处理实际文件还是处理目录，您可以区别对待。你想要一个目录，所以你可以继续递归地解析文件系统。从目录告诉文件的最快方法是使用Perl内置的文件测试操作。Perl具有可用于测试文件不同方面的运算符。-f运算符用于标识常规文件而不是目录或其他类型的文件。

使用-f文件测试操作员

#!/usr/bin/perl -w
$filename = '/path/to/your/file.doc';
$directoryname = '/path/to/your/directory';
if (-f $filename) {
print "This is a file.";
}
if (-d $directoryname) {
print "This is a directory.";
}

首先，创建两个字符串：一个指向文件，另一个指向目录。接下来，使用-f运算符测试$ filename，它检查某些内容是否为文件。

这将打印“这是一个文件”。如果在目录上尝试-f运算符，则不会打印。

然后，对$ directoryname执行相反的操作，并确认它实际上是一个目录。将它与目录glob  相结合，以排序哪些元素是文件，哪些是目录：

#!/usr/bin/perl -w
@files = <*>;
foreach $file (@files) {
if (-f $file) {
print "This is a file: " . $file;
}
if (-d $file) {
print "This is a directory: " . $file;
}
}

感谢各位的阅读！关于从Perl目录中分辨文件的方法就分享到这里了，希望以上内容可以对大家有一定的帮助，让大家可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到吧！

分享文章：从Perl目录中分辨文件的方法
本文网址：https://www.cdcxhl.com/article10/jjhjdo.html

成都网站建设公司_创新互联，为您提供用户体验、小程序开发、网站营销、定制网站、定制开发、微信公众号

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联