Perl Question

Barrucadu · 08-25-2006, 10:04 AM

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

-----

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

sjaguar13 · 08-25-2006, 10:53 AM

You can use the TokeParser:

This assumes the content is returned to $content

Code:

$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 · 08-25-2006, 11:41 AM

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

Code:

@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 · 08-28-2006, 06:26 PM

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

08-25-2006, 10:04 AM	THREAD STARTER #1 (permalink)
Barrucadu Senior Member Join Date: Aug 2005 Location: East Yorkshire, England Posts: 2,689 Follow @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? __________________ Website \| Blog Arch Hurd developer; GNU Webmaster; FSF member #8385 Last edited by Mikor; 08-25-2006 at 10:43 AM.

08-25-2006, 10:53 AM	#2 (permalink)
sjaguar13 NamePros Regular Join Date: Nov 2005 Posts: 383	You can use the TokeParser: This assumes the content is returned to $content Code: $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.

08-25-2006, 11:41 AM	THREAD STARTER #3 (permalink)
Barrucadu Senior Member Join Date: Aug 2005 Location: East Yorkshire, England Posts: 2,689 Follow @barrucadu	I've tried grep - but there is a problem: Code: @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 __________________ Website \| Blog Arch Hurd developer; GNU Webmaster; FSF member #8385 Last edited by Mikor; 08-25-2006 at 11:58 AM.

08-28-2006, 06:26 PM	#4 (permalink)
mp123456 NamePros Member Join Date: May 2006 Posts: 50	well if you're looking for a regex: my ($title) = ($content=~m@<title>\s(.?)\s*</title>@is);

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)