Perlとインラインのtelnet?

perl telnet
Perlとインラインのtelnet?

perlがtelnetセッションを開始し、プログラムでそのtelnetセッションにコマンドを発行できるようにする方法はありますか?

私は最初に愚かな方法を試しました:

commands.pl:

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

その後

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

これは動作しません。

  1  0


ベストアンサー

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;

(そのページから取られた例。)

8


1つのオプションは、http://p3rl.org/Expect [PerlのExpectへのインターフェース]を使用することです。

1


タイトルとURLをコピーしました