Discussion :

[chella]

bonsoir, mon programme consiste a:
-connexion a telnet(host et username et password sont des valeurs dynamiques)
-lancer la commande 'show ISDN active'
-afficher le resulat de la commande
-si le resultat=28 l'erreur worning s'affiche et on decconecte de la session
-si le resultat=30 l'erreur critical s'affiche et on decconecte de la session
-si non il saffiche ok

voici mon code source ecrit en perl:

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
#!/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},
);
my @lines=$session->cmd('show ISDN active');
my $reslt=@lines;
{   
my %errors=('ok'=>0, 'warning'=>1, 'critical'=>2);
if ($reslt=28){
print ("error \n", $errors=>1);
exit 1;
close->$session;
}   
elsif($reslt=30){
print("error \n", $errors=>2);
exit 2;
close->$session;
}
else {
print ("error \n", $errors=>0);
exit 0;
close->$session;

mais l'erreur suivante s'affiche:

Global symbol "$errors" requires explicit package name at ./test.pl line 17.
Global symbol "$errors" requires explicit package name at ./test.pl line 22.
Global symbol "$errors" requires explicit package name at ./test.pl line 27.
Missing right curly or square bracket at ./test.pl line 29, at end of line
syntax error at ./test.pl line 29, at EOF
Execution of ./test.pl aborted due to compilation errors.

[Dimitry.e]

Code :

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

errors{1}

Et non pas :

Code :

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

$errors=>1

Mais tu sembles avoir inverser tes clés et tes valeurs. Ne voudrais-tu pas plutôt écrire :

Code :

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

my %errors=(0=>'ok', 1=>'warning', 2=>'critical');

Edit : il te manque une accolade fermante tout à la fin.

[Philou67430]

Il manque aussi la balise CODE (icône ) pour poster du code sur le forum... ce qui permet de conserver l'indentation, et d'avoir un script lisible.

[chella]

merciii voici mon programme corrigé mais il me reste une erreur de end of file:
Missing right curly or square bracket at ./test.pl line 33, at end of line
syntax error at ./test.pl line 33, at EOF

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
#!/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});
}

[Dimitry.e]

Il y a une obscure accolade ouvrante en plein milieu de ton code qui n'a pas sa "soeur".

[chella]

c'est vrai j'ai trouvé la faute mais encore une erreur d'execution s'affiche :
Can't locate object method "session" via package "Net::Telnet" at ./test.pl line 7. malgré que j'au déja installer libnet-telnet-perl.ca peu quoi étre le problém???.
merci d'avance.