generate_final_report.coding.rc.pl

#!/usr/bin/perl

use strict;
use warnings;
die unless @ARGV == 1;
my ($run_dir)=@ARGV;

my $working_name= (split(/\//,$run_dir))[-1];

my $f_sum=$run_dir."/".$working_name.".rc.coding.maf\n";
my $f_status=$run_dir."/".$working_name.".rc.coding.status\n";

open(OUT1,">$f_sum");
open(OUT2,">$f_status"); 

my $head_w=0;

foreach my $d (`ls $run_dir`)
{
  	my $dtr=$d; 
	chomp($dtr); 
	my $f_maf=$run_dir."/".$dtr."/".$dtr.".rc.maf"; 
	if(-e $f_maf) 
	{
		my $count=0;
		foreach my $l (`cat $f_maf`) 
		{ 
			my $ltr=$l; 
			chomp($ltr); 
			if(($ltr=~/version/ || $ltr=~/^Hugo/) && $head_w==1)  { next; } 
			else { 
			if($ltr=~/^Hugo/) { $head_w=1; print OUT1 $ltr,"\n"; } 
			else { 
				my @temp=split("\t",$ltr); 
				my $annot=$temp[8];
				if($annot=~/Frame_Shift_Del/ || $annot=~/Frame_Shift_Ins/ || $annot=~/Missense_Mutation/ || $annot=~/Nonsense_Mutation/ ||  $annot=~/Nonstop_Mutation/ || $annot=~/Silent/ || $annot=~/Splice_Site/ || $annot=~/In_Frame_Ins/ || $annot=~/In_Frame_Del/) {
					print OUT1 $ltr,"\n"; 
					$count++;
					} 
				} 
        		}
      	}
		print OUT2 $count,"\t",$f_maf,"\n";
	} 
  }


close OUT1;
close OUT2;