作者cutecpu (可爱中央处理器)
看板Perl
标题Re: [问题] 字串比对的问题(找不到写错的地方)
时间Wed Feb 11 21:54:54 2009
#!/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
1F：推 adu:trying... 02/11 23:40
2F：推 adu:谢谢c大的回覆！ 也发现自己写错了XD 02/12 19:36
3F：推 adu:现在改很大..Orz 02/13 00:54