Discussion :

[matttimon]

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 :

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
 
#!/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électionner tout - Visualiser dans une fenêtre à part

$s->open($host);

donc je sais pas vraiment je suis un peu bloqué

[Philou67430]

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

Code :

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

use SNMP::Util;

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

Code :

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

use strict;

Bonne journée.

[matttimon]

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

Code :

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

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 ..

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

Code :

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

use strict;

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

[Mohamed EL Béji]

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 :

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

   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 :

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

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 :

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

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