eplog2date

   1 #!/usr/bin/env perl
   2
   3 #==========================================================================
   4 # eplog2date
   5 # File ID: 758b4ab0-5d39-11df-b823-90e6ba3022ac
   6 #
   7 # Konverterer antall sekunder sia 1970-01-01T00:00:00Z i begynnelsen av
   8 # ei linje til ååååmmddTttmmssZ, det er mer oversiktlig. Tallene må ha 9
   9 # eller 10 siffer. Med andre ord funker det greit fra og med 1973-03-03
  10 # 09:46:40 GMT til 2286-11-20 17:46:39 GMT.
  11 #==========================================================================
  12
  13 use strict;
  14 use warnings;
  15
  16 $| = 1;
  17
  18 my @TA;
  19
  20 while (<>) {
  21         s/^(\d{9,10})\b/@TA = gmtime($1),sprintf("%04u%02u%02uT%02u%02u%02uZ", $TA[5]+1900, $TA[4]+1, $TA[3], $TA[2], $TA[1], $TA[0])/ge;
  22         print $_;
  23 }