Perlでリクに答えるスクリプトを作るスレ
■ このスレッドは過去ログ倉庫に格納されています
0635デフォルトの名無しさん
2006/10/23(月) 14:49:23ごめんなさい、わからないんです。
とりあえず、ここまでは出来ました
「開始」と「終了」に挟まれる$1を抽出した後、その$1をURL形式に変えてアドレスにして置き換えていきたいんです。
例えば
$in{'data'}="開始なにか終了hogehogehoge開始てすと終了"だったとしたら
これが
$in{'data'}="<a href=http://hoge.com/hoge.cgi?keyword=%42%28%39>なにか</a>hogehogehoge<a href=http://hoge.com/hoge.cgi?keyword=%32%86%26>てすと</a>"
みたいな形式に置き換えたいんです
use URI::Escape;
$START="開始";
$END="終了";
$SEARCHADD="http://hoge.com/hoge.cgi?keyword=";
while ($in{'data'}=~ m/$START(.*)$END/g) {
$output = $1;
$urikeyoutput = uri_escape($output);
$in{'data'} =~ s/$START$output$END/<a href=$SEARCHADD$urikeyoutput>$output<\/a/g;
}
■ このスレッドは過去ログ倉庫に格納されています