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

最新推荐文章于 2023-12-09 20:56:42 发布
最新推荐文章于 2023-12-09 20:56:42 发布
阅读量1.6w 收藏 9
点赞数 4
文章标签： perl warnings path file
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/huoyin/article/details/1784087
版权

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

huoyin
关注
perl 递归地遍历目录下的文件
weixin_30437847的博客
01-16 316
#!/usr/bin/perl -w use strict; use File::Spec; local $\ ="\n";#当前模块的每行输出加入换行符 my %options; #目录路径 $options{single_case} = '/home/jiangyu/src/pl/Example'; my @cases; if (-d ...
perl读取文件夹文件。
07-17
perl脚本，读取一个文件夹所有文件。 简单实用。
用perl查找文件夹中的所有文件和目录
爱读庄子的码农
12-09 1193
用perl查找文件夹中的所有文件和目录
perl 遍历文件夹，获取全部文件
weixin_34240657的博客
07-06 715
main #!/usr/bin/perl my ($path) = @ARGV; sub scan_file{ my @files = glob(@_[0]); foreach (@files){ if(-d $_){ my $path = "$_/*"; scan_file($path); }els...
Perl遍历目录下所有文件
suese的专栏
02-10 2874
use strict; use Cwd; sub get_dir_file { my $path = shift @_; # print $path; opendir(TEMP, $path) || die "open $path fail...$!"; my @FILES = readdir TEMP; for my $filename (@FILES)
1752_使用Perl实现目录遍历
小灰笔记
06-26 573
过去的一年中，我用Python尝试了简单的文本处理、与MATLAB的交互、网络访问、简单的爬虫、电子表格分析、绘图、完成数据标定、数据分析、计算等等工作。其中$_代表的是遍历到的当前文件，$File::Find::name是带有目录的文件名，$File::File::dir是当前的目录。综合考虑，在处理一般的工作时Perl是更适合我的。虽说Python在写大型程序或者代码量变大的时候看起来调理、比较好管理，但是我所处理的工作通常几十行代码全都搞定，而正则表达式的干净利落上Perl还是有很大优势的。
Perl脚本实现递归遍历目录下的文件
09-22
下面是一个简单的Perl脚本，用于递归遍历目录下的所有文件： ```perl #!/usr/bin/perl -w use strict; use File::Spec; local $\ = "\n"; # 设置每行输出后添加换行符 my %options; $options{single_case} = '/...
Perl脚本实现递归遍历目录下的文件.pl
05-04
载入目录路径并且搜索所有目录下任意文件类型，linux下过滤掉以"."和".."的文件,即UNIX下的隐藏文件
如何使用Perl搜索和替换目录中文件的内容
04-04
你可以使用这些函数来遍历指定目录下的所有文件。例如： ```perl opendir(my $dir, "/path/to/directory") or die "Cannot open directory: $!"; my @files = grep { -f && /\.txt$/i } readdir($dir); closedir...
perl 遍历微信文件夹，返回微信文件
06-15
HTC DHD微信文件夹下，voice文件夹下有巨多子文件夹，小弟想提取出微信语音文件。
perl 自动生成filelist文件脚本
08-05
使用方法简单，在当前目录下，使用perl make_f.pl xx，xx为例化的filelist文件名，按下回车将会生成.f文件，里面列出了当前目录下所有.v文件的绝对路径，将脚本中.v替换成.c也可以检索当前目录下的所有.c文件，以此类推。 使用这个脚本不仅能够生成filelist文件，也能方便用户查看目录下的代码结构
perl脚本遍历文件夹及对SAC波形文件进行去仪器响应、滤波等操作实现
刘小毅的博客
11-15 1853
1.  如题，perl脚本遍历子文件夹及对子文件夹下文件处理： #!/usr/bin/env perl #遍历文件夹$rawpath下的所有子目录，并对子目录下的文件进行操作； my $rawpath="/home/liuyi/evt_test"; opendir (DIR,$rawpath) or die "can't open!"; my @file= grep { /^[^\.]/ ...
perl读取文件夹下的文件
11-15 1206
#!usr/bin/perl-w usestrict; my$file_name;#文件名 my$num_1; my$num_2; my$num_3; my$num_4; my@result=qw//; my$sum=0; my$print_line;#写文件名以及数据处...
perl遍历文件
技术资料库
09-28 1992
本贴对三种遍历文件夹方法比较。1. 使用File::Find;2. 递归遍历。(遍历函数为lsr)3. 使用队列或栈遍历。(遍历函数为lsr_s)1.use File::Find[Copy to clipboard] [ - ]CODE:#!/usr/bin/perl -W## File: find.pl# Author:  路小佳# License: GPL-2use str
perl 遍历当前路径下的文件夹，去除掉隐藏路径
weixin_43931151的博客
10-07 428
#!/usr/bin/perl -w use Cwd; my $path_curr = getcwd; opendir (DIR,$path_curr): my @filelist = readdir(DIR): my @dirlist = (); foreach $files (@filelist): if(($file eq '.')||($file eq '..')){ next; } else{ if(-d $file){ $dir_name_path = $pa
perl linux 遍历文件,perl中使用递归 遍历目录
weixin_39875503的博客
04-30 189
perl自带的函数远不及php多，但功能确实很强大，实现起来也只有几行代码。perl中的目录操作函数有：1。mkdir 函数调用语法：mkdir (dirname, permisions)dirname：将要创建的目录名，可以为字符串或表达式。permisions：八进制数，指定目录的访问权限。其值和意义如下：权限值 权限4000 运...
perl linux 遍历文件,获取ftp文件列表的perl程序
weixin_34567079的博客
04-30 141
获取ftp文件列表的perl程序#!/usr/bin/perl -wuse Net::FTP;use strict;my $server='*.*.*.*';my $user = 'anonymous';my $pw = 'ftpuser';my $ftp = Net::FTP->new($server) ;$ftp->login($user,$pw) ;print "login ok...
perl遍历文件夹（一个层次，递归遍历还不会-_-）
zyj0oo0的博客
09-18 644
废话不多说，直接上代码 #! usr/bin/perl us Cwd my $dir = "."; #当前文件夹，也可以自己通过参数获得 my $file ; my $slash = "/"; my @dir_child ; my $xfile = "x.log"; my $yfile = "y.log"; my $zfile = "z.log"; opendir (DIR,$dir) or die "Cant open the directory"; open (OFILE ,">$
perl找一个文件目录
最新发布
10-16
在Perl中，你可以使用内置模块File::Find或File::Copy来遍历文件目录。以下是使用File::Find的基本例子，它会打印出指定目录下的所有文件和子目录： ```perl use File::Find; sub find_files { return if -d; # 如果是目录，则递归进入 print "Found file: ", $File::Find::name, "\n"; } find(\&find_files, '/path/to/directory'); ``` 在这个例子中，`find_files`函数是一个回调函数，当File::Find模块发现一个文件或目录时会被调用。将`'/path/to/directory'`替换为你想要查找的实际目录路径。 如果你想搜索特定类型的文件，比如只查找`.txt`文件，可以在回调函数里添加条件判断： ```perl sub find_txt_files { return unless -f; # 只处理普通文件 return unless /\.txt$/i; # 检查是否是.txt文件 print "Found .txt file: ", $File::Find::name, "\n"; } find(\&find_txt_files, '/path/to/directory'); ```
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值