Discussion :

[chella]

bonjour voici mon programme
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
#!/usr/bin/perl
use strict;
use Net::Telnet;
use Getopt::Std;
my %options=();
getopts("H:U:P",\%options);
my$session=new Net::Telnet->session(
- hostname =>shift || $options{H},
- username => shift || $options{U},
- password => shift || $options{P},
);
$session->open(shift || $options{H});
$session->login(shift || $options{U},shift || $options{P});
my @lines=$session->cmd('show ISDN active');
my $reslt=@lines;
my %errors=(0=>'ok',1=>'warning',2=>'critical');
if ($reslt=28){
print ("error \n", $errors{1});
exit 1;
close->(shift || $options{H});
}
elsif($reslt=30){
print("error \n", $errors{2});
exit 2;
close->(shift || $options{H});
 
}
else {
print ("error \n", $errors{0});
exit 0;
close->(shift || $options{H});
}

mais l'ors de l'execution il m'affiche l'erreur suivante:
Can't locate object method "session" via package "Net::Telnet" at ./test.pl line 7.
pouvez vous m'aidez s'il vous plait c'est tré urgent.merciii

[Philou67430]

Où as-tu trouvé la doc de Net::Telnet ??? Il semble que ce ne soit pas au bon endroit, car Net::Telnet ne dispose effectivement pas de la méthode session, et que les paramètres d'appel du constructeur ne sont pas ceux que tu donnes.

[chella]

j'ai essayer avec ce code en utilisant use Getopt.. parceque je doit entré l''address de lhote,login et mot de passe je nsé pas si cé just mais voici le code
code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use strict;
use Net::Telnet;
use Getopt::Std;
my %options=();
getopts("H:U:P",\%options);
my $host=>shift || $options{H};
my $username=>shift || $options{U};
my $password=>shift || $options{P},
my $telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die',Prompt=>'/$ $/i');
$telnet->open(shift || $options{U});
$telnet->login($username,$password);
$telnet->close;

mais le message : d'erreur unknown remote host: at ./script1.pl line 11

svp svp vrm jh'ai besoin de votre aide c tré urgentt je doi connecter a telnet avec perl svp aidez moi !!!!!! merci d'avance

[Mr6]

Salut !

my $password=>shift || $options{P},

faute de frappe ou de recopie pour la virgule en fin de ligne ?

my $telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die',Prompt=>'/$ $/i');

Ou est passé $host ?

$telnet->open(shift || $options{U});

Peut-être ici ? à la place de $options{U} ?


@+
Mr6