I haven&#39;t posted for awhile and still consider myself a total PERL newbie, so I use the following perl to convert decimal IP notation to Quad IP notation.&nbsp; Is there a better way?<br><br>Also as you can see my use of $_[0] which works, but seems odd.&nbsp; Now I can&#39;t remember why I did it that way.
<br><br>###########################<br># subroutine: getip( $int )<br>###########################<br>sub getip<br>{<br>&nbsp;&nbsp;&nbsp; my $ipinteger = $_[0];<br>&nbsp;&nbsp;&nbsp; #print &quot;TEST: $_[0]\n&quot;;<br>&nbsp;&nbsp;&nbsp; my $ipbin = ip_inttobin($ipinteger, 4);
<br>&nbsp;&nbsp;&nbsp; my $ipquad = ip_bintoip($ipbin, 4);<br>&nbsp;&nbsp;&nbsp; my $TypeIP = new Net::IP ($ipquad) or die (Net::IP::Error());<br>&nbsp;&nbsp;&nbsp; #print &quot;**IP IS: $ipquad\n&quot;;<br>&nbsp;&nbsp;&nbsp; return $ipquad;<br>}<br>