请教如下代码什么意思

Eva326

这里标蓝的代码如何理解呢？
谢！
while(<IN>){
        chomp;
        if(/^\S+?=(.+)$/)
               {push @A,$+;}
}

jason680

回复 1# Eva326

$ perldoc perlvar
NAME
    perlvar - Perl predefined variables
...

    $LAST_PAREN_MATCH
    $+      The text matched by the last bracket of the last successful
            search pattern. This is useful if you don't know which one of a
            set of alternative patterns matched. For example:

                /Version: (.*)|Revision: (.*)/ && ($rev = $+);

            This variable is read-only and dynamically-scoped.

            Mnemonic: be positive and forward looking.

sunzhiguolu

长见识了，这个好。。