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

最新推荐文章于 2020-12-03 15:39:43 发布
最新推荐文章于 2020-12-03 15:39:43 发布
阅读量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语言入门(第五版-中文版).pdf
11-02
Perl语言入门(第五版)，本书是为中文版本，英文原版下载地址：http://download.csdn.net/source/2801846。 原书名： Learning Perl, 5th Edition；原出版社： O'Reilly Media, Inc. ；作者： Randal L.Schwartz Tom Phoenix brian d foy；译者： 盛春 蒋永清 王晖；出版社：东南大学出版社 内容简介 《perl语言入门》也就是大家所称道的“小骆驼书”，是perl程序设计人员最为仰赖的启蒙读物之一。自1993年以来，这本书就成为热卖的perl语言教学材料，而此次新版又涵盖了perl 5．10的最新变化。本书的诸位作者自1991年起就开始在stonehenge consulting从事perl教学工作，多年的课堂教学实践和积累下来的点滴经验，形成了本书特有的教学节奏，以及务实的知识点取舍。随文而至的习题，可以让你及时巩固各种概念，强化理解和吸收。本书内容涵盖：. ·perl的变量类型 ·子程序 ·文件的操作 ·正则表达式 ·字符串的操作.. ·列表与排序 ·进程的管理 ·智能匹配 ·第三方模块的使用 有些人只是想要完成任务，perl语言为此而生。perl的最初目标只是为了协助unix系统管理员完成日常繁琐的文本数据处理工作。时至今日，perl已发展成为一套功能齐备的程序语言，几乎可以在任何操作系统上完成各种任务——从简单的命令行工具到web应用开发，及至生物信息学、金融数据分析等等不一而足。其他书籍可能会着重于教会你使用perl语言来编程，可本书不同，我们是想要你成为一名真正的perl程序员。... 目录 前言. 第1章简介 问题与答案 “perl”这个词是什么意思? 如何取得perl? 我该怎么编写perl程序? 走马观花 习题 第二章标量数据 数字 字符串 perl内建警告信息 标量变量 用print输出结果 if控制结构 获取用户输入 chomp操作符 while控制结构 习题 第三章列表与数组 .访问数组中的元素 特殊的数组索引值 列表直接量 列表的赋值 字符串中的数组内插 foreach控制结构 标量上下文与列表上下文 列表上下文中的(stdin) 习题 第四章子程序 定义子程序 调用子程序 返回值 参数 子程序中的私有变量 长度可变的参数列表 关于词法(my)变量 use strict编译命令 return操作符 非标量返回值 持久性私有变量 习题 第五章输入与输出 读取标准输入 钻石操作符输入 调用参数 输出到标准输出 使用printf格式化输出 文件句柄 打开文件句柄 用die处理严重错误 使用文件句柄 复用标准文件句柄 使用say来输出 习题 第六章哈希 什么是哈希? 访问哈希元素 哈希函数 哈希的典型应用 ％env哈希 习题 第七章漫游正则表达式王国 什么是正则表达式? 使用简易模式 字符集 习题 第八章以正则表达式进行匹配 以m／／进行匹配 可选修饰符 锚位 绑定操作符=～ 模式串中的内插.. 捕获变量 通用量词 优先级 模式测试程序 习题 第九章用正则表达式处理文本 用s／／／替换 可选修饰符 split操作符 join函数 列表上下文中的m／／ 更强大的正则表达式 习题 第十章其他控制结构 unless控制结构 until控制结构 条件修饰词 裸块控制结构 elsif子句 自增和自减 for控制结构 循环控制 三目操作符?： 逻辑操作符 习题 第十一章perl模块 寻找模块 安装模块 使用简单模块 习题 第十二章文件测试 文件测试操作符 localtime函数 按位运算操作符 习题 第十三章目标操作 在目录树中移动 文件名通配 文件名通配的另一种语法 目录句柄 递归的目录列表 操作文件与目录 删除文件 重命名文件 链接与文件 建立及移除目录 修改权限 更改隶属关系 修改时间戳 习题 第十四章字符串与排序 在字符串内用index搜索 用substr处理子串 高级排序 习题 第十五章智能匹配与given-when结构 智能匹配操作符 智能匹配操作的优先级 given语句 多个项目的when匹配 习题 第十六章进程管理 system函数 exec函数 环境变量 用反引号捕获输出结果 将进程视为文件句柄 用fork开展地下工作 发送及接收信号 习题 第十七章高级perl技巧 用eval捕获错误 用grep来筛选列表 用map对列表进行转换 不带引号的哈希键 切片 习题 附录a习题解答 附录b超越小骆驼...
Perl 获取当前目录下所有文件名
mjj_1094的博客
12-06 4588
#查找该目录下所有不同子目录下的文件，并输出路径  #!/usr/bin/perl -w use strict; use File::Spec;   local $\ ="\n";#当前模块的每行输出加入换行符     my %options;   ###目录路径 $options{single_case} = 's';#$path= 's';也可     my @case
perl读取文件夹下的文件
11-15 1141
#!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读取一个目录下的所有文件名
热门推荐
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中取得指定目录下的所有文件
你以为你以为的就是你以为的嘛
01-02 2961
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 语言入门 第六版
02-12
如何取得Perl？ CPAN是什么？ 如何得到Perl的技术支持？ 还有别的技术支持方式吗？ 如果发现Perl有bug，我该怎么办？ 我该怎么编写Perl程序？ 一个简单的程序 程序里写的是什么？ 我该如何编译Perl程序？ ...
php上传进度条APC
08-27
第二步，把dll文件放到扩展库目录下。可以在这里http://pecl4win.php.net/ext.php/php_apc.dll下载。 第三步，restart WEB Server 就ok了。 怎么使用呢？道理很简单。对上传的文件添加一个标记，就可以在其它的...
JAVA上百实例源码以及开源项目
01-03
　用JAVA开发的一个小型的目录监视系统，系统会每5秒自动扫描一次需要监视的目录，可以用来监视目录中文件大小及文件增减数目的变化。 Java日期选择控件完整源代码 14个目标文件 内容索引:JAVA源码,系统相关,日历,...
Advanced Bash-Scripting Guide <>
03-25
把当前目录下的文件拷贝到另一个文件中 12-7. 通过名字Kill 进程 12-8. 使用xargs 分析单词出现的频率 12-9. 使用 expr 12-10. 使用 date 命令 12-11. 分析单词出现的频率 12-12. 那个文件是脚本? 12-13. 产生10 ...
[Perl]读取当前目录下的所有文件，包括子目录下的文件
weixin_34144848的博客
11-05 1346
2019独角兽企业重金招聘Python工程师标准>>> ...
perl如何遍历指定文件夹下的指定扩展名文件，并按时间顺序要求删除
kongjunlongaa的博客
06-07 1959
（linux下）要求是，遍历/ccd/pa/下的所有后缀为log的文件（包括所有子文件夹），只保留时间顺序离现在最近的20个文件，其它删除。 ; my $num = 20; my $pattern = 'log$'; ＃my $basedir = '/ccd/pa/'; my @files
Perl 读取一个目录下的所有文件名
JjinYyi的博客
12-03 1540
如果你想用Perl读取一个目录下的所有文件名，你应该怎么办呢？一般来讲，我喜欢用两种方法。 第一种方法，直接用readdir来读取目录句柄。 下面展示一些 内联代码片。 use warnings; use strict; my $dir = "./test"; my $file; my @dir; opendir (DIR, $dir) or die "can't open the directory!"; @dir = readdir DIR; foreach $file (@dir) { if (
perl-查询某目录及其子目录下的某类匹配文件
深未来技术
03-19 447
1、使用finduse strict;use File::Find; my @path = 'e:/xampp';push (@path,'e:/xampp');push (@path,'d:/eclipse-reporting-galileo-SR2-win32');sub wanted {    if ( -f $File::Find::name ) {        if ( $File:...
perl递归读取目录下文件
weixin_30835923的博客
07-12 259
#!/usr/bin/perl my $indir = $ARGV[0]; &find_fileindir("$indir"); sub find_fileindir(){ local($dir) = @_; opendir(DIR,"$dir"|| die "can't open this $dir"); local @files =readdir(DIR);...
Perl 脚本在给定的文件夹目录中递归查找文件
elfprincexu的专栏
07-01 2131
最近在工作中使用到了Perl 脚本，需要在给定目录下对各类编译过的
用perl写个脚本，将目录下所有文件内容中 abc 改成 BCD
最新发布
05-24
以下是一个简单的 Perl 脚本，可以将指定目录下所有文件中的 "abc" 替换为 "BCD"： ```perl #!/usr/bin/perl use strict; use warnings; # 指定要替换的目录 my $dir = "/path/to/directory"; # 打开目录 ...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值