pb de mettre en place package Net::Telnet

**peppena** · 05/07/2006, 13h20

bonjour ,
j'ai trouvé un code sur ce forum que j'ai voulu testé ,

voilà le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#!/usr/bin/perl
 
 
#ce programme va se connecter à un serveur telnet et executer une commande
#il va éteindre le serveur cible
# pour le test nous allons éteindre une machine windows xp
 
 
 
 my $username="admin";
 my $passwd="pwadmin";
 
@hosts=('x.x.x.x');
 
 
 
 my $telnt = new Net::Telnet (Timeout=>undef) or die "ne peut pas se connecter!";
 
my $lvar;
my $i=0;
 
foreach $lvar(@hosts)
{
 
 printf("affichage ....... : %s \n", $i);
 $telnt->open($HOST);
 $telnt->login($username, $passwd);
 
 
 @lines = $telnt->cmd("pwd");
 
 print join(' ',@lines);
  $i++;
}

je reçois ce message d'erreur :

Can't locate object method "new" via package "Net::Telnet" (perhaps you forgot to load "Net::Telnet"?) at ./telnet.pl line 17.

bien que j'ai téléchargé Net::Telnet, version 3.03 , j'ai décompréssé le tar
et j'ai exécuté le fichier Make.pl
puis make et voilà ce que j'obtiens :

[root@localhost Net-Telnet-3.03]# make install
cp lib/Net/Telnet.pm blib/lib/Net/Telnet.pm
Manifying blib/man3/Net::Telnet.3pm
Installing /usr/lib/perl5/site_perl/5.8.5/Net/Telnet.pm
Installing /usr/share/man/man3/Net::Telnet.3pm
Writing /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/Net/Telnet/.packlist
Appending installation info to /usr/lib/perl5/5.8.5/i386-linux-thread-multi/perllocal.pod

mais le msg d'erreur persiste

que dois je faire?