Hi Try changing your code to something formatted this way:
FROM:
if(!(m~^http://~))
{
$url='http://127.0.0.1/'.$_ ;
$content=getContent($url);
printEOF;
content of this $url is:
$content
EOF
}
to:
if(!(m~^http://~))
{
=== 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;
Gao
In a nutshell you have to wrtie the closing print string: EOF
at the beginning of the line, without spaces nor tabs.
Bruno Georges
Glencore International AG
Tel. +41 41 709 3204
Fax +41 41 709 3000
|-+-
| | gao
-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