关于perl三目运算符的使用有个地方不懂

54red

今天写了一个程序发现三目运算符（？：）用的不对，请各位帮我看看我错在哪了！
$X="b";

$X eq "a"
? print "$X\n"
: $X eq "b"
   ? print "$X\n"
   : print "$X"."ne a||b";
运行结果：b
这个是对的！、


下面赋值就不对了！
$X eq "a"
? $X="aa"
: $X eq "b"
   ?$X="bb"
   :$X="cc";

print "X=$X\n";

结果输出的是X=cc

sunzhiguolu

回复 1# 54red

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $sX = "a";
   
6. $sX eq "a" ? $sX = "aa" : ($sX eq "b" ? $sX = "bb" : $sX = "cc");
   
7. print "$sX\n";

复制代码

zhlong8

优先级问题，?: 比 = 要高，所以成了
（$X eq "a"
? $X="aa"
: $X eq "b"
   ?$X="bb"
   X）="cc";

个人觉得敢于用嵌套 ?: 的都是真的勇士

54red

多谢！这样结果肯定是对的！回复 2# sunzhiguolu


   

54red

多谢啊，这回知道错在哪了，不过还是想不太通，$X eq "a"? $X="aa": $X eq "b"? $X="bb": $X="cc";，是先执行的$X=cc,然后程序是怎么执行的，能详细解释一下不，绕不清楚啊！回复 3# zhlong8


   

zhlong8

回复 5# 54red


    你看不到我括号家的哪里吗？ = 'cc' 是最后执行的。 （$X eq "a"? $X="aa": $X eq "b"? $X="bb": $X ）= 'cc';

这里 ?: 返回的是个左值，可以被赋值的，实际执行的是 （$X eq "a"? $X="aa": $X eq "b"? $X="bb": $X ）= 'cc'; 连续两次赋值

zhlong8

里面这么多赋值结果却是这么断句的，非常反直觉，所我说你是真勇士

jason680

回复 5# 54red

这种错误使用方式,已经被列入perldoc说明...
   
$ perldoc perlop
NAME
    perlop - Perl operators and precedence

    ...


        left        terms and list operators (leftward)
        ...
        nonassoc    ..  ...
        right       ?:
        right       = += -= *= etc.
        ...

    Scalar or list context propagates downward into the 2nd or 3rd argument,
    whichever is selected.

        $a = $ok ? $b : $c;  # get a scalar
        @a = $ok ? @b : @c;  # get an array
        $a = $ok ? @b : @c;  # oops, that's just a count!

    The operator may be assigned to if both the 2nd and 3rd arguments are
    legal lvalues (meaning that you can assign to them):

        ($a_or_b ? $a : $b) = $c;

    Because this operator produces an assignable result, using assignments
    without parentheses will get you in trouble. For example, this:

        $a % 2 ? $a += 10 : $a += 2

    Really means this:

        (($a % 2) ? ($a += 10) : $a) += 2

    Rather than this:

        ($a % 2) ? ($a += 10) : ($a += 2)

    That should probably be written more simply as:

        $a += ($a % 2) ? 10 : 2;


----------------------------
最后
写出编程是用来解决问题
还是乱写又产生更多问题

54red

这回看清楚了！ 回复 7# zhlong8