|
删除异常点,异常点的文本文档存在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
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-10-19 22:12
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社