perl中grep函数的详解有没有?

perl中grep函数的详解有没有?,第1张

先看个 grep 的例子

@list = ( 1..10 ) 

@want1 = grep { $_ % 2 } @list 

@want2 = grep !/^1/, @list# 找出非以 '1' 为开头的元素

print "@want1" # 得出 1 3 5 7 9

print "扮含启@want2" # 得出 2 3 4 5 6 7 8 9 (排除了 1 和 10)

再换一种很传统的写法来做到同一个结果

@list = ( 1..10 )

@want1 = ()

@want2 = ()

foreach ( @list ) {

    if ( $_ % 2 ) {

        push @want1, $_

    }

}

foreach ( @list ) {

    if ( $_ !~ /^1/ ) {

        push @want2, $_

    }

}

print "@want1" # 得出 1 3 5 7 9

print "@want2" # 得出 2 3 4 5 6 7 8 9

grep 的作用就是将 最後面那个数组 里面的每一个元素, 一个一个以 $_ 的形式放入 { ... } 或 / ... / 中进行运算, 如果该表达式 /.../ 或 block { ... } 最後的结果为真时, 就会将该 $_ 的值 push 到 等号左边 的数组中

grep 还有个姐妹叫 map(), 应用方法和逻辑跟 grep 基本上完全一样, 唯一不同的是, grep 只会将 $_ 加到左边数组, 而 map 会将最後的运算结果 ( 像 sub 的 return 值老碧 ) 加到左厅如边数组

问题应该是出在while (<A>) 这里。

这句是把文件中每一行取出来,赋给系统变量$_,而$_这个变量是很特殊的,perl中好多的纳逗戚功能都会用到这个,所以可能会带来不可知的后果,我们应该洞陵尽量避免使用$_。

另外,<B>这个不能多次使用,除非你使用seek重置文件指针,不然的话,第一指行次执行完了,第二次里面的值就是空了。

可以改成:

my @b = <B>

foreach my $line (<A>) {

    chomp($line)

    next if (!$line)

    @a = grep (/$line/, @b)

    print C @a

}


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/tougao/12299503.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-24
下一篇 2023-05-24

发表评论

登录后才能评论

评论列表(0条)

保存