推荐参考学习:《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中的目录中分辨文件的详细内容,更多请关注php中文网其它相关文章!
声明:本文原创发布php中文网,转载请注明出处,感谢您的尊重!如有疑问,请联系admin@php.cn处理
网友评论
文明上网理性发言,请遵守 新闻评论服务协议
我要评论