按类别查询搜索结果
关于关键词 "云计算" 的检测结果,共 1
jhh130910 | 2015-04-21 08:16:00 | 阅读(90) | 评论(0)
#!/usr/bin/perl -w use strict; #use Perl::Tidy; #use Getopt::Long; my ($head,%h,$key,$len,@len_arr,$total,$num,$sub_count,$first); print "input your sequence file name,then press Enter!\n"; $first=<STDIN>; open IN,"<$first"; while (<IN>){ chomp; if(/^>/){ $head=$_;}else{$h{$head}.=$_}【阅读全文】