適当にモジュール作成してみる

myping

#!/bin/bash
eval $(perl -lne 'while(/\s?([^=\s]+)\s?=\s?(\"(?:\\\"|[^\"])+\"|\x27(?:\x27\\\x27\x27|[^\x27])+\x27|\S+)\s?/g){print "$1=$2"}' $1)

if [ -z "${ip}" ]; then
  printf "rc=0 changed=False ip='ip not found'"
  exit 0
fi

ping -w 3 ${ip} >/dev/null 2>&1
if [ $? -eq 0 ]; then
  echo "changed=True"
  exit 0
else
  echo "changed=False msg=\'ping failed\'"
  exit 0
fi