0

我正在运行以下简单的 telnet 脚本，它只是登录到机器并退出。

相同的脚本在一台 Linux 服务器上运行良好（经过 1000 次迭代），但在另一台 Linux 服务器上（持续）失败（在 200 次尝试后失败）。

在失败的情况下，失败所需的迭代次数会有所不同，但失败是持久的。

#!/usr/bin/perl
use Net::Telnet;

my $loop = 0;
my $dumpfile = "dump.log";
my $inputfile = "input.log";

for ($loop =1; $loop <=1000; $loop++) {
        print "===============Loop: $loop =====================\n";
        $telnet = new Net::Telnet ( Timeout=>20, Errmode=>'die');
        print "$telnet\n";
        $telnet->open('sys-007');
        $telnet->dump_log($dumpfile);
        $telnet->input_log($inputfile);
        $telnet->waitfor('/login: $/i');
        $telnet->print('root');
        $telnet->waitfor('/Password:$/i');
        $telnet->print('007');
        sleep 2;
        $telnet->print('exit');
        print "=================================================\n";
}

脚本退出：

pattern match read eof at ./telnettest.pl line 15 (i.e, waitfor('/login: $/i'); Line)

我尝试了以下方法，看看出了什么问题：

  1. 在客户端机器中：（sys-007）

    tcpdump -nvvv -w test.txt host <Server IP>

字符串 test.txt 有：

成功尝试日志：

sys-007 (ttyp0)
^Fl$4
^!^Fl$
login: 
^Fl$4
^Fl$4
root
^(^Fl*
root
bP"u
^Fl*4
bP5u
^.^Fl*
Password:
^Fl*4
^Fl*4
007
^7^Fl6
^Fl64
^9^Fl6
Terminal type? [xterm] 
^Fl64
^Fl64
exit
^Fl<4
^Fl<
exit
^Fl<

失败的尝试：

sys-007 (ttyp0)
*^hn
+^hn

没有登录：提示！

  1. 在服务器机器中：（Linux 服务器）

    [telnet@server]~% netstat --inet -a | grep telnet | grep sys-007

There are no TIME_WAIT or CLOSE_WAIT sockets.

请告诉我应该寻找什么来找出问题所在。

4

2 回答 2

0

我怀疑是 telnet 程序正在等待提示。我通常使用下面的格式来定义提示，以便脚本通常能够从下面给定的选项中找到提示。

test  = new Net::Telnet (Timeout => 3000 , Prompt => '/[%#\$>?:] $/' );
$test->open($IPAddress1);
$test->login($Login,$Password1);
my @input=$test->cmd("uname -a\n");
print "Connected to : @input";
@input=$cmd->cmd("pwd\n");

如果您仍然遇到问题，请告诉我们。

于 2012-09-27T20:58:36.737 回答
0

之后可以正常登录吗？我猜这台服务器正在切断你的连接，因为你建立了太多的连接。

于 2012-09-26T06:47:54.253 回答