File: filterAllZero.pl

package info (click to toggle)
snpeff 5.4.b%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 757,496 kB
  • sloc: java: 62,572; perl: 2,279; sh: 1,185; python: 744; xml: 507; makefile: 50
file content (13 lines) | stat: -rwxr-xr-x 198 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl

while( $l = <STDIN> ) {
	chomp $l;
	@t = split /\t/, $l;

	$show=0;
	for( $i=2 ; (! $show) && ($i <= $#t); $i++ ) {
		if( $t[$i] != 0.0 ) { $show=1; }
	}

	print "$l\n" if $show;
}