Shell Programming and Scripting

 
while( $line = <FILE>){
 chomp ($line);
  my ($fdate,undef)= split(" ",$line);
 #print "$fdate $cdate\n";
 if ($fdate =~ /$curr_date/  && $line =~ m/TV)  {
  $tv++;
  #$nextline = <FILE>;
  my $next =<FILE>;
  
  if ($next =~ m/W_NO/){
   print "$next\n";
   $line = $next
   
   }
  }

use Date::Calc qw/Delta_YMDHMS/;

open my $fh , '<' ,"abc.txt" || die "$!";

my ($start_date,$start_time,$end_date,$end_time);
while(<$fh>) {
        chomp;
        if ($start_date){
                if (m/(\d{2}\/\d{2}\/\d{4})\s+(\d{2}\:\d{2}\:\d{2})\s+W_NO\s+value=(.*)$/){
                        $end_date = $1;
                        $end_time = $2;
                        my $value = $3;
                        print "$start_date\t$start_time \n$end_date\t$end_time \n";
                        my ($sdate,$smon,$syear) = split("\/",$start_date);
                        my ($edate,$emon,$eyear) = split("\/",$end_date);

                        my ($diff_year,$diff_mon,$diff_days, $diff_hours,$diff_min,$diff_sec) = Delta_YMDHMS($syear,$smon,$sdate,split(":",$start_time),$eyear,$emon,$edate,split(":",$end_time));
                        print "$value \t $diff_year,$diff_mon,$diff_days, $diff_hours,$diff_min,$diff_sec\n";
                        $start_date = '';
                }
        }
        else  {
                if (m/^(\d{2}\/\d{2}\/\d{4})\s+(\d{2}\:\d{2}\:\d{2})\s+TV$/){
                        $start_date = $1;
                        $start_time = $2;
                }
        }
}

#!/usr/bin/perl
$tv=0;
$wo=0;
@start=();
@stop=();
while (<>) {
  chomp;
  @stuff=split /\s/;
  if (/TV/ ) {
    $start[$tv++]="$stuff[0] $stuff[1]";
  }
  if (/W_NO/) {
    $stop[$wo++]="$stuff[0] $stuff[1]";
  }
}
$x=0;
foreach (@start) {
  print "$_ $stop[$x++]\n";
}

$ awk '/TV/,/W_NO/' urfile |awk -F[\"] '/value/ {print $2}'
A00005FF.rf
A00008FF.rf
A070058FF.rf
A077758FF.rf