Irgendwie blicke ich das immernoch nicht.

So sieht der Code bei mir aus. Wenn ich eine falsche IP angebe, z.B. mit 4 Stellen in einem Octet dann wird diese trotzdem als richtig anerkannt. Das selbe ist bei einer die 3 oder weniger Stellen pro Octet hat.



Der einzige unterschied zwischen deinem Vorschlag und meiner Umsetzung ist der, das ich die Variable $range vor der Schleife initialisiere. Dies ist nötig, damit ich die Variable auch nach der Schleife verwenden kann. Ist doch richtig oder?
Any ideas???\n\n

<!--EDIT|krusty|1147244658-->

Eventuell solltest du die Regex noch so umbauen:

Da ist das ungleich gueltiger Adresse gleich im !~ drin und es matchen nur Strings, die mit ner Zahl anfangen und auch entsprechend enden.
Vorteil der do-Variante ist, dass der Code mindestens einmal ausgefuehrt wird unabhaengig davon, wie du $range initialisiert hast.

bastel das mal rein, dann müsste es funktionieren...

Das hier könnte da auch nützlich sein, wenn man's nicht von Hand machen will, oder auch nur zum Spicken: Regexp::Common::net -provide regexes for IPv4 addresses.

Jetzt bin ich irgendwie total durch den Wind. :rock:
Kann man das nicht über meinen Ansatz lösen. Mit den ganzen regex Teilen kapiere ich gar nix mehr. Sorry, aber das ist irgendwie noch zu hoch für mich.

Nur nochmal zur erinnerung, hatte zu Anfang sowas hier:

hier ist $range vorinitialisiert...
so müsste es auch gehen...

habe das jetzt so gemacht:



Jetzt bleibe ich immer in der schleife egal ob richtig oder nicht. *grrrml*

dann so rum... :)

Hallo,
bei <STDIN> darfst Du nicht vergessen: es wird immer noch die Entertaste gedrückt, was in der Regel einen Newlinezeichen ("\n") entspricht. Mit 'chop' oder 'chomp' kannst Du es entfernen.
'chop' entfernt rigoros das letzte Zeichen und liefert es als Ergebnis zurück.
'chomp' entfernt Newlinezeichen am Ende eines Strings und liefert als Ergebnis die Anzahl der entfernten Zeichen zurück.

Für Deine Zwecke reicht ein 'chomp $range;'

Versuch's mal so:

$range=0;
while ($range !~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/)
{
print "Enter right IP-range e.g. 192.168.2.0!\nIP-range: ";
$range = <STDIN>;
chomp $range;
if ($range !~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/){print print "Wrong IP-range.\n"}
}


$range ist erstmal null.
Dann kommt die while-Schleife mit einer regex-Prüfung.
Da gibt es nicht nur =~ um etwas zu finden, sondern auch !~ um etwas NICHT zu finden.
Weil die Regex nicht passt springt das Skript in die Weilschleife und erwartet eine erste Eingabe. Ist die fehlerhaft gibt es eine Meldung und die while-Schleife wird neu durchlaufen.

Grüße
AndreasM

P.S. Ob !~ syntaktisch richtig ist weiss ich nicht aus dem Kopf. Ich habe die Negierung einer Regex aber schon genutzt. Es geht :)
Alternativ: statt 'while' und Regexnegierung 'unless' und Regex

P.P.S. Der Ausdruck zur syntaktischen Prüfung einer IP-Adresse ist etwas schlicht. er lässt ja auch 666.666.666.666 zu, was aber verboten ist. Auch eine '192.168.1.0' ist gültig, aber genaugenommen ein Broadcast.

P.P.P.S. Jetzt habe ich eben noch Blödsinn geschrieben:
$range = chomp <STDIN> funktioniert nicht, weil chomp ja als Ergebnis die Anzahl der entfernten Zeichen zurückgibt. Du hä#ttest als Ergebnis immer '1'\n\n

<!--EDIT|AndreasM|1147255180-->

So es funktioniert jetzt mit der Negierung. Vielen vielen Dank.
Wenn ich euch mal treffen sollte gebe ich nen Bier aus. ;)

Mit unless funzt das auch gut. Danke auch an die wirklich gute erklärung. hast mir einige Stunden lese arbeit gespart. :)

Seid ne super community. weiter so.