What is the best way to indicate past hour from current time without
using a module?
so if it's 12:00, then 11:00-12:00
if it's 17:30 then 16:30 to 17:30
if it's 00:30 then 23:30 to 00:30
I wrote a below program and works but there has to be a better and
easier(not sure if I want easier as I am trying to learn) but I want to
do it the right perl way(despite
perl's motto)..
let me know please.
#!/usr/bin/perl -w
use strict;
use diagnostics;
my $time = localtime;
my @time_1 = split / /, $time;
my $start_time;
for ($time_1[4]) {
if ($_ =~ /00:([0-5][0-9]:[^ ])/) {
$start_time = join(':', 23,$1);
} else {
/(.*):(.*):(.*)/;
$start_time = join(':', $1 - 1, $2,$3);
}
}
print "$start_time to $time \n";
__END__
Wed Apr 2 01:04:07 2008
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
