关于正则表达式问题求助

jiangphoenix

$line = "larry:JYHtPh0./NJTU:100:10:Larry Wall:/home/larry:/bin/tcsh";
$line = ~/[^:]+:/;
print $line;

我这么写完代码；为什么输出结果是这个：
18446744073709551615

新手比较懵，求各位指教                       

zhlong8

=~ 连在一起写才是匹配操作符，分开写是赋值和按位取反。单独的 // 左边没带 =~ 操作符则是对 $_ 进行操作的，所以你的代码相当于 $line = ~ ($_ =~ /[^:]+:/);

$_ 现在还是 undef，匹配返回 0，~0 在64位下就是你那个数字。

jiangphoenix

回复 2# zhlong8 谢谢啦


   

zhlong8

你不加 use strict; use warnings; 所以连发现这个错误的机会都没有。加了会提示 Use of uninitialized value $_ in pattern match (m//)

jason680

回复 1# jiangphoenix

$ perldoc perlop
NAME
    perlop - Perl operators and precedence

DESCRIPTION
  Operator Precedence and Associativity
    Operator precedence and associativity work in Perl more or less like they
    do in mathematics.

    Operator precedence means some operators are evaluated before others. For
    example, in "2 + 4 * 5", the multiplication has higher precedence so "4 *
    5" is evaluated first yielding "2 + 20 == 22" and not "6 * 5 == 30".
   
     ...


        left        terms and list operators (leftward)
        left        ->
        nonassoc    ++ --
        right       **
        right       ! ~ \ and unary + and -
        left        =~ !~
        left        * / % x
        left        + - .
        left        << >>
        nonassoc    named unary operators
        nonassoc    < > <= >= lt gt le ge
        nonassoc    == != <=> eq ne cmp ~~
        left        &
        left        | ^
        left        &&
        left        || //
        nonassoc    ..  ...
        right       ?:
        right       = += -= *= etc.
        left        , =>
        nonassoc    list operators (rightward)
        right       not
        left        and
        left        or xor

       ...

曲散人终

以前我写Perl程序也是不加use strict；use warnings；的后来发现不行啊。。。不加的话好多错误好难发现。。。然后就养成了习惯。。。建议还是加上这两句。。。虽然对程序要求更高，但是更严谨一点。。。