|
Need Perl module to get tag of a web page</h1></div>
</td>
<td bgcolor="#FFFFFF" valign="middle" align="right">
</td>
</tr>
</table>
</td>
<tr>
<td width="100%" bgcolor="#FFFFFF" height="24" align="center">
</td>
</tr>
</table>
<table cellpadding="0" cellspacing="0" border="0" width="90%" align="center" bgcolor="#F5F5F5">
<tr>
<td width="100%" align="center">
</td>
</tr>
</table>
<table border="0" width="100%" cellspacing="1" cellpadding="0" class="bordercolor" align="center">
<tr valign="middle" bgcolor="#CCFFCC">
<td align="left"><table width="100%" border="0"><tr><td valign="middle" align="left" width="200"><table width="364" border="0" cellpadding="0" cellspacing="1">
<tr>
<td height="15" valign="middle" align="center"><font color="#003399"> <a class="top_link" href="/">Home</a> | <a class="top_link" href="/forums/">NewsGroups</a> |<a class="top_link" href="search.php"> Search </a>|<a class="top_link" href="about.php"> About </a></font></td>
</tr>
</table>
</td><td valign="middle" align="right" width="600"><script language="javascript" src="lib/md5.js"></script>
<script language="javascript">
<!--
function doChallengeResponse() {
str = document.login.id_user.value + ":" +
MD5(document.login.passwd.value) + ":" +
document.login.challenge.value;
document.login.response.value = MD5(str);
document.login.passwd.value = "";
document.login.submit();
}
// -->
function checkIntro() {
}
</script>
<table width="500" border="0"><tr><form name="login" method="POST" action="login.php" onSubmit="doChallengeResponse(); return false;">
<td class="top_link">Login
<input name="id_user" type="text" class="small" tabindex="1" size="10" maxlength="30">
Password
<input name="passwd" type="password" class="small" tabindex="2" onKeyUp="checkIntro(); return false;" size="10" maxlength="20">
<input name="user_login" type="submit" class="small" value="Login">
<input type="hidden" name="login" value="ok">
<input type="hidden" name="response" value="">
<input type="hidden" name="challenge" value="1bf05c2b0ab4631ee95d5f2b24f5e2f1">
</td>
</form>
<form name='foo'>
<td class="top_link">
<a href="register.php">Register Now!</a>
<td>
</form>
</tr></table>
</td></tr></table>
</td>
</tr>
<tr>
<td colspan="2" valign="middle" align="center" bgcolor="#FFFFFF">
</td>
</tr>
<tr>
<td>
<table width="100%" cellspacing="0" cellpadding="10" border="0" align="center" bgcolor="#FFFFFF">
<tr>
<td valign="TOP">
<script language="javascript">
<!--//
function GoTo(url){
location.href=(url);
}
//-->
</script>
<table border="0" cellspacing="0" cellpadding="2" width=100%>
<tr><td>
<script language="JavaScript" type="text/javascript">
<!--
ctxt_ad_partner = "1074311932";
ctxt_ad_section = "52176";
ctxt_ad_bg = "";
ctxt_ad_width = 336;
ctxt_ad_height = 280;
ctxt_ad_bc = "FFFFFF";
ctxt_ad_cc = "FFFFFF";
ctxt_ad_lc = "0000FF";
ctxt_ad_tc = "000000";
ctxt_ad_uc = "999999";
// -->
</script>
<script language="JavaScript" src="http://ypn-js.overture.com/partner/js/ypn.js">
</script>
</td><td>
<script language="JavaScript" type="text/javascript">
<!--
ctxt_ad_partner = "1074311932";
ctxt_ad_section = "52176";
ctxt_ad_bg = "";
ctxt_ad_width = 336;
ctxt_ad_height = 280;
ctxt_ad_bc = "FFFFFF";
ctxt_ad_cc = "FFFFFF";
ctxt_ad_lc = "0000FF";
ctxt_ad_tc = "000000";
ctxt_ad_uc = "999999";
// -->
</script>
<script language="JavaScript" src="http://ypn-js.overture.com/partner/js/ypn.js">
</script>
</td>
</tr></table>
<table border="0" cellspacing="0" cellpadding="2" width=100%>
<tr >
<td> <a class="bold" href=comp.lang.perl.misc-newsgroup6-1.htm>comp.lang.perl.misc</a> <a href=/forums/post.php?grp_id=6&newsgroups=comp.lang.perl.misc&type=new> <img src="/forums/themes/standard/images/editicon.gif" alt="Post an article" border=0 height="17"></a> <a href="http://www.1-script.com/forums/rss/comp.lang.perl.misc.xml" target="_blank"><img src="/images/rss.gif" border="0" alt="get this group's latest topics as an RSS feed"></a> <a href="http://my.msn.com/addtomymsn.armx?id=rss&ru=RETURN&tt=TRACK&ut=http%3A%2F%2Fwww.1-script.com%2Fforums%2Frss%2Fcomp.lang.perl.misc.xml" target="_blank"><img src="/images/addtomymsn.gif" border="0" alt="add this group's latest topics to your My MSN content"></a> <a href="http://add.my.yahoo.com/rss?url=http%3A%2F%2Fwww.1-script.com%2Fforums%2Frss%2Fcomp.lang.perl.misc.xml" target="_blank"><img src="/images/addtomyyahoo.gif" border="0" alt="add this group's latest topics to your My Yahoo content"></a>
</td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="3" width=100%>
<tr>
<td class="article_body" colspan="5">
<table border="0" cellspacing="0" cellpadding="3" width="100%">
<tr class="tabla_menu">
<td class="normal_bold">Subject</td>
<td align="right" class="normal_bold">Author</td>
<td align="right" class="normal_bold">Date</td>
</tr>
<tr>
<td class="bold" ><img src="/forums/themes/standard/images/li1r.gif" width="5" height="5"><a class="text" href="/forums/Need-Perl-module-to-get-TITLE-tag-of-a-web-page-article93510--6.htm">Need Perl module to get <TITLE> tag of a web page</a></td>
<td align="right" class="bold" ><i>J.D. Baldwin</i></td>
<td align="right" class="bold" >03-17-2008</td>
</tr>
<tr>
<td colspan="3" align="left" class="normal" >
<script language="JavaScript" type="text/javascript" src="/lib/tree/layerstreemenu-cookies.js"></script>
<link rel="stylesheet" href="/forums/themes/standard/styles/layersmenu.css" type="text/css"></link>
<link rel="stylesheet" href="/forums/themes/standard/styles/layerstreemenu.css" type="text/css">
<link rel="stylesheet" href="/forums/themes/standard/styles/style.css" type="text/css">
<script language="JavaScript" type="text/javascript">
<!--
// PHP Layers Menu 2.3.5 (C) 2001-2003 Marco Pratesi (marco at telug dot it)
function toggletreemenu1(nodeid) {
if ((DOM && !Opera56 && !Konqueror2) || IE4) {
layersMoved = 0;
parseExpandString();
parseCollapseString();
if (!IE4) {
sonLayer = document.getElementById('jt' + nodeid + 'son');
nodeLayer = document.getElementById('jt' + nodeid + 'node');
folderLayer = document.getElementById('jt' + nodeid + 'folder');
} else {
sonLayer = document.all('jt' + nodeid + 'son');
nodeLayer = document.all('jt' + nodeid + 'node');
folderLayer = document.all('jt' + nodeid + 'folder');
}
if (sonLayer.style.display == "none") {
sonLayer.style.display = "block";
if (nodeLayer.src.indexOf("/forums/themes/standard/images/tree/tree_expand.png") > -1) {
nodeLayer.src = "/forums/themes/standard/images/tree/tree_collapse.png";
} else {
nodeLayer.src = "/forums/themes/standard/images/tree/tree_collapse_corner.png";
}
folderLayer.src = "/forums/themes/standard/images/tree/tree_folder_open.png";
expand[nodeid] = 1;
collapse[nodeid] = 0;
} else {
sonLayer.style.display = "none";
if (nodeLayer.src.indexOf("/forums/themes/standard/images/tree/tree_collapse.png") > -1) {
nodeLayer.src = "/forums/themes/standard/images/tree/tree_expand.png";
} else {
nodeLayer.src = "/forums/themes/standard/images/tree/tree_expand_corner.png";
}
folderLayer.src = "/forums/themes/standard/images/tree/tree_folder_closed.png";
expand[nodeid] = 0;
collapse[nodeid] = 1;
}
saveExpandString();
saveCollapseString();
}
}
// -->
</script>
<div id="jt1" style="display: block; white-space: nowrap;">
<table width="730" border="0" cellspacing="0" cellpadding="0"><tr><td width="500" class='normal' bgcolor='#F3F3F3'><a onmousedown="toggletreemenu1('1');"><img align="top" border="0" class="imgs" id="jt1node" src="/forums/themes/standard/images/tree/tree_collapse.png" alt="--" /></a><a href="/forums/Need-Perl-module-to-get-TITLE-tag-of-a-web-page-article93510--6.htm#93514" target="_parent"><img align="top" border="0" class="imgs" id="jt1folder" src="/forums/themes/standard/images/tree/tree_folder_open.png" alt="->" /></a> <a href="/forums/Need-Perl-module-to-get-TITLE-tag-of-a-web-page-article93510--6.htm#93514" target="_parent">Re: Need Perl module to get <TITLE> tag of a web p...</a>
</td><td width="120" align="left" class="normal" bgcolor='#F3F3F3'><i>Koszalek Opalek</i></td><td width="110" align="right" class="normal" bgcolor='#F3F3F3' ><a href='#' title='17:02:42'>03-17-2008</a></td></tr></table></div>
<div id="jt1son" style="display: block; white-space: nowrap;">
<div id="jt2" style="display: block; white-space: nowrap;">
<table width="730" border="0" cellspacing="0" cellpadding="0"><tr><td width="500" class='normal' bgcolor='#F3F3F3'><img align="top" border="0" class="imgs" src="/forums/themes/standard/images/tree/tree_vertline.png" alt="| " /><a onmousedown="toggletreemenu1('2');"><img align="top" border="0" class="imgs" id="jt2node" src="/forums/themes/standard/images/tree/tree_split.png" alt="|-" /></a><a href="/forums/Need-Perl-module-to-get-TITLE-tag-of-a-web-page-article93510--6.htm#93519" target="_parent"><img align="top" border="0" class="imgs" src="/forums/themes/standard/images/tree/tree_leaf.png" alt="->" /></a> <a href="/forums/Need-Perl-module-to-get-TITLE-tag-of-a-web-page-article93510--6.htm#93519" target="_parent">Re: Need Perl module to get <TITLE> tag of a web p...</a>
</td><td width="120" align="left" class="normal" bgcolor='#F3F3F3'><i>Gunnar Hjalmars...</i></td><td width="110" align="right" class="normal" bgcolor='#F3F3F3' ><a href='#' title='18:18:14'>03-17-2008</a></td></tr></table></div>
<div id="jt3" style="display: block; white-space: nowrap;">
<table width="730" border="0" cellspacing="0" cellpadding="0"><tr><td width="500" class='normal' bgcolor='#F3F3F3'><img align="top" border="0" class="imgs" src="/forums/themes/standard/images/tree/tree_vertline.png" alt="| " /><img align="top" border="0" class="imgs" src="/forums/themes/standard/images/tree/tree_corner.png" alt="`-" /><a href="/forums/Need-Perl-module-to-get-TITLE-tag-of-a-web-page-article93510--6.htm#93522" target="_parent"><img align="top" border="0" class="imgs" src="/forums/themes/standard/images/tree/tree_leaf.png" alt="->" /></a> <a href="/forums/Need-Perl-module-to-get-TITLE-tag-of-a-web-page-article93510--6.htm#93522" target="_parent">Re: Need Perl module to get <TITLE> tag of a web p...</a>
</td><td width="120" align="left" class="normal" bgcolor='#F3F3F3'><i>Tad J McClellan</i></td><td width="110" align="right" class="normal" bgcolor='#F3F3F3' ><a href='#' title='19:40:52'>03-17-2008</a></td></tr></table></div>
</div>
<div id="jt4" style="display: block; white-space: nowrap;">
<table width="730" border="0" cellspacing="0" cellpadding="0"><tr><td width="500" class='normal' bgcolor='#F3F3F3'><a onmousedown="toggletreemenu1('4');"><img align="top" border="0" class="imgs" id="jt4node" src="/forums/themes/standard/images/tree/tree_collapse.png" alt="--" /></a><a href="/forums/Need-Perl-module-to-get-TITLE-tag-of-a-web-page-article93510--6.htm#93515" target="_parent"><img align="top" border="0" class="imgs" id="jt4folder" src="/forums/themes/standard/images/tree/tree_folder_open.png" alt="->" /></a> <a href="/forums/Need-Perl-module-to-get-TITLE-tag-of-a-web-page-article93510--6.htm#93515" target="_parent">Re: Need Perl module to get <TITLE> tag of a web p...</a>
</td><td width="120" align="left" class="normal" bgcolor='#F3F3F3'><i>Keith Keller</i></td><td width="110" align="right" class="normal" bgcolor='#F3F3F3' ><a href='#' title='17:10:59'>03-17-2008</a></td></tr></table></div>
<div id="jt4son" style="display: block; white-space: nowrap;">
<div id="jt5" style="display: block; white-space: nowrap;">
<table width="730" border="0" cellspacing="0" cellpadding="0"><tr><td width="500" class='normal' bgcolor='#F3F3F3'><img align="top" border="0" class="imgs" src="/forums/themes/standard/images/tree/tree_vertline.png" alt="| " /><img align="top" border="0" class="imgs" src="/forums/themes/standard/images/tree/tree_corner.png" alt="`-" /><a href="/forums/Need-Perl-module-to-get-TITLE-tag-of-a-web-page-article93510-1-6.htm#93520" target="_parent"><img align="top" border="0" class="imgs" src="/forums/themes/standard/images/tree/tree_leaf.png" alt="->" /></a> <a href="/forums/Need-Perl-module-to-get-TITLE-tag-of-a-web-page-article93510-1-6.htm#93520" target="_parent">Re: Need Perl module to get <TITLE> tag of a web p...</a>
</td><td width="120" align="left" class="normal" bgcolor='#F3F3F3'><i>J.D. Baldwin</i></td><td width="110" align="right" class="normal" bgcolor='#F3F3F3' ><a href='#' title='18:33:06'>03-17-2008</a></td></tr></table></div>
</div>
<div id="jt6" style="display: block; white-space: nowrap;">
<table width="730" border="0" cellspacing="0" cellpadding="0"><tr><td width="500" class='normal' bgcolor='#F3F3F3'><a onmousedown="toggletreemenu1('6');"><img align="top" border="0" class="imgs" id="jt6node" src="/forums/themes/standard/images/tree/tree_split.png" alt="|-" /></a><a href="/forums/Need-Perl-module-to-get-TITLE-tag-of-a-web-page-article93510-1-6.htm#93525" target="_parent"><img align="top" border="0" class="imgs" src="/forums/themes/standard/images/tree/tree_leaf.png" alt="->" /></a> <a href="/forums/Need-Perl-module-to-get-TITLE-tag-of-a-web-page-article93510-1-6.htm#93525" target="_parent">Re: Need Perl module to get <TITLE> tag of a web p...</a>
</td><td width="120" align="left" class="normal" bgcolor='#F3F3F3'><i>malec</i></td><td width="110" align="right" class="normal" bgcolor='#F3F3F3' ><a href='#' title='19:11:20'>03-17-2008</a></td></tr></table></div>
<div id="jt7" style="display: block; white-space: nowrap;">
<table width="730" border="0" cellspacing="0" cellpadding="0"><tr><td width="500" class='normal' bgcolor='#F3F3F3'><img align="top" border="0" class="imgs" src="/forums/themes/standard/images/tree/tree_corner.png" alt="`-" /><a href="/forums/Need-Perl-module-to-get-TITLE-tag-of-a-web-page-article93510-1-6.htm#93534" target="_parent"><img align="top" border="0" class="imgs" src="/forums/themes/standard/images/tree/tree_leaf.png" alt="->" /></a> <a href="/forums/Need-Perl-module-to-get-TITLE-tag-of-a-web-page-article93510-1-6.htm#93534" target="_parent">Re: LWP::Simple yields "protocol" error (was Re: N...</a>
</td><td width="120" align="left" class="normal" bgcolor='#F3F3F3'><i>J.D. Baldwin</i></td><td width="110" align="right" class="normal" bgcolor='#F3F3F3' ><a href='#' title='21:44:18'>03-17-2008</a></td></tr></table></div>
<script language="JavaScript" type="text/javascript">
<!--
if ((DOM && !Opera56 && !Konqueror2) || IE4) {
if (expand[1] != 1) toggletreemenu1('1');
if (expand[4] != 1) toggletreemenu1('4');
}
if (NS4) alert('Only the accessibility is provided to Netscape 4 on the JavaScript Tree Menu.\nWe *strongly* suggest you to upgrade your browser.');
// -->
</script>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td class="article_body" colspan="5">
</td>
</tr>
<tr>
<td colspan="5" width="100%" valign="top">
<!-- AD UNIT BLOCK -->
<!-- google_ad_section_start -->
<table width = "100%">
<tr><td class="body_post"><a name="93510"></a>
<div style="background:#CCCCCC;">Posted by <i>J.D. Baldwin</i> on March 17, 2008, 4:32 pm
</div>
<div style="text-align:center;" class="bold">Please log in for more thread options</div><span id="insert_left"><table><tr><td>
<script language="JavaScript" type="text/javascript">
<!--
ctxt_ad_partner = "1074311932";
ctxt_ad_section = "52177";
ctxt_ad_bg = "";
ctxt_ad_width = 250;
ctxt_ad_height = 250;
ctxt_ad_bc = "FFFFFF";
ctxt_ad_cc = "FFFFFF";
ctxt_ad_lc = "0000FF";
ctxt_ad_tc = "000000";
ctxt_ad_uc = "999999";
// -->
</script>
<script language="JavaScript" src="http://ypn-js.overture.com/partner/js/ypn.js">
</script>
</td></tr></table></span>
<br/>
<br/>I've spent an hour searching on CPAN and there are simply too many
<br/>web-related modules and no good way (that I can think of) to search
<br/>for this in terms that aren't so broad that pretty much all of them
<br/>are returned as hits. So here I am asking.
<br/>
<br/>Simple problem. Given a URL http://www.example.com/some/file/here.html,
<br/>retrieve and extract the title of the web page -- i.e., the content
<br/>of the <title> tag. Is there an equally simple solution? Thanks in
<br/>advance for any advice.
<br/>--
<br/> _+_ From the catapult of |If anyone disagrees with any statement I make, I
<br/>_|70|___:)=}- J.D. Baldwin |am quite prepared not only to retract it, but also
<br/>\ / baldwin@panix.com|to deny under oath that I ever made it. -T. Lehrer
<br/>***~~~~-----------------------------------------------------------------------
<br/>
<br/></td></tr>
<tr><td class="body_post"><a name="93514"></a>
<div style="background:#CCCCCC;">Posted by <i>Koszalek Opalek</i> on March 17, 2008, 5:02 pm
</div>
<div style="text-align:center;" class="bold">Please log in for more thread options</div><span id="insert_left"><table><tr><td>
<script language="JavaScript" type="text/javascript">
<!--
ctxt_ad_partner = "1074311932";
ctxt_ad_section = "52177";
ctxt_ad_bg = "";
ctxt_ad_width = 250;
ctxt_ad_height = 250;
ctxt_ad_bc = "FFFFFF";
ctxt_ad_cc = "FFFFFF";
ctxt_ad_lc = "0000FF";
ctxt_ad_tc = "000000";
ctxt_ad_uc = "999999";
// -->
</script>
<script language="JavaScript" src="http://ypn-js.overture.com/partner/js/ypn.js">
</script>
</td></tr></table></span>
On Mar 17, 12:32=A0pm, INVALID_SEE_...@example.com.invalid (J.D.
<br/>Baldwin) wrote:
<br/><div class="body_comment_1"><i>> Simple problem. =A0Given a URLhttp://www.example.com/some/file/here.html,</i></div>
<div class="body_comment_1"><i>> retrieve and extract the title of the web page -- i.e., the content</i></div>
<div class="body_comment_1"><i>> of the <title> tag. =A0Is there an equally simple solution? =A0Thanks in</i></div>
<div class="body_comment_1"><i>> advance for any advice.</i></div>
<br/>#!/usr/bin/perl
<br/>
<br/>use strict;
<br/>use LWP::Simple;
<br/>
<br/>my $url =3D $ARGV[0] || die "Specify URL on the cmd line";
<br/>my $html =3D get ($url);
<br/>$html =3D~ mgism;
<br/>
<br/>print "$1\n";
<br/>
<br/>Koszalek
<br/>
<br/></td></tr>
<tr><td class="body_post"><a name="93519"></a>
<div style="background:#CCCCCC;">Posted by <i>Gunnar Hjalmarsson</i> on March 17, 2008, 6:18 pm
</div>
<div style="text-align:center;" class="bold">Please log in for more thread options</div>Koszalek Opalek wrote:
<br/><div class="body_comment_1"><i>> On Mar 17, 12:32 pm, INVALID_SEE_...@example.com.invalid (J.D.</i></div>
<div class="body_comment_1"><i>> Baldwin) wrote:</i></div>
<div class="body_comment_2"><i>>> Simple problem. Given a URLhttp://www.example.com/some/file/here.html,</i></div>
<div class="body_comment_2"><i>>> retrieve and extract the title of the web page -- i.e., the content</i></div>
<div class="body_comment_2"><i>>> of the <title> tag. Is there an equally simple solution? Thanks in</i></div>
<div class="body_comment_2"><i>>> advance for any advice.</i></div>
<div class="body_comment_1"><i>> </i></div>
<div class="body_comment_1"><i>> #!/usr/bin/perl</i></div>
<div class="body_comment_1"><i>> </i></div>
<div class="body_comment_1"><i>> use strict;</i></div>
<div class="body_comment_1"><i>> use LWP::Simple;</i></div>
<div class="body_comment_1"><i>> </i></div>
<div class="body_comment_1"><i>> my $url = $ARGV[0] || die "Specify URL on the cmd line";</i></div>
<div class="body_comment_1"><i>> my $html = get ($url);</i></div>
<div class="body_comment_1"><i>> $html =~ mgism;</i></div>
<div class="body_comment_1"><i>> </i></div>
<div class="body_comment_1"><i>> print "$1\n";</i></div>
<br/>Why the /g and /m modifiers?
<br/>What if the <title> element contains attributes?
<br/>
<br/>Improved (I hope) code:
<br/>
<br/> $html =~ mis;
<br/>
<br/>--
<br/>Gunnar Hjalmarsson
<br/>Email: http://www.gunnar.cc/cgi-bin/contact.pl <br/>
<br/></td></tr>
<tr><td class="body_post"><a name="93522"></a>
<div style="background:#CCCCCC;">Posted by <i>Tad J McClellan</i> on March 17, 2008, 7:40 pm
</div>
<div style="text-align:center;" class="bold">Please log in for more thread options</div><div class="body_comment_1"><i>> On Mar 17, 12:32 pm, INVALID_SEE_...@example.com.invalid (J.D.</i></div>
<div class="body_comment_1"><i>> Baldwin) wrote:</i></div>
<div class="body_comment_2"><i>>> Simple problem. Given a URLhttp://www.example.com/some/file/here.html,</i></div>
<div class="body_comment_2"><i>>> retrieve and extract the title of the web page -- i.e., the content</i></div>
<div class="body_comment_2"><i>>> of the <title> tag. Is there an equally simple solution? Thanks in</i></div>
<div class="body_comment_2"><i>>> advance for any advice.</i></div>
<div class="body_comment_1"><i>></i></div>
<div class="body_comment_1"><i>> #!/usr/bin/perl</i></div>
<div class="body_comment_1"><i>></i></div>
<div class="body_comment_1"><i>> use strict;</i></div>
<div class="body_comment_1"><i>> use LWP::Simple;</i></div>
<div class="body_comment_1"><i>></i></div>
<div class="body_comment_1"><i>> my $url = $ARGV[0] || die "Specify URL on the cmd line";</i></div>
<div class="body_comment_1"><i>> my $html = get ($url);</i></div>
<div class="body_comment_1"><i>> $html =~ mgism;</i></div>
<br/>
<br/>the //m option is a no-op when there are no anchors in the pattern.
<br/>
<br/>
<br/>--
<br/>Tad McClellan
<br/>email: perl -le "print scalar reverse qq/moc.noitatibaher0cmdat/"
<br/>
<br/></td></tr>
<tr><td class="body_post"><a name="93515"></a>
<div style="background:#CCCCCC;">Posted by <i>Keith Keller</i> on March 17, 2008, 5:10 pm
</div>
<div style="text-align:center;" class="bold">Please log in for more thread options</div><div class="body_comment_1"><i>></i></div>
<div class="body_comment_1"><i>> Simple problem. Given a URL http://www.example.com/some/file/here.html,</i></div>
<div class="body_comment_1"><i>> retrieve and extract the title of the web page -- i.e., the content</i></div>
<div class="body_comment_1"><i>> of the <title> tag. Is there an equally simple solution? Thanks in</i></div>
<div class="body_comment_1"><i>> advance for any advice.</i></div>
<br/>Use LWP to retrieve the page, HTML::TreeBuilder to build a syntax tree,
<br/>and HTML::Element's find_by_tag_name method to find the element with the
<br/>title tag. It sounds like more work than it is.
<br/>
<br/>--keith
<br/>
<br/>--
<br/>kkeller-usenet@wombat.san-francisco.ca.us
<br/>(try just my userid to email me)
<br/>AOLSFAQ=http://www.therockgarden.ca/aolsfaq.txt <br/>see X- headers for PGP signature information
<br/>
<br/>
<br/></td></tr>
</table>
<table><tr><td class="bold">Similar Threads</td><td class="bold">Posted</td></tr><tr><td class="bold"><a href="/forums/Need-a-module-for-grabbing-text-from-a-web-page-article18833--6.htm" >Need a module for grabbing text from a web page</a></td><td class="normal"> February 18, 2005, 11:42 pm</td></tr>
<tr><td class="bold"><a href="/forums/Is-there-a-module-that-grabs-a-remote-page-and-prints-thumbn-article54828--6.htm" >Is there a module that grabs a remote page and prints thumbnail image?</a></td><td class="normal"> May 26, 2006, 12:13 am</td></tr>
<tr><td class="bold"><a href="/forums/LWP-user-agent-grabs-the-intermediate-wait-page-after-POST-i-article92057--6.htm" >LWP user agent grabs the intermediate wait page after POST intead of the actual result page</a></td><td class="normal"> February 12, 2008, 12:50 am</td></tr>
<tr><td class="bold"><a href="/forums/manage-a-web-page-perl-article53318--6.htm" >manage a web page perl</a></td><td class="normal"> May 10, 2006, 3:44 pm</td></tr>
<tr><td class="bold"><a href="/forums/how-to-use-perl-to-redirect-web-page-article75332--6.htm" >how to use perl to redirect web page?</a></td><td class="normal"> March 22, 2007, 8:44 pm</td></tr>
<tr><td class="bold"><a href="/forums/Login-page-perl-CGI-article77490--6.htm" >Login page perl/CGI</a></td><td class="normal"> April 27, 2007, 1:47 am</td></tr>
<tr><td class="bold"><a href="/forums/Next-Page-gets-downloaded-in-Perl-article89632--6.htm" >Next Page gets downloaded in Perl</a></td><td class="normal"> December 13, 2007, 1:19 am</td></tr>
<tr><td class="bold"><a href="/forums/Example-of-perl-script-downloading-a-web-page-article13633--6.htm" >Example of perl script downloading a web page?</a></td><td class="normal"> December 23, 2004, 9:24 am</td></tr>
<tr><td class="bold"><a href="/forums/perl-python-get-web-page-programatically-article17465--6.htm" >[perl-python] get web page programatically</a></td><td class="normal"> February 4, 2005, 12:01 pm</td></tr>
<tr><td class="bold"><a href="/forums/Perl-robot-uploading-to-ASP-Web-page-article32699--6.htm" >Perl robot uploading to ASP Web page</a></td><td class="normal"> September 8, 2005, 7:49 pm</td></tr>
</table>
<!-- google_ad_section_end -->
</tr>
</table>
</td>
<TD valign="top">
</TD>
</tr>
</table>
</td></tr></table>
<br>
<table border="0" width="90%" cellspacing="0" cellpadding="0" class="bordercolor" align="center"><tr><td>
<table border="0" width="100%" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF" valign="middle" align="center" colspan="3">
<!-- google_ad_section_start(weight=ignore) -->
<span class="small">
<p align="center">Our other projects:</p>
<p align="center"><a href="http://www.sunnyfaces.net">Art Dolls, Fairies and Mermaids - Sunnyfaces.net</a></p>
<a href="http://www.schestowitz.com/UseNet/" title="Roy's messages about Linux, Search Engines and computer programming" target="_blank">Roy's Linux, Programming and Search Engines messages</a><br>
<br/>
<a href="/sitemap.xml"><img src="/images/xml.gif" alt="1-Script XML Sitemap" border = "0">XML Sitemap</a>
<br/>
<!-- Page generated in 1.664 seconds. --></span>
<!-- google_ad_section_end -->
</td>
</tr>
</table>
</td></tr></table>
</body>
</html>
|