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

[0661 nobodyさん 04/08/13 15:01 ID:???]

>>660
俺は
read(STDIN.$buffer,$ENV{CONTENT_LENGTH});
foreach(split/&/,$buffer){
my($a,$b)=split/=/;
$b =~ s/%(..)/pack("H",$1)/;
$b =~ s/<>\:\;その他自分のサイトで必要ない記号//g;
$form{$a} =$b;
}

でやってる。いちいちその都度やってるとモジュール化もやりづらい。