Perl substr(STRING,@ARRAY)ne substr(STRING,OFFSET,LENGTH)？

Question

为什么在Perl中:

@x=(0,2); 
substr('abcd',@x)

评价为"cd"？

还有这个:

substr('abcd',0,2);

评价为"ab"？

Answer 1

记录的substr运算符语法是

substr EXPR,OFFSET,LENGTH,REPLACEMENT
substr EXPR,OFFSET,LENGTH
substr EXPR,OFFSET

不

substr EXPR,ARRAY

或更通用的

substr EXPR,LIST

这反映在输出中prototype(尽管你不能总是依赖于此).

$ perl -E'say prototype "CORE::substr"'
$$;$$

• substr第一个参数在标量上下文中进行评估.
• substr第二个参数在标量上下文中进行评估.
• substr第三个参数(可选)在标量上下文中进行评估.
• substr第四个参数(可选)在标量上下文中进行评估.

@x在标量上下文中是它包含的元素数(2在本例中).

您可以使用以下方法实现您想要的目标:

sub mysubstr {
    if    (@_ == 2) { substr($_[0], $_[1]) }
    elsif (@_ == 3) { substr($_[0], $_[1], $_[2]) }
    elsif (@_ == 4) { substr($_[0], $_[1], $_[2], $_[3]) }
    else { die }
}

my @x = (0, 2);
mysubstr('abcd',@x)

Answer 2

substr有一个原型作为内置函数,所以@x未展开是在标量上下文中计算的,它返回2,所以基本上你调用substr('abcd',scalar(@x))

Answer 3

第一个在标量上下文中使用......意味着so@x的大小给出。@xsubstr('abcd',2)cd