Re: [問題] 字串比對的問題(找不到寫錯的地方)
#!/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
推
02/11 23:40, , 1F
02/11 23:40, 1F
推
02/12 19:36, , 2F
02/12 19:36, 2F
推
02/13 00:54, , 3F
02/13 00:54, 3F
Perl 近期熱門文章
PTT數位生活區 即時熱門文章