How do I extract an element of a split array without a intermediate variable in Perl?

Question

Given the string Wibble eq wobble myhost.example.com I would like to be able to extract the last element.

My current effort is:

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

How do I do this with out the intermediate @parts array?

for that particular case, you can just use a regular expression to extract the last field: my ($host) = ($str =~ /(\S+)$/) — salva
– salva, Commented Jun 15, 2012 at 8:40
@salva - super, put that as an answer and you get a upvote :) — Gareth Davis
– Gareth Davis, Commented Jun 15, 2012 at 8:42

ccheneson · Accepted Answer · 2012-06-15 08:24:11Z

6

Try this:

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

answered Jun 15, 2012 at 8:24

ccheneson

49.4k8 gold badges65 silver badges69 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Community · Accepted Answer · 2017-05-23 12:29:10Z

1

Alternatively (to the answer already given), try that:

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

or, if you dont like split:

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

or, more perlish:

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

rbo

CommunityBot

11 silver badge

answered Jun 15, 2012 at 17:20

rubber boots

15.2k5 gold badges36 silver badges45 bronze badges