Shell Programming and Scripting

use strict;
use warnings;
use Time::Local;
open (IN, '<', 'c:/perl_test/testlog.txt') or die "$!";
my @sorted = map {$_->[0]}
             sort {$a->[1] cmp $b->[1] || $a->[2] cmp $a->[2] || epoch($a->[3]) <=> epoch($b->[3]) }
             map {chomp; [ $_,(split(/\|/))[0,1,3] ];} <IN>;
close (IN);
print "$_\n" for @sorted;


{
   my %months = (Jan=>0,Feb=>1,Mar=>2,Apr=>3,May=>4,Jun=>5,Jul=>6,Aug=>7,Sep=>8,Oct=>9,Nov=>10,Dec=>11);
   sub epoch {
      my ($date) = $_[0];
      my ($mon,$mday,$hour,$min) = split(/[\s:]/,$date);
      $mday =~ tr/a-zA-Z//d;
      return timegm(0,$min,$hour,$mday,$months{$mon},0);
   }
}

open FH,"<a.txt";
my @arr=<FH>;
sub usersort{
	my @t1=split(" ",$_[0]);
	my @t2=split(" ",$_[1]);
	my $a=sprintf("%s%s%s",$t1[0],$t1[1],$t1[3]);
	my $b=sprintf("%s%s%s",$t2[0],$t2[1],$t2[3]);
	return $a cmp $b;
}
print sort {usersort($a,$b)} @arr;