新人求助，請各位大神幫幫忙�。�！萬分感謝！

旋轉(zhuǎn)小馬

或者我直接不用那個壓縮包不行嗎？回復(fù) 10# pitonas


   

旋轉(zhuǎn)小馬

讀取文件時我直接不用壓縮包不行嗎？回復(fù) 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. ..
    

復(fù)制代碼

{:3_196:}

pitonas

回復(fù) 11# 旋轉(zhuǎn)小馬

please

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

復(fù)制代碼

pitonas

回復(fù) 13# mcshell

我驚呆了{(lán):3_202:}
   

旋轉(zhuǎn)小馬

哇哦，謝謝，這樣能實現(xiàn)了！回復(fù) 14# pitonas


   

pitonas

回復(fù) 13# mcshell


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

ghoull

兩位大神果然厲害！都看明白了         
mcshell 的 print $1;加個換行符才行 不然 不會換行