File: enum

package info (click to toggle)
sdate 0.7
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, forky, sid, trixie
  • size: 212 kB
  • sloc: sh: 3,027; ansic: 146; makefile: 39; perl: 18
file content (13 lines) | stat: -rwxr-xr-x 334 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl -w

use strict;
use POSIX qw/mktime/;

my $epoch = mktime(0, 0, 0, 31, 7, 93, 0, 0, 0); # 1993-08-31
#my $epoch = mktime(0, 0, 0, 28, 1, 77, 0, 0, 0); # 1977-02-28

foreach my $d (0 .. 38888) {
	my $time = $epoch + 86400 * $d;
	my $day = (localtime($time))[3];
	print "$d != ". localtime($time) ."\n" if $d != $day;
}