【Perl】初心者コーナー Part12
■ このスレッドは過去ログ倉庫に格納されています
0561nobodyさん
02/05/08 19:45ID:???URIエスケープしてなくない?
printf qq(<a href="%s">次の10件</a>), URI_Escape($search_value);
### URIエスケープ文字列を返す
sub URI_Escape {
my($string) = @_[0];
$string =~ s/(\W)/'%' . unpack('H2', $1)/eg;
return ($string);
}
■ このスレッドは過去ログ倉庫に格納されています