Discussion :

[X-Flap]

Bonjour,

J'ai un petit script qui va me chercher les informations de la table mac de chaque switch en snmp. Je remonte l'équivalent de la commande "show cam" chez cisco.

Il fonctionne trés bien, mais est un peu lent pour certains switch: cela varie de 10 à 200 secondes .

Je me demandais si vous voyez une solution afin d'améliorer ce délais. Pour un parc de 30 switch, ca me revient à presque 20 minutes au total.

Voici le script:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
	my ($switch,$ip) = @_;
 
	my $dot1dTpFdbAddress = 	'.1.3.6.1.2.1.17.4.3.1.1'; 
	my $dot1dTpFdbPort= 		'.1.3.6.1.2.1.17.4.3.1.2'; 
	my $dot1dBasePortIfIndex= 	'.1.3.6.1.2.1.17.1.4.1.2'; 
	my $ifName= 			'.1.3.6.1.2.1.31.1.1.1.1';
 
	$session = new SNMP::Session(DestHost => "$ip", Community => "public", UseSprintValue => 1, Version => 1, UseNumeric => 1);
 
	die "session creation error: $SNMP::Session::ErrorStr" unless (defined $session);
 
	$vars = new SNMP::VarList(["$dot1dTpFdbAddress"], ["$dot1dTpFdbPort"]);
 
	# premiere ligne
	my ($macaddr,$portnum) = $session->getnext($vars);
	die $session->{ErrorStr} if ($session->{ErrorStr});
 
	#les suivantes
	while (!$session->{ErrorStr} and $$vars[0]->tag =~ /^$dot1dTpFdbAddress/){
	    $ifnum = 
	          (exists $ifnum{$portnum}) ? $ifnum{$portnum} :
	            ($ifnum{$portnum} = 
	               $session->get("$dot1dBasePortIfIndex\.$portnum"));
 
	        $portname = 
	          (exists $portname{$ifnum}) ? $portname{$ifnum} :
	            ($portname{$ifnum}=$session->get("$ifName\.$ifnum"));            
	        print "$macaddr sur $portname\n";
	        ($macaddr,$portnum) = $session->getnext($vars);
	};

Je pensais peut-être faire les requêtes snmp en asynchrones par exemple, ....

Merci

[Jedai]

Je pensais peut-être faire les requêtes snmp en asynchrones par exemple, ....

Oui, c'est la bonne solution, d'autant que Net::SNMP te permet de faire ça en standard, lis la section "Non-blocking" de la doc.

--
Jedaï

[X-Flap]

Le problème est que j'utilise malheureusement le module SNMP et pas Net::SNMP.
Existerait t-il un moyen de faire pareil ?

J'avais deja vu cete solution mais je voudrais au possible eviter de rechanger de module.

[Jedai]

Ok, ce n'est pas un problème non plus : il te suffit de rajouter un argument callback à tes appels SNMP pour qu'ils soient automatiquement transformés en appels asynchrones, ensuite tu appelles Mainloop() avec un timeout et tu répètes tant que tous les appels ne sont pas finis.

--
Jedaï