ask help(cant telnet with perl-module)

[email protected] ("henry") Thu, 21 Feb 2002 13:43:33 +0800
Newsgroups perl.perlpoint
Message-ID <002601c1ba9a$b33046e0$df00a8c0@henry>
------=_NextPart_000_0023_01C1BADD.C13B1CE0
Content-Type: text/plain;
	charset="big5"
Content-Transfer-Encoding: quoted-printable

Dear List:

    My cpan-module is not well-installed :
    <procedures to install >
    1. choose full_install to install linux ( Redhat or slackware),=20
        type "rpm -q perl" to make sure it's well_installed .

    2. download Net-telnet-3.02.tar.gz from www.cpan.org =20
    3. a.  untar it=20
        b.  perl Makefile.PL
        c.  make test
        l=20
Then I got

PERL_DL_NONLAZY=3D1 /usr/bin/perl -Iblib/arch -Iblib/lib =
-I/usr/lib/perl5/i386-linux -I/usr/lib/perl5 -e 'use Test::Harness =
qw(&runtests $verbose); $verbose=3D0; runtests @ARGV;' t/*.t
t/select............FAILED test 3
 Failed 1/3 tests, 66.67% okay
Failed Test Status Wstat Total Fail  Failed  List of Failed
-------------------------------------------------------------------------=
-------
t/select.t                 3    1  33.33%  3

    Neglect the fail, I still "make install" , then execute script as =
follows :

    use Net::Telnet ();
    $t =3D new Net::Telnet (Timeout =3D> 20,
                          Prompt =3D> '/bash\$ $/');
    $t->open("sparky");
    $t->login($username, $passwd);   <----------Then I got time out for =
waiting at line 5 ,but I can telnet the host normally(not use =
perl-script)=20
    @lines =3D $t->cmd("/usr/bin/who");
    print @lines;
   =20
Could you perl-fans shed some light on it ?=20
    =20


BestRegards
Henry

------=_NextPart_000_0023_01C1BADD.C13B1CE0--