Blame internal/benchmarks/parse-1.in.pl

Packit 95306a
#!/usr/bin/perl
Packit 95306a
Packit 95306a
use Date::Manip::Base;
Packit 95306a
$dmb = new Date::Manip::Base;
Packit 95306a
Packit 95306a
%m = qw(1  January
Packit 95306a
        2  February
Packit 95306a
        3  March
Packit 95306a
        4  APRIL
Packit 95306a
        5  MAY
Packit 95306a
        6  JUNE
Packit 95306a
        7  Jul
Packit 95306a
        8  Aug
Packit 95306a
        9  Sep
Packit 95306a
        10 oct
Packit 95306a
        11 nov
Packit 95306a
        12 dec);
Packit 95306a
Packit 95306a
$h  = 0;
Packit 95306a
$mn = 0;
Packit 95306a
$s  = "00";
Packit 95306a
Packit 95306a
foreach $y (1970..2000) {
Packit 95306a
   foreach $m (1..12) {
Packit 95306a
      $mmm = $m{$m};
Packit 95306a
      $m   = "0$m"  if ($m<10);
Packit 95306a
      foreach $d (15..$dmb->days_in_month($y,$m)) {
Packit 95306a
         $h   = "0$h"   if (length($h)<2);
Packit 95306a
         $mn  = "0$mn"  if (length($mn)<2);
Packit 95306a
Packit 95306a
         print "$y$m$d$h$mn$s\n";
Packit 95306a
         print "$y-$m-$d-$h:$mn:$s\n";
Packit 95306a
         print "$y-$m-${d}T$h:$mn:$s\n";
Packit 95306a
         print "$mmm $d, $y $h:$mn:$s\n";
Packit 95306a
         print "$m/$d/$y $h:$mn:$s\n";
Packit 95306a
Packit 95306a
         $h  += 1;
Packit 95306a
         $h   = 0  if ($h > 23);
Packit 95306a
         $mn += 5;
Packit 95306a
         $mn  = 0  if ($mn > 59);
Packit 95306a
      }
Packit 95306a
   }
Packit 95306a
}
Packit 95306a
Packit 95306a
# Local Variables:
Packit 95306a
# mode: cperl
Packit 95306a
# indent-tabs-mode: nil
Packit 95306a
# cperl-indent-level: 3
Packit 95306a
# cperl-continued-statement-offset: 2
Packit 95306a
# cperl-continued-brace-offset: 0
Packit 95306a
# cperl-brace-offset: 0
Packit 95306a
# cperl-brace-imaginary-offset: 0
Packit 95306a
# cperl-label-offset: 0
Packit 95306a
# End: