Perlでリクに答えるスクリプトを作るスレ

Perlでリクに答えるスクリプトを作るスレ at TECH

638:デフォルトの名無しさん
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;

次ページ

続きを表示

1を表示