=== your code ===
use HTTP::Request;
use LWP::UserAgent;
$content=getContent('http://127.0.0.1/index.htm');
@html=split(/\n/,$content);
for(@html)
{
do
{
$2 and push(@link,$2);
}while m
{
<\s*A\s+HRE\s*=\s*(['''])(.*?)\l\s*>
}gsix;
print "All links in this page:\n";
for(@link)
{
print $_,"\n";
}
print "Visit all links in this page: \n";
for(@link)
{
if(!(m~^http://~))
{
$url='http://127.0.0.1/'.$_ ;
$content=getContent($url);
print<<"EOF";
content of this $url is:
$content
EOF
}
======
I believe that if you inline a heredoc like that the contents of the heredoc
have to be left aligned all the way to the left margin. If you find that too
ugly you can factor out the heredocs into a constant and then use the constant
name in the actual code.
Robert
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
