07/10/06 00:07:46
$text=~ s#\[(.*?)\]#my$r=$1;(my$s=$1)=~s/([^\w ])/'%'.unpack('H2',$1)/ge;
$s=~tr/ /+/;'[<a href="URLﾘﾝｸ(foo.bar?query=)'.$s."\">$r</a>]"#ges;
こんな風でどう？
07/10/06 00:07:46
$text=~ s#\[(.*?)\]#my$r=$1;(my$s=$1)=~s/([^\w ])/'%'.unpack('H2',$1)/ge;
$s=~tr/ /+/;'[<a href="URLﾘﾝｸ(foo.bar?query=)'.$s."\">$r</a>]"#ges;
こんな風でどう？