PERL的文件操作符 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 '*';
@files=glob 'file';
@files=glob '???*';
页:
[1]