pb de mettre en place package Net::Telnet
bonjour ,
j'ai trouvé un code sur ce forum que j'ai voulu testé ,
voilà le code :
Code:
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 :
Citation:
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 :
Citation:
[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?
