经典的 ASP 形式到 perl，反之亦然

Question

我有一个sample.asp表单页面，写法如下：

<form method="POST" action="index.asp">
    <p>Switch IP:<input type="test" name="SwitchIP"></p>
    <p>Login: <input type="test" name="Login"></p>
    <p>Password:<input type="password" name="Password"></p>
    <p><input type="submit" value="Submit" name="B1"><p>
</form>

使用提交按钮占用了三个输入变量ip、登录名和密码。

我有一个 perl 脚本如下：

#!/usr/bin/perl -w
use strict;
use Net::Telnet::Cisco;

my $SwitchIP = '192.168.10.1';

my $session = Net::Telnet::Cisco->new(Host => $host, -Prompt=>'/(?m:^[\w.&-]+\s?(?:\  (config[^\)]*\))?\s?[\$#>]\s?(?:\(enable\))?\s*$)/');

$session->login(Name => 'admin',Password => 'password');
$session->cmd('terminal length 0');
my @ver = $session->cmd('show mac-address-table dynamic');
print @ver;
$session->close();

此脚本在 cisco 交换机上运行并打印出“show mac-address-table dynamic”命令。我想知道如何组合这两个脚本，以便将来自 ASP 表单的数据馈送到 perl 脚本，并将 @ver 输出打印回屏幕上。 我在 Linux 服务器上使用 Apache::ASP 运行它。 如果有任何不正确的地方，请纠正我。谢谢。

Answer 1

第 1 步，使您的 perl 脚本可以接受参数。可能想为此添加一些错误检查。

#!/usr/bin/perl -w
use strict;
use Net::Telnet::Cisco;

my ($host, $name, $password) = @ARGV;

my $session = Net::Telnet::Cisco->new(Host => $host, -Prompt=>'/(?m:^[\w.&-]+\s?(?:\  (config[^\)]*\))?\s?[\$#>]\s?(?:\(enable\))?\s*$)/');

$session->login(Name => $name,Password => $password);
$session->cmd('terminal length 0');
my @ver = $session->cmd('show mac-address-table dynamic');
print @ver;
$session->close();

第 2 步，测试以确保从命令行可以正常工作：

perl yourscript.pl 192.168.10.1 admin password

第 3 步，使 ASP 表单可以在 POST 时调用 perl 脚本。