Opened by krusty at 2006-05-09 23:07
User since
2006-01-27
91 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-01-27
91 Artikel
BenutzerIn
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-->
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.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
my $range;
{
do
{
print "Die Eingabe war ungueltig -- " if (defined $range);
print "Wrong IP-range. Enter right IP-range e.g. 192.168.2.0!\nIP-range: ";
$range = <STDIN>;
}
while (not ($range =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/));
print "Die korrekte Eingabe war: $range\n";
}
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-->