Perl CGI中的GET与POST

在Perl中，通用网关接口（CGI）只不过是一个协议，它定义了网络服务器与一些可执行程序之间的互动，以产生动态网页。基本上，它显示了网络服务器如何将信息发送给程序，而程序将信息发回给网络服务器，反过来又可以发回给浏览器。
GET 和 POST 是不能互换的，这两种类型是不同的。代理服务器可能会缓存 GET 请求的输出。 GET 方法是所有网络请求的默认方法，用于将信息从浏览器传递给网络服务器，它还会创建一个长字符串，显示在浏览器的URL框中。它将加密的用户信息附在页面请求中。页面和加密的信息用 ? 字符隔开：

例子

**http://servername.com/cgi-bin/script_name.cgi or.pl?key1=value1 &key2=value2……. **

这些信息是通过 QUERY_STRING 头传递的，通过使用 QUERY_STRING 环境变量，可以很容易地在你的CGI程序中访问。由于 GET 方法有大小限制，一个请求字符串只能有1024个字符。信息可以通过简单地连接键值对和任何URL来传递。

注意： 如果你正在处理密码或任何其他敏感信息，以便将其传递给服务器，那么使用 GET 方法不是一个好的选择。

例子

<html>
<head></head>
<body>
<b> Search Your Query:</b><br>
<FORM action="Gfg_get.pl" method = "GET">
<input type="text" name="q" size="20" maxlength="120">
<input type="submit" value="Search"><br>
<input type="radio" name="l" value="Web" checked>Web
<input type="radio" name="l" value="India">IND
</FORM>
</body>
</html>

输出：

Perl CGI中的GET与POST

上述GET方法形式的Perl-CGI脚本

#!"c:\xampp\perl\bin\perl.exe"
    
buffer =ENV{'QUERY_STRING'};
#split information into key/value pairs
@pairs = split(/&/, buffer);
foreachpair (@pairs) 
{
    (name,value) = split(/=/, pair);
    value =~ tr/+/ /;
    value =~ s/%([a-fA-F0-9] [a-fA-F0-9])/pack("C", hex(1))/eg;
    value =~ s/~!/ ~!/g;
    FORM{name} =value;
}
  
SearchTerm =FORM{'q'};
Location =FORM{'l'};
  
print "Content-type:text/html\r\n\r\n";
print "<html>";
print "<head>";
print "<title>GeeksForGeeks - Get Method</title>";
print "</head>";
print "<body>";
print "<h3>Hello You searched 'Location' for 'SearchTerm'<br>
Few Matches Found!<br>
<br>
Match 1<br>
Match 2<br>
Match 3<br>
Match 4<br>
etc.....</h3>";
print "</body>";
print "</html>";
  
1;

输出：

Perl CGI中的GET与POST
如上所示，在输出图像中，信息是与URL一起传递的。

http://localhost/xampp/cgi-bin/Gfg_get.pl?q=music &l=Web

相比之下， POST 方法是向CGI程序传递信息的最可靠方法。一般来说，当信息被要求上传到服务器上时，就会使用 POST 方法。为了上传大量的数据， POST 方法被认为比 GET 方法更适合，因为没有数据出现在URL框中。与 GET 方法类似，信息也被打包，但它不是在URL框中的 “？ “之后以文本字符串的形式发送，而是通过Perl/CGI程序可以访问的不同路径，以单独的信息形式发送到服务器。

例子

<head></head>
<body>
<b>Please Fill in the Information:</b><br>
<form action="GfG_post.pl" method="post">
First Name:<br>
<input type="text" name="first_name" size="25" maxlength="100"><br>
  
Last Name:<br>
<input type="text" name="last_name" size="25" maxlength="100"><br>
<br>
Languages:<br>
<input type="checkbox" name="python" value="yes">Python
<input type="checkbox" name="java" value="yes">Java
<input type="checkbox" name="kotlin" value="yes">Kotlin
<input type="checkbox" name="perl" value="yes">Perl
<input type="checkbox" name="swift" value="yes">Swift
<br>
Payment: <select name=payment>
<option>---Select---</option>
<Option value="Paypal"> Paypal </option>
<Option value="Internet Banking"> Internet Banking </option>
<Option value="Credit Card"> Credict Card </option>
<Option value="Paytm"> Paytm </option>
</select><br>
<br>
First Time Customer?<br>
<input type="radio" name="first_time" value="Yes">Yes
<input type="radio" name="first_time" value="No">No<br>
<br>
Feedback:<br>
<textarea wrap= "virtual" name="feedback" cols="25" rows="3"></textarea><br>
<br>
<input type="submit" value="Place Order">
</form>
</body>
</html>

输出：

Perl CGI中的GET与POST

上述POST方法的Perl-CGI脚本 。

#!"c:\xampp\perl\bin\perl.exe"
   
read (STDIN, buffer,ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, buffer);
foreachpair (@pairs) 
{
    (name,value) = split(/=/, pair);
    value =~ tr/+/ /;
    value =~ s/%([a-fA-F0-9] [a-fA-F0-9])/pack("C", hex(1))/eg;
    value =~ s/~!/ ~!/g;
    FORM{name} =value;
}
   
if(FORM{python}) 
{
   python_flag ="YES";
} 
else 
{
   python_flag ="NO";
}
   
if(FORM{java}) 
{
   java_flag ="YES";
}
else 
{
   java_flag ="NO";
}
   
if(FORM{kotlin})
{
   kotlin_flag ="YES";
} 
else
{
   kotlin_flag ="NO";
}
   
if(FORM{perl}) 
{
   perl_flag ="YES";
} 
else 
{
   perl_flag ="NO";
}
   
if(FORM{swift}) 
{
   swift_flag ="YES";
} 
else
{
   swift_flag ="NO";
}
   first_name= FORM{'first_name'};last_name= FORM{'last_name'};payment_method= FORM{'payment'};first_time= FORM{'first_time'};feed_back= FORM{'feedback'};
   
print "Content-type:text/html\r\n\r\n";
print "<html>";
print "<head>";
print "<title>GeeksForGeeks - Post Method</title>";
print "</head>";
print "<body>";
print "<h3>Hellofirst_name last_name</h3>";
print "<h3>Here is your Purchased Order!</h3>";
print "<h3>Python:python_flag</h3>";
print "<h3>Java: java_flag</h3>";
print "<h3>Kotlin:kotlin_flag</h3>";
print "<h3>Perl: perl_flag</h3>";
print "<h3>Swift:swift_flag</h3>";
print "<h3>Payment Method: payment_method</h3>";
print "<h3>First Time Customer:first_time</h3>";
print "<h3>Feedback: $feed_back</h3>";
print "</body>";
print "</html>";
   
1;