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:
mais l'erreur suivante s'affiche:
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;
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.
Partager