Perl获取web表单键值对的子程序

来源：互联网发布：构件柱模板的算法编辑：程序博客网时间：2024/06/05 13:33

获取信息就是获取一个哈希%FORM。

# get info from web
#
sub get_web_info
{
   my %FROM;
   my ($buffer, $pair) = ('','');
   my ($name, $value) = ('','');
   my @pairs = ();

my %FORM;

if ($ENV{'REQUEST_METHOD'} eq "GET")

     {
         $data = $ENV{'QUERY_STRING'};
   }

elsif ($ENV{'REQUEST_METHOD'} eq "POST")

    {
      read(STDIN$buffer,$ENV{'CONTENT_LENGTH'});
    }

    @pairs = split (/&/,$buffer);
   foreach $pair (@pairs)
   {
       ($name, $value) = split (/=/, $pair);
       $value = &cov_web_char($value);
       $FORM{$name} = $value;
   }
   return %FORM;

}
#
# Convert web chars to normal
sub cov_web_char($)
{

my $value = shift || '';

$value =~ s/%(..)/pack("c",hex($1))/ge;

   $value=~s/\+/ /g;
   $value=~s/ / /g;
   $value=~s/%40/@/g;
   $value=~s/%0D%0A/<br>/g;
   $value=~s/%0d%0a/<br>/g;
   $value=~s/%0a/<br>/g;
   $value=~s/%3D/=/g;
   $value=~s/%21/!/g;
   $value=~s/%2B/+/g;
   $value=~s/%2C/, /g;
   $value=~s/%27/'/g;
   $value=~s/%2F/\//g;
   $value=~s/%3A/:/g;
   $value=~s/%3B/;/g;
   $value=~s/%3C/</g;
   $value=~s/%28/(/g;
   $value=~s/%29/)/g;
   $value=~s/%23/#/g;
   $value=~s/%3E/>/g;
   $value=~s/%3F/?/g;
   $value=~s/%5B/[/g;
   $value=~s/%5D/]/g;
   $value=~s/%5E/^/g;
   $value=~s/%91/'/g;
   $value=~s/%92/'/g;
   $value=~s/%96/-/g;
   $value=~s/%7B/{/g;
   $value=~s/%7D/}/g;
   $value=~s/%7E/~/g;
   $value=~s/%26/&/g;
   $value=~s/%93/'/g;
   $value=~s/%94/'/g;
   return $value;

}

my %FORM = &get_web_info;