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