Mittal, Manish wrote:

> Here is a snippet. I introduced a 30ms delay and it seems work. But this
> is not the best thing to do; especially in my case. I have commented out
> the sleep part in the snippet.
>
> opendir DIR, $temp_local_dir;
> $ftpobj -> cwd ("$server_root_dir/$DBNAME") or die
> "Cannot access this directory\n";
> #$ftpobj -> cwd ("$DBNAME") or die "Cannot access this
> directory\n";
> while ($filename = readdir(DIR)) {
> if($filename =~ /.xls/ && $filename =~
> /$DBNAME/){

That line makes no sense - why the && part ?

> $ftpobj ->
> put("$temp_local_dir/$filename");
> $counter = $counter+1;
> #$microseconds = 30_000;
> #$actualslept = usleep $microseconds;
> }
> }
>
> Some of the files I am transferring are very small. I think because of
> that the perl FTP module over runs the capability of the IIS FTP server.
> The files I am referring here have size less than 1 kb and there might
> be about 150 of them. Any thoughts?

That's not a working script and on top of that you top-posted it.
If you're only dealing with one directory, I doubt it has anything
to do with the module.

> Mittal, Manish wrote:
>
>
>>Does anyone know of a limitation of the NET::FTP module? I am using
>
> this
>
>>module to copy about 1 GB worth of data in about 1300 files. After
>>successfully transferring about 650 files, the transfer becomes
>>painfully slow (it takes about an hour for the rest and sometimes
>
> more)
>
>>Some info that might be useful
>>
>>1-       100 Mbps, full duplex network.
>>
>>2-       FTP server and client both on the same internal network.
>>
>>3-       The transfer has worked like a charm for lower number of
>
> files.
>
>>Let me know if you need more info.
>
>
> Yes - we do.  You may be causing it by over-using resources.  A code
> snippet should help.  Trim it as best you can and test it to see if
> it reproduces the problem after trimming.
>


--
  ,-/-  __      _  _         $Bill Luebkert    Mailto:dbecoll@adel...
(_/   /  )    // //       DBE Collectibles    Mailto:dbe@todb...
  / ) /--<  o // //      Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_</_</_    http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
_______________________________________________
ActivePerl mailing list
ActivePerl@list...
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs