关于Net::Telnet 模块的一个问题.

deathcult

用Expect.pm模块。

deathcult

#!/usr/local/bin/perl

use Expect;

my $timeout = 10;
my $delay = 1;
my $cmd         = "telnet";
my @params = qw/localhost 23/;
my $user = "test";
my $pass = "test";

$exp = Expect->;spawn($cmd, @params) or die "Can't spawn $cmd\n";

$exp->;expect($timeout, 'login:');
$exp->;send_slow($delay, "$user\n";
$exp->;expect($timeout, -re=>;'[Pp]assword:');
$exp->;send_slow($delay, "$pass\n";

$exp->;interact();
$exp->;hard_close();

exit 0;