Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re^3: Regular expression assistance

by kennethk (Abbot)
on Dec 07, 2012 at 16:26 UTC ( #1007779=note: print w/replies, xml ) Need Help??

in reply to Re^2: Regular expression assistance
in thread Regular expression assistance

Okay, much better. Assuming you want to do this in the midst of a script and not just piping one liners about, I would use more operations rather than be super sparse on characters. First, since you have a string that is internally-delimited by newlines, you can use . to match any character that is not a new line. This means you can actually grab your line using $cdp =~  m/(.*0x01.*)/, storing the line in $1. You could then split that on whitespace and grab the 8th field with (split /\s+/, $1)[7]. So collecting all your 8th field matches:
my @switch; while ($cdp =~ m/(.*0x01.*)/g) { push @switch, (split /\s+/, $1)[7]; }
If this is not your intent and the way forward is unclear, post explicit desired output so the goal is clear.

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

Replies are listed 'Best First'.
Re^4: Regular expression assistance
by agentorange (Sexton) on Dec 07, 2012 at 17:01 UTC
    Ah perfect thank you.

    I hadn't appreciated I could reference the 8th element with 7 around split()

    Many thanks

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1007779]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (7)
As of 2018-05-21 14:50 GMT
Find Nodes?
    Voting Booth?