一定還有更好的方法…. *想*
話說我在進行某非常善良的project，需要做一些字串比對，想當然爾就是用 perl 囉。
正當我使用 REGular EXpression（簡稱 regex）很快樂的時候，發現有些詞沒有比對到，這真是怪事，檔案範例如下：
123JJJ456789JJJ123
456JJJ789
請問裡面有多少個 數字x3JJJ數字x3 咧？
foreach my $line (@lines) {
my $tline = $line;
while ($tline =~ m/(d{3}JJJd{3})/m) {
print $1."n";
$tline = $’;
}
}
my $tline = $line;
while ($tline =~ m/(d{3}JJJd{3})/m) {
print $1."n";
$tline = $’;
}
}