Shell Programming and Scripting

#using a variable to keep track of the previously processed file
my $prev = "";

open(OUTPUT, ">>", "output.txt");

while (1) {

#Make it as ever running process

$file = `ls -lrt | awk '/SMSCDR/ { before = curr; curr = \$9 }END{ print before }'`; 

#select the file which is last but one
#include one more check, 

whether we are attempting to process an already processed file or not
next if ( $file =~ /tmp/ || $file eq $prev );

#if its the 'tmp' file dumper process is still active so don't process it else continue processing

open (FILE, "<", $file) or die  "Unable to open file $file <$!> \n";

#open the file and start processing

while(<FILE>) {
chomp;
my @arr = split(/></);
foreach (@arr) {
if( /xml version/ ) {
$c++;
print OUTPUT "\n";
}
if( />/ && /</ ) {
if( $c == 1 ) {
s/(.*)>(.*)<.*$/1|2/;
my($tmp1, $tmp2) = split(/|/);
$data .= (" " . $tmp2);
printf OUTPUT "%s ", $tmp1;
}
else {
s/(.*)>(.*)<.*$/2/;
printf OUTPUT "%s ", $_;
}
}
}
print OUTPUT "\n";
print OUTPUT "$data\n" if( /xml version/i );
}

close (FILE);

#Assign the current processed file to the prev variable, 
#so that previously processed file is stored in prev
$prev = $file;

#continue with while loop, by this time dumper process might have completed and next file ready for processing
}

close(OUTPUT);

exit 0;

<?xml version="1.0"?><message><sbr version="1.0"><appid>Messaging</appid><custid>adm_root_provider</custid><callid>032147109</callid> <trmid>5</trmid><portid>16</portid> <callstart>12/11/2007 15:16:46</callstart><callend>12/11/2007 15:17:30</callend><chstart>12/11/2007 15:16:47</chstart><chend>12/11/2007 15:17:30</chend><type>1</type><status>0</status><called>
</called><callreturnused></callreturnused><nonsubused>0</nonsubused></sbr></message><?xml version="1.0"?>

#! /usr/local/bin/perl 

my $c = 0;

open(OUTPUT, ">>", "result.txt");
#chomp(@inputfayl = `cat file.txt`);
chomp(@inputfayl = `ls -lrt | awk '/SMSR/ { before = curr; curr = \$9 }END{ print before }'`);
#system("echo $inputfayl >> newfile.txt");
# if (compare("newfile.txt","oldfile.txt") == 0) {
   while (<@inputfayl>) {
      if (/SMSR/) {
        $inputfayl=$_;
        system("echo $inputfayl >> newfile.txt");
          use File::Compare;
           if (compare("newfile.txt","oldfile.txt") == 1) {
          print OUTPUT "$inputfayl ##########################################################################################\n";
          &processi; 
      }
      else {
      print "wala";
      system("rm newfile.txt");

    }
    }
}
sub processi { 
open inputfayl or die "Cannot open file for read :$!";

while(<inputfayl>) {
  chomp;
    my @arr = split(/></);
    foreach (@arr) {
    if( /xml version/ ) {
      $c++;
      print OUTPUT "\n";
    }
    if( />/ && /</ ) {
      if( $c == 1 ) {
        s/(.*)>(.*)<.*$/\1|\2/;
        my($tmp1, $tmp2) = split(/\|/);
        $data .= (" " . $tmp2);
        printf OUTPUT "%s ", $tmp1;
      }
      else {
        s/(.*)>(.*)<.*$/\2/;
        printf OUTPUT "%s ", $_;
      }
    }
  }
  print OUTPUT "\n";
  print OUTPUT "$data\n" if( /xml version/i );
}

close inputfayl;

system("rm oldfile.txt");
system("mv newfile.txt oldfile.txt");
#exit 0
}
exit 0