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

原创 2007年09月13日 18:52:00

#!/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";
}
 

相关文章推荐

perl 递归地遍历目录下的文件

#!/usr/bin/perl -w use strict; use File::Spec; local $\ ="\n";#当前模块的每行输出加入换行符 my %options; #目...

Perl递归遍历指定文件下的文件

#!/usr/bin/perl -w use strict; #use autodie; #use File::HomeDir; #第三方模块,不管在什么操作系统上都能进入指定用户的主目录 my $...

perl如何遍历指定文件夹下的指定扩展名文件,并按时间顺序要求删除

(linux下)要求是,遍历/ccd/pa/下的所有后缀为log的文件(包括所有子文件夹),只保留时间顺序离现在最近的20个文件,其它删除。 ...

用Perl读取一个目录下的所有文件名

如果你想用Perl读取一个目录下的所有文件名,你应该怎么办呢?一般来讲,我喜欢用两种方法。 第一种方法,直接用readdir来读取目录句柄。 use warnings; use strict...

[Perl系列—] 1. 清空目录及目录中的所有文件

看起来很简单, 但是需要注意的是: 1. 如果目录下有文件的话,rmdir 就不能删除目录, 这个看起来很正常。 2. 如果子目录下只有子目录的话, rmdir 也不能删除此目录。 3. u...

使用perl将当前目录中子目录下的相应文件拷贝到一个文件夹中

对于分类的文件夹下又有子文件夹,如果要将所有子文件夹下的相应文件取出来,通过切换文件夹,不断Ctrl+C和Ctrl+V是一种让手疼的办法。而用perl就只要将下面的脚本放到当前文件夹下,在命令行中执行...

Perl中三种遍历文件夹方法的比较

Perl中三种遍历文件夹方法的比较本贴对三种遍历文件夹方法比较。1. 使用File::Find;2. 递归遍历。(遍历函数为lsr)3. 使用队列或栈遍历。(遍历函数为lsr_s)1.use File...

Perl语言基础总结---强大的文件目录及文件操作

1987年,Larry Wall发明perl语言以来,perl语言逐渐发展强大,并且应用非产广泛,在读《Perl语言入门(第五版)》教程的时候不得不感慨,perl竟然把文件操作作为核心操作,并用了两大...

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

File(遍历一个目录下的所有文件)

package com.hz.test;import java.io.File; import java.util.Arrays; import java.util.LinkedList; impor...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何使用perl遍历一个目录下的所有文件
举报原因:
原因补充:

(最多只允许输入30个字)