Perl,telnet和输出

Question

我很难找到为什么我的perl脚本没有正确处理输出.

所以,代码(根据建议的更改更新):

sub telnet_connection{


    my $targetHost = $_[0]; 
    #my $uname = $_[1];
    #my $pword = $_[2];
    my @listOfCommands = @{$_[3]};

    if($verbose){print "\t\tAttempting telnet connection to $targetHost\n"; }

    eval{
            $telnet = Net::Telnet->new( Timeout=>5, Errmode=>'return', dump_log=>"dump_log.txt", input_log=>"input_log.txt");
            $telnet->open($targetHost);
            $telnet->waitfor('/Username: $/i');
            $telnet->print($username);
            $telnet->waitfor('/PASSCODE: $/i');
            $telnet->print($password);
            $telnet->waitfor('/\>/');


            #for(my $j=0; $j le scalar @listOfCommands; $j++)
            for my $command (@listOfCommands)
            {
                if($verbose) { print "\t\tClient: " . $targetHost . " Command:  $command\n"; }
                if($verbose) { print "\t\tExecuting command: $command\n"; }
                my @output = $telnet->cmd($command);

                if($verbose) 
                { 
                    print "OUTPUT:\n";
                    print "@output\n"; 
                }
                logging($targetHost, \@output, "0");
            }
            $telnet->close();
        };
        if($telnet->errmsg)
        {
            logging($targetHost,$telnet->errmsg,"1");
            print $@;
        }
}

这是我写的一个方法,它接受四个参数,telnet连接的目标,用户名,密码和命令数组.目前,我只是使用全局用户名和密码(分别为$ username $ password),因为其他问题存在问题.$ verbose是我传递的标志,在这种情况下它设置为true.logging是我写的另一种处理输出的方法,但是当$ verbose为true时,我应该在控制台上看到它.代码能够进行身份验证并运行命令,但我的输出不存在.当我检查dump_log和input_log时,原始(和格式化)文本存在,并显示我实际上正在执行命令并查看输出,但是,当我尝试检查输出时,它返回一个"" :

Telnet to <targetIPAddress>
        Attempting telnet connection to <targetIPAddress>
        Client: <targetIPAddress> Command:  who
        Executing command: who
OUTPUT:

我只是不确定在这里排除故障.我已经查看了Perl中Telnet上已有的几个堆栈溢出帖子,但在那里找不到多少帮助.

Answer 1

我只是不确定在这里排除故障.

好吧,你错过了最明显的Perl故障排除技巧.将以下两行添加到您的程序中.

use strict;
use warnings;

你会得到一些错误,说你没有声明变量.其中大多数都很简单,可以修复.但重要的一个接近尾声.你有:

my @output = $telnet->cmd($listOfCommands[$j]);

然后是:

print "$output\n"; 

和:

logging($targetHost, $output, "0");

@output是一个数组.$output是一个标量.它们是两个不同的变量,彼此之间没有联系.

其他一些提示:

$telnet = new Net::Telnet (...);

最好写成:

$telnet = Net::Telnet->new(...);

我知道该模块的文档使用的是前一版本,但这是一个非常糟糕的主意,并且很有可能在将来破坏它.

另外,你的循环:

for(my $j=0; $j le scalar @listOfCommands; $j++)
{
    # stuff using $listOfCommands[$j]
}

最好写成:

foreach my $command (@listOfCommands)
{
    # stuff using $command
}