bon en gros j y connais rien au perl et faut que je comprenne comment marche un prog en perl pour faire du peering.
 
y a des socket et je pige pas comment ca marche : en faite surtout comment il recupere les valeur
 
ca veut dire quoi ce genre de chose
 
if (/^%/)
 
ou encore ca
 
if      ($line =~ /^import: +from AS(\d+)/i) {
     $ret{$1} |= 1;
 }
 
y a un bon site de reference sur le perl comme php.net pour le php ?

Bon, ce que tu montres ici, c'est du RegExp, Regular Expression, le truc (parmi tant d'autres) qui fait toute la force de Perl
 
Alors voyons voir :

Ici, on teste le contenu de la variable $_ et on regarde si elle commence par le signe %
 

 
Ici, on teste le contenu de $line :
si $line commence par la chaîne 'import:', suivie d'au moins 1 espace, suivi de la chaine 'from AS' suivi d'au moins 1 chiffre ...
 
remarque bien le (\d+), ça signifie que le chiffre est isolé de la chaîne afin que ton prog puisse le récupérer directement. Du fait qu'il est mis entre ( ), ton chiffre se retrouve dans une variable RegExp qui s'appelle $1.
 
En gros, lorsqu'ensuite le programme fait :

ça signifie ici que dans un hash %ret, tu va créer une clé correspondant au chiffre topé dans $line et indiquer 1 comme valeur à cette clé.
 
Bon, je sais que c po d'une simplicité extrême mais si tu veux la totalité de la doc en français, va faire un tour ici :
 
http://www.mongueurs.net/perlfr/perl.html

http://www.perldoc.com
 
hihi

merci de ces precieuses url je continuemon apprentissage du perl et je galere moins.
 
sinon encore une question ca veut dire quoi ca
 

 
la question c qu est ce que ca veut dire les ` `
est ce que c une demande a un siteen perl comme je le suppose

un site en Perl ???
 
non, les ` ` signifie que ce qui est entre ` ` va être exécuter. Et le fait d'affecter ça à la variable $reponse signifie que $reponse contiendra le résultat
 
Arf, pas simple à expliquer mais essaie ceci :
 

 
en clair, `dir C:\` va retourner sur l'écran (STDOUT) le résultat de la commande dir C: et le fait de dire $resultat = `dir C:` signifie que $resultat récupère l'intégralité de STDOUT
 
heu, sorry si j'suis un peu embrouillé, mais j'ai po encore pris mon café

` => backtick
 
ça sert a executer des commandes systeme et recuperer le resultat. Tu peux aussi utiliser exec ou system pour executer des commandes.
 
+ d'infos sur exec ou system => http://www.perldoc.com
 
hihi

impulse a écrit a écrit : + d'infos sur exec ou system => http://www.perldoc.com hihi

tu l'aimes bien ce site, pas vrai ?

 
Ben quand t'as pas Learning Perl ou le Camel book sous la main c'est tout de meme bien pratique.
 
hihi
 
PS : j'aime pas les zaricots par contre

Les zaricots, caibon, mangez zan

 
merci    
 
en faite c pas un site en perl mais on utilise beaucoup de perl dedans comme outils