#!/bin/perl

my @appname,@date;
my $i=0, $j=0;
my $temp;
open FPR, file or die 'Error : Could not open the file';

while(<FPR>){
  chomp;
  if(/Appname/){
    ($temp, @appname[$i++])=split(/:/);
    @appname[$i-1] =~ s/^ //;
  }
  if(/Date/){
    ($temp, @date[$j++])=split(/Time/);
    @date[$j-1] =~ s/^://;
    @date[$j-1] =~ s/^ //;
  }
}
close(FPR);

open FPW, ">/tmp/mail" or die 'Error : Could not open the file';
for($j=0;$j<$i;$j++){
print FPW "@date[$j] : @appname[$j]\n";
}
close(FPW);

system("cat /tmp/mail | mail -s \"Subject Goes here\" ahamed\@ahamed.com");

unlink "/tmp/mail";

#!/bin/perl

my @appname,@date,@alerbody,@datalen;
my $i=0, $j=0, $k=0, $l=0, $m=0;
my $temp;
open FPR, file or die 'Error : Could not open the file';
while(<FPR>){
  if(/Alert/){
    $l=$l+1;
  }
  @alertbody[$k++]=$_;
  @datalen[$l]=$k;
  chomp;
  if(/Appname/){
    ($temp, @appname[$l])=split(/:/);
    @appname[$l] =~ s/^ //;
  }
  if(/Date/){
    ($temp, @date[$l])=split(/Time/);
    @date[$l] =~ s/^://;
    @date[$l] =~ s/^ //;
  }
}
close(FPR);
open FPW, ">/tmp/mail" or die 'Error : Could not open the file';
for($j=1;$j<=$l;$j++){
  print FPW "=======================START===============================\n";
  print FPW "@date[$j] : @appname[$j]\n";
  print FPW "===========================================================\n";
  for($i=$m;$i<@datalen[$j];$i++){
    print FPW @alertbody[$i];
  }
  $m=@datalen[$j]+1;
  print FPW "=======================END=================================\n\n";
}
close(FPW);
system("mail -s \"The Earth\" ahamed\@ahamed.com < /tmp/mail");
unlink "/tmp/mail";