Gossamer Forum: General: Perl Programming: perl regex help

Aug 7, 2004, 4:39 AM

ryel01

Veteran (1258 posts)

Aug 7, 2004, 4:39 AM

Post #1 of 3

Shortcut

perl regex help

hi

can someone help me out with a perl regex...

what I want to do is pull the entire line:

Code:
<input type="hidden" name="url" value="http://www.mysite.com/">

out of the following block of html code.

Code:
<table width="750" border="0" cellspacing="0" cellpadding="0" vspace="0" hspace="0" height="53"> 
<tr valign="top" align="left"> 
<td height="34"><input type="hidden" name="url" value="http://www.mysite.com/"> 
<img src="/header/logo.gif" width="218" height="34" border="0" alt="mysite.com" vspace="0" hspace="0"></a></td> 
<td valign="bottom" align="right" nowrap> 
<table border="0" cellspacing="0" cellpadding="0" height="36" background="/header/pix.gif"> 
<tr>

by using the url as the target to match against?

Code:
$htmlblock =~/http://www.mysite.com/g

I can find the url ok using the above, but how do I "grab" the html from the leading "<" to the trailing ">" around it?

thanks

r

Aug 7, 2004, 7:54 AM

Andy

Veteran / Moderator (17298 posts)

Aug 7, 2004, 7:54 AM

Post #2 of 3

Shortcut

Re: [ryel01] perl regex help In reply to

Hi. You could try something like;

Code:
my $url; 
$htmlblock =~ m|\<input type=\"hidden\" name=\"url\" value=\"(.*?)\"\>|i and $url = $1; 

print "URL = $url";

Its dirty, but should do what you want.

Hope that helps.

Cheers

Andy (mod)
andy@ultranerds.co.uk

IMPORTANT: I've now moved to ultranerds.co.uk, and the .com will no longer work!
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package (plugins total "value" $3,325 & rising, for just $350)| GLinks ULTRA Package PRO (plugins total "value" $5,625 & rising, for just $500)
Support Forum | Links SQL Plugins | DMOZ Dumps | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Compare our different Plugin packages *new* Free CSS Templates

Aug 26, 2004, 10:26 AM

Crolguvar

Novice (26 posts)

Aug 26, 2004, 10:26 AM

Post #3 of 3

Shortcut

Re: [ryel01] perl regex help In reply to

Hey there,

This will do what you want:

Code:
$test = ($htmlblock =~ m|(<input[^<]*http://www.mysite.com[^>]*>)|gis) ? $1 : "Not Found...";

Of course, this is a bit broad since it will capture any type of input field (text, hidden, etc...) which contains the specified URL.

If there is more than one possible match, you can capture them all in an array:

Code:
@test = ($htmlblock =~ m|(<input[^<]*http://www.mysite.com[^>]*>)|gis);

If you really want to look just for hidden fields, use this:

Code:
$test = ($htmlblock =~ m|(<input[^<]*type="hidden"[^<]*http://www.mysite.com[^>]*>)|gis) ? $1 : "Not Found...";

Enjoy! Hope that helps.