Opened by [E|B] at 2003-08-09 18:27
User since
2003-08-04
5246 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
5246 Artikel
ModeratorIn
IP-Adressen sind ja eigentlich vier Hexzahlenpaare. Erleichtert dies vielleich den Algorithmus irgendwie?
Habe mir mal vor einiger Zeit eine Regex zusammengestellt, die IP4-Adressen erkennt (auf Basis Dezimal, ab perl 5.005).
Vielleicht hilft dir das irgendwie weiter?
Habe mir mal vor einiger Zeit eine Regex zusammengestellt, die IP4-Adressen erkennt (auf Basis Dezimal, ab perl 5.005).
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#! /usr/bin/perl
for my $ip (@ARGV) {
chomp($ip);
if ($ip =~ /^
( 2(5[0-5]|[0-4]\d)|([01]?\d?\d) )
\.
( 2(5[0-5]|[0-4]\d)|([01]?\d?\d) )
\.
( 2(5[0-5]|[0-4]\d)|([01]?\d?\d) )
\.
( 2(5[0-5]|[0-4]\d)|([01]?\d?\d) )
$/x) {
print "$ip ist eine IP\n";
}
else {
print " $ip ist keine IP\n";
}
} # for
Vielleicht hilft dir das irgendwie weiter?
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
http://www.fabiani.net/