从Perl目录中分辨文件的方法-创新互联

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

专注于为中小企业提供网站建设、成都做网站服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业德惠免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了成百上千家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。

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

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

使用-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目录中分辨文件的方法-创新互联
文章URL:http://myzitong.com/article/dihgpj.html