Josh,
If you're mirroring, I've had fairly good luck with the Perl mirror package
from http://sunsite.org.uk/packages/mirror/
The interface is a little clunky, but it works. For each directory tree you
want to mirror, you make a little parameter file that describes where
you're coming from and
mat section that determines the layout for the results of our transfer
format STDOUT =
@<<<<<<<<<<<<<<<@>>>>>>>>>>>>>>>
$file->{'name'}, $file->{'size'}
If you want to get the size, modified date, etc. for the local files, you
can use stat().
perldoc -f stat
-Original Message-
From: Ken Cornetet [mailto:[EMAIL PROTECTED]]
Sent: Friday, April 26, 2002 10:30 AM
To: 'Sidwell, Josh'; '[EMAIL PROTECTED]'
Subject: RE: Fi
Josh,
I do something very similar to this in one of my daily processes, however I use a
different FTP module than you, NET::FTP, (or maybe you found some new doc on this than
I have). Anyway I recommend that you use the FILE::STAT module -> size method to
retrieve the File size for compari
Here's how I do something similar...
$objFtp->cwd($ftpdir)
or urp( "Could not CD to $ftpdir. Error: " . $objFtp->message() .
"\n" );
# Grab list of files
my @aryFiles = $objFtp->ls();
# Look through list finding newest
foreach my $strFile (@aryFiles) {
$tmeModified = $objFtp-
