I haven'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. Is there a better way?<br><br>Also as you can see my use of $_[0] which works, but seems odd. Now I can't remember why I did it that way.
<br><br>###########################<br># subroutine: getip( $int )<br>###########################<br>sub getip<br>{<br> my $ipinteger = $_[0];<br> #print "TEST: $_[0]\n";<br> my $ipbin = ip_inttobin($ipinteger, 4);
<br> my $ipquad = ip_bintoip($ipbin, 4);<br> my $TypeIP = new Net::IP ($ipquad) or die (Net::IP::Error());<br> #print "**IP IS: $ipquad\n";<br> return $ipquad;<br>}<br>