Okay here's a quick Perl script which should do what you want and it formats the time specification in the format that at likes:
CCYYMMDDhhmm.ss
Use it like this:
TM=$(inctime.pl 5)
echo "Time 5 seconds from now = ${TM}"
------------------------------------------
#!/usr/bin/perl -w
use strict;
use integer;
use English;
sub Usage
{
printf STDERR
("Usage: %s inc\n\n",$PROGRAM_NAME);
printf STDERR
("Returns a timestring CCYYMMDDhhmm.ss differing by inc seconds from\n");
printf STDERR
("the current time. Inc may be positive or negative.\n\n");
return(255);
} # Usage
sub Problem
{
my $msg = $_[0];
my $err = $_[1];
printf STDERR ("\n%s: %s (%d)\n",$PROGRAM_NAME,$msg,$err);
return(1);
} # Problem
my $cc = 0;
if ($#ARGV >= 0)
{
if ($ARGV[0] =~ /^[+\-]{0,1}\d+$/)
{
my $inc = $ARGV[0];
my $now = time();
my ($seconds,$minutes,$hours,$mday,$month,$year,$wday,$yday,$isdst)
= localtime($now + $inc);
printf("%04d%02d%02d%02d%02d.%02d\n",$year + 1900,$month + 1,
$mday,$hours,$minutes,$seconds);
}
else
{
$cc = 254;
my $s_err = sprintf("Invalid increment '%s'",$ARGV[0]);
Problem($s_err,$cc);
}
}
else
{
$cc = Usage();
}
exit($cc);
------------------------------------------
If I didn't make any booboo's that should be it and I made it accept positive or negative or zero increments.
If it ain't broke, I can fix that.
