I compile the fellowing perl program and meet a problem: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;
:
|
|Subject: Hello! Help me please
=== 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;
:
|
|Subject: Hello! Help me please
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
Behalf Of DZ-Jay
Sent: Thursday, January 05, 2006 11:44 AM
To: Hicks, Robert
Cc: perl-win32-users@listserv.ActiveState.com
Subject: Re: Hello! Help me please!
Hicks, Robert wrote:
I believe