diff options
| -rwxr-xr-x | unixtime.pl | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/unixtime.pl b/unixtime.pl index 08a987a..d6bb1d8 100755 --- a/unixtime.pl +++ b/unixtime.pl @@ -1,4 +1,21 @@ #!/usr/bin/perl use POSIX qw( strftime ); +use Time::HiRes qw( gettimeofday ); + +if (defined $ARGV[0]) { + if ($ARGV[1] eq "ms") { + $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") { + ($seconds, $microseconds) = gettimeofday; + $milliseconds = substr $microseconds, 0, 3; + print $seconds . $milliseconds . "\n"; + } else { + print strftime('%a %b %e %H:%M:%S %Z %Y', localtime( $ARGV[0] ) ) . "\n"; + } +} else { + print time . "\n"; +} -print strftime('%a %b %e %H:%M:%S %Z %Y', localtime( $ARGV[0] ) ) . "\n"; |