Perl特殊简写

简写1：

如果$a为空或未定义则打印$b 

如果$b为空或未定义则打印$a

#!/usr/bin/perl -w

use strict;

my $a ="";

my $b = "def";

if(!defined $a or $a eq ""){

    print "$b \n";

}

elsif(!defined $b or $b eq ""){

    print "$a \n";

}

等价

#!/usr/bin/perl -w

use strict;

my $a = "";

my $b = "def";

$b ||= $a;

print "$b \n";

简写2：

计算列表list中的元素的出现次数 可用于去掉重复元素

foreach my $element(@list){

                ######################################

                ###ifelse的等效写法$count{$element}++;

                ######################################

                if(!exists $count{$element} ){         

                $count{$element}=1; 

                }     

                else{       

                $count{$element}=$count{$element}+1;

                }

}

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/11517198/viewspace-670181/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/11517198/viewspace-670181/