Shell Programming and Scripting

DT="20160219T05:21:59+0100"
date -d"${DT/T/ }" +"%d-%b-%Y %T"
19-Feb-2016 05:21:59

#!/usr/bin/perl -w
use POSIX qw(strftime);

$_ = "20160219T05:21:59+0100";

if (m/(\d{4})(\d{2})(\d{2})T(\d+):(\d+):(\d+)\+\d{4}/) {
   print strftime("%d-%b-%Y %T\n", $6,$5,$4,$3,$2-1,$1-1900);
}

#!/usr/bin/perl -w
use POSIX qw(strftime);

$DT = "20160219T05:21:59+0100";

if ($DT =~ m/(\d{4})(\d{2})(\d{2})T(\d+):(\d+):(\d+)\+\d{4}/) {
   my($y, $mt, $d, $h, $m, $s) = ($1, $2, $3, $4, $5, $6);
   print strftime("%d-%b-%Y %T\n", $s, $m, $h, $d, $mt-1, $y-1900);
} else {
   print "Illegal date format $DT\n";
}