perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From peng wei <cnpeng...@gmail.com>
Subject Fwd: I am facing one real question, maybe one potential issue of perl ftp component?
Date Mon, 08 Nov 2010 02:55:01 GMT
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()
{
   $hostname2 = "ftp.abc.com.tw";
   $username2 = "abc";
   $password2 = "abc";
   $remopath2 = "/abc/def";

   $ftp = Net::FTP->new($hostname2, Debug => 0, Port => 21,Timeout => 1240);
   chdir($LocalPath);
   if($ftp->login($username2, $password2))
   {
               if ($ftp->cwd($remopath2))
               {
                       print "change remote work directory succeed \n";
                       $ftp->binary;
                       foreach $lot_file(@map_files)
                       {
                         @files = $ftp->ls($lot_file."*");
                         if (scalar(@files)>0)
                         {
                                 foreach $each_file(@files)
                                 {
                                         print "fetching-->";
                                         $ftp->get($each_file);
                                         print $each_file."\n";
                               }
                           }
                       }
                 }
     }
 $ftp->close;
}

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


Mime
View raw message