Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

devnul's scratchpad

by devnul (Monk)
on Jan 07, 2005 at 22:14 UTC ( #420412=scratchpad: print w/replies, xml ) Need Help??

I am having a problem with the following, $match2 works, $match does not. Any ideas?

my $rec = ' <td align="center" valign="middle" class="pdad"> extract this, please! </td> <td width="2"><img src="../images/spacer.gif" width="2" height= +"1" /></TD> </tr> </table> </td> <td width="1" bgcolor="#dddddd"><img src="../images/spacer.gif" wi +dth="1" height="1" /></td> <td bgcolor="#FFFFF7" align="center" valign="TOP" nowrap> <table align="center" cellspacing="0" cellpadding="0" border="0"> <tr> <td width="2"><img src="../images/spacer.gif" width="2" height= +"1" /></TD> <td class="pdad">$689,900</td>'; my $tag = '(?:<[^>]*>\s*)'; my $match = qr/$tag(.*?)$tag{17}\$(.*?)<\/td>/; print "MATCH: $match\n"; if($rec =~ m|$match|is) { print "YAY!!! $1, $2\n"; } my $match2 = "$tag(.*?)$tag" . '{17}\$(.*?)</td>'; print "MATCH2: $match2\n"; if($rec =~ m|$match2|is) { print "YAY2!!! $1, $2\n"; }
Output is:
MATCH: (?-xism:(?:<[^>]*>\s*)(.*?)(?:<[^>]*>\s*){17}\$(.*?)</td>) MATCH2: (?:<[^>]*>\s*)(.*?)(?:<[^>]*>\s*){17}\$(.*?)</td> YAY2!!! extract this, please! , 689,900
Log In?

What's my password?
Create A New User
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (11)
As of 2017-02-28 15:57 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (405 votes). Check out past polls.