Discussion :

[calimero642]

Bonjour a tous,
Je fais un ping avec un test en fonction du resultat mais je ne print rien du ping et pourtat il m affiche qq chose ca vient d ou ????


Warning: time of day goes back, taking countermeasures.

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
use strict;
package sous_fonc_ping;
sub Fonc_Ping
{
        my ($Ping_Cmd,$Ping_Cible,$Adress_Ip,$Ping);
        ($Adress_Ip) =@_;
        $Ping_Cmd = "ping -c 2  ";
        $Ping_Cible ="$Adress_Ip";
        $Ping = `${Ping_Cmd} ${Ping_Cible}`;
        chomp($Ping);
        return $Ping;
}
1;

Merci de me dire si c est possible d eviter d voir une connerie qui s affiche !!!
Jules

[Invité]

Pourquoi ne pas utiliser Net:ing ?

Code :

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

1
2
3
4
5
    use Net::Ping;
 
    $p = Net::Ping->new();
    print "$host is alive.\n" if $p->ping($host);
    $p->close();

[calimero642]

Tout bonnement parceque je ne connaissait mais merci je vais tester !!
A pluche jules

[GLDavid]

Petit tag résolu si c'est bon.

@++

[2Eurocents]

Sinon, de façon générale, quand on utilise des commandes système, plutot que des modules équivalents, il faut savoir qu'elles ont deux sorties :

• - la sortie standard qui reçoit l'affichage "ordinaire" de la commande, et qui est généralement récupérée par nos scripts.
  - la sortie d'erreur, qui reçoit les avertissements et alertes. Celle-ci est distincte de la première et est donc affichée si l'on n'a rien fait pour l'éliminer ou la récupérer aussi.

Les backquotes et la commande open ne récupèrent que la sortie standard, et pas celle d'erreur.

Je crois que la commande système récupère les deux (sauf spécification contraire)

Certains éliminent tout simplement leurs sorties d'erreur avec une redirection explicite de la sortie d'erreur vers un puit sans fond (/dev/null sous *n*xoïdes) :

Code :

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

$Ping = `${Ping_Cmd} ${Ping_Cible} 2>/dev/null`;

D'autres, plus subtils, utilisent les mécanismes de Perl pour les redirections de la sortie d'erreur vers des fichiers séparés :

Code :

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

1
2
open(STDOUT, ">fichier_des_erreurs.txt");
    system("${Ping_Cmd} ${Ping_Cible}");

[calimero642]

Pourrais tu juste me preciser a quoi correspond le chiffre 2 STP de la commande:

Code :

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

$Ping = `${Ping_Cmd} ${Ping_Cible} 2>/dev/null`;

Et merci ca fonctionne nickel !!

[2Eurocents]

Le 2 est le numéro de la sortie d'erreur.

Le 1 est le numéro de la sortie standard, et c'est le numéro implicite de l'opérateur de redirection >.

Si l'on veut rediriger autre chose que la sortie standard, il faut préciser ... donc pour STDERR, c'est "2>".

[Invité]

C'est la sortie standard des erreurs. De cette façon, elle est redirigée, en l'occurrence dans un puits sans fond...

[Invité]

Opps, bah on est synchro 2Eurocents !