perl 赋值 问题

lingg2010

想请教一下这句中的? 和 : 是起什么作用？

       my $a = (defined($_[0]) ? $_[0] : \%b);

只爱睡觉

判断是否值是否已进行定义，如果第一个不匹配则输出第2个。
给个测试程序，方面理解。

1. 
   
2. #!/usr/bin/perl
   
3. my ($a,$b) = (6666,2222);
   
4. $a = ($a >$b)?$a:$b;
   
5. print $a;
   

复制代码

jason680

想请教一下这句中的? 和 : 是起什么作用？

       my $a = (defined($_[0]) ? $_[0] : \%b);
lingg2010 发表于 2010-12-10 13:08

相当于if的简化版.....
if(defined($_[0])){
  $a = $_[0];
}
else{
  $a = \%b;
}

lingg2010

啊，受教了，多谢。

wind_ch

C语言中唯一的一个三元运算符啊， 又一次证明C之于Perl的重要性吗

kingwmj

perl 入门书里有的。
C还是要懂一点，才行。
我就不懂，现在在linux下装个软件出了问题都不知道如何解决。