It seems to work (It chokes though on a year like 2202)

That is because localtime is based on the Unix concept of the number of seconds since the epoch of January 1, 1970 and has historically been represented as a 32 bit number which only goes up to the year 2038.

This may work better:

#!/usr/bin/perl
use warnings;
use strict;

use POSIX qw/ mktime strftime /;

# Get timestamp input from user
print 'Enter a timestamp in mm/dd/yyyy hh:mm:ss format: ';
chomp( my $stamp = <STDIN> );

my ( $month, $day, $year, $hour, $minute, $second ) = $stamp =~ m! (\d
++) / (\d+) / (\d+) \s+ (\d+) : (\d+) : (\d+) !x;

# Get time value in seconds since Epoch with mktime
my $now = mktime $second, $minute, $hour, $day, $month - 1, $year - 19
+00;

my $realanswer = strftime '%m/%d/%Y %H:%M:%S', localtime $now + 300;

print "$stamp + 5 minutes is $realanswer\n";
[download]

I especially like how this compresses and elides things -- it's FAR more Perl-y than what I wrote.

I'm still very much learning how to speak/write this stuff in anything like an effective way.

Well, being a poet with a really nice grasp of English vocabulary should assist in becoming a conversant to fluent Perl programmer. Perl is very sensitive to context and has a plethora of its own vocabulary. Some people in fact deride it for these things, but others revel in them. My impression of you from this thread is that if you apply yourself to learning Perl's vocabulary and grammar as you have to those of English, you will be a master. All it takes is time, effort, a bit of intelligence, and the ability to handle symbolic thought. You're clearly, then, well on your way. Take heart and take practice, and you'll be writing like an old hand soon.

use Class::Date qw(date -DateParse);
$Class::Date::DATE_FORMAT="%Y/%m/%d %H:%M:%S";
print date('2008/01/01 10:00:00') + 300, "\n", date('2008-01-01 10:00:
+00') + '5m';
[download]



update: golf opened ;)


holli, /regexed monk/

I think your parsing of localtime would be a lot easier once you realize that it returns a list if used in a list context.

#print "Enter a timestamp in mm/dd/yyyy hh:mm:ss format: ";
#chomp(my $stamp = <STDIN>);
my $stamp = '11/02/2007 11:02:07';

# Split out various fields for timelocal

my($date, $time) = split / /, $stamp;
my($month, $day, $year) = split /\//, $date;
my($hour, $minute, $second) = split /:/, $time;

# Both timelocal and localtime understand month as in 0 - 11 range

$month -= 1;

# Get time value in seconds since Epoch with timelocal

my $now = timelocal($second,$minute,$hour,$day,$month,$year);

# Add padding (this will become interactive)

my $paddednow = $now + 300;
my @padded_time = localtime $paddednow;

$padded_time[5] += 1900; # year
$padded_time[4]++;       # month

printf "$stamp + 5 minutes is %02d/%02d/%d %02d:%02d:%02d\n",
       @padded_time[4,3,5, 2,1,0];

# 11/02/2007 11:02:07 + 5 minutes is 11/02/2007 11:07:07
[download]

This is a fairly easy way to do this, but one of the date modules that have already been mentioned might make it even easier.

"I think your parsing of localtime would be a lot easier once you realize that it returns a list if used in a list context."

Many thanks - that is far clea(n|r)er.

my %daything = (

        " 1" => "01",
        " 2" => "02",
        " 3" => "03",
        " 4" => "04",
        " 5" => "05",
        " 6" => "06",
        " 7" => "07",
        " 8" => "08",
        " 9" => "09"
                );

my $Arealday;

if ($Aday < 10) {
        $Arealday = $daything{$Aday};
} else {
        $Arealday = $Aday
}
[download]

my $Arealday = sprintf( '%02d', $Aday );
[download]

I had considered trying to let Sybase handle all the time-stuff

select ... from ...
where the_date between dateadd(ss, -$seconds, $start_date)
  and dateadd(ss, $seconds, $end_date)
[download]

But then I'm really a database developer writing tons of SQL, these days... :-)

Michael

Thanks for pointing that out - it might make the task a lot easier.