Re: [問題] 字串比對的問題(找不到寫錯的地方)

[cutecpu (可愛中央處理器)]

#!/usr/bin/perl -w

$str = "GATATATGG";

if ($str =~/(AT){2,}/i) {
        $temp = $&;
        $length = length($temp);
        $rep = $length/2;
        $AT[$rep]++;
};
print $AT[$rep];


※ 引述《adu (^_^)》之銘言：
: 要在一串字串中，將某一種重複的分別依長度列出來，這邊使用AT。
: 以下是有寫錯的程式：
: #/usr/bin/perl -w
: $str = "GATATATGG"
: if ($str =~/AT{2, }/i) {
:         $temp = $&;
:         $length = length($temp)
:         $rep = $length/2;
:         $AT[$rep]++};
: print $AT[$rep];
: 想要他的輸出為AT[3]=1
: 不過找不到哪邊有問題><
: 先謝過版友的回答m(__ __)m

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 218.160.69.101
推 adu:trying...
推 adu:謝謝c大的回覆！ 也發現自己寫錯了XD
推 adu:現在改很大..Orz