删除异常点，异常点的文本文档存在out.txt;

原始文件为structure 格式，保持输出为structure 格式
 1 #!/usr/bin/perl
 2 open IN,"/~~~~~~~~~/out.txt";
 3 open IN2,"/~~~/*.str";
 4 my $outfile="/lustre/home/xiaojianhua/console/test.txt";
 5 open(OUT,">>test.txt") or die "cannnot open that file";
 6 my $outfile=<>;
 7
 8 my @text=<IN>;
 9 print $#text;
10 my @text1=sort{$a<=>$b} @text;
11     while(<IN2>){
12        chomp;
13        my @x=split/\t/;
14        for($i=-2;$i<=9106;$i++){
15       if(grep{$i==$_}@text1){
16       }
17      else{
18       $z=$i+2;
19       print "$x[$z]t";}
20 }
21 print "n";
22 }
23