|< 1 2 >| | 12 entries, 2 pages |
$ip = "124.353.54.25,8**.32*.47.**";
**2.**5.**.35
1
2
3
4
5
"192.***.***.***" macht das auf
"192.123.123.123"
"192.123.123.12"
"192.123.123.1"
[E|B,09.08.2003, 16:27]Code: (dl )$ip = "124.353.54.25,8**.32*.47.**";
Ein User mit der IP "845.325.47.68" kommt.
1
2
3
4
5
6
7
use Net::IP::GenericMatch;
my $csv_line = "124.353.54.25,8**.32*.47.**";
my %IP; tie %IP, "Net::IP::GenericMatch", $csv_line;
print "[" . $IP{124.353.54.25} . "]\n"; # schreibt 1
print "[" . $IP{834.323.47.12} . "]\n"; # schreibt 2
print "[" . $IP{124.353.54.2522} . "]\n"; # warnung, da undefiniert
untie %IP;
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
QuoteRegexp::Common::net
Provides regexes for IPv4 addresses and MAC addresses.
|< 1 2 >| | 12 entries, 2 pages |