这早不是新闻了,Perl 5.10已经在2007年12月18日发布了,这是Perl的20岁生日。 许多人写文章讨论它,网上也有很多报告。比如参考PerlMonks的讨论。 那里有一些很好的链接。

我写这个,是因为很多公司最近才采用它。 他们想看看Perl 5.10以及以后的版本可以如何方便他们的生活。

(本文最初于2007年12月24日发布在szabgab.com上)

新特性有很多,我们先看一些简单的:

say

有个新函数叫做say。它跟print一样,但是会在每次调用时自动添加新行符\n。 这听起来不是什么大问题,而且它的确不算很显著。但尽管如此,它节省了很多的打字,尤其是调试时。 有很多次,我们打出

print "$var\n";

现在我们可以这么说:

say $var;

你大可不必担心老代码里出现新的函数。 新函数只有在你明确要求使用时才可用,通过这么写:

use feature qw(say);

或者你要求你的代码运行在至少5.10版本以上。

use 5.010;

defined or

另外一个很漂亮的助手是//定义或操作符。它基本上跟过去的||操作符一样,但是不会有"0不是真实值"这种bug:

此前当我们想给一个标量一个默认值时,我们或是这么写

$x = defined $x ? $x : $DEFAULT;

这有点太长,我们或是这么写

$x ||= $DEFAULT;

但是这样一来,0或者“0”或者空字符串不会被认为是一个合法的值。 他们会被$DEFAULT的值替换。有时候这没什么问题,但有些情况下,这带来了一个bug。

新的定义或操作符可以解决这个问题,因为他会返回右边的值即便左边的值是undef。 因此现在我们有了一个简短而准确的写法:

$x //= $DEFAULT;

state

本文关注的第三个东西是新的state关键字。 这同样是可选的,只会在你要求时才会包含。你可以这样写

use feature qw(state);

或者这样写

use 5.010;

当使用时,它类似于my但是它仅仅一次创建并初始化变量。就像C语言里的静态变量。 从前我们会这么写一些代码:

{
   my $counter = 0;
   sub next_counter {
      $counter++;
      return $counter;
   }
}

这需要很费劲地解释为什么$counter仅设置为0一次却总是返回给你一个很大的值。乍一看,匿名块同样很不清晰。

如今你可以这么写:

sub next_counter {
   state $counter = 0;
   $counter++;
   return $counter;
}

这就比较清晰了。

关于state关键字的其他用例,查看如何隐藏Perl的多个警告?.