Comment puis-je ping à un hôte avec un Perl one-liner avec Net::Ping?

En essayant d'intégrer le Perl suivant une ligne dans un script shell. Ce code fonctionne à l'intérieur d'un script Perl, mais pas comme un one-liner exécuté à partir d'un script shell.

J'ai essayé de remplacer $host avec un vrai nom d'hôte avec pas de chance.

#!/bin/ksh

hosts="host1 host2 host3"

PERL=/usr/bin/perl

# Check to see if hosts are accessible.
for host in $hosts
do
   #echo $host
   $PERL -e 'use Net::Ping; $timeout=5; $p=Net::Ping->new("icmp", $timeout) or die bye ; print "$host is alive \n" if $p->ping($host); $p->close;'
done
Pourquoi êtes-vous à l'aide de perl au lieu de simplement ping?
J'ai intégré cela dans un pays déjà écrit script shell qui je ne se soucient pas de port. Cela sert comme une pratique, toujours très rapide (qui est, il ne se bloque pas) one-liner qui fonctionne sur les plates-formes.

OriginalL'auteur XO. | 2010-10-18

  1. 9

    Les guillemets simples dans la coquille arrêter l' $host d'être interprété. De sorte que vous pouvez arrêter et redémarrer les guillemets simples:

    perl -MNet::Ping -e 'if (Net::Ping->new("icmp", 5)->ping("'$host'")) {print "'$host' is alive\n"}'

    Alternativement, vous pouvez passer de l'hôte en tant que paramètre à voir l'autre réponse.

    Doh, tout comme avec le sed. Merci un million.

    OriginalL'auteur a'r

  2. 1

    Essayer de remplacer $host:

    $PERL -e 'use Net::Ping; $timeout=5; $p=Net::Ping->new("icmp", $timeout) or die bye ; print "$host is alive \n" if $p->ping($host); $p->close;'

    avec $ARGV[0], le premier argument de ligne de commande: 

    $PERL -e 'use Net::Ping; $timeout=5; $p=Net::Ping->new("icmp", $timeout) or die bye ; print "$ARGV[0] is alive \n" if $p->ping($ARGV[0]); $p->close;' $host
    J'ai "presque" de la pensée de le faire mais il se détourna. Cependant, cela me donne une option supplémentaire, je peux intégrer ce script. Merci...

    OriginalL'auteur OMG_peanuts

  3. 0

    Si vous souhaitez utiliser Perl, puis utilisez l'interpréteur Perl à l'exécution de votre script. 

    #!/usr/bin/env perl -w
use Net::Ping;
$timeout=5;
$p=Net::Ping->new("icmp", $timeout) or die bye ;
@hosts=qw/localhost 10.10.10.10/;
foreach my $host (@hosts) {
  print "$host is alive \n" if $p->ping($host);
}
$p->close;

    Sinon, vous pourriez aussi bien utiliser la ping de commande directement à partir de la coquille

    #!/bin/bash
for hosts in host1 host2 host3
do
  if ping  ...... "$hosts"  >/dev/null  ;then
      .....
  fi 
done
    Merci. Je suis d'accord --suffit d'utiliser perl exclusivement. J'ai intégré cela dans un pays déjà écrit script shell qui je ne se soucient pas de port. Cela sert comme une pratique, toujours très rapide (qui est, il ne se bloque pas) one-liner.

    OriginalL'auteur ghostdog74