Beefy Boxes and Bandwidth Generously Provided by pair Networks BBQ
There's more than one way to do things
 
PerlMonks  

Re^2: $1 does not reset to undef

by McA (Deacon)
on Oct 25, 2013 at 13:31 UTC ( #1059662=note: print w/ replies, xml ) Need Help??


in reply to Re: $1 does not reset to undef
in thread $1 does not reset to undef

Hi ww,

I don't know whether I understand you right. I understood the question the following: From this typical first line of an ifconfig output, the OP wants all entries which are NOT aliased entries. When I let run this script:

#!/usr/bin/env perl use strict; use warnings; use 5.010; use Data::Dumper; my @arry = ( 'bond0.2 Link encap:Ethernet', 'bond4.3:6 Link encap:Ethernet', 'bond3 Link encap:Ethernet', 'bond5:0 Link encap:Ethernet', 'bond1.5:2 Link encap:Ethernet', 'bond2.6 Link encap:Ethernet' ); foreach (@arry) { if(/^([\w\.]+)\s+Link.*$/) { printf "Array item: %-30s\tmatch: %s\n", $_, $1; } }

I get all the "non aliased" lines.

What do you mean is wrong? (I'm pretty sure I can't break the language barrier today.)

UPDATE: After an off thread talk to ww I understand now that the regex presented by ww and Bloodnok fullfills precisely the formulated pattern matching request of snk. So, besides giving the hint for the right way to react on a match the regex should also be corrected to fullfil the request made, even when the result in this example matches the expectations of snk.

Regards
McA


Comment on Re^2: $1 does not reset to undef
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1059662]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (9)
As of 2014-04-17 00:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (437 votes), past polls