Perl/NetTelnet の変更点 - AqureWiki - 罪と罰＋＋二律背反、自宅サーバ、CGIゲーム

[ トップ ] [ 編集 | 差分 | バックアップ | 添付 | リロード ] [ 新規 | 一覧 | 単語検索 | 最終更新 | ヘルプ ] [ リンク元 ]

追加された行はこの色です。
削除された行はこの色です。
Perl/NetTelnet へ行く。

[[Perl]]

 use Net::Telnet;
 
 my $telnet = new Net::Telnet(
	Timeout => 10,
	Prompt => $prompt,
 );
 $telnet->open($host);
 $telnet->login($user, $pass);
 
 my @result;
 @result = $telnet->cmd("pwd");
 $telnet->close;