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 '???*';