Can you help with this perl error?

[Barrucadu]

Perl Question

edit: Fixed original error, now I need help with something else

-----

How can I get the title of a page with LWP?

 

[sjaguar13]

You can use the TokeParser:

This assumes the content is returned to $content

$parser = HTML::TokeParser->new(\$content);
$parser->get_tag("title");
$title = $parser->get_token;
print $title->[1], "\n" if $title;

Or you could grep $content to find what's between the title tags.

 

[Barrucadu]

I've tried grep - but there is a problem:

@title = grep("<title>[a-z]</title>",$content);
push(@filetitles,@title);

But that always returns "HTTP::Request=HASH(0x1a8dab0) "

edit: fixed, used the wrong method for getting the content

 

[mp123456]

well if you're looking for a regex:
my ($title) = ($content=~m@<title>\s*(.*?)\s*</title>@is);