Question

In BASH can I ping a server like so

for i in $MY_SERVER_LIST; do
   if ping -c 1 $i > /dev/null 2>&1; then
      # $i is alive
   fi
done

and I would like to do the same in Perl, but how do I get the response from

my $response = `ping -c 1 google.com > /dev/null 2>&1`

Question

How do I do the same in Perl, but without using any packages like Net::Ping?

Answer 1

You are interested in the exitcode of ping not the output; forget about the $response and examine the exitcode in $?.