Boysenberry Payne wrote:
my $h = $ftp->{handle};
foreach my $directory ( @directories ) {
$h->cwd( $directory ) or die "can't change to directory: $directory
$!";
my $dir_ls = $h->ls;
foreach my $file_name ( @$dir_ls ) {
unless ( substr( $file_name, 0, 1 ) eq "." ) {
my $dir_nfo = $h->dir( $directory . $file_name );
$_ = $dir_nfo->[ 0 ];
s/(\s)+/ /g;
my @file_nfo = split / /, $_;
my $file_size = $file_nfo[ 4 ];
if( $file_size != 0 ) {
add to database
}
}
}
}
$h->quit;
Whats this ftp->{handle} stuff ?
Shouldn't it just be $ftp->xxx
Thats not in perldoc Net::FTP.
Are you using a relatively new version of it ?
We've got Net::FTP 2.75,
Linux wickedwitch 2.6.12.3 #2 SMP Mon Jul 18 17:14:55 EDT 2005 i686 i686
i386 GNU/Linux
What is the file size check for .. why do you have files of size 0 ?
I think it might be faster to do
next unless $file_name =~ /^\./o;
instead of
> unless ( substr( $file_name, 0, 1 ) eq "." ) {
It might be your database connection... Do you prepare the handle
outside of the loop? Is the database connect/disconnect outside of the
loop? What are you inserting into the database ? If you're inserting a
BLOB of the image/file data it could be the bandwidth transfer now thats
its not a local socket anymore.
Luck
--
END
-----------------------------------------------------------------------------
Philip M. Gollucci
Senior Developer - Liquidity Services Inc.
Phone: 202.558.6268 (Direct)
Cell: 301.254.5198
E-Mail: [EMAIL PROTECTED]
Web: http://www.liquidityservicesinc.com
http://www.liquidation.com
http://www.uksurplus.com
http://www.govliquidation.com
http://www.gowholesale.com
