Perl中取得指定目录下的所有文件和目录

最新推荐文章于 2024-07-23 20:14:10 发布
最新推荐文章于 2024-07-23 20:14:10 发布
阅读量2.2k 收藏 2
点赞数
分类专栏： Perl 文章标签： perl list file 工具 c
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/zhq306_1/article/details/212054
版权
    今天用PERL写了一个文件重命名工具，体验了一点用PERL处理文件的便利。比如取得指定目录下的所有文件和目录：
# 先用opendir打开指定的目录
opendir(DES_DIR, “C://TEM//”);

# 取得里面的文件和目录
@file_list = readdir(DES_DIR);

# 关闭
closedir(DES_DIR);

这样目录下所有的文件和目录名就放到了数组@file_list里面，跟C/C++比起来，简便不少。不过由于对PERL不熟悉，算上查资料的时间，竟用了4个小时左右。呵呵，有点得不尝失~:P

顺便记下找到的有益资料：
1、 Perl 5教程 ： http://oldsite.linuxaid.com.cn/download/support/Perl_Teach/
中文的PERL教程，里面还有一个非常值得收藏的PERL函数集。

2、Perl书籍下载 ： http://www.linuxforum.net/forum/showflat.php?Cat=&Board=perl&Number=510009&page=0&view=collapsed&sb=5&o=&fpart=
zhq306_1
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
Perl目录操作
追梦赤子心
12-29 3404
Perl目录操作 1. 工作目录 1.1 当前工作目录 程序运行的时候总有一个相应的工作目录，后续要做的事情都是从这个目录开始的。借助标准模块的Cwd模块，我么可以查看当前目录。 #!/usr/bin/perl #code1 use v5.10; use Cwd; say "The cuurent working directory is："，getcwd(); #打印的路径应该就是程序的保存位置...
perl读取文件夹下的文件
11-15 1167
#!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读取文件夹文件。
07-17
perl脚本，读取一个文件夹所有文件。 简单实用。
Perl 脚本在给定的文件夹目录中递归查找文件
elfprincexu的专栏
07-01 2145
最近在工作中使用到了Perl 脚本，需要在给定目录下对各类编译过的
perl：文件目录下读取文件操作glob
seuwilson的博客
09-17 1354
1.很多时候我们需要处理在一个目录下的同一类型文件。 2.可以不用采取读入文件的方式获取目录下的文件名。 3.使用glob来获取目录下对应的文件名。 ...
Perl 获取当前目录下所有文件名
mjj_1094的博客
12-06 4628
#查找该目录下所有不同子目录下的文件，并输出路径  #!/usr/bin/perl -w use strict; use File::Spec;   local $\ ="\n";#当前模块的每行输出加入换行符     my %options;   ###目录路径 $options{single_case} = 's';#$path= 's';也可     my @case
用Perl读取一个目录下的所有文件名
热门推荐
nciaebupt
11-15 2万+
如果你想用Perl读取一个目录下的所有文件名，你应该怎么办呢？一般来讲，我喜欢用两种方法。 第一种方法，直接用readdir来读取目录句柄。 use warnings; use strict; my $dir = "./test"; my $file; my @dir; opendir (DIR, $dir) or die "can't open the directory!";
Perl语言入门(第五版-中文版).pdf
11-02
如何取得perl? 我该怎么编写perl程序? 走马观花 习题 第二章标量数据 数字 字符串 perl内建警告信息 标量变量 用print输出结果 if控制结构 获取用户输入 chomp操作符 while控制结构 习题 第三章列表...
Perl 语言入门 第六版
02-12
如何取得Perl？ CPAN是什么？ 如何得到Perl的技术支持？ 还有别的技术支持方式吗？ 如果发现Perl有bug，我该怎么办？ 我该怎么编写Perl程序？ 一个简单的程序 程序里写的是什么？ 我该如何编译Perl程序？ ...
Perl 学习手札.pdf
11-05
- **1.3 特色**：Perl以其灵活性和强大的文本处理能力著称，拥有丰富的内置功能，如正则表达式支持、强大的字符串处理能力和广泛的库支持等。 - **1.4 使用Perl的环境**：Perl可以在多种操作系统上运行，包括Unix、...
Linux下Nginx安装的方法（pcre和openssl）
09-15
安装完成后，Nginx的可执行文件位于你指定的安装路径下的`sbin`子目录。例如，如果你的安装路径是`/home/your_user_name/nginx_installation_path`，则Nginx的启动命令为： ``` [root@localhost sbin]# ./nginx ```...
perl编程24小时教程
08-23
Perl编程是一种强大的文本处理语言，尤其在系统管理、网络编程和网页开发等领域有着广泛的应用。本24小时教程是为初学者设计的，旨在帮助快速掌握Perl编程的基础知识和技能。...祝你在Perl编程的学习旅程中取得成功！
Perl中取得指定目录下的所有文件
你以为你以为的就是你以为的嘛
01-02 3025
Perl中取得指定目录下的所有文件 有两种方法如果递归的找子目录可以用下面的files函数，只是找当前文件夹下面的glob就可以实现了： my @files; files('.', \@files); print "$#files @files\n"; my @local; @local = glob("./*"); print "$#local @local\n"; sub files ...
如何使用perl遍历一个目录下的所有文件
花果山
09-13 1万+
#!/usr/bin/perl -wuse 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_PAT
[Perl]读取当前目录下的所有文件，包括子目录下的文件
weixin_34144848的博客
11-05 1356
2019独角兽企业重金招聘Python工程师标准>>> ...
perl如何遍历指定文件夹下的指定扩展名文件，并按时间顺序要求删除
kongjunlongaa的博客
06-07 1973
（linux下）要求是，遍历/ccd/pa/下的所有后缀为log的文件（包括所有子文件夹），只保留时间顺序离现在最近的20个文件，其它删除。 ; my $num = 20; my $pattern = 'log$'; ＃my $basedir = '/ccd/pa/'; my @files
探索Perl的图形用户界面开发：工具、技巧与实践
最新发布
2402_85762143的博客
07-23 1234
Perl的GUI开发提供了多种工具和方法，允许开发者根据项目需求和个人偏好选择合适的工具包。通过遵循最佳实践和利用Perl的强大功能，开发者可以创建出既美观又实用的GUI应用程序。随着技术的不断发展，Perl社区也在不断推出新的工具和库，以支持更高效、更现代的GUI开发。本文只是一个入门指南，深入学习Perl GUI开发还需要阅读更多的文档、参与社区讨论和实践项目。希望本文能为你的Perl GUI开发之旅提供一些帮助和启发。
用perl写个脚本，将目录下所有文件内容中 abc 改成 BCD
05-24
以下是一个简单的 Perl 脚本，可以将指定目录下所有文件中的 "abc" 替换为 "BCD"： ```perl #!/usr/bin/perl use strict; use warnings; # 指定要替换的目录 my $dir = "/path/to/directory"; # 打开目录 opendir(my $dh, $dir) || die "Can't open directory: $!"; # 遍历目录中的文件 while (my $file = readdir($dh)) { # 跳过 "." 和 ".." 目录 next if ($file eq "." or $file eq ".."); # 拼接文件路径 my $path = "$dir/$file"; # 判断是否为文件 if (-f $path) { # 打开文件 open(my $fh, "<", $path) || die "Can't open file $path: $!"; # 读取文件内容 my $content = do { local $/; <$fh> }; # 替换字符串 $content =~ s/abc/BCD/g; # 关闭文件 close($fh); # 写入文件 open($fh, ">", $path) || die "Can't write file $path: $!"; print $fh $content; close($fh); } } # 关闭目录 closedir($dh); ``` 使用方法： 1. 将上述脚本保存为一个以 `.pl` 结尾的文件，比如 `replace.pl`。 2. 修改脚本中的 `$dir` 变量为你要替换的目录路径。 3. 在终端中执行 `perl replace.pl` 命令即可。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值