> -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 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.
Not the *contents* of the heredoc, but the closing label must be the
first thing on its line. This should be fine:
if(!(m~^http://~)
|
|cc:
|
| Subject: Hello!
=== 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";
f
|
|cc:
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 link
