#!/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";
2009/04/03
A quickie script to gather difference between(delta) two unix epoch seconds time values.
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment