关闭

如何使用perl遍历一个目录下的所有文件

标签: perlwarningspathfile
8487人阅读 评论(0) 收藏 举报

#!/usr/bin/perl -w
use warnings;

my $DIR_PATH="/home/wangfy/tmp";

opendir DIR, ${DIR_PATH} or die "Can not open /"$DIR_PATH/"/n";
@filelist = readdir DIR;

foreach $file (@filelist) {
   print $DIR_PATH."/".$file."/n";
}
 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:838367次
    • 积分:9496
    • 等级:
    • 排名:第1885名
    • 原创:214篇
    • 转载:61篇
    • 译文:0篇
    • 评论:83条
    最新评论