perl - 如何在Perl中获取拆分的最后一项？

Question

$k="1.3.6.1.4.1.1588.2.1.1.1.6.2.1.37.32";
@a=  split('\.',$k);
print @a[-1];                           # WORKS!
print  (split '\.',$k)[-1];             # Fails: not proper syntax.`

我想打印拆分的最后一个元素，而不必使用中间变量。有没有办法做到这一点？我正在使用Perl 5.14。

Answer 1

Perl将打开的括号(归因于print函数。语法错误是由于print()不能跟在[-1]之后。即使print和()之间存在空格。如果您不想在+中添加括号，则需要在括号前面加上print符号以强制列出上下文。

print  +(split'\.', $k)[-1];

如果您不使用语法作为期望具有parens的对象的参数，那么它也将按照您尝试的方式工作。

my $foo = (split '\.', $k)[-1];
print $foo;