如何使用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中三种遍历文件夹方法的比较

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

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

#!/usr/bin/perl -w use strict; use File::Spec; local $\ ="\n";#当前模块的每行输出加入换行符 my %options; #目...
  • csujiangyu
  • csujiangyu
  • 2015年03月01日 14:14
  • 2388

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

(linux下)要求是,遍历/ccd/pa/下的所有后缀为log的文件(包括所有子文件夹),只保留时间顺序离现在最近的20个文件,其它删除。 ...
  • konglongaa
  • konglongaa
  • 2016年06月07日 10:38
  • 654

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

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

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

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

Perl——数组、foreach

数组
  • abelabel
  • abelabel
  • 2014年11月14日 18:04
  • 4944

perl遍历文件夹将文件转化为utf-8格式

制作需求来源: 用eclipse打开网站源码,发现java代码中文乱码,想都不用想,文件格式肯定不是utf-8(因为以前我用notepad++看过),这次我实在是不想手动改了,就用perl处理了,搜了...
  • ChangHongJian
  • ChangHongJian
  • 2014年12月07日 22:13
  • 858

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

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

Perl 文件和文件夹操作

作为一门编程语言,perl有着强大的文件和文件夹操作功能。Perl利用文件句柄(file handle)和文件夹句柄(dir handle)与操作系统进行输入输出连接。文件和文件夹句柄一般使用大写子母...
  • konglongaa
  • konglongaa
  • 2016年06月07日 09:41
  • 388

Perl文件及目录操作

http://www.blogjava.net/weidagang2046/articles/61995.html 大多数程序都不是孤立的,它们与它们的环境相互作用。很多的程序也需要通过文件...
  • woshiyuanlei
  • woshiyuanlei
  • 2015年05月31日 19:59
  • 1264
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何使用perl遍历一个目录下的所有文件
举报原因:
原因补充:

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