Discussion :

[sommerset]

bonjour a tous,

j'aimerais savoir s'il est possible d'effectuer un ping avec perl, sans forcement passer par la bibliotheque WWW::Mechanize, merci.

[arthurr]

Net:ing ...
http://search.cpan.org/search?query=ping&mode=all

[sommerset]

merci,

mais qd je l'utilise, j'ai un message d'erreur à l'execution :

"icmp ping requires root privilege"

quel fichier dois-je reconfigurer?

[Fanch.g]

Est-ce que ping marche quand tu le fais en dehors de ton script perl ?

[sommerset]

oui sous MS-DOS ça marche...

mais des que j'essaie d'executer ce sript depuis un invite de commande linux ca ne marche plus :

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
 
#!/usr/bin/perl -w
 
use strict;
use Net::Ping;
 
my $host = $ARGV[0];
 
my $p = Net::Ping->new("icmp");
 
if ($p->ping($host)) {
    print "$host est vivant.\n";
} else {
    print "$host est hors d'atteinte.\n";
}

[sommerset]

apparamment je crois que je ne peu pas envoyer des donees ICMP, a cause de ma configuration.
est-il possible de faire la meme chose avec tcp ou udp?

[djibril]

question pour apprendre c'est quoi un ping?

[sommerset]

C'est vrai que j'ai mal formulé ma question

Ping est un outil de diagnostic qui permet de s'assurer de la connexion entre deux machines sur un réseau. Il envoie des paquets contenant des demandes d'écho ICMP vers une adresse IP distante et se met à l'écoute de réponses ICMP.

Mais est-il possible de faire la meme chose avec tcp ou udp? car manifestement un ping simple ICMP est chose impossible par le biais de perl, meme avec la bibliotheque Net:ing. Si qqn a une idee sur la question merci de m'en faire part

[Jedai]

Non non, la faute n'est pas à Perl, mais à Linux, car seul root semble avoir le droit de faire un ping sur ton pc... Essaie de lancer le script en root pour vérifier que le problème est bien là.

--
Jedaï

[sommerset]

mais est-il possible de contourner ça? c-a-d pouvoir le faire sans modifier la configuration de linux? parce que quand je fais un ping normal sous linux ça marche

[GLDavid]

Pourquoi pas utiliser sudo alors ? Tu configures le fichiers /etc/sudoers avec visudo et tu peux lancer ton script avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sudo ton_script.pl

@++

[sommerset]

oui faudra que je jette un coup d'oeil...

mais sinon j'ai tenté le script suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
#!/usr/bin/perl -w
 
use strict;
 
my $host = $ARGV[0];
system("ping ".$host);

ça lance automatiquement un ping, mais vu que je travaille sous linux, je sais pas comment limiter le nombre de pings, comme sous MS DOS avec -n [nombre]
et comment saisir le résultat de la commande?
je suis en train de chercher mais si qqn a deja la reponse ca serait cool

[djibril]

ça lance automatiquement un ping, mais vu que je travaille sous linux, je sais pas comment limiter le nombre de pings, comme sous MS DOS avec -n [nombre]
et comment saisir le résultat de la commande?

je ne connais rien sur le ping, mais pour recuperer les resultats, tu peux faire un tableau,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
my @toto = system("ping ".$host); ou
my @toto = `ping $host`;

sinon pour

je sais pas comment limiter le nombre de pings, comme sous MS DOS avec -n [nombre]

un man ping pourrait t'aider non. Voilà peu pas faire plus, car je suis pas sur linux et connais pas ping

Pour la programmation voir les cours et tutoriels pour apprendre Perl : http://perl.developpez.com/cours/

[GLDavid]

ping est une commande envoyant des paquets pour tester si une machine distante répond ou non.
Sinon, pour le reste, djibril a indiqué la voie à suivre.

@++

[sommerset]

Merci pour votre aide j'ai une ebauche de solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
#!/usr/bin/perl -w
 
use strict;
 
my $host = $ARGV[0];
 
my @reponse = system("ping -c 1 ".$host);
 
if ($reponse[0] == 0) {print("Connexion OK\n");}
elsif ($reponse[0] == 512) {print("Pas de connexion\n");}
#elsif ($reponse[0] == 256) {stop;}

Ce script marche a à priori quand on entre en parametre un nom de domaine ou localhost, mais il reste un pb quand on entre une adresse physique... en tout cas votre aide m'a permis de me mettre sur la voie, merci!

[GLDavid]

Une adresse physique ? Tu entends par là une adresse IP ?
Normalement, ping prend les adresses IP.

@++