perl - 如何在 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

或者（对于已经给出的答案），尝试：

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

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

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

或者，更失败：

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

rbo