perl代码技巧

yuxing

　　perl代码可以说要多简洁有多简洁，下面是一些我日常工作中积累的技巧

交换两个变量



($a, $b) = ($b, $a);
列表移位



($a, $b, $c) = ($b, $c, $a);
　　将字符串拆分为字符



my $str = 'abcd';
my @chars = split //, $str;
巧用unless



unless(condition){
    #do something
}
　　相当于



if(condition){
    #...
}
else{
    #do something
}
　　所以，使用unless可以减少代码行数，下面是一个例子



if(-e file){
    #read file
}
else{
    die"file not exists!\n" ;
}
　　可以写成



unless(-e file){
    print"file not exists!\n" ;
}
使用or操作符
　　and和or都是短路操作符，a and b如果a为false，则不再计算b，a or b若a为真则不再计算b。所以用a or b可以实现和unless类似的功能，其语义是，除非满足条件a，否则执行b。看一个例子



chdir'/usr/spool/news' or die"Can't cd to spool: $!\n"
一次性读入整个文件
　　方法一：



my $text = do {local $/; <$XML>};
　　方法二：



sysread $fh, $text, -s $fh;
　　方法三： 使用Perl6::Slurp模块



use Perl6::Slurp;
sub test {
    # Slurp file by name

    my $xml_file = 'EJV.xml';
    my $text = slurp $xml_file;
    print $text, "\n";
    # Slurp file by handle

    my $xml_file = 'EJV.xml';
    open my $XML, '<', $xml_file or die $!;
    my $text = slurp $XML;
    print $text, "\n";
}
　　获取引用参数并解引用为数组，shift前面的加号is just a placeholder to let perl know 'shift' is not a regular string.



sub bar {
return @{ shift() };
#return @{ +shift };
}
调用
sub test {
my @a = (1, 2, 3);
my @bar = bar(\@a);
}
　　==