如何从Perl中的目录中分辨文件

推荐参考学习：《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中的目录中分辨文件的详细内容，更多请关注其它相关文章！

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！