Perl - splice（）问题

Question

我在使用perl splice（）方法时遇到问题。你会看到我首先确定我要查找的两个字符串的索引，然后使用索引执行splice（）以获得所需的数组。

我的代码如下：

my @a = qw(foo bar bazz elements in between hello bazz johnny bl aba);
my $z = 0;

for (my $i = 0; $i < @a; $i++)
{
    next unless $a[$i] =~ /bazz/;

    if( $z eq 0 )
    {
        $z++;
        $first = $i;
    }
    else
    {
        $second = $i;
    }               
    my @b = splice(@a,$first,$second);
    print Dumper(@b);
}

打印结果如下：

$VAR1 = 'bazz';
$VAR2 = 'elements';
$VAR3 = 'in';
$VAR4 = 'between';
$VAR5 = 'hello';
$VAR6 = 'bazz';
$VAR7 = 'johnny';

我的印象是，拼接将大块放在给定限制之间，包括当然。我不明白为什么元素'johnny'会在那里。列表不应该停在第二个'bazz'吗？

感谢您对此问题的任何指示。

Answer 1

第二个参数是切片的长度，而不是切片末尾的索引。

Answer 2

splice将参数视为

splice @ARRAY, $OFFSET, $LENGTH, @REPLACE_LIST;

它从$LENGTH开始从索引@ARRAY中删除$OFFSET个元素，并用给定的列表替换它们（或者在给出空列表时（从隐含地）删除它们）

您似乎想要一个数组切片：

my @b = @a[$first .. $second];
print Dumper \@b;