Salut,
 
J'aimerais savoir si quelqu'un peut me recoder ce script en Perl (5.8) et qu'il fonctionne sous Windows XP. J'ai aucune connaissance en Perl donc je fais appel à vous
 
Merci d'avance

pourquoi en perl ???

ben le Shell sous Windows XP ça le fait pas

et le perl alors ?
 
tu penses pas que ca serait plus simple de passer sous linux ?
ou de recoder le truc en script dos ?

---------------
modérateur inside plankaivoo - ici powered - Je roule en micra 1l 55cv et je t'emmerde

bah le batch ... au pire le C  
 
mais Du perl ss win pour faire ca... c gore ^^

en Vb doit y avoir moyen assez simplement.

ben faudrais que ça marche avec MRTG pasque en Perl je n'aurais juste à faire :  
 
Target[Ping]: `perl X:\ping.pl`
 
et hop
 
sinon j'ai trouvé ça : http://www.adsl-france.org/jldupon [...] -probe.zip mais c'est beaucoup trop lourd pour mon utilisation...

Bah essaie de jeter un coup d'oeil aux "pages man" de la commande ping sous Win  
genre ping /h ou /help j'en sais rien
ensuite bah y'a pas des fonctions genre cut?

c portable ss win ce genre de bin
 
et max... je suis en mrtg sur mes serveur (que je vais changer d'ailleurs...) et je fait tout en script bash

sur le cd de windows y'a sed.exe , tu dois pouvoir bidouiller avec ca

Je dis p'tet une connerie, mais t'as pensé à essayer cygwin?

sortir la grosse Bertha pour tuer un moucheron.... ^^

 
moi le traffic en SNMP et le ping bah...

 
ouais j'y ai pensé... j'essayerais ce soir

snmp ca pue du cul pour ce genre de stats

c'est tout à fait faisable en perl avec quelques expressions régulières pour remplacer les grep, cut, sed, etc... mais les expressions régulières ça donne mal à la tete...

 
laissez tomber alors...

je reitere ma proposition pour sed qui existe sous win kkpart dans un des CD ( et probablement online ), il remplacera sans probleme grep et cut
( cela dit, j'irais pas faire le script, flaimme )

En perl, fait de tête donc pas tester :
 
#!/bin/perl
 
my $st = `ping -n 3 -w 6 62.4.16.248`;
my ($min, $max, $avg) = (st =~ m|^\s+Minimum\s+=\s+(\d+)(?:\.\d+)?ms,\s+Maximum\s+=\s+(\d+)(?:\.\d+)?ms,\s+Average\s+=\s+(\d+)(?:\.\d+)?ms|);

ca c'est du code imbitable de chez illisible !
 
tu pourrais pas commenter ?

ben du regexp du peu pas trop faire dans la dentelle nan plus ^^

Illisible surtout parce j'ai tout mis sur une seule ligne... Sinon les motifs de la regexp sont pas tres complexes en eux memes.
 
"^\s+Minimum\s+=\s+(\d+)(?:\.\d+)?ms,"
Cherche la chaine "Minimum" en debut de ligne avec eventuellement des espaces devant.  
Suivi d'un caractere egale (precedé et suivi eventuellement d'espaces).  
Garde en mémoire un chiffre (et eventuellement des chiffres suivant si ils existent et si il y a un point). Jusqu'a trouver "ms,".
 
Et globalement ça refait la meme chose pour les deux autres valeurs (Maximum et Average ou Moyenne si on a une Windows Français).