Discussion :

[scrathi]

Bonjour, c'est le premier script en Perl que je fait et j'ai un peu de mal avec ,
je dois faire un script qui se connecte sur les equipement en telenet pour prendre le fichier de log.
voici le script Pas fini mais j'ai deja des erreur

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
#!/usr/bin/perl -w
use strict;
use warnings;
my $i;
my $choix;
my $nom;
my $ip;
my $telnet;
my $username="admin";
my $passwd="motsdepasse";
unshift(@INC,"C:/Perl/site/lib");
use Net::Telnet;
use Net::SNMP;
my $HOST=('$ip');
my $HOSTS=('$nom');
my $snmp_port = 161;
my $oid = « 1.3.6.1.4.1.318.1.1.12.1.5, 1.3.6.1.4.1.318.1.1.12.1.1 »;
my $host = « $ip »;
my $community = « private » 
my ($session, $error) = Net::SNMP->session(-hostname = $host,-timeout = 3,-retries = 1,-community = $community,-port = $snmp_port);
do 
{
print "vous voulez recherche par nom ou Par adresse Ip ?\n";
print "nom=1 et Adresse Ip=2 Quitter=3\n";
print"choix:";
$choix=<STDIN>;
 
if( $choix == 1 )
{
	print"vous avez fait le choix 1 \n";
	print"Saisir un nom : ";
	$nom=<STDIN>;
	$telnet->open($HOSTS);
	$telnet->login($username, $passwd);
	@ $oid 
 
 
}
elsif( $choix == 2 )
{ 
	print"vous avez fait le choix 2\n";
	print"saisir une adresse IP :";
	$ip=<STDIN>;
	$telnet->open($HOST);
	$telnet->login($username, $passwd);
	@ $oid
	}
else
{
	print"vous avez fait aucun choix \n";
 
}
} until( $choix==3);

voila l'erreur


desole j'ai flooter un peu le dossier personnel.

donc je dois faire un petit script qui va sur l'adresse de l'équiment et remonter par smnp les info .

donc j'ai un peu de mal c'est pour ca que je demande votre aide .

merci Scrathi

[scrathi]

apres, avoir relu j'ai vu mon erreur il arrivais pas trouver le fichier en question ,

mais maitenant j'ai une autre erreur
unrecognized charater \xAB ligne 17 ..

[Beniou]

Bonjour,

Ce sont tes guillemets qui délimitent une chaîne de caractère qui posent problème. Ils devraient être une double quote -> " (en dessous du chiffre 3)

Ton code :

Code :

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

1
2
3
4
 
my $oid = « 1.3.6.1.4.1.318.1.1.12.1.5, 1.3.6.1.4.1.318.1.1.12.1.1 »;
my $host = « $ip »;
my $community = « private »

devrait être :

Code :

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

1
2
3
4
 
my $oid = "1.3.6.1.4.1.318.1.1.12.1.5, 1.3.6.1.4.1.318.1.1.12.1.1";
my $host = $ip;
my $community = "private"

Remarques :
- pour ta variable $host les doubles quotes ne sont pas nécessaires puisque que $ip est une variable.
- ta variable $oid est une chaîne de caractère . Si tu veux un tableau tu devras modifier ton code

Code :

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

1
2
 
my @oid = ("1.3.6.1.4.1.318.1.1.12.1.5" , "1.3.6.1.4.1.318.1.1.12.1.1");

[scrathi]

Merci bien, une faute d'inattention ,

mais maitenant il me fait un autre erreur

global symbol"$sessions" requires explicit package name ligne 20
global symbol"$error" requires explicit package name ligne 20

Donc je leur attribué une variable
my $session;
my $error;

et donc il me fait ca actuellement syntax error at line near "my"

donc je comprend pas du tout ...

[Philou67430]

L'erreur se situe sans doute à la ligne précédente le my en question. Par exemple, il manque peut-être un point-virgule à la fin de l'instruction. Peux-tu donner le contexte du code à cet endroit (avec le numéro de ligne) ?

[scrathi]

merci pour le temps accordé
c'est ligne 22
serait le petit tiret ?
d'apres un site il le mettais donc je trouvais bizarre mais bon comme je connais pas j'allais pas remetre en doute .

Code :

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

my ($session, $error) = Net::SNMP->session(-hostname = $host,-timeout = 3,-retries = 1,-community = $community,-port = $snmp_port);

merci