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

转载于:https://www.cnblogs.com/LCX/archive/2009/11/05/1596528.html