print map "$_\n", reverse 1903..(1900 + (localtime)[5]);
[download]

-- Randal L. Schwartz, Perl hacker

open(MAIL, "|/usr/lib/sendmail timekeeper@superaccurateclock.com");
print MAIL <<END;
From: Number Printer <numprint\@printnum.com>
Subject: What Year is it?

Please enter the year below and reply.
Year:
END
close(MAIL);
# ok, now watch our mail spool for the answer

open(SPOOL, "tail -f /var/mail/spool/numprint |");
while(<SPOOL>) {
  if(/Year: (\d+)/) { $year = $1; last; }
}
close(SPOOL);

# now we know for sure what year it is, we can use any
# of the other suggestions to print the numbers
[download]

How 1999. Why not be buzz-word compliant and use SOAP?

use SOAP::Lite;
$year = SOAP::Lite
           -> uri('http://www.yearknower.com/Year')
           -> proxy('http://soap.yearnknower.com/year.cgi')
           -> get_this_year
           -> result;
[download]

-sam

PS: Am I the only one that finds the OO calling style of the SOAP::Lite POD (shown above) bizarre? Is there any known precident or did the author invent it?

Really good! I like your approach! And I think that robobunny got the point: if getting the right time is critical, you can't rely on yourself.

Another solution would be to synchronize your server by means of the NTP protocol, which is the best way IMHO. I studied the principles of the protocol to implement a synchronization subnet for my job, and I was greatly surprised of how much statistical studies they put in; that makes NTP a higly-reliable protocol!

Even if you don't want to invest a little to install a NTP server on your machine, you could take a look at the list of stratum 2 NTP servers and check if at least one of them offers the service by means of the daytime protocol too. To check, you can telnet to the tcp port 13 (i.e.: do a telnet host 13) and check if you get an output like:

bronto@cooper:/tmp$ telnet myTimeServer 13
Trying 192.168.1.234...
Connected to myTimeServer.
Escape character is '^]'.
Wed Jun 26 11:01:08 2002
Connection closed by foreign host.
[download]

If so, you can get the current year using just Perl and Net::Telnet!

Ciao!
--bronto

PS: if reading a document in italian language doesn't bother you, I can send a PDF doc I wrote about NTP and our synchronization subnet to anyone interested in. Just let me know!

# Another Perl edition of a song:
# The End, by The Beatles
END {
  $you->take($love) eq $you->made($love) ;
}

#!/usr/bin/perl
use strict;
use warnings;

my $year = (localtime(time))[5];
print 1900+$year--,$/ while $year >= 3;
[download]

~Particle *accelerates*

use strict;
my $val = sprintf("%4d", (localtime(time))[5]+1900);
while ($val >= 1903) {
  print "\nval : $val";
    --$val;
}
[download]

for ( reverse 1903..(1900 + (localtime)[5]) ) { print "$_\n"; }
[download]