$_=~s/\+//g;
($name,$value)=split(/=/,$_);
$name=~s/%([a-fA-f0-9][a-fA-f0-9])/pack("C",hex($1))/eg;
$value=~s/%([a-fA-f0-9][a-fA-f0-9])/pack("C",hex($1))/eg;
$$METHOD{$name}=$value;
}
$METHOD="GET"
}
$METHOD="POST"
for($i=0;$i<=1;$i++){
print "Hash形式的$METHOD数据遍历：<br>\n"
foreach(keys %{$METHOD}){
print "\$".$METHOD."{".$_."}=$$METHOD{$_}<br>\n"
}
print "<br>\n"
$METHOD="GET"
}
exit;
####代码结束####
好了，我要说的是，搞这个研究究竟有什么意义呢？
意义是：让你知道，用户提交的数据哪些是用POST方式，哪些使用GET方式的！
其实我上面那段Perl代码已经包括了很多的技术。你通过阅读就可以知道%GET里面放的是用GET方式提交的，%POST同理！
如果你对我编写的Perl代码感兴趣，欢迎切磋：QQ?。至于我如何获得IE发送来的请求的，我要说我是用Perl编的一个Server监听8080端口，我是不是像欧姆一样搞研究大多东西都自己编写（当然，让我编写一个操作系统就有点难度了，不过WebServer凑合）？开玩笑呢！
