如何在 perl cgi 上使用标准输入

Question

我是 perl 新手，我想在我的脚本中使用屏幕输入。这是我的脚本，我希望从键盘输入 IOS 命令。有人能告诉我哪里错了吗？我现在遇到的问题是脚本没有读取我的键盘输入，我不确定我的情况是否有效。谢谢！！

# ### Show ######################################################### 
               $cmd = <STDIN>;
                chomp ($cmd);
               $show_error = "";
              if ($ssh_switch eq 'yes') {
                   ssh_access();
               }
               print "\n",h2($host . ' - ' . $cmd);
                @output=$cmd;
                print hr(),"\n";
               }
}
#########################################################################

Answer 1

CGI 旨在接收完整的 HTTP 请求，然后发出完整的 HTTP 响应。

它根本无法交互工作。

如果您想编写需要键盘输入的脚本，请不要使用 CGI。

Answer 2

事实上，CGI 确实使用了STDIN。它用于传递POST 请求的正文。试试这个脚本

#!/usr/bin/perl
print "Content-Type: text/plain\r\n\r\nYou entered: ";
print while <STDIN>;

和POST 一些数据，例如

$ echo "Just test" | POST http://localhost/yourscript.pl
You entered: Just test

（POST 是来自LWP CPAN 发行版的程序）

因此，您可以使用从STDIN 读取的命令来指导您的脚本，尽管它本身非常不安全！

Answer 3

CGI 允许通过 STDIN 输入；试试CGI->new(\*STDIN)。

虽然它可能不是你想要的输入方式。你能举例说明你的输入是什么样的吗？

啊，在我看来你也想这样做：

1. 从命令行运行您的脚本，例如：perl scriptname 'Submit=1&Devices=router1&Devices=router2'，然后在 STDIN 上提供您的 cisco 命令（并获取 html 输出，这可能不方便），或者

2. 在浏览器中运行您的脚本，在这种情况下，您应该使用输入标签替换 STDIN 用法以输入命令并从该命名参数中获取命令

再看一遍，我看到你已经有一个输入标签“搜索”，你只是没有使用它。 尝试将<STDIN> 替换为$cgi->param('search') 并将搜索添加到“确保输入数据”检查中。