[linux-users:33425] Re: Perlでtelnet接続

[Ken-ichi Takahashi <kenichi _at_ xxxxxxxxxxxxxxxxxxxxx>]

高橋けんいちです。

At 1:37 +0900 98.8.22, 河本陽一[いっつ] wrote:
> いっつです。
> 
> 　Perlでtelnet接続するにはどうするのでしょうか。
> 　telnet接続して、決まったコマンドを発行してログオフしたいんです。ついでに
> ログも取りたいです。
> 　使用するPerlのバージョンは5.004_04です。
> 
> ＃MN128-SOHOをコントロールしようとしています。

私も同様のことをしています。

Net-Telnet-3.01.tar.gz

がお勧めです。というかそれしか知りません。^^;;
とってきた場所は失念してしまいましたがarchieでヒットすると思います。

使い方は以下のようになります。

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

print "----sohoにtelnet接続中\n";

$t = new Net::Telnet (Timeout => 10, Prompt => '/soho\% $/');
$t->open("soho");
$t->login("admin", "admin password");
print "　　----sohoにtelnet接続完了\n";

@result = $t->cmd("sho his");
print @result;

print "----telnet(soho)切断中\n";
$t->close;
print "　　----telnet(soho)切断完了\n";

---高橋　賢一　Ken-ici Takahashi <kenichi _at_ krhm.jvc-victor.co.jp>---
PGP fingerprint = 26C8 5964 6C85 9D8D  E157 4918 F59A DE7E
日本ビクター（株）　技術開発本部　マルチメディアソフト開発センター
〒239　横須賀市神明町58-7　　　Tel:0468-36-9435　  Fax:0468-36-9064