高级函数

October 28, 2013 @ 04:12 PM

上下文与 wantarray

Perl 有三种上下文：空、标量、以及列表。

  1.             func(); # void
  2. my $ret   = func(); # scalar
  3. my ($ret) = func(); # list
  4. my @ret   = func(); # list

如果你在子例程或 eval 块中，你能够使用 wantarray 来决定想要的上下文。

以下是处理正则表达式返回值的上下文例子：

  1. my $str = 'Perl 101 Perl Context Demo';
  2. my @ret = $str =~ /Perl/g; # @ret = ('Perl','Perl');
  3. my $ret = $str =~ /Perl/g; # $ret is true

.. 和 …

这些叫区间操作符，它们能够帮助代码处理整数或字符区间。

在下例中，@array 是手动填充的。这些是等价的：

  1. my @array = ( 0, 1, 2, 3, 4, 5 );
  2. my @array = 0..5;

当用于此种方式时，.. 和 … 是等效的。

区间操作符只能增加。这会产生一个空列表：

  1. my @array = 10..1; # @array is empty

如果你想要逆向，要求它。

  1. my @array = reverse 1..10; # @array descends from 10 to 1

你也可以在标量上下文中使用区间操作符，但那超出了本节的范围。参阅手册页了解细节。