| 12345678910 |
- #!/usr/bin/perl --
- # I hereby place this in the public domain - Ian Jackson, 1995.
- @ARGV && die "usage: 822-date\n";
- $x=time; sub z { $_[1]+$_[2]*60; }; @l=localtime($x); $od=1440;
- $d=&z(@l)-&z(gmtime($x)); $d+=$od; $d%=$od; $s=$d>$od/2?($d=$od-$d,'-'):'+';
- printf("%s, %d %s %d %02d:%02d:%02d %s%02d%02d\n",
- (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[$l[6]], $l[3],
- (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$l[4]], $l[5]+1900,
- $l[2],$l[1],$l[0], $s,$d/60,$d%60) || die "822-date: output error: $!\n";
|
