CPAN Net::Telnetをインストールする
# perl -MCPAN -e shell
初回はいくつか設定を聞かれるがデフォルト通り。
CPAN> install Net::Telnet
・・・・
Removing previously used /.cpan/build/Net-Telnet-3.03
CPAN.pm: Going to build J/JR/JROGERS/Net-Telnet-3.03.tar.gz
Checking if your kit is complete...
Looks good
Writing Makefile for Net::Telnet
-- NOT OK
Running make test
Can't test without successful make
Running make install
make had returned bad status, install seems impossible
cpan> quit
ダウンロードはできたがインストールはうまくいっていないため、
個別に行う。
# cd /.cpan/build/Net-Telnet-3.03/
# make
※もしここでパスが通っていない場合はパスを設定。
# make install
サンプルプログラム
use strict;
use Net::Telnet;
# 接続環境
my $host = 'hoge'; # 接続ホスト
my $user = 'hama'; # ユーザ名
my $pass = '******'; # パスワード
my $prompt = '/[\$%#>] $/';# プロンプト(正規表現)
my $telnet = new Net::Telnet(
Timeout => 10,
);
#接続を開始する
$telnet->open($host);
#login出力を待ち、ユーザ名を送信
$telnet->waitfor('/login:/i');
$telnet->print($user);
#Password出力を待ちパスワードを送信
$telnet->waitfor('/Password:/i');
$telnet->print($pass);
# プロンプト出力を待つ
$telnet->waitfor($prompt);
# コマンド1を送信
my $result;
$telnet->print("pwd");
($result) = $telnet->waitfor($prompt);
print $result;
# コマンド2を送信
$telnet->print("ls");
($result) = $telnet->waitfor($prompt);
print $result;
# 接続の切断
$telnet->close;
最終更新:2008年11月22日 19:26