Hallo Martin!
Was ist denn "[EMAIL PROTECTED]"?
Martin Schmitt <[EMAIL PROTECTED]> schreibt:
> Ich suche nach einer M�glichkeit, mittels Perl die
> folgende Konvertierung vorzunehmen:
> 192.168.1.1 -> 0C.A8.01.01 -> 0CA80101 -> 212336897 (und wieder zur�ck)
Folgendes tut den Hinweg und dabei 3/4 korrekt und den
letzten falsch, aber ich bin zu groggy um zu verstehen
warum. Drum schick ich es auf die Liste, ihr werden mich
korrigieren k�nnen, oder?
use strict; # amen.
my $ip = q/192.168.1.1/; # Ausgangspunkt IP-Adresse
my @array = split /\./, $ip; # in 4 Array-Slots
my @hex_array = map { sprintf("%1x", $_) } @array;
$array[0]=$array[0]*255^3; # 255 hoch 3
$array[1]=$array[1]*255^2; # 255 hoch 2
$array[2]=$array[2]*255; # ^1; # 255 hoch 1
my $zahl=$array[0]+$array[1]+$array[2]+$array[3]; # Aufaddieren
print "1. $ip", # wie gehabt
"\n2. ", join(".", @hex_array), # Hex mit Punkten
"\n3. ", join("", @hex_array), # Hex ohne Punkte
"\n4. $zahl\n"; # Als Zahl
--
S�ren M S�rries http://Spuk.de/s/
----------------------------------------------------------------------------
PUG - Penguin User Group Wiesbaden - http://www.pug.org
