UNIX for Dummies Questions & Answers

File1.txt
JOB1 10/09/2013  17:42:16 10/09/2013  17:43:46 SU 6202685/1
JOB2 10/09/2013  18:05:17 10/09/2013  18:06:30 SU 6202787/1
JOB3 10/10/2013  00:05:19 10/10/2013  00:06:42 SU 6204211/1
JOB4 10/10/2013  03:05:15 10/10/2013  03:06:19 SU 6204847/1
JOB5 10/16/2013  06:05:13 10/15/2013  20:05:45 SU 3142148/1

#! /bin/bash

while read a d1 t1 d2 t2 b
do
    s=$(date -d "$d1 $t1" +%s)
    e=$(date -d "$d2 $t2" +%s)
    if [ $e -ge $s ]
    then
        echo "$(( e - s ))s"
    else
        echo "$(( s - e ))s"
    fi
done < file

perl -e '
use Time::Local;
while (<>) {
   print $_;
   @a=split(/  */, $_);
   @d1=split(/[\/:]/, @a[1]. ":" . @a[2]);
   @d2=split(/[\/:]/, @a[3]. ":" . @a[4]);
   $t1=timegm(@d1[5],@d1[4],@d1[3],@d1[1],@d1[0],@d1[2]);
   $t2=timegm(@d2[5],@d2[4],@d2[3],@d2[1],@d2[0],@d2[2]);
   $td=$t2 - $t1;
   print $td . "\n";
}' infile