diff options
| -rwxr-xr-x | unixtime.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/unixtime.pl b/unixtime.pl index d6bb1d8..2675634 100755 --- a/unixtime.pl +++ b/unixtime.pl @@ -4,18 +4,22 @@ use Time::HiRes qw( gettimeofday ); if (defined $ARGV[0]) { if ($ARGV[1] eq "ms") { + #Convert from timestamp in milliseconds to date $seconds = substr $ARGV[0], 0, 10; $milliseconds = substr $ARGV[0], 10, 3; $date = strftime('%a %b %e %H:%M:%S:'.$milliseconds.' %Z %Y', localtime( $seconds ) ) . "\n"; print $date; } elsif ($ARGV[0] eq "ms") { + #Print current millisecond unix timestamp ($seconds, $microseconds) = gettimeofday; $milliseconds = substr $microseconds, 0, 3; print $seconds . $milliseconds . "\n"; } else { + #Convert standard unix timestamp to date print strftime('%a %b %e %H:%M:%S %Z %Y', localtime( $ARGV[0] ) ) . "\n"; } } else { + #Print current standard unix timestamp print time . "\n"; } |