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

betterworld
 2006-05-10 15:43
#65899 #65899
User since
2003-08-21
2613 Artikel
ModeratorIn

user image
[quote=murphy,09.05.2006, 22:04]Sollte das nicht eher
Code: (dl )
1
2
3
4
5
6
7
 {
my $range;
do {
$range = <STDIN>;
} while (not ($range =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/));
...
}
[/quote]
Dieser RE beinhaltet nicht, dass man Nullen in der Mitte weglassen darf.

Vielleicht wird das in Regexp::Common behandelt. Dieses Modul gibt es u. a. genau aus dem Grund, dass sich keiner tagelang Gedanken darueber machen muss, um dann letztendlich doch mit einem inpräzisen Ausdruck anzukommen. So wie hier in diesem Thread. (nichts gegen murphy, ich wollte nur den Ausdruck zitieren)\n\n

<!--EDIT|betterworld|1147261978-->

View full thread Perl Script erst nach aufforderung beenden