Perlコーディング初心者質問スレ Part 59

[0371 nobodyさん 2009/05/01(金) 10:43:26 ID:???]

$text =~ s!#a#(.*?)#/a#!sprintf("<a href=\"s.cgi?word=%s\">$1</a>",((local $tmp=$1)=~s/(\W)/'%'.unpack('H2',$1)/ge,$tmp)[1])!ges;