如何从Perl中的目录中分辨文件-C#.Net教程-PHP中文网

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

藏色散人

发布： 2019-01-21 17:32:41

原创

6172人浏览过

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

如何从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运算符，则不会打印。

名品购物网店系统

适合品牌专卖店专用，从前台的美工设计就开始强调视觉形象，有助于提升商品的档次，打造网店品牌!后台及程序核心比较简洁，着重在线购物，去掉了繁琐的代码及垃圾程式，在结构上更适合一些中高档的时尚品牌商品展示. 率先引入语言包机制，可在1小时内制作出任何语言版本，程序所有应用文字皆引自LANG目录下的语言包文件，独特的套图更换功能，三级物品分类，购物车帖心设计，在国内率先将购物车与商品显示页面完美结合，完

查看详情

然后，对$ 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中的目录中分辨文件的详细内容，更多请关注php中文网其它相关文章！