如何通过命令行将 POST 和 GET 数据发送到 Perl CGI 脚本？

Question

我正在尝试通过命令行参数发送 get 或 post。那是在通过浏览器测试之前在命令行中测试脚本（服务器有问题）。我尝试在网上搜索，我想我可能使用了不正确的术语，因为我什么也没得到。我知道这是可能的，因为我看到有人这样做。我只是不记得它是如何完成的。

谢谢！ :)

Answer 1

要从命令行测试 CGI 程序，您需要伪造服务器为该程序创建的环境。 CGI.pm 有一个特殊的离线模式，但我经常发现不使用它更容易，因为我需要为程序通常期望的其他所有内容进行额外的设置。

根据脚本的实现，这涉及设置许多环境变量，您可以通过伪装成服务器的包装器脚本来执行此操作：

 #!/bin/bash

 export HTTP_COOKIE=...
 export HTTP_HOST=test.example.com
 export HTTP_REFERER=...
 export HTTP_USER_AGENT=...
 export PATH_INFO=
 export QUERY_STRING=$(cat query_string);
 export REQUEST_METHOD=GET

 perl program.cgi

如果您针对 POST 请求执行此操作，则环境会略有不同，您需要在标准输入上提供 POST 数据：

 #!/bin/bash

 export CONTENT_LENGTH=$(perl -e "print -s q/post_data/");
 export HTTP_COOKIE=...
 export HTTP_HOST=test.example.com
 export HTTP_REFERER=...
 export HTTP_USER_AGENT=...
 export PATH_INFO=...
 export QUERY_STRING=$(cat query_string);
 export REQUEST_METHOD=POST

 perl program.cgi < post_data

您可以根据需要将其设置为奇特，并且每次要测试程序时，都可以更改 query_string 或 post_data 文件中的数据。如果您不想在 shell 脚本中执行此操作，则制作包装 Perl 脚本也同样容易。

Answer 2

您使用的是标准 CGI 模块吗？

例如，对于以下程序（请注意 use CGI 的参数中的 -debug），

#! /usr/bin/perl

use warnings;
use strict;

use CGI qw/ :standard -debug /;

print "Content-type: text/plain\n\n",
      map { $_ . " => " . param($_) . "\n" }
      param;

您可以在命令行上为其提供参数：

$ ./prog.cgi foo=bar baz=quux
Content-type: text/plain

foo => bar
baz => quux

您也可以通过标准输入来执行此操作：

$ ./prog.cgi
(offline mode: enter name=value pairs on standard input; press ^D or ^Z when done)
foo=bar
baz=quux
^D
Content-type: text/plain

foo => bar
baz => quux

Answer 3

旧的讨论，但我一直在寻找相同的答案 - 所以对于那些关注的人 - 这就是我发现

RTFM！来自 CGI 手册页（还有更多）
调试
如果您从命令行或在 perl 中运行脚本
调试器，您可以向脚本传递关键字列表或参数=值
在命令行上或从标准输入中配对（您不必
担心欺骗你的脚本从环境中读取
变量）。您可以像这样传递关键字：

    your_script.pl keyword1 keyword2 keyword3

or this:

   your_script.pl keyword1+keyword2+keyword3

or this:

    your_script.pl name1=value1 name2=value2

or this:

    your_script.pl name1=value1&name2=value2

To turn off this feature, use the -no_debug pragma.

Answer 4

如果您不想更改 perl 脚本，则可以使用至少两个设置的环境变量来调用它，正如其他人已经提到的那样。模拟 GET 请求：

shell$ QUERY_STRING=limit=20 REQUEST_METHOD=GET ./events_html.pl

这是 www.myserver.org/events_html.pl?limit=20 的控制台快捷方式

Answer 5

是的，可以从命令行绕过服务器来执行此操作。此页面解释了所有内容：Perl CGI 调试 (sitewizard.com)（特别是第 6 项该页面）。这里我引用最重要的部分：

使用以下命令离线测试脚本
GET方法，只需设置
QUERY_STRING 环境变量
因此。如果您使用的是 Windows，
你可以使用以下命令
运行前在 DOS 窗口中输入一行
同一窗口中的脚本：

设置[电子邮件受保护]&全名=M+名称< /p>

使用以下命令离线测试脚本
POST 方法，将下面的行放入
名为 testinput.txt 的文本文件。

[电子邮件受保护]&全名=M+姓名

然后将该文件重定向为输入
脚本。在 Unix 系统上以及
在 Windows 的 MSDOS 提示符下，您可以
这样做：

perl -w 脚本名.pl <测试输入.txt

然后您的脚本将收到该信息
输入就好像它是由发送的一样
网站上的表格。检查错误
Perl 发出的消息（如果有的话）
帮助您跟踪问题
脚本。

Answer 6

为 cgi 脚本提供发布数据：

$ echo -n 'a=b;c=d' | REQUEST_METHOD=POST CONTENT_LENGTH=999 perl index.cgi

为 cgi 脚本提供获取数据：

$ perl index.cgi 'a=b;c=d'

Answer 7

LWP 附带可以从命令行使用的现成脚本。检查系统中的 GET 和 POST 脚本。

Answer 8

在 Windows 中，您可以使用 VBScript 编写调用 MS XML 库的命令行实用程序：

Dim XMLHttp : Set XMLHttp = CreateObject("Microsoft.XMLHTTP")
On Error Resume Next

strIPAddress = WScript.Arguments(0)
strMACAddress = WScript.Arguments(1)
strSubnetMask = WScript.Arguments(2)

On Error Goto 0

WScript.Echo "Attempting to wake host " & strIPAddress & " on NIC " & strMACAddress &
"using netmask " & strSubnetMask

strGetUrl = http://wolService/WolService/WolService.asmx/WakeBroadcast?hostIP=" &
strIPAddress & "&macAddress=" & strMACAddress & "&subnetMask=" & strSubnetMask

XMLHttp.Open "GET", strGetUrl, False
XMLHttp.Send ""

WScript.Echo XMLHttp.ResponseText

编辑：此脚本发送 HTTP 请求，并且可以从命令行使用。我对“如何通过命令行将 POST 和 GET 数据发送到 Perl CGI 脚本”这个问题感到困惑，并认为这是关于通过命令行从未指定的客户端操作系统将 POST 和 GET 数据发送到 Perl CGI 脚本。