Perl コーディング初心者質問コーナー Part27

[0014 nobodyさん 03/08/14 11:13 ID:???]

s/([^0-9A-Za-z_ ])/'%'.unpack('H2',$1)/ge;
s/\s/+/g;