deep

   1 #!/usr/bin/env perl
   2
   3 # deep
   4 # File ID: 48bdd3dc-5d38-11df-9f9a-90e6ba3022ac
   5 # Omvendt av ep(1).
   6
   7 use strict;
   8 use warnings;
   9 use Time::Local;
  10
  11 while(<>) {
  12         s/(\d\d\d\d)[\-\/]?(\d\d)[\-\/]?(\d\d)[T ](\d\d):?(\d\d):?(\d\d)Z/sprintf("%s", timegm($6, $5, $4, $3, $2-1, $1))/ge;
  13         s/(\d\d\d\d)[\-\/]?(\d\d)[\-\/]?(\d\d)[T ](\d\d):?(\d\d):?(\d\d)/sprintf("%s", timelocal($6, $5, $4, $3, $2-1, $1))/ge;
  14         print;
  15 }