Perl 初心者コーナー Part23

[0057 nobodyさん 03/05/17 18:35 ID:???]

>>56
$encode = join('',map{　s/(\W)/'%' . unpack('H2', $1)/eg;　} split(//,$data));

コレでどうやろ？