perl - post 方法

前面介紹了perl 的get方式獲取url參數， 這裏看一下post獲取參數的方法：

環境：

perl 5.20.2

apache(http2.4.16)

#!i:/Perl64/bin/Perl.exe

local ($buffer, @pairs, $pair, $name, $value, %FORM);
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "POST") {  #post 方法
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    print "<h1>aaaaaaa</h1>";
}else { #get 方法
    $buffer = $ENV{'QUERY_STRING'};
    print "<h1>bbbbbb</h1>";
}