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