Bonjour,
 
J'ai ouvert un tunnel ssh en localhost sur mon port 6572 par exemple.
Je voudrai dans un script vérifier si j'arrive bien à ping la machine avant de le lancer.
 
Le script ci-dessous fonctionne si je rentre l'ip en "dure", mais je n'arrive pas à spécifier cela avec un port.
 
Pour info,
Je me connecte en ssh sur la machine en utlisant cette commande:  

#!/usr/bin/perl -w
use warnings;
use strict;
use Net::Ping;
 
my $host = "localhost";
 
# On Check si le serveur est joignable
my $p = Net::Ping->new();
if ($p->ping($host)) {
    print "$host répond.\nScript Starting...\n\n";
}
else {
    print "$host ne répond pas.\n";
    print "__END__\n";
    exit 0;
}
$p->close();
 
__END__

En faite je suppose que ce n'est pas possible.
Je vais donc essayer de bosser avec un module ssh pour tester si la connexion est possible.

Il manque une ligne, celle qui spécifie le port, je pense:
 

#!/usr/bin/perl -w
use warnings;
use strict;
use Net::Ping;
 
my $host = "localhost";
 
# On Check si le serveur est joignable
my $p = Net::Ping->new();
$p->port_number(6572); # ligne ajoutée 
if ($p->ping($host)) {
    print "$host répond.\nScript Starting...\n\n";
}
else {
    print "$host ne répond pas.\n";
    print "__END__\n";
    exit 0;
}
$p->close();
 
__END__

 
Sinon, vous pouvez aussi essayer ceci: http://www.brendangregg.com/Perl/portping
A+,
 

Ah il manquait cette fameuse ligne !
Merci Gilou, avec ça cela marche impec.
 
Heureusement que tu es là pour me débloquer.
Encore merci