From owner-FreeBSD-users-jp@jp.freebsd.org  Sat Aug 22 13:13:45 1998
Received: by jaz.jp.freebsd.org (8.9.1+3.0W/8.7.3) id NAA01899;
	Sat, 22 Aug 1998 13:13:45 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from mail.green.an.egg.or.jp (mail00.jttyo.egg.or.jp [202.230.255.203])
	by jaz.jp.freebsd.org (8.9.1+3.0W/8.7.3) with ESMTP id NAA01894
	for <freebsd-users-jp@jp.freebsd.org>; Sat, 22 Aug 1998 13:13:43 +0900 (JST)
	(envelope-from wub@green.an.egg.or.jp)
From: wub@green.an.egg.or.jp
Received: from mail.green.an.egg.or.jp (URWcc-01p57.ppp.odn.ad.jp [143.90.236.57])
	by mail.green.an.egg.or.jp (8.8.5/3.6Wbeta4-1.0) with SMTP id NAA19807;
	Sat, 22 Aug 1998 13:13:40 +0900 (JST)
Date: Sat, 22 Aug 1998 13:13:40 +0900 (JST)
Message-Id: <199808220413.NAA19807@mail.green.an.egg.or.jp>
X-Mailer: vega v0.00alpha (1998.02.01)
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
References: <35DD79861B.80E0MASASHI@smtp.snk.comnic.co.jp>
To: freebsd-users-jp@jp.freebsd.org
Reply-To: FreeBSD-users-jp@jp.freebsd.org
Precedence: bulk
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+980820
X-Sequence: FreeBSD-users-jp 32097
Subject: [FreeBSD-users-jp 32097] Re: =?ISO-2022-JP?B?GyRCPCtGMBsoQg==?=
 telnet =?ISO-2022-JP?B?GyRCJTklLyVqJVclSBsoQg==?= 
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org

>$BB<>e$H$b$&$7$^$9!#(B

$B$$$7$$$G$9!#(B
$B$3$s$K$A$O!#(B

>FreeBSD$B%^%7%s$+$i%3%^%s%I0lH/$?$?$/$H!"(B
>$B!&(Btelnet$B$G!"B>(BUNIX$B%^%7%s$K(Blogin$B$7$F!"(B
>$B!&%j%b!<%H%^%7%s$G%3%^%s%I$r<B9T$7$F!"(B
>$B!&=*N;$9$k!#(B
>
>$B4JC1$J$3$H$@$H;W$$$^$9$,!"$$$$J}K!$r$4B8$8$NJ}$,$$$i$7$?$i!"(B
>$B$*CN7C$r$*<Z$j$G$-$l$P$&$l$7$$$G$9!#(B
>
>$B!t(Brlogin,rsh$B$H$+$O$@$a$J$s$G$9!#(B
>$B!t(Bcsh,sh,perl$B2?$G$b(BOK$B$G$9!#(B

p5-Net-Telnet$B$H$$$&$N$,$"$j$^$9!#(B
$B$3$l$O(Bperl5$B$N(Btelnet$B$N%b%8%e!<%k$G$7$F!"<!$N$h$&$K(B
$B;H$&$3$H$,$G$-$^$9!#(B(Telnet.pm$B$+$i(B)

    use Net::Telnet ();
    $t = new Net::Telnet (Timeout => 10,
                          Prompt => '/bash\$ $/');
    $t->open("sparky");
    $t->login($username, $passwd);
    @lines = $t->cmd("/usr/bin/who");
    print @lines;

--
$B$$$7$$$H$b$+$:(B
wub@green.an.egg.or.jp
