新人求助，请各位大神帮帮忙！！！万分感谢！

旋转小马

或者我直接不用那个压缩包不行吗？回复 10# pitonas


   

旋转小马

读取文件时我直接不用压缩包不行吗？回复 10# pitonas


   

mcshell

1. $_ = do{local $/;<DATA>};
   
2. while(/(@.*([\s\S]+?)\+\s*\S+)/g){
   
3.     my $h;
   
4.     my @m = split//,$2;
   
5.     $h->{$_}++ for @m;
   
6.     next if($h->{'A'} >= 40||$h->{'T'}>= 40);
   
7.     print $1;
   
8. }
   
9. __DATA__
   
10. ..
    

复制代码

{:3_196:}

pitonas

回复 11# 旋转小马

please

1.   use PerlIO::gzip;
   
2.   open FOO, "<:gzip", "file.gz" or die $!;

复制代码

pitonas

回复 13# mcshell

我惊呆了{:3_202:}
   

旋转小马

哇哦，谢谢，这样能实现了！回复 14# pitonas


   

pitonas

回复 13# mcshell


    大神,我和我的小伙伴们求解释 {:3_202:} {:3_202:}

ghoull

两位大神果然厉害！都看明白了         
mcshell 的 print $1;加个换行符才行 不然 不会换行