URL: https://linuxfr.org/forums/programmation-perl/posts/snmp-mode-asynchrone-et-fonction-callback
Title: snmp mode asynchrone et fonction callback
Authors: kenwaz
Date: 2008年02月27日T17:02:52+01:00
Tags: 
Score: 0
bonjour, 
 
Je voudrais effectuer mes requetes snmp en mode asynchrone. 
 
Seulement je ne parviens pas à extraire les données vouluues à partir de la foncttion callback. 
 
Voici le code: 
 
 use SNMP; 
 use Data::Dumper; 
 
 £spaces£	£/spaces£$session = new SNMP::Session(DestHost => "$ip", Community => "$com", UseSprintValue => 1, Version => 1); 
 
 £spaces£	£/spaces£my $res = $session->get("sysDescr.0",[\&call]); 
 £spaces£	£/spaces£die $session->{ErrorStr} if ($session->{ErrorStr}); 
 £spaces£	£/spaces£SNMP::MainLoop(); 
 
Et la fonction callback: 
 
 sub call { 
 £spaces£	£/spaces£my $vlist = shift; 
 £spaces£	£/spaces£print "ok\t0:'$vlist->[0][0]'\t1:'$val->[0][1]'\t2:'$val->[0][2]'\t3:'$val->[0][3]'\n"; 
 £spaces£	£/spaces£print Dumper($vlist); 
 £spaces£	£/spaces£SNMP::finish(); 
 
 
Le resultat affiché a lecran est : 
 
 0:'sysDescr' 1:'' 2:'' 3:'' 
 0:'' 
 $VAR1 = bless( [ 
 £spaces£ £/spaces£bless( [ 
 £spaces£ £/spaces£'sysDescr', 
 £spaces£ £/spaces£'0', 
 £spaces£ £/spaces£'Cisco Systems WS-C6513 
 Cisco Catalyst Operating System Software, Version 8.4(6) 
 Copyright (c) 1995-2006 by Cisco Systems 
 ', 
 £spaces£ £/spaces£'OCTETSTR' 
 £spaces£ £/spaces£], 'SNMP::Varbind' ) 
 £spaces£ £/spaces£], 'SNMP::VarList' ); 
 
 
Je comprend pas pourquoi j'arrive à accéder au premier champs du tableau 'sysDescr' et pas aux suivants(le resultat voulu). 
 
Quelqu'un aurait une idée ? 
 
Je ne trouve pas de doc sur le net trés clair sur le mode asynchrone. 
 
Merci
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/forums/programmation-perl/posts/snmp-mode-asynchrone-et-fonction-callback.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/forums/programmation-perl/posts/snmp-mode-asynchrone-et-fonction-callback.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>