安徽屯溪，哈尔滨的雪地，扬州的瘦西湖，想必知道我是谁了吧！！对，小金思密达
发布时间：2015-11-26 20:41:33
#!/usr/bin/perl $example = <<e>A|c21852_g1f1XXXXXX>B|10011958mXXXXXX>C|311240XXXXXX>D|AT1G01880XXXXXX............E;open IN,"<FILE";<file";<rr.faa.muscle";open OUT,">result";while (){chomp;if(/^>/){ $key =$_;}else{$hash{$key}.=$_}}foreach $line(keys %hash){ chomp$line; .........【阅读全文】
发布时间：2015-11-26 20:39:03
#!/usr/bin/perl #open IN,'<','FILE';open OUT,">Result";while (<IN>){chomp;@arr = split(/\s+/,$_);$title = shift @arr;$num = pop @arr;$other = join("\t",@arr); if($hash{$title}){ if ($num > $hash{$title}){ &nbs.........【阅读全文】
