Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re^5: Display Specific Time on Any PC.

by kennethk (Monsignor)
on Mar 24, 2014 at 21:51 UTC ( #1079599=note: print w/ replies, xml ) Need Help??


in reply to Re^4: Display Specific Time on Any PC.
in thread Display Specific Time on Any PC.

#!/usr/bin/perl -w use strict; use DateTime; my $dt = DateTime->from_epoch( epoch => time() )->set_time_zone('Ameri +ca/Los_Angeles'); print $dt->hms(':');
prints the current time in Los Angeles.
#!/usr/bin/perl -w use strict; use DateTime; my $dt = DateTime->from_epoch( epoch => 1395697655 )->set_time_zone('E +urope/Rome'); print $dt->hms(':');
prints what time it was in Rome when I wrote this code. You need two pieces of data:
  • Time zone for output
  • Time stamp to output
and then you can output whatever time any computer thought it was, translated into local time. If this is not what you need, then I'm misunderstanding your spec. Please give specific data for what you expect to see.

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.


Comment on Re^5: Display Specific Time on Any PC.
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (14)
As of 2014-11-27 11:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (183 votes), past polls