Erreurs dans mon code PERL
Bonjour à tous,
à partir du langage PERL et du protocole SNMP, je voudrai récupérer l'autonomie restante d'une batterie sur un onduleur MGEUPS.
Voici le code que j'ai ecrit :
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
| #!/usr/bin/perl
use strict;
use Net::SNMP;
my ($session, $error) = Net::SNMP->session(
-hostname => shift || '192.168.254.250', // Adresse IP de l'onduleur \\
-community => shift || 'public',
-port => shift || 161
);
if (!defined($session)) {
printf("ERROR: %s.\n", $error);
exit 1;
}
my $sysUpTime = '1.3.6.1.4.1.705.1.4.7' // MIB de l'onduleur \\
my $result = $session->get_request(
-varbindlist => [$sysUpTime]);
if (!defined($result)) {
printf("ERROR: %s.\n", $session->error);
$session->close;
exit 1;
}
printf("sysUpTime for host '%s' is %s\n",
$session->hostname, $result->{$sysUpTime});
$session->close;
exit 0; |
Cependant, lorsque j'execute ce script, j'ai le message d'erreur suivant :
syntax error at check_tempSAVE.pl line 19, near "my "
Global symbol "$result" requires explicit package name at check_tempSAVE.pl line 19.
Global symbol "$sysUpTime" requires explicit package name at check_tempSAVE.pl line 20.
Global symbol "$result" requires explicit package name at check_tempSAVE.pl line 22.
Global symbol "$result" requires explicit package name at check_tempSAVE.pl line 29.
Execution of check_tempSAVE.pl aborted due to compilation errors.
Pouvez-vous m'aider ?
merci bcp :(
