I've got this code ;
use HTML::TokeParser;
$p = HTML::TokeParser->new(shift||"$buffer"
;
if ($p->get_tag("title") {
my $title = $p->get_trimmed_text;
print "Title: $title\n";
}
for finding the title from a html page , can someone tell me how to change it to get the background color ( bgcolor= ) , i've tried alsorts and can work it out
thanx for ne help
daniel aka perl newbie
use HTML::TokeParser;
$p = HTML::TokeParser->new(shift||"$buffer"
;if ($p->get_tag("title"
) {my $title = $p->get_trimmed_text;
print "Title: $title\n";
}
for finding the title from a html page , can someone tell me how to change it to get the background color ( bgcolor= ) , i've tried alsorts and can work it out
thanx for ne help
daniel aka perl newbie