Thread Perl Script erst nach aufforderung beenden
(28 answers)
Opened by krusty at 2006-05-09 23:07
Eventuell solltest du die Regex noch so umbauen:
Code (perl): (dl
)
$range !~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/ 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. |