Perl函数：列表相关函数

内置的列表函数有： 

1
 
grep, join, map, qw//, reverse, sort, unpack
  • join：将多个元素使用给定字符串联起来 join
  • grep：从列表中筛选符合条件的元素执行对应的代码块 grep
  • map：对列表中的元素执行给定操作，后文详细示例 map
  • reverse：反转列表、标量字符串、hash，后文详细示例 reverse
  • sort：按照给定规则进行排序 sort
  • qw//：生成一个列表
  • unpack：暂略

    • 列表相关的内置函数并不多，有些东西实现起来需要自己写逻辑。不过，有额外的列表工具模块 List::Util ，可以从该模块中获取更完整、更丰富的列表处理工具。

    join

    join函数用于将列表中各个元素用给定字符连接起来，和split的行为有点相反。它返回一个列表。

    join用法如下： 

    1
    		 
    join $sep,$list

    其中 $sep 只能是字符串，这一点和split不一样。 

    1
    		 
    print join "-",a,b,c,d,efg;   # 输出："a-b-c-d-efg"

    可以将split后的结果用join换一个分隔符连接起来： 

    1
    2
    3
    		 
    $str="abc:def::1234:xyz";
    @new_list = join(",",split /:/,$str);
    print "@new_list\n";          # 输出：abc,def,,1234,xyz

    grep

    对给定列表，执行一个或多个代码块，并返回一个经过操作后的新列表，所以在标量上下文中它返回的是新列表中元素的个数。

    例如，分别取出一段数值之间的奇数、偶数： 

    1
    2
    3
    4
    5
    		 
    @new_arr1 = grep {$_ % 2} (1..100);   # 取奇数
    print "@new_arr1";

    @new_arr1 = grep {$_ % 2 eq 0} (1..100); # 取偶数
    print "@new_arr2";

    以上面取奇数为例。它类似于下面的循环过程： 

    1
    2
    3
    4
    5
    6
    		 
    my @new_arr1;
    foreach (1..100) {
        push @new_arr1,$_ if $_ % 2;
    }

    print "@new_arr1";

    在grep中，每次从列表中取得一个元素， $_ 将引用这个元素，然后执行代码块(此处的 $_ % 2 和 $_ % 2 eq 0 )，如果返回真，则放进新的列表中。

    其中grep后面的大括号为一段要执行的代码块，里面可以有任何想要实现的逻辑。如果要执行的代码块只有一句话(只有一个操作)，则可以省略大括号，使用逗号来传递参数，注意参数不要加引号。例如改写为： 

    1
    2
    		 
    @new_arr1 = grep $_ % 2,(1..100);
    print "@new_arr1";

    grep使用示例

    在Linux中也同样有一个非常好用的grep工具，用来筛选文本非常方便。perl的grep函数同样能实现这些功能，且更强大。

    例如，筛选文件(假如以参数的方式传递文件)中包含3个连续数字的行： 

    1
    2
    3
    4
    5
    		 
    while (<>){
        chomp;
        @new_line = grep { /\d{3,}/ } $_;
        print "@new_line\n";
    }

    如果my.txt文件内容为： 

    1
    2
    3
    4
    		 
    aaa,bbb,123,ccc,ddd
    eee,fff,456,ggg,hhh
    iii,jjj,kkk,lll,mmm
    ooo,ppp,qqq,888,xxx

    执行上述程序，将输出： 

    1
    2
    3
    4
    		 
    aaa,bbb,123,ccc,ddd
    eee,fff,456,ggg,hhh

    ooo,ppp,qqq,888,xxx

    上面的程序代码中将 $_ 交给grep处理，这个 $_ 被当作是个只有单个元素的列表，于是对整行内容进行匹配，匹配到有3个数字连续的，就赋值给数组，然后被输出。当某行匹配不到3个连续数字时，数组将被赋值为undef。

    如果要去掉上面的空行，可以在grep的代码块里加个判断逻辑： 

    1
    2
    3
    4
    5
    		 
    while (<>){
        chomp;
        @new_line = grep { next unless /\d{3,}/ } $_;
        print "@new_line\n";
    }
    		 
    1
    2
    3
    		 
    aaa,bbb,123,ccc,ddd
    eee,fff,456,ggg,hhh
    ooo,ppp,qqq,888,xxx

    注意，grep返回的是一个新的列表，所以将其放在标量上下文将返回新列表的元素个数。所以， @new_line 不能替换为 $line ，尽管每个列表只有一个元素。

    如果只想取出被匹配的3个连续数字，其它字符不要，则可以： 

    1
    2
    3
    4
    5
    6
    7
    8
    		 
    while (<>){
        chomp;
        grep { 
                next unless /(\d{3,})/;
                $line=$1;
             } $_;
        print "$line\n";
    }

    相对来说，这里可以不用grep来是实现，它其实是多余的。grep的主要目的还是留下列表中匹配到的特定元素，所以，采用grep的行为模式，来留下连续数字。

    由于本处给的文件比较规律，可以将每行转换成列表： 

    1




    

    2
    3
    4
    5
    6
    		 
     while (<>){
        chomp;
        @line = split /,/,$_;
        @new_line = grep { /\d{3,}/ } @line;
        print "@new_line\n" if @new_line;
    }

    如果文件数据不规律，无法转换成列表，则不建议使用grep来操作。

    grep使用注意事项