高级函数

October 28, 2013 @ 04:12 PM

上下文与 wantarray

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

            func(); # void
my $ret   = func(); # scalar
my ($ret) = func(); # list
my @ret   = func(); # list

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

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

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

.. 和 ...

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

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

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

当用于此种方式时,..... 是等效的。

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

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

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

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

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