Agnus Dei (jackal) wrote,
Agnus Dei
jackal

Sample Perl script for saving and retrieving last run time stamps


#!/usr/bin/perl
####################################################
####################################################
####################################################
use Storable qw/store retrieve/;


####################################################
# my's
####################################################
my $debug=1;
my $this_time_stamp=`/bin/date +%s%3N`;  #Epoch time in milliseconds
chomp($this_time_stamp);
my $run_time_file="/var/tmp/mysample_last_run_timestamp.dat";  # File to save into


################################################################
# Main
################################################################
retrieve_last_run_timestamp();
save_this_run_time_stamp();


################################################################
# Save this run time stamp
################################################################
sub save_this_run_time_stamp {
        if (defined $this_time_stamp) {
                print "DEBUG: SAVING : This time stamp = $this_time_stamp \n" if ($debug);
                defined store \$this_time_stamp, $run_time_file or die( "could not save time to '$run_time_file'\n" );
                print "DEBUG: SAVED : saved this run time file data: $run_time_file\n" if ($debug);
        } else {
                print "ERROR: no last time stamp to save.\n" if ($debug);
        }
}



################################################################
# Retrieve last run timestamp
################################################################
sub retrieve_last_run_timestamp {
        if ( -e $run_time_file ) {
                print "DEBUG: RETRIEVING:  reading in last run time file data: $run_time_file\n" if ($debug);
                $last_run_time = $ {retrieve $run_time_file} ;
                print "DEBUG: RETRIEVED: Last run time stamp = $last_run_time\n" if ($debug);
        } else {
                print "DEBUG: No last run time file for $log_file\n";
        }

}
Subscribe
  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

  • 0 comments