Wrong regex?

imrags has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks,
I've an html page, i want to match this pattern:

</HEAD><BODY><META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE"><H2>Set Node
+ to Monitored <BR> 10.10.10.10 : Minor
</H2><FORM METHOD="POST"  ENCTYPE="application/x-www-form-urlencoded">
[download]

I want to get the IP and the status (10.10.10.10 & Minor)..
I wrote the following code

if ($html =~ /Set Node to Monitored \<BR\>\s+(\w+)\s\:\s(\w+)\W/i)
{
   print "$1 and $2 found"
}
[download]

The IP and status (minor)keeps changing...
The code I wrote doesn't seem to work. Any help!!! Raghu

Comment on Wrong regex? Select or Download Code

Replies are listed 'Best First'.
Re: Wrong regex? by ikegami (Patriarch) on Feb 10, 2010 at 06:31 UTC
`\w` doesn't match punctuation other than underscores. Specifically, `\w+` doesn't match `10.10.10.10`	[reply] [d/l] [select]
Re^2: Wrong regex? by jwkrahn (Abbot) on Feb 10, 2010 at 06:38 UTC
`\w` does match the `_` (underscore) punctuation character. But it doesn't match any of the others.	[reply] [d/l] [select]
Re^3: Wrong regex? by ikegami (Patriarch) on Feb 10, 2010 at 06:56 UTC
I don't think of it that way, but yeah, I suppose it is a punctuation mark. Fixed.	[reply]
Re: Wrong regex? by biohisham (Priest) on Feb 10, 2010 at 08:32 UTC
Escaping "<" or ">" isn't necessary. Match digits and non digits of one or more occurrence as \d+ and \D+. You can also match digits of one or more occurrence as [0-9]+ Read perlretut. #!/usr/local/bin/perl use strict; use warnings; print "IP\t\tStatus\n"; print "-" x 25; print "\n"; while(<DATA>){ chomp; next unless $_ =~ /^<\/HEAD>.*/i; #skip un-interestin +g lines. #my ($ip, $status) = $_=~ m/(\d+\.\d+\.\d+\.\d+)\s+:\s+( +\w+)/; my ($ip, $status) = $_=~ m/([0-9\.]+)\s+:\s+(\w+)/; print "$ip\t $status\n"; } __DATA__ </HEAD><BODY><META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE"><H2>Set Node + to Monitored <BR> 10.10.10.10 : Minor </H2><FORM METHOD="POST" ENCTYPE="application/x-www-form-urlencoded"> </HEAD><BODY><META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE"><H2>Set Node + to Monitored <BR> 10.10.10.9 : Major </H2><FORM METHOD="POST" ENCTYPE="application/x-www-form-urlencoded"> </HEAD><BODY><META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE"><H2>Set Node + to Monitored <BR> 10.10.10.1 : Major </H2><FORM METHOD="POST" ENCTYPE="application/x-www-form-urlencoded"> [download] #OUTPUT: `IP Status ------------------------- 10.10.10.10 Minor 10.10.10.9 Major 10.10.10.1 Major` [download] Excellence is an Endeavor of Persistence. Chance Favors a Prepared Mind.	[reply] [d/l] [select]
Re^2: Wrong regex? by graff (Chancellor) on Feb 10, 2010 at 18:28 UTC
Why would you assume that an input line would be "un-interesting" if it doesn't start with `</HEAD>.` ? And why did you think you need "." in that regex?	[reply] [d/l]


Keep It Simple, Stupid
	PerlMonks