POSTデータの加工

取り込んだPOSTデータですが、加工しなければいけません。

以下、実際にコンビニWORKERS ～無料求人サイト～で作成したコードです。

---

#================== フォームデータ取り込み ====
sub loadFormdata
{
 my ($query, $pair);
 
 if($ENV{'REQUEST_METHOD'} eq 'POST') {
  read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
 }
 else {
  $query = $ENV{'QUERY_STRING'};
 }
 
 foreach $pair (split(/&/, $query)) {
  my ($key, $value) = split(/=/, $pair);
  
  $value =~ tr/+/ /;
  $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg;
  
  $value = jcode::sjis($value);
  $value =~ s/&/&/g;
  $value =~ s/</&lt;/g;
  $value =~ s/>/&gt;/g;
  $value =~ s/\x0D\x0A/<br>/g;
  $value =~ tr/\t/ /;
  
  $key =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg;
  $key = jcode::sjis($key);

  $FORM{$key} = $value;
 }
}

---