Shell Programming and Scripting

 
IMAHDR tsmdsl01 EMBS_DAT 20120911 20120911
233656S000000000000000 001

#!/usr/bin/perl

use strict;

use Date::Calc qw(:all);

while (<DATA>) {
chomp;
last unless $. == 1;
my @flds=split;
my ($year,$month,$day, $hour,$min,$sec) = Today_and_Now();

my $year1=substr($flds[4],0,4);
my $month1=int(substr($flds[4],4,2));
my $day1=int(substr($flds[4],-2));

print "Difference is - ", Delta_Days($year1,$month1,$day1,$year,$month,$day),"\n";

}

__DATA__
IMAHDR tsmdsl01 EMBS_DAT 20120911 20120911
233656S000000000000000 001