perl - 如何从数组中删除最后一个字符？

Question

有没有办法从数组中删除最后一个字符？

只是要清楚一点，我并不是要删除数组中的每个最后一个字符，只有删除数组中的最后一个最后一个字符。

我看过chop / chomp / push / pop等，但很多都与从字符串中删除值有关。

任何帮助都会很棒

谢谢

Answer 1

chop是正确的工具，但是需要一个参数列表。如果将其传递给数组，则所有元素都会被切碎。相反，只需使用索引-1即可。这总是给您最后一个元素。

my @foo = qw(foo bar baz);
chop $foo[-1];
print Dumper \@foo;

# ['foo', 'bar', 'ba']

从doc:

如果切列表，则每个元素都被切。仅返回最后一个印章的值。