[英]Perl regular expression for partially matching an ip or mac address
我正在编写一个优化程序,您在其中搜索我的应用程序,如果该字符串看起来像一个IP地址,那么就不用去搜索MAC地址了。 而且,如果搜索看起来像一个MAC地址,请不要在IP地址db列中打扰。
我见过与ips和mac地址完全匹配的表达式,但是很难匹配部分字符串和相当有趣的脑筋急转弯,我想我会得到其他人的意见。 现在我有没有正则表达式的解决方案。
use List::Util qw(first);
sub query_is_a_possible_mac_address {
my ($class, $possible_mac) = @_;
return 1 unless $possible_mac;
my @octets = split /:/, $possible_mac, -1;
return 0 if scalar @octets > 6; # fail long MACS
return 0 if (first { $_ !~ m/[^[:xdigit:]]$/ } @octets; # fail any non-hex characters
return not first { hex $_ > 2 ** 8 }; # fail if the number is too big
}
# valid tests
'12:34:56:78:90:12'
'88:11:'
'88:88:F0:0A:2B:BF'
'88'
':81'
':'
'12:34'
'12:34:'
'a'
''
# invalid tests
'88:88:F0:0A:2B:BF:00'
'88z'
'8888F00A2BBF00'
':81a'
'881'
' 88:1B'
'Z'
'z'
'a12:34'
' '
'::88:'
给定(新)测试,此方法有效:
/^[0-9A-Fa-f]{0,2}(:[0-9A-Fa-f]{2}){0,5}:?$/
以下是在上述测试中匹配的行(请注意,正确匹配了诸如“ a”和“ A”之类的单个十六进制字符:
12:34:56:78:90:12
88:11:
88:88:F0:0A:2B:BF
88
:81
:
12:34
12:34:
a
'' (<-- empty space)
我发现做到这一点的最好方法是尝试使可能的匹配成为您要匹配的对象。 例如,如果您有一个字符串:1.2,请尝试使其看起来像一个IP地址:1.2.1.1。 然后应用正则表达式
sub contains_ip {
my ($possible_ip) = @_;
my @splits = split /\./, $possible_ip;
return 0 if @splits > 4;
while (@splits < 4) {
push @splits, '1';
}
$possible_ip = join '.', @splits;
my ($match) = $possible_ip =~ m/^(([0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])\.){3}([0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])$/;
return defined $match ? 1 : 0;
}
warn contains_ip('1.2'); # 1
warn contains_ip('127.0.0.1'); # 1
warn contains_ip('1.2asd'); # 0
warn contains_ip('1.2.3.4.5'); # 0
同样的事情也适用于mac地址:如果您有11:22,请尝试使其看起来像是完全合格的mac地址11:22:00:00:00:00,然后将mac地址正则表达式应用于它。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.