IP-Adressen in Nummer umwandeln
$y=shift @ARGV||170171027;
if($y =~ /([0-9]{5,12})/)
{
$x1 =$y & 255;
$y = $y >> 8;
$x2 =$y & 255;
$y = $y >> 8;
$x3 =$y & 255;
$y = $y >> 8;
$x4 =$y & 255;
print "ntoa $x4.$x3.$x2.$x1 \n";
}
# $y="10.36.154.147";
if($y =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/)
{
$x=$1;
$x = $x <<8;
$x+=$2;
$x = $x <<8;
$x+=$3;
$x = $x <<8;
$x+=$4;
# print "if $1 $2 $3 $4 richtig 170171027";
print "aton $x\n";
}
