Net::Telnet memo

私の場合、 Net-Telnet.zip を以下の場所から入手しました。

• www.activestate.com - /packages/zips/　Net-Telnet.zip
  

D:\temp に展開して組み込みます。

D:\temp>dir

 ドライブ D: のボリュームラベルはありません.
 ボリュームシリアル番号は 0000-0000
 ディレクトリは D:\temp

.              <DIR>        00-01-01  12:00 .
..             <DIR>        00-01-01  12:00 ..
NET-TE~1 PPD           310  98-07-22  23:18 Net-Telnet.ppd
README                 131  99-05-01  15:26 README
NET-TE~1 GZ         84,027  98-07-22  23:18 Net-Telnet.tar.gz
         3 個             84,468 バイトのファイルがあります.
         2 ディレクトリ    16,777,216 バイトの空きがあります.

D:\temp>type readme
To install this ActiveState PPM package, run the following command
in the current directory:

    ppm install Net-Telnet.ppd


D:\temp>ppm install Net-Telnet.ppd

さて、接続先を作りましょう。取り敢えず 超簡単 telnetd もどき for Windows95(Windows95/インターネット＆通信) を down して来ました。これも展開しておきます。

D:\temp>dir

 ドライブ D: のボリュームラベルはありません.
 ボリュームシリアル番号は 0000-0000
 ディレクトリは D:\temp

.              <DIR>        00-01-01  12:00 .
..             <DIR>        00-01-01  12:00 ..
NET-TE~1 PPD           310  98-07-22  23:18 Net-Telnet.ppd
README                 131  99-05-01  15:26 README
NET-TE~1 GZ         84,027  98-07-22  23:18 Net-Telnet.tar.gz
TELNETD  EXE        49,152  97-05-23   0:05 TELNETD.EXE
TELNETD  TXT         2,299  97-05-23   0:05 TELNETD.TXT
         5 個            135,919 バイトのファイルがあります.
         2 ディレクトリ    16,777,216 バイトの空きがあります.

TELNETD に繋ぐ為の適当な script をでっち上げます。

D:\temp>type test

use Net::Telnet ();
$host = new Net::Telnet (Timeout => 10,
                      Dump_Log   => 'dump.log',
                         );
$host->open("localhost");
$host->waitfor('/login/');
$host->print("TEST");
$host->waitfor('/\$/');
$host->print("dir");
($result) = $host->waitfor('/\$/');
print STDOUT $result;
$host->print("OFF");

telnetd を立ち上げます。

D:\temp>telnetd -p TEST
Simple telnet daemon for Winsows95
Version 0.5
Copyright (c) 1996, 1997 by Satoru Satoh
All rights reserved.

先程でっち上げた script を試してみます。

D:\temp>perl test
 dir


 ドライブ D: のボリュームラベルはありません.
 ボリュームシリアル番号は 0000-0000
 ディレクトリは D:\temp

.              <DIR>        00-01-01  12:00 .
..             <DIR>        00-01-01  12:00 ..
NET-TE~1 PPD           310  98-07-22  23:18 Net-Telnet.ppd
README                 131  99-05-01  15:26 README
NET-TE~1 GZ         84,027  98-07-22  23:18 Net-Telnet.tar.gz
TELNETD  EXE        49,152  97-05-23   0:05 TELNETD.EXE
TELNETD  TXT         2,299  97-05-23   0:05 TELNETD.TXT
TEST                   350  00-01-01  12:00 test
DUMP     LOG             0  00-01-01  12:00 dump.log
         7 個            136,269 バイトのファイルがあります.
         2 ディレクトリ    16,777,216 バイトの空きがあります.

と言う訳で、 Net::Telnet が動作することは確認できました。