in reply to Re: Find the text
in thread Find the text
my $time=0; while ($time <= 1800) { my ($sec,$min,$hour,$day,$month,$year) = localtime(time()-$time); $year = $year+1900; $month++; if ($hour >12) {$hour=$hour-12;} my $date=sprintf "%d/%d/%d %d:%02d:00", $month, $day, $year, $hour, $m +in; push(@array, $date); $time+=60; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: Find the text
by mzedeler (Pilgrim) on Jul 30, 2009 at 10:16 UTC |