22 lines
432 B
Perl
Executable File
22 lines
432 B
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
die "usage:perl $0 input output\n" unless @ARGV==2;
|
|
|
|
open IN,"$ARGV[0]";
|
|
open OUT,">$ARGV[1]";
|
|
|
|
my $head=<IN>;
|
|
chomp $head;
|
|
my @head=split("\t",$head);
|
|
print OUT join("\t",(@head[0..4],"copy",@head[5..9])),"\n";
|
|
|
|
while(<IN>){
|
|
chomp;
|
|
my @line=split(/\t/,$_);
|
|
my $cn=sprintf("%.2f",2**(1+$line[4]));
|
|
if($cn<=1 or $cn>=3.5){
|
|
print OUT join("\t",(@line[0..4],$cn,@line[5..9])),"\n";
|
|
}
|
|
}
|