閱讀perl中沒有CGI模塊的cgi原始發佈數據

Question

在我的服務器上，我沒有安裝CGI，是否可以在沒有該模塊的情況下獲取原始發佈數據？我試着檢查CGI.pm的源代碼，但沒有發現任何問題。

Answer 1

您可以通過從STDIN中讀取來提取POST數據。 （Viewing raw POST data）

paramExtractor.cgi

#!/usr/bin/perl 

use strict; 
use warnings; 

my $buffer = ''; 
if($ENV{CONTENT_LENGTH}) { read(STDIN,$buffer,$ENV{CONTENT_LENGTH}); } 
print "Content-type: text/plain\n\n"; 
print 'Post data is (' . length($buffer) . " chars):\n"; 
if(! length($buffer)) { $buffer = '[No POST data received]'; } 
print $buffer; 
exit; 

form.html

<form method="post" action="http://127.0.0.1/paramExtractor.cgi"> 
<table cellpadding="3"> 
<tr> 
<td>Name:</td> 
<td><input type="text" name="name" style="width:200px;"></td> 
</tr><tr> 
<td>Email:</td> 
<td><input type="text" name="email" style="width:200px;"></td> 
</tr><tr> 
<td valign="top">Message:</td> 
<td><textarea name="message" style="width:200px; height:75px;"></textarea></td> 
</tr><tr> 
<td> </td> 
<td><input type="submit" style="width:200px;"></td> 
</tr> 
</table> 
</form>