程嶏清单15-2.txt

< linux网络编程工具>>配套源码

程序清单15-2：demo.pl
# 为了便于讲解，在每一行前面加了行号
1  #!/usr/bin/perl
2  $|=1;
3  print “Content-type:text/html\n\n”;
4  if($ENV{‘REQUEST_METHOD’} eq “POST”) {
5      read(STDIN,$buffer,$ENV{‘CONTENT_LENGTH’});
6  }elsif ($ENV{‘REQUEST_METHOD’} eq “GET”) {
7     $buffer = $ENV{‘QUERY_STRING’};
8  }
9  @pairs = split(/&/,$buffer);
10 foreach $pair (@pairs) {
11 ($name, $value) = split(/=/,$pair);
12 $value =~ tr/+//;
13 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(“C”,hex($1))/eg;
14 $FORM{$name} = $value;
15 }