ping en perl Résolu

Question

Bonjour, 

je veux pinger des switch en utilisant le langage perl sous windows 7;

vous pouvez me montrer la syntaxe SVP !

en vous remerciant  par avance

sipherion · Answer

http://www.laissemoichercherca.com/?q=ping%20perl

Sérieux ?

reseaux · Answer

j'ai cherché sur le net mais pas trouver grand chose  sur perl sous windows 

plus sous linux ;

je voulais juste la bonne syntaxe de ping

sipherion · Answer

Que ce soit sous Windows ou Linux, le langage de programmation est le même, ça n'a aucun rapport.

Maintenant, je ne connais pas du tout le langage Perl, mais Google m'a trouvé quelques solutions :

https://www.google.fr/search?q=faire+un+ping+en+perl&ie=utf-8&oe=utf-8&rls=org.mozilla:fr-FR:official&client=firefox-a&gfe_rd=ctrl&ei=MfIeU-63O8uK8QeRoICwBQ&gws_rd=cr

Il te faut un module, et la syntaxe dépend donc du module que tu vas choisir.

C'est vachement bien Google !

blux · Answer

Salut,

tu peux demander à perl de faire le ping à ta place, en utilisant la commande windows, lancée par perl...

$REP = 'c:\windows\system32\ping 192.168.0.1' 
La commande est entre back-quote et non entre simple quote.
 
A+ blux            "Les cons, ça ose tout.C'est même à ça qu'on les reconnait"

[Dal] · Answer

Bonjour,

Net::Ping fait partir des core modules, il est donc utilisable sans qu'il soit nécessaire de l'installer à partir de CPAN ou d'un autre gestionnaire de modules.

Son utilisation est décrite à la documentation : https://perldoc.perl.org/Net::Ping

Cela donne un code comme suit pour un test simple :

#!/usr/bin/perl

use warnings;
use strict;

use Net::Ping;

my $host = "192.168.0.1";
my $p = Net::Ping->new();
print "$host is alive.
" if $p->ping($host);
$p->close();


Dal

Ping en perl

5 réponses

Discussions similaires

Newsletters