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 '[a-z]*';

@files=glob 'file[0-9][0-9][0-9]';

@files=glob '???*';