Mailing-List: contact dev-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (nike.apache.org: domain of cnpengwei@gmail.com designates
 209.85.214.177 as permitted sender)
DomainKey-Signature: a=rsa-sha1; c=nofws;
        d=gmail.com; s=gamma;
        h=mime-version:in-reply-to:references:date:message-id:subject:from:to
         :content-type:content-transfer-encoding;
        b=OJc/i0HIZ12DPOCoKwN3g/QfJGUgJPeBxmjPhiM2IoxQegg4ZX5hoypUISAt3NLIgt
         73rOESlrnXMu62OEBT88t+98pZS9+DBJUj84uQ/HahzygfedVOpk3k1TpZEN0NLXxhxk
         aY+pThPyzeRaZG5NraIFYeeg/qxv59ckpocY8=
MIME-Version: 1.0
In-Reply-To: <AANLkTim6nLgwM27vZkiy23oF0uwh5Q+C7NcDJv4oSfcJ@mail.gmail.com>
References: <AANLkTim6nLgwM27vZkiy23oF0uwh5Q+C7NcDJv4oSfcJ@mail.gmail.com>
Date: Mon, 8 Nov 2010 10:55:01 +0800
Message-ID: <AANLkTincNXEeZriUbZ7nzCTNhUxYW=rkvu0yS7BaoQgQ@mail.gmail.com>
Subject: Fwd: I am facing one real question, maybe one potential issue of perl
 ftp component?
From: peng wei <cnpengwei@gmail.com>
To: dev@perl.apache.org
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

1. The same script, no changing any code, yes, no changing any bit,
sometimes it work correctly, sometimes not.

I mean, even the files count more than one thousand, it can work
correctly once, but the tightly append, run for the twice, it will
crash down.


---------- Forwarded message ----------
From: peng wei <cnpengwei@gmail.com>
Date: 2010/11/8
Subject: Fwd: I am facing one real question, maybe one potential issue
of perl ftp component?
To: dev@perl.apache.org


This issue occurred so many times, lead to my thinking that maybe this
is one issue.

The reason is:

1. The same script, no changing any code, yes, no changing any bit,
sometimes it work correctly, sometimes not.

2. When the files was fetched was little amount, such as some dozens,
it will always be correct.

3. When the files count more than some hundreds, it will crush.


---------- Forwarded message ----------
From: peng wei <cnpengwei@gmail.com>
Date: 2010/11/8
Subject: I am facing one real question
To: dev@perl.apache.org


Hi All,

I don't think this is in the range of FAQ, so I write this mail to ask for =
help.

Thanks all in advance.


Situation description:

1. There is one ftp server, there is one folder called map_files on it.

2. The objective of my perl script is fetch the files down from this
ftp server, which all located int the map_files folder.

3. Below warning was encounted:
Can't use an undefined value as a symbol reference at
C:/Perl/lib/Net/FTP/dataconn.pm line 54.

4. I have searched all google, can not find any useful infomation.

my scrip like below:

sub getmap_FTP1()
{
=A0 =A0$hostname2 =3D "ftp.abc.com.tw";
=A0 =A0$username2 =3D "abc";
=A0 =A0$password2 =3D "abc";
=A0 =A0$remopath2 =3D "/abc/def";

=A0 =A0$ftp =3D Net::FTP->new($hostname2, Debug =3D> 0, Port =3D> 21,Timeou=
t =3D> 1240);
=A0 =A0chdir($LocalPath);
=A0 =A0if($ftp->login($username2, $password2))
=A0 =A0{
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0if ($ftp->cwd($remopath2))
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0{
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0print "change remote work di=
rectory succeed \n";
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0$ftp->binary;
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0foreach $lot_file(@map_files=
)
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0{
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0@files =3D $ftp->ls($lot=
_file."*");
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0if (scalar(@files)>0)
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0{
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0foreach =
$each_file(@files)
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0{
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0=
 =A0 =A0print "fetching-->";
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0=
 =A0 =A0$ftp->get($each_file);
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0=
 =A0 =A0print $each_file."\n";
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0}
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0}
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0}
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0}
=A0 =A0 =A0}
=A0$ftp->close;
}

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org