> -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
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://~)
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 per
=== 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
Hi Try changing your code to something formatted this way:
FROM:
if(!(m~^http://~))
{
$url='http://127.0.0.1/'.$_ ;
$content=getContent($url);
print<<"EOF";
content of this $url is:
$content
EOF
}
to:
if(!(m~^http://~))
{
$url='http://1
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
Christopher Taranto wrote:
Hi Ken,
Wednesday, January 4, 2006, 5:07:58 AM, you wrote:
LK> Thanks to Steven Manross, I'm a step further along in
LK> troubleshooting this. Using Steven's suggestion, I got the
LK> following from OLE->LastError: 'Win32::OLE(0.1403) error
LK> 0x80070005: "Access is