letzte IP Adresse zu Array von NetAddr::IP Objekten hinzufügen (Fragen zu Perl-Modulen)

[thread]18371[/thread]

letzte IP Adresse zu Array von NetAddr::IP Objekten hinzufügen

Tags: perl5 NetAddr::IP Net::IP Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+4 replies

Gast Roland

2013-06-10 18:41

Hallo!

Ich hab ein recht konkretes Problem, bei dem mir vielleicht ein NetAddr::IP- oder Net::IP-Guru helfen kann ;-)

Ich versuche ein Tool zu schreiben, das es uns einfacher macht ein paar ACLs zu verwalten. In der Datenbank mit den Netzen sind bestimmten Elementen immer /17 Netze zugeordnet, aber die letzte Adresse (wird zu Testzwecken verwendet) fehlt.

Eine ACL für z.B. den Range 10.172.0.0 - 10.172.127.254 besteht dann in Netzen gesehen aus je einem /18 /19 /20 .. /32.

Ich würde das Netz gerne um die fehlende letze Adresse ergänzen, falls es sich um einen solchen Fall handelt.

Bitte schlachtet mich nicht gleich für meinen Code, aber das hier ist, was ich bisher versucht habe (inkl. der Testadressen):

Code (perl): (dl )

#our @ip = qw(10.172.0.0/17);
our @ip = qw(10.144.128.0/18 10.144.192.0/19 10.144.224.0/20 10.144.240.0/21 10.144.248.0/22 10.144.252.0/23 10.144.254.0/24 10.144.255.0/25 10.144.255.128/26 10.144.255.192/27 10.144.255.224/28 10.144.255.240/29 10.144.255.248/30 10.144.255.252/31 10.144.255.254/32);
print "IPs:".join(",",@ip)."\n";
foreach(@ip) {my $ip=NetAddr::IP->new($_);push(@ip_netaddr,$ip)}; @ip_netaddr=Compact(@ip_netaddr); #alle Netze als NetAddr::IP Objekt anlegen
print join(",",@ip_netaddr)."\n";

foreach (@ip_netaddr) {if (my $ip=Net::IP->new($_)) {push(our @ip_netip,$ip)}}  #alle Netze auch noch als Net::IP Objekt anlegen
print "IP_OBJS:".join(",",@ip_netip)."\n";
foreach (@ip_netip) {our $count=$count+($_->Net::IP::size())};                  #"zählen" der IP Adressen aller Netze
if ($count eq "32767") {                                                                #/17 - eine /32
   print "ADDR:".($ip_netaddr[0]->NetAddr::IP::addr())."\n";
   my @check_nets = @ip_netaddr;
   push(@check_nets,($ip_netaddr[0]->NetAddr::IP::addr())/17->NetAddr::IP::broadcast());        #hier würde ich gerne das /18 in ein /17 "verwandeln um mir dessen "Broadcast-Adresse" zu holen (das ist die fehlende /32)
   if (($ip_netaddr[0]->NetAddr::IP::addr())/17 eq (Compact(@check_nets))) {                    #wenn die /32 hinzugefügt wurde und der passende Fall vorliegt, müssten jetzt beide Ausdrücke 10.172.0.0/17 sein...
    print "Found /17 - last /32 Information. Last address will be added. This results in".($ip_netaddr[0]->NetAddr::IP::addr()/17)."\n";
   }
}
else {
  print "OK\n";
}

Das ganze scheitert aber leider an Zeile 13+14.
Ich nehm mal an, dass man das "/17" nicht einfach mal so dazuschreiben kann.
Insgesamt finde ich meine Lösung auch nicht so schön, aber mir ist nichts besseres eingefallen um die letzte Adresse rauszufinden und zu einem Vergleich hinzuzufügen.

Wäre super nett, wenn mir da jemand vielleicht nen Tipp oder besseren Weg aufzeigen könnte.

vielen Dank
Roland
Last edited: 2013-06-10 18:51:27 +0200 (CEST)

rosti

2013-06-10 19:08

User since
2011-03-19
3197 Artikel
BenutzerIn

Jede IP-Addr ist ja auch nur eine Zahl. Die letzte IP-Addr in einem Subnet ist praktisch die Broadcast-Addr verringert um den Wert eins.

--Rosti

PS: IP-numerisch geht von 0 bis 2 hoch 32 in IPv4, also 32 Bit => 4 Byte
Last edited: 2013-06-10 19:09:47 +0200 (CEST)
+2 replies

Linuxer

2013-06-10 19:15

User since
2006-01-27
3871 Artikel
HausmeisterIn

user image

Ich habe letztens mit einem Kollegen CPAN:

Net::IP::AddrRanges und CPAN:

Net::CIDR::Lite entdeckt und schnell etwas zusammengeschrieben (Skript für Einmalzweck). Auf dieser Erfahrung aufbauend, ließe sich da auch sicher was schnell machen (sicher nicht optimal und verbesserungswürdig):

Code (perl): (dl )

#! /usr/bin/env perl
use strict;
use warnings;

use Net::IP::AddrRanges;
use Net::CIDR::Lite;

our @ip = qw(10.144.128.0/18 10.144.192.0/19 10.144.224.0/20 10.144.240.0/21 10.144.248.0/22 10.144.252.0/23 10.144.254.0/24 10.144.255.0/25 10.144.255.128/26 10.144.255.192/27 10.144.255.224/28 10.144.255.240/29 10.144.255.248/30 10.144.255.252/31 10.144.255.254/32);

my $ranges = Net::IP::AddrRanges->new();
$ranges->add(@ip);

my @ranges = $ranges->list_ranges;
if ( 1 == @ranges ) {   # good, we only expected a single range
    if ( "254" eq substr( $ranges[0], -3, 3 ) ) {
        $ranges->add( substr( $ranges[0], 0, -3 ) . '255' );
    }
}


my $cidr = Net::CIDR::Lite->new;
$cidr->add_range( $_ ) for $ranges->list_ranges;

print join "\n", $cidr->list(), "";

__END__

Result:
10.144.128.0/17

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

Gast Roland

2013-06-11 13:35

Super!
Das hilft mir ne Menge weiter!
In Richtung der substr-Geschichte hab ich gar ned gedacht...
Manchmal braucht man nen Schubs ;-)

Vielen Dank!
Roland
Last edited: 2013-06-11 13:37:05 +0200 (CEST)

View all threads created 2013-06-10 18:41.