GPSTdate.pm

   1 package GPSTdate;
   2
   3 #=======================================================================
   4 # GPSTdate.pm
   5 # File ID: 624dab98-fafa-11dd-831c-000475e441b9
   6 #
   7 # Character set: UTF-8
   8 # ©opyleft 2002– Øyvind A. Holm <sunny@sunbase.org>
   9 # License: GNU General Public License, see end of file for legal stuff.
  10 #=======================================================================
  11
  12 use strict;
  13 use warnings;
  14
  15 BEGIN {
  16     use Exporter ();
  17     our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
  18
  19     @ISA = qw(Exporter);
  20     @EXPORT = qw(&sec_to_string &sec_to_readable);
  21     %EXPORT_TAGS = ();
  22 }
  23 our @EXPORT_OK;
  24
  25 sub sec_to_string {
  26     # Convert seconds since 1970 to "yyyy-mm-dd hh:mm:ss" with optional
  27     # separator
  28     # {{{
  29     my ($Seconds, $Sep) = @_;
  30     length($Seconds) || return(undef);
  31     ($Seconds =~ /^(\d*)(\.\d+)?$/) || return(undef);
  32     my $Secfrac = ($Seconds =~ /^([\-\d]*)(\.\d+)$/) ? 1.0*$2 : "";
  33     $Secfrac =~ s/^0//;
  34
  35     defined($Sep) || ($Sep = " ");
  36     my @TA = gmtime($Seconds);
  37     my($DateString) = sprintf("%04u-%02u-%02u%s%02u:%02u:%02u%s",
  38                               $TA[5]+1900, $TA[4]+1, $TA[3], $Sep,
  39                               $TA[2], $TA[1], $TA[0], $Secfrac);
  40     return($DateString);
  41     # }}}
  42 } # sec_to_string()
  43
  44 sub sec_to_readable {
  45     # Convert seconds since 1970 to human-readable format (d:hh:mm:ss)
  46     # {{{
  47     my $Seconds = shift;
  48     my ($Day, $Hour, $Min, $Sec) =
  49        (   0,     0,    0,    0);
  50
  51     length($Seconds) || ($Seconds = 0);
  52     ($Seconds =~ /^(\d*)(\.\d+)?$/) || return(undef);
  53     my $Secfrac = ($Seconds =~ /^(\d*)(\.\d+)$/) ? 1.0*$2 : "";
  54     $Secfrac =~ s/^0//;
  55
  56     $Day = int($Seconds/86400);
  57     $Seconds -= $Day * 86400;
  58
  59     $Hour = int($Seconds/3600);
  60     $Seconds -= $Hour * 3600;
  61
  62     $Min = int($Seconds/60);
  63     $Seconds -= $Min * 60;
  64
  65     $Sec = $Seconds;
  66
  67     return(sprintf("%u:%02u:%02u:%02u%s",
  68                    $Day, $Hour, $Min, $Sec, $Secfrac));
  69     # }}}
  70 } # sec_to_readable()
  71
  72 1;