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é