perl 一行 code 问题 - 求教

sunzhiguolu

1. perl -ne 'if (5..10){print "$. => $_"}' abc

复制代码

上面的 5..10 中的 .. 与行号有关系吗, 求教, 谢谢大家...

sunzhiguolu

以前没有这么用过, 居然能匹配到指定的行范围. 真的很神奇, 哪位大神能解释下, 谢谢.

RE_HASH

学习了， 牛牛牛

jason680

回复 1# sunzhiguolu

$ seq 10 | sed -ne '5,10p'
$ seq 10 | perl -ne 'if(5..10){print}'

   

$ s2p '5,10p' | grep -A5 '5,10p'
# 5,10p
if( 5..10 )
{ print $_, "\n"; }
EOS:    if( $doPrint ){
            print $_, "\n";
        } else {



$ perldoc s2p
NAME
    psed - a stream editor

    ...

    If this program is invoked with the name s2p, it will act as a sed-to-Perl
    translator. See "sed Script Translation".
   
    ...

sunzhiguolu

回复 4# jason680
开眼界了, 谢谢大神指点.

   

MMMIX

sunzhiguolu 发表于 2016-04-02 20:03
上面的 5..10 中的 .. 与行号有关系吗, 求教, 谢谢大家...

查文档，查文档，查文档！！！

http://perldoc.perl.org/perlop.html#Range-Operators

If either operand of scalar ".." is a constant expression, that operand is considered true if it is equal (== ) to the current input line number (the $. variable).

sunzhiguolu

回复 6# MMMIX
总感觉与 if (/pattern1/ .. /pattern2/) 有点相似, 没想到还能跟 $. 有联系. 哈哈, 谢谢大神.