nicht angemeldet
IP-Adressen in Integer umrechnen. Macht alles viel einfacher.
Hotte
Nunja .. hierzu bräucht man aber z.B. Net::IP welche zmd. bei meinem strawberry_perl nicht dabei war.
Da ich aber sowieso weitgehend ohne externe Methoden die der User ggf. noch nachladen müsste in diesem Script auskommen müsste, wäre das "Umrechnen" meines Wissens nach nur anhand eines Regulären-Ausdrucks möglich, was im Endeffekt ziemliche Ähnlichkeit mit meiner zweiten Lösung (die auch funktioniert) hätte.
if( ($range = $dhcpd{$i}[2]) && $range =~ /^([0-2]?[0-9]{0,2})\.([0-2]?[0-9]{0,2})\.([0-2]?[0-9]{0,2})\.([0-2]?[0-9]{0,2})\ ([0-2]?[0-9]{0,2})\.([0-2]?[0-9]{0,2})\.([0-2]?[0-9]{0,2})\.([0-2]?[0-9]{0,2})$/ && (@range = ([ $1, $2, $3, $4 ], [ $5, $6, $7, $8 ])) && $lease_ip =~ /^([0-2]?[0-9]{0,2})\.([0-2]?[0-9]{0,2})\.([0-2]?[0-9]{0,2})\.([0-2]?[0-9]{0,2})$/ && $1 >= $range[0][0] && $2 >= $range[0][1] && $3 >= $range[0][2] && $4 >= $range[0][3] && $1 <= $range[1][0] && $2 <= $range[1][1] && $3 <= $range[1][2] && $4 <= $range[1][3] ) {
$lease_subnetrange = $i;
last;
}
Allerdings wäre ich an Ideen, woher der Fehler aus meinem Post kommen könnte, auch weiterhin interessiert (-;