Thread Perl Script erst nach aufforderung beenden (28 answers)
Opened by krusty at 2006-05-09 23:07

nepos
 2006-05-10 12:25
#65889 #65889
User since
2005-08-17
1420 Artikel
BenutzerIn
[Homepage] [default_avatar]
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.

View full thread Perl Script erst nach aufforderung beenden