来个小程序perl如下序列:E078 10 CTACATCCAACA 21 100E034 10 ATCCACATCAA

my $E_num = 0;
my $E_total = 0;
my $res = 0;
while ()
{
if ($_ =~m/^E012.*?/g)
{
$E_num = $E_num + 1;
print $_;
}
if ($_ = ~m/^E.*?/g)
{
$E_total = $E_total +1;
}
}
$res = $E_num/$E_total;
print "占据率：$res（E012有 $E_num个,E开头行有$E_total个,故$res）";
以上假设命令行文件读取,可以参照自行修改
再问： 谢谢你，新年快乐。。 #!usr/bin/perl -W open IN,"E文件.txt"; open OUT,">E结果文件.txt"; my $E_num = 0; my $E_total = 0; my $res = 0; while (){ if ($_ =~m/^E012.*?/g) { $E_num = $E_num + 1; print OUT $_; } if ($_ = ~m/^E.*?/g) { $E_total = $E_total +1; } } $res = $E_num/$E_total; print OUT "占据率：$res";
再答： 这个有点小错误：修改下吧！ 1.open OUT,">E结果文件.txt";这句改成 open OUT,">>E结果文件.txt"; 2.while (){ 这句改成 while (){ 最后关闭文件： close(IN); close(OUT);