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

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

635:デフォルトの名無しさん
06/10/23 14:49:23
>>634
ごめんなさい、わからないんです。
とりあえず、ここまでは出来ました
「開始」と「終了」に挟まれる$1を抽出した後、その$1をURL形式に変えてアドレスにして置き換えていきたいんです。

例えば
$in{'data'}="開始なにか終了hogehogehoge開始てすと終了"だったとしたら
これが

$in{'data'}="<a href=URLﾘﾝｸ(hoge.com)なにか</a>hogehogehoge<a href=URLﾘﾝｸ(hoge.com)てすと</a>"

みたいな形式に置き換えたいんです

use URI::Escape;
$START="開始";
$END="終了";
$SEARCHADD="URLﾘﾝｸ(hoge.com)

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;
}

次ページ

続きを表示

1を表示