- 638 名前：デフォルトの名無しさん mailto:sage [2006/10/23(月) 16:53:05 ]
- >>637
while ($in{'data'}=~ m/$START(.*)$END/g) { ... の中で更に
$in{'data'} =~ s/$START$output$END/ ... なんてしてるから
マッチ開始位置がおかしな事になる。下の一文で済む。
$in{'data'} =~ s{\Q$START\E(.*?)\Q$END\E} {
my $url = $1;
my $query = uri_escape($url);
qq|<a href="$SEARCHADD$query">$url</a>|;
}eg;
