telnet リモートホストでコマンド実行 Net::Telnetモジュール

perlでtelnetを自動化しています。
Net::Telnetモジュールを使用しています。

Net::Telnetモジュールがない場合は、CPANからダウンロードしてインストールして下さい。
CPAN perl -MCPAN -e shell
install Net::Telnet

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

my $host_name = "host";
my $user_name = "user";
my $password = "password";
my $telnet = new Net::Telnet();

# ホストに接続
$telnet->open($host_name);
# ログイン
$telnet->login($user_name, $password);
# コマンド実行 コマンド結果を標準出力
print $telnet->cmd("hostname");
# 接続を閉じる
$telnet->close;
スポンサードリンク