如何在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];

Answer 2

或者（对answer already given），尝试：

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

或者，如果你不喜欢拆分：

my $host = pop [qw "Wibble eq wobble myhost.example.com"];

或更多perlish：

my $host = (qw "Wibble eq wobble myhost.example.com")[-1];

RBO