Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: Obtaining The Exact Time

by cacharbe (Curate)
on Oct 08, 2002 at 12:23 UTC ( #203620=note: print w/ replies, xml ) Need Help??


in reply to Obtaining The Exact Time

Just as a "Thinking Outside the Box" exercise, you can always get the time from the NIST, available from any and all of the mirrors mentioned here.

use strict; my $host = '129.6.15.28'; my $port = '13'; my $sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port, Proto => 'TCP'); die "Couldn't connect to $host on $port: $!\n" unless $sock; scalar <$sock>; my $time = scalar <$sock>; $sock->close; print $time."\n"; # $time has the format: #JJJJJ YR-MO-DA HH:MM:SS TT L H msADV UTC(NIST) OTM
*shrug* It just happens to be something I'm working on for another project.

C-.

---
Flex the Geek


Comment on Re: Obtaining The Exact Time
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://203620]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (6)
As of 2014-12-29 11:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (186 votes), past polls