Can this be done on one line?

Question

I am extracting the MAC address so

my @tmp = split / /, "domain (123.123.123.123) at 00:11:22:33:44:55 [ether] on eth0"; my $vip = $tmp[3]; 

but can this be done without using a temporary variable?

Answer 1

Yes, he can:

 my $vip = (split / /, "domain (123.123.123.123) at 00:11:22:33:44:55 [ether] on eth0")[3]; 

Answer 2

Yes it is possible.

 my (undef, undef, undef, $vip) = split / /, "..."; 

Answer 3

I would recommend this approach, which searches for the “correct” MAC address at word boundaries in a haystack. If the MAC address moves in the line, it will still work, and if $vip not determined after this statement, the MAC address is not found. Let me know if I can clarify anything.

 my ($vip) = "..." =~ /\b((?:[0-9A-Fa-f]{1,2}[:-]){5}[0-9A-Fa-f]{1,2})\b/; 

Answer 4

You can use grep . This will capture the first field matching the regular expression. Please note: if you specifically do not want multiple spaces leading to empty fields, you should use ' ' , not / / .

 my ($vip) = grep /^[0-9:]+$/, split ' ', "...";