Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi all, i have this simple script to check if a file has arrive since the last hour

find2perl tmp -type f  -eval '-M $_ < 1/24' -print |perl

but now i would like to check in a remote server, maybe on ftp session. i have this ftp.pl

perl -w >> ftp.log -MNet::FTP -le'
     ( $host, $user, $pass, $dir ) = @ARGV;
     $ftp = Net::FTP->new($host) or die "$@\n";
     $ftp->login( $user, $pass ) or die $ftp->message;
     $ftp->cwd($dir) or die $ftp->message;
     $ftp->binary;
     for $file ($ftp->ls){
             push @files, $file;
     }

     for $file (@files) {

     }
     $ftp->quit or die $ftp->message;
' server user pass dir

[download]

but don't know how to include the eval. I also would like to send mail if there is not new file in the past hour Thanks

Replies are listed 'Best First'.
Re: Newbie: how evaluate files newer than an hour within ftp
by Khen1950fx (Canon) on Aug 12, 2010 at 06:03 UTC
    Rather than do all that writing with Net::FTP, why not give Net::FTPSSL a try? First, it's a lot like Net::FTP and uses a similar approach; also, I think that it's easier to work with. Here's an example: 
    #!/usr/bin/perl

use strict;
use warnings;
use Net::FTPSSL;

use constant HOST  => 'ftp.perl.org';
use constant USER  => 'anonymous';
use constant PASS  => 'anonymous';
use constant DIR   => '/pub/CPAN/authors';
use constant FILE1 => '02STAMP';

my $ftps = Net::FTPSSL->new(HOST, 
           Debug      => 1,
           Encryption => CLR_CRYPT,
           useSSL     => 1,
           Croak      => 1,
           Trace      => 1,
           PreserveTimestamp => 1);
$ftps->login( USER, PASS );
$ftps->cwd(DIR); 
$ftps->binary;
$ftps->get(FILE1);
$ftps->_mdtm(FILE1);

$ftps->quit;

    [download]
    Note that if you use Croak => 1, you don't have to use the die messages.
[reply]
[d/l]

      Still cant't figure out how to check if file is newer that an hour. I can get this: 

      MDTM with FORMAT    =  Fri Aug 21 12:23:15 2009
Localtime No Format =  Fri Aug 13 10:17:10 2010
MDTM      No Format =  1250871795

      [download]

      but don't know how to get the 'localtime with NO Format' to compare with the 'MDTM with NO Format' 

      perl -w >> ftp.log -MNet::FTP -le'
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek
+, $dayOfYear, $daylightSavings) = localtime();
$year = 1900 + $yearOffset;
$theGMTime = "$hour:$minute:$second, $months[$month] $dayOfMonth, $yea
+r";
     ( $host, $user, $pass, $dir ) = @ARGV;
     $ftp = Net::FTP->new($host) or die "$@\n";  #send mail if cannot 
+connect do not know how to do it
     $ftp->login( $user, $pass ) or die $ftp->message;
     $ftp->cwd($dir) or die $ftp->message;
     $ftp->binary;
     for $file ($ftp->ls){
             push @files, $file;
     }

     for $file (@files) {
       $quesesto=localtime($ftp->mdtm($file));
       $localtimenoformat=localtime(time());
       $mdtmnoformat=$ftp->mdtm($file);
       print "MDTM with FORMAT    =  $quesesto\n";
       print "Localtime No Format =  $localtimenoformat\n";
       print "MDTM      No Format =  $mdtmnoformat\n";
     #envia_mail ();
     }
     $ftp->quit or die $ftp->message;

sub envia_mail {
print "Content-type: text/html\n\n";

#$title='';
$to="alexis_vasquez\@codetel\.com\.do";
$from= `hostname`;
#$subject='';

open(MAIL, "|/usr/sbin/sendmail -t");

## Mail Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
## Mail Body
print MAIL "This is a test message \n";

close(MAIL);

print "<html><head><title>$title</title></head>\n<body>\n\n";

## HTML content sent, let use know we sent an email
print "
<h1>$title</h1>

A message has been sent from $from to $to

</body></html>";

}
    'host user pass dir

      [download]
[reply]
[d/l]
[select]
Re: Newbie: how evaluate files newer than an hour within ftp
by lostjimmy (Chaplain) on Aug 11, 2010 at 20:34 UTC
    In your loop, try calling $ftp->mdtm($file), and then compare that to the current time.
[reply]
[d/l]

Back to Seekers of Perl Wisdom