Help parsing html file 2

[CFtaxtron]

Someone help me and tell me why this sucker isn't displaying the title of the returned page.

use LWP::Simple;

$url = '

http://www.embanet.com/indexflash.htm';

# this will get the HTML text
$content = get($url);

# parse the Title tag from the HTML
while ($content =~ /<title.*?\/title>/gis) {
print &quot;Getting $1<br>&quot;;
get($1);
}

Thanks

Tim

 

[goBoating]

In your pattern match the $1 variable will contain the chars matched in your first set of paren's. You don't have any paren's. So, $1 is never set.

while ($content =~ /<title.*?\/title>/gis) {
print &quot;Getting $1<br>&quot;;

while ($content =~ /<title.*?>[red]([/red].*?[red])[/red]<\/title>/gis) {
print &quot;Getting $1<br>&quot;;


keep the rudder amid ship and beware the odd typo

 

[CFtaxtron]

Thank you, worked like a charm

Tim s-)