PERL的文件操作符 glob
2009-11-05 12:05
148 查看
#找到输入的文件列表,返回一个数组
sub arr_argv_file{
my @arr_fname = @_;
my @arr_file_list;
foreach $list(@arr_fname){
chomp($list);
@qxlist=qx(ls $list);
foreach $qxlist(@qxlist){
chomp($qxlist);
push(@arr_file_list,$qxlist);
}
}
# foreach $arr_file_list(@arr_file_list){
# print "$arr_file_list\n";
# }
return @arr_file_list;
}
刚学perl会这样写,前段时间有空翻了下电子书,发现perl里的glob 。。。。perl是我见过最强的文本处理语言。
@html_file=glob '/home/site/*.html';
@three_letter_extensions=glob '*.???';
@lcfirst=glob '[a-z]*';
@files=glob 'file[0-9][0-9][0-9]';
@files=glob '???*';
sub arr_argv_file{
my @arr_fname = @_;
my @arr_file_list;
foreach $list(@arr_fname){
chomp($list);
@qxlist=qx(ls $list);
foreach $qxlist(@qxlist){
chomp($qxlist);
push(@arr_file_list,$qxlist);
}
}
# foreach $arr_file_list(@arr_file_list){
# print "$arr_file_list\n";
# }
return @arr_file_list;
}
刚学perl会这样写,前段时间有空翻了下电子书,发现perl里的glob 。。。。perl是我见过最强的文本处理语言。
@html_file=glob '/home/site/*.html';
@three_letter_extensions=glob '*.???';
@lcfirst=glob '[a-z]*';
@files=glob 'file[0-9][0-9][0-9]';
@files=glob '???*';
相关文章推荐
- perl 文件测试操作符汇总
- Perl – 文件测试操作符
- perl文件测试操作符
- perl glob 过滤文件列表
- 使用Perl 修改多个类似文件的内容, 更新大量文件
- Perl查找资源文件
- Perl递归遍历指定文件下的文件
- 批量安装perl-cpan库文件
- [perl] Spreadsheet::WriteExcel 和 Spreadsheet::Read 对 excel 文件的读写
- perl文件读取之心得
- Perl 学习之文件操作
- perl 文件读写详细说明
- python学习笔记24(路径与文件 (os.path包, glob包))
- perl post 带中文名字的文件
- 文件内容替换 :SED 命令 和 Perl
- Perl脚本实现递归遍历目录下的文件
- linux批量替换文件内容3种方法(perl,sed,shell)
- perl文件操作
- PERL管道读压缩文件
- Perl提取字体文件的URL