如何在Perl中没有中间变量的情况下提取拆分数组的元素？

Question

给定字符串Wibble eq wobble myhost.example.com我希望能够提取最后一个元素.

我目前的努力是:

my @parts = split( /\s+/, "Wibble eq wobble myhost.example.com");
my $host = $parts[-1];
print "$host\n";

如何在中间@parts阵列中执行此操作？

Answer 1

试试这个:

my $host = (split( /\s+/, "Wibble eq wobble myhost.example.com"))[-1];