[perl] integer omzetten naar ip

[Daniel304]

Ik heb van een ip adres
80.61.120.44
een integer gemaakt om mee te kunnen vergelijken
8061120044

Perl:

      (@ip) = split ('\.', $var_iprange_array->{ip1});
      foreach $ip (@ip) { $ipadres .= sprintf("%.3d", $ip); }

nu komt het vervelende nu moet ik het weer omzetten naar een ip
en daar loop ik beetje vast... hij moet hem van achter splitten elke drie getallen
en dan de voorste nullen van elke drie getallen strippen daarna met een punt aan elkaar plakken... mijn begin is zoiets ja ik weet zo werkt het niet :

Perl:

    (@test) = split ('\d{3}', $ipadres);
    foreach (#$test){$test}

[avon]

Je kan hem wel spliten in 3, maar dan zou je moeten checken of de . waarde kleiner
is dan 100 in het orgineel. Anders moet er een 0 voor of er 100 bij optellen.

[ Voor 8% gewijzigd door avon op 06-11-2003 10:11 ]

[LauPro]

Is het niet beter om het IP-adres zo op te slaan: IP-adres = a.b.c.d en dan: (a * 256 ^ 3) + (b * 256 ^ 2) + (c * 256) + d = x

Dat is iig de officiële methode afaik.

[avon]

En reken hem nu nog maar is terug dan

[Creepy]

AvOn schreef op 05 november 2003 @ 16:54:
En reken hem nu nog maar is terug dan

Eeh, dat is echt geen probleem hoor

[LauPro]

Ik kan even niks vinden qua reference van Perl, maar volgens mij zit er een dergelijke functie als 'ip2long' in (en dus ook andersom).

[jvhaarst]

Hier staat hoe het moet :
http://www.devarticles.com/art/1/622

code:

#!/usr/bin/perl -wT
#ip2long converts IP-quad to IP-decimal
my (@octets,$octet,$ip_number,$number_convert,$ip_address);
$ip_address = $ARGV[0];
chomp ($ip_address);
@octets = split(/./, $ip_address);
$ip_number = 0;
foreach $octet (@octets) {
    $ip_number <<= 8;
    $ip_number |= $octet;
}
print "\nThe IP Address $ip_address converts to the IP Number $ip_number.\n";

en

code:

#!/usr/bin/perl -wT
#long2ip converts IP-decimal to IP-quad
my (@octets,$i,$ip_number,$ip_number_display,$number_convert,$ip_address);
$ip_number_display = $ip_number = $ARGV[0];
chomp($ip_number);
for($i = 3; $i >= 0; $i--) {
    $octets[$i] = ($ip_number & 0xFF);
    $ip_number >>= 8;
}
$ip_address = join('.', @octets);
print "\nThe IP Number $ip_number_display converts to the IP Address $ip_address.\n";

[ Voor 91% gewijzigd door jvhaarst op 05-11-2003 17:39 . Reden: code toegevoegd ]

[Woy]

AvOn schreef op 05 november 2003 @ 16:54:
En reken hem nu nog maar is terug dan

Als je het op de manier doet zoals de topic starter kan je hem juist niet meer terug rekenen. Stel dat je IP adres 10.11.125.125 hebt. Dat wordt dus
1011125125
als je dat terug gaat rekenen kan dat onder andere worden
101.11.251.25
101.1.125.125

en nog meer mogelijkheden. Als je het op de manier van LauPro doet dan heb je een 32 bits getal die je op kan delen in 4 * 8 bits wat dus weer de 4 octets van je IP adres voorstellen.

[Soultaker]

En voor wat LauPro beschrijft kent Perl de pack en unpack functies.

[Verwijderd]

code:

############################################################################
#
#   Name:    Ip2Integer
#
#   Purpose: Convert an IP address into an integer value
#
#   Inputs:  $ip - IP address
#
#   Returns: Integer value, dies in case of problems
#
############################################################################

sub Ip2Integer ($) {
    my $ip = shift;
    die "Invalid IP address: $ip"
    unless defined($ip) and $ip =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
    ($1 << 24) | ($2 << 16) | ($3 << 8) | $4;
}


############################################################################
#
#   Name:    Integer2Ip
#
#   Purpose: Convert an integer value into an dotted quad
#
#   Inputs:  $integer - Integer value
#
#   Returns: Dotted quad string, dies in case of problems
#
############################################################################

sub Integer2Ip ($) {
    my $integer = shift;
    my $four = $integer & 0xff;
    $integer >>= 8;
    my $three = $integer & 0xff;
    $integer >>= 8;
    my $two = $integer & 0xff;
    $integer >>= 8;
    my $one = $integer;
    "$one.$two.$three.$four";
}

#   Author: Jochen Wiedmann
#       Am Eisteich 9
#       72555 Metzingen
#       Germany

[ Voor 101% gewijzigd door Verwijderd op 06-11-2003 09:34 ]

[Daniel304]

gjk4all
Dat is een erg handig script werkt perfect hier dank je !!!
Scheelt mij redelijk wat foreach loops

[Soultaker]

Misschien mosterd na de maaltijd, maar zoals gezegd kan pack de bit wizardry voor je afhandelen:

Perl:

$ip1 = '1.2.3.4';

# IP-adres in string-vorm converteren naar integer
$int = unpack('I', pack('C4', split(/\./, $ip1)));

# IP-adres in integer-vorm converteren naar string
$ip2  = join('.', unpack('C4', pack('I', $int)));

print "$ip1 -> $int -> $ip2\n"