ºá¤Èȳ++ÆóΧÇØÈ¿

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;

¥È¥Ã¥×   ÊÔ½¸ Åà·ë º¹Ê¬ ¥Ð¥Ã¥¯¥¢¥Ã¥× źÉÕ Ê£À½ ̾Á°Êѹ¹ ¥ê¥í¡¼¥É   ¿·µ¬ °ìÍ÷ ñ¸ì¸¡º÷ ºÇ½ª¹¹¿·   ¥Ø¥ë¥×   ºÇ½ª¹¹¿·¤ÎRSS
Last-modified: 2012-06-08 (¶â) 00:24:32 (2684d)