06/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;