ids_noirn.pl
No OneTemporary
Actions

Size

737 B

Subscribers

None

ids_noirn.pl
View Options

	#!/bin/perl
	$n = 0;
	while ($line = <>){
	$n = $n + 1;
	chomp $line;
	($ref[$n],$red[$n],$part[$n],$irn[$n],$rec[$n],$rest[$n]) = split /\t/,$line,6;
	}

	if($ref[1] eq $ref[2]){
	print $ref[1],"\t",$red[1],"\t",$part[1],"\t",$irn[1],"\t",$rec[1],"\n";
	}

	$nn = $n - 1;
	foreach(2..$nn){
	$a = $_ - 1;
	$b = $_;
	$c = $_ + 1;
	if( ($ref[$b] eq $ref[$a]) \|\| ($ref[$b] eq $ref[$c])){
	# if($irn[$b] > 0 ){
	if($irn[$b] == 0 ){
	print $ref[$b],"\t",$red[$b],"\t",$part[$b],"\t",$irn[$b],"\t",$rec[$b],"\n";
	}
	}
	}
	if($ref[$n] eq $ref[$nn]){
	print $ref[$n],"\t",$red[$n],"\t",$part[$n],"\t",$irn[$n],"\t",$rec[$n],"\n";
	}

	exit(0);