use URI::Title qw( title );
my $title = title('http://microsoft.com');
print "Title is $title\n";
DESCRIPTIONI keep having to find the title of things on the web. This seems like a really simple request, just get() the object, parse for a title tag, you're done. Ha, I wish. There are several problems with this approach:
- What if the resource is on a very slow server? Do we wait for ever or what?
- What if the resource is a 900 gig file? You don't want to download that.
- What if the page title isn't in a title tag, but is buried in the HTML somewhere?
- What if the resource is an MP3 file, or a word document or something?
So, let's solve these issues once.
METHODSonly one, the title(url) method. Call it with an url, get the title if possible, undef if it wasn't. Very simple.
TODOMany, many, many things. Still unimplemented:
- Get titles of MP3 files, Word Docs, PDFs, etc.
- Configurable.. well, anything, in fact. Timeout would be a good start.
- Better error reporting.
AUTHORSTom Insam <[email protected]>, original author, 2004-2012.
Philippe Bruhat (BooK) <[email protected]>, maintainer, 2014.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
CREDITSInvented because of a conversation with rjp, who contributed some eyeball-melting and as-yet-unused code to get titles from MP3s and PDFs, and hex, who has also solved the problem, and got bits done in a nicer way than I did.