2009/04/03

A quickie script to gather difference between(delta) two unix epoch seconds time values.


#!/usr/bin/perl
use warnings;
use strict;
use Date::Manip;
my $delta;
my $date1;
my $date2;
my $err = undef;
print "Thank you for running $0\n";

print "Enter Unix Time Seconds Value Start:";
chomp($date1 = <STDIN>);
$date1 = ParseDateString("epoch $date1");
print "Enter Unix Time Seconds Value Finish:";
chomp($date2 = <STDIN>);
$date2 = ParseDateString("epoch $date2");

$delta = DateCalc ($date1,$date2, \$err);
print "the \$delta is [$delta]\n";

No comments: