ep

   1 #!/usr/bin/env perl
   2
   3 #==========================================================================
   4 # ep
   5 # File ID: e8bf0ac2-5d38-11df-bd44-90e6ba3022ac
   6 #
   7 # Konverterer tekststrenger som ser ut som antall sekunder siden
   8 # 1970-01-01 00:00:00 GMT om til leselig datoformat. Konverterer alle tall
   9 # som har 9 og 10 siffer. Med andre ord funker det greit fra og med
  10 # 1973-03-03 09:46:40 GMT til 2286-11-20 17:46:39 GMT.
  11 #==========================================================================
  12
  13 use strict;
  14 use warnings;
  15 use Getopt::Std;
  16
  17 our ($opt_D, $opt_d, $opt_h, $opt_l, $opt_s, $opt_t) =
  18     (   "T",    "-",      0,      0,      0,    ":");
  19 getopts('D:d:hlst:');
  20
  21 $| = 1;
  22
  23 if ($opt_h) {
  24         print(<<END);
  25
  26 Syntax: $0 [valg] [filer [...]]
  27
  28 Konverterer tekststrenger som ser ut som antall sekunder siden
  29 1970-01-01 00:00:00 GMT om til mer leselig datoformat. Konverterer alle
  30 tall som har 9 og 10 siffer. Med andre ord funker det greit fra og med
  31 1973-03-03 09:46:40 GMT til 2286-11-20 17:46:39 GMT.
  32
  33 Standard format er "åååå-mm-ddTtt:mm:ssZ".
  34
  35 Valg:
  36
  37 -h  Hjelpings.
  38 -l  Skriv datoen som lokal tid istedenfor GMT.
  39 -s  Kortformat: "ååååmmddTttmmssZ" eller "ååååmmddTttmmss" alt ettersom
  40     hvor lokal man skal være.
  41
  42 Skilletegn kan spesifiseres: ååååAmmAddBttCmmCss
  43
  44 -d A  (Standard: "$opt_d")
  45 -D B  (Standard: "$opt_D")
  46 -t C  (Standard: "$opt_t")
  47
  48 END
  49         exit(0);
  50 }
  51
  52 my @TA;
  53
  54 my ($d_sep, $D_sep, $t_sep) = $opt_s ? ("", "T", "") : ($opt_d, $opt_D, $opt_t);
  55
  56 # Ligger dobbelt opp for å få opp farta litt.
  57 if ($opt_l) {
  58         while (<>) {
  59                 s/\b(\d{9,10})\b/@TA = localtime($1),sprintf("%04u$d_sep%02u$d_sep%02u$D_sep%02u$t_sep%02u$t_sep%02u", $TA[5]+1900, $TA[4]+1, $TA[3], $TA[2], $TA[1], $TA[0])/ge;
  60                 print $_;
  61         }
  62 } else {
  63         while (<>) {
  64                 s/\b(\d{9,10})\b/@TA = gmtime($1),sprintf("%04u$d_sep%02u$d_sep%02u$D_sep%02u$t_sep%02u$t_sep%02uZ", $TA[5]+1900, $TA[4]+1, $TA[3], $TA[2], $TA[1], $TA[0])/ge;
  65                 print $_;
  66         }
  67 }
  68
  69 # End of file ep