- 博客(2)
- 资源 (9)
- 收藏
- 关注
原创 按文件数目拆分fasta——无事闲写
#!/usr/bin/env perluse warnings;use strict;die "Usage: perl $0 \n" if(@ARGV ne 3);open FA, $ARGV[0] or die $!;$/ = "\n>";my @fa;while(){chomp;s/^>//;push @fa, $_;}
2014-07-15 10:01:35 2585
原创 fasta统计——无事闲写
多发点无事之作得了:#!/usr/bin/env perluse warnings;use strict;die "Usage: perl $0 \n" if(@ARGV ne 1);open FA, $ARGV[0] or die $!;$/ = "\n>";my ($sl, $sg, $sc, %hash);while(){ chomp; s/^>//; my @
2014-07-11 09:48:03 1587
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人