1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
#!/usr/bin/perl
use Date::Manip::Base;
$dmb = new Date::Manip::Base;
%m = qw(1 January
2 February
3 March
4 APRIL
5 MAY
6 JUNE
7 Jul
8 Aug
9 Sep
10 oct
11 nov
12 dec);
$h = 0;
$mn = 0;
$s = "00";
foreach $y (1970..2000) {
foreach $m (1..12) {
$mmm = $m{$m};
$m = "0$m" if ($m<10);
foreach $d (15..$dmb->days_in_month($y,$m)) {
$h = "0$h" if (length($h)<2);
$mn = "0$mn" if (length($mn)<2);
print "$y$m$d$h$mn$s\n";
print "$y-$m-$d-$h:$mn:$s\n";
print "$y-$m-${d}T$h:$mn:$s\n";
print "$mmm $d, $y $h:$mn:$s\n";
print "$m/$d/$y $h:$mn:$s\n";
$h += 1;
$h = 0 if ($h > 23);
$mn += 5;
$mn = 0 if ($mn > 59);
}
}
}
# Local Variables:
# mode: cperl
# indent-tabs-mode: nil
# cperl-indent-level: 3
# cperl-continued-statement-offset: 2
# cperl-continued-brace-offset: 0
# cperl-brace-offset: 0
# cperl-brace-imaginary-offset: 0
# cperl-label-offset: 0
# End:
|
