Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: Regex and splitting

by AnomalousMonk (Archbishop)
on Apr 29, 2012 at 07:29 UTC ( [id://967912]=note: print w/replies, xml ) Need Help??


in reply to Regex and splitting

Regexp::Common (with the automatically loaded Regexp::Common::net) can simplify IP extraction. For one thing, it (Update: can be used to create a regex that) will not match IPs with invalid (Update: decimal) octets such as are allowed by  [0-9]{1,3} (try different invalid octets in the  $s string).

>perl -wMstrict -le "use Regexp::Common qw(net); ;; my $s = 'host1 dns:192.168.243.30,asdf'; my $IP = qr{ (?<! \d) $RE{net}{IPv4} (?! \d) }xms; my ($ip) = $s =~ m{ $IP }xmsg; print qq{ip '$ip'} if $ip; " ip '192.168.243.30'

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others about the Monastery: (3)
As of 2024-03-19 03:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found