File: day

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 (17 lines) | stat: -rwxr-xr-x 306 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/usr/bin/perl -w

use strict;

print "Sun Apr 24 00:52:39 2005 CET = 1993-08-31 +4254days\n";

my $time = 1114296759;
#my $time = 746755200 + 30*86400;

my $end = $time + 100000;

for (; $time < $end; $time += 3600) {
	print scalar localtime $time;
	print " ";
	print scalar gmtime $time;
	print "\n";
}