Pastable version of Example of Net::Ping

<div style="overflow:auto;border:solid 1px #ccc;background:#000;color:#F8F8F8">
          <div class="section">
            
            <pre style="float:left;margin:0 10px;border-right:0;color:#666;">1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21</pre>
            <pre class="sunburst"><span style="color:#AEAEAE;font-style:italic;"><span style="color:#AEAEAE;font-style:italic;">#</span>!/usr/bin/perl -w</span>

<span style="color:#AEAEAE;font-style:italic;"><span style="color:#AEAEAE;font-style:italic;">#</span> This scrit use the Net::Ping Module to ping an </span>
<span style="color:#AEAEAE;font-style:italic;"><span style="color:#AEAEAE;font-style:italic;">#</span> host (value of $ARGV[0]). The protocol is icmp,</span>
<span style="color:#AEAEAE;font-style:italic;"><span style="color:#AEAEAE;font-style:italic;">#</span> timeout is 5 seconds, and bytes sent are 256. </span>
<span style="color:#AEAEAE;font-style:italic;"><span style="color:#AEAEAE;font-style:italic;">#</span></span>
<span style="color:#AEAEAE;font-style:italic;"><span style="color:#AEAEAE;font-style:italic;">#</span> Example:</span>
<span style="color:#AEAEAE;font-style:italic;"><span style="color:#AEAEAE;font-style:italic;">#</span></span>
<span style="color:#AEAEAE;font-style:italic;"><span style="color:#AEAEAE;font-style:italic;">#</span> [root@localhost scripts]# perl ping.pl google.com</span>
<span style="color:#AEAEAE;font-style:italic;"><span style="color:#AEAEAE;font-style:italic;">#</span> google.com up</span>

<span style="color:#E28964;">use</span> Net::Ping;

<span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>p</span> = Net::Ping<span style="color:#E28964;">-&gt;</span>new(<span style="color:#65B042;"><span style="color:#65B042;">&quot;</span>icmp<span style="color:#65B042;">&quot;</span></span>, 5, 256);

<span style="color:#E28964;">if</span>(<span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>p</span><span style="color:#E28964;">-&gt;</span>ping(<span style="color:#3E87E3;"><span style="color:#3E87E3;">$</span>ARGV</span>[0])) {
        <span style="color:#DAD085;">print</span> <span style="color:#65B042;"><span style="color:#65B042;">&quot;</span><span style="color:#8A9A95;"><span style="color:#8A9A95;">$</span>ARGV</span>[0] up<span style="color:#DDF2A4;">\n</span><span style="color:#65B042;">&quot;</span></span>;
}
<span style="color:#E28964;">else</span> {
        <span style="color:#DAD085;">print</span> <span style="color:#65B042;"><span style="color:#65B042;">&quot;</span><span style="color:#8A9A95;"><span style="color:#8A9A95;">$</span>ARGV</span>[0] down<span style="color:#DDF2A4;">\n</span><span style="color:#65B042;">&quot;</span></span>;
}
</pre>
          </div>
        </div>

<a href="http://refactormycode.com/codes/258-example-of-net-ping" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://refactormycode.com/images/small_logo.gif" style="border:0" /></a>

counter free hit invisible