Telnet, встроенный в Perl?

Question

Есть ли способ разрешить Perl инициировать сеанс Telnet и программно выдавать команды для этого сеанса Telnet?

Я изначально попробовал глупый метод:

commands.pl:

sleep(1);
print $command1;
sleep(1);
print $command2;

, а затем

> perl commands.pl | telnet www.host.com port

Это не работает.

Answer 1

Существует модуль Net :: Telnet .

use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10,
                      Prompt => '/bash\$ $/');
$t->open("sparky");
$t->login($username, $passwd);
@lines = $t->cmd("who");
print @lines;

(Пример взят с этой страницы.)

Answer 2

Один вариант будет через интерфейс Perl для Expect .