Onderwerp: SNMPGET in PERL

Hey,

Ik ben nog nieuw in de taal Perl, het was vandaag de eerste keer dat ik iets schreef in deze taal, heb wel al in andere talen zoals C en Java ervaring.

Ik wou in perl een scriptje schrijven dat de SNMP waarde uit mijn router haalt om ze dan later in RRDTOOL te gebruiker.

Het probleem is nu dat ik met onderstaande code de SNMP waarde wel uit de router kan halen & deze wordt ook direct op het scherm weergegeven, maar de SNMP waarde staat niet in de variabele ($OUT en $IN) gezet. Weet iemand wat ik verkeerd doe & een oplossing?

Bedankt,

Code:

#! /usr/local/bin/perl 

$OUT = system ("/usr/bin/snmpget","-v","1","-c","public","192.168.1.1",".1.3.6.1.2.1.2.2.1.16.8"); 
$IN = system ("/usr/bin/snmpget","-v","1","-c","public","192.168.1.1",".1.3.6.1.2.1.2.2.1.10.8"); 

print "De inkomende data is $IN \n De uitgaande date is $OUT\n";

Vraagje; waarom gebruik je system-calls terwijl er voor perl ontzettend veel mooie libraries zijn die dit allemaal netjes afhandelen?

http://search.cpan.org/

Ik ben verder ook geen Perl-guru, maar ik zet system-calls altijd tussen backquotes (`)... ik weet niet of het system-commando wel output teruggeeft.

Code:

#! /usr/local/bin/perl 

$OUT = `usr/bin/snmpget -v 1 -c public 192.168.1.1 .1.3.6.1.2.1.2.2.1.16.8`; 
$IN = `/usr/bin/snmpget -v 1 -c public 192.168.1.1 .1.3.6.1.2.1.2.2.1.10.8`; 

print "De inkomende data is $IN \n De uitgaande date is $OUT\n";

Gebruik de perl-libs, en geen systeemcalls. Je krijgt vermoedelijk gewoon de return-waarde van het commando in je variabele, niet de uitvoer van dit commando.