ITPub博客

首页 > Linux操作系统 > Linux操作系统 > Perl特殊简写

Perl特殊简写

原创 Linux操作系统 作者:casper0511 时间:2010-08-04 11:22:08 0 删除 编辑
简写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/,如需转载,请注明出处,否则将追究法律责任。

下一篇: 什么是Logical rowid
请登录后发表评论 登录
全部评论

注册时间:2008-12-08

  • 博文量
    34
  • 访问量
    69436