connection snmp get

bonjour , étant nouveau et viens découvrir fraichement le Perl , même avec plusieurs site je n'arrive pas a trouver mon problème.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

#!/usr/bin/perl -w use strict; use warnings; my $host; my $s; my $sysname; my $sysup; my $community=" public"; my $oid = " 1.3.6.1.4.1.318.1.1.12.1.1 "; print"saisir une adresse IP :"; $host=<STDIN>; $sysname = snmpget($host, $community, $oid); $sysup = snmpget($host, $community, $oid); print "$sysname"; print "$sysup";

---

donc le problème c'est qu'il me dit undefined subroutine &main::snmpget ligne 12 <STDIN> ligne 1
j'ai essayer avec un

Code:

---

$s->open($host);

---

donc je sais pas vraiment je suis un peu bloqué :(

Tu as oublié d'utiliser le module SNMP::Util :

Code:

---

use SNMP::Util;

---

Profite en pour prendre de bonnes habitudes en ajoutant également :

Code:

---

use strict;

---

Bonne journée.

Citation:

---

Envoyé par Philou67430

Tu as oublié d'utiliser le module SNMP::Util :

Code:

---

use SNMP::Util;

---

---

Merci pour cela elle m'avais echaper c'est vrai , mais maitenant il me dit qu'il ne trouve pas le fichier Util.pm mais ca c'est un autre probleme que je peux resoudre seul ..

Citation:

---

Profite en pour prendre de bonnes habitudes en ajoutant également :

Code:

---

use strict;

---

---

oui Merci , mais j'avais deja mis au debut :) mais merci quand meme

Salut,

Pour écrire un module, Tu dois créer un fichier indépendant du ou des scripts qui l'utilisent. L'extension de ce fichier est impérativement .pm : par exemple Utils.pm Ce fichier doit être placé dans un des répertoires listés dans la variable @INC ; pour commencer vous pourriez le placer dans votre répertoire de travail à côté du script qui l'utilisera, car le répertoire . est présent dans ce tableau @INC.

Ce fichier doit contenir une première ligne indiquant le nom du module ; pour cela, vous devez écrire :

Code:

---

package Utils;

---

Il est important de voir que le nom du package doit être le même que celui du fichier (à l'extension près). Le fichier peut ensuite contenir des définitions de fonctions. Voici un exemple simple d'un tout petit module complet :

Code:

---

1 2 3 4 5 6 7 8 9

# --- fichier Utils.pm --- package Utils; use strict; sub bonjour { my ($prenom) = @_; print "Bonjour $prenom\n"; } 1;

---

Il est important de ne pas oublier la dernière ligne, celle qui contient 1; ; Je reviens plus tard sur son rôle.

Pour pouvoir utiliser ce module dans un script, il est nécessaire d'invoquer l'instruction use suivie du nom du module. Voici un exemple de l'utilisation du module précédent :

Code:

---

1 2 3 4 5

#!/usr/bin/perl -w # --- fichier script.pl --- use strict; use Utils; # chargement du module Utils::bonjour( "Joe" );

---

La dernière ligne correspond à l'appel de la fonction bonjour du module Utils. La syntaxe est la suivante : le nom du module est suivi de deux signes deux-points puis du nom de la fonction.


Hope it help :ccool: