5

我是 Perl 新手，谁能帮我解释一下以下脚本：

#!/usr/bin/env perl
use strict;
use warnings;
sub f1($) { my ($v) = @_; print "f1 $v\n"; }
sub f2(@) { my ($v) = @_; print "f2 $v\n"; }
my $s = "ww";
my @a = ("xx", "yy", "zz");
f1 $s; f1 @a; f2 $s; f2 @a;

我电脑的输出是：

f1 ww
f1 3
f2 ww
f2 xx     # why!!

谁能解释为什么第四个输出是xx？我认为应该是zz，因为当数组转换为标量时，它应该是数组的最后一个元素。

4

3 回答 3

4

不，使用如下声明：

my ($v, $foo, $bar) = @_;

$v将分配@_数组中的第一个值，$foo第二个，依此类推。这是因为括号强加了一个列表上下文。任何多余的值都将被忽略，除非您的变量之一是一个数组，在这种情况下，它将吞噬所有剩余的值。

my ($v, @foo, $bar) = @_;   # wrong! $bar will never get any value

$v将获得第一个值，@foo其余的。$bar将是未定义的。

您可能正在考虑使用列表进行分配：

my $v = qw(a b c);

但这是错误的，并且会导致错误：

Useless use of a constant (a) in void context at -e line 1.
Useless use of a constant (b) in void context at -e line 1.

这是因为 LHS 使用标量上下文，它将（或多或少）类似于：

'a';
'b';
my $v = 'c';

您可能会注意到，如果我们通过$v在括号内添加列表上下文，我们会得到不同的结果：

my ($v) = qw(a b c);  # $v is now 'a'

ETA：关于原型：

在f1中，您看到的是数组被强制进入标量上下文，因为子例程需要一个标量参数。这就是为什么f1使用数组打印3（大小）。当原型查找一个数组时，该数组保留在默认列表上下文中，并且按照正常方式完成分配（如上所述）。

作为一个额外的说明：原型有一个非常具体的用途，使子程序在参数处理方面表现得更像某些内置函数。比如sort { code here }或push @array, $foo。

如果这不是您所追求的，您应该一起跳过原型并简单地编写：

sub f1 {
...
}

文档在这里

于 2012-06-22T06:33:10.320 回答
1

Perl 数组在上下文方面有 2 种不同的风格：
标量上下文： 

my $a = @tab; # get the array length
数组上下文： 
my @newTab = @tab; # newTab is a copy of tab
可以这样改写： 
# 3 scalars in an array context (see parens) gets the contents of the tab
my ($a,$b,$c) = @tab;
在这里，由于@tab 可以比标量的数量更宽，因此这些标量从选项卡的开头（而不是结尾）填充。所以你的代码： 
my ($a) = @tab;
将回显选项卡的第一个元素

于 2012-06-22T06:43:37.727 回答
0

  • 数组不能转换为标量。但是，可以在标量上下文中评估数组。

  • 在标量上下文中计算的数组不返回数组的最后一个元素。如您所见f1，它返回数组中元素的数量。

    $ perl -E'my @a = qw( xx yy zz ); say @a; say scalar(@a);'
xxyyzz
3

  • 两个数组都没有在标量上下文中进行评估。参数列表表达式在列表上下文中计算。

    f(@a);

    是相同的

    f($a[0], $a[1], $a[2]);

    在列表上下文中评估的列表分配的 RHS 。

    my ($v) = @_;

    是相同的

    my ($v) = ($_[0], $_[1], $_[2]);

    这与

    my ($v, undef, undef) = ($_[0], $_[1], $_[2]);
于 2012-06-22T07:35:53.847 回答