如何解决Perl正则表达式间隔,以匹配与十六进制数字相对应的字符串
我正在尝试提取一些与指定的8位地址范围匹配的数据。
例如,如果我想捕获 A0000000 和 A0003CFF 之间的所有字符串,由于字符序列定义,字符序列A000 [0000-3CFF]不起作用,那么我需要编写以下模式:
[0-2][0-F][0-F][0-F]|3[0-B][0-F][0-F]|3C[0-F][0-F]
,它将匹配0000--2FFFF
或3000-3BFFF
或3C00 3CFF
之间的所有帧。
此模式实际上是特定于给定范围的,在我的极限之间具有给定的相同部分(在我的示例中,这是4个常见数字 A000 )
但是,如果预先知道地址范围和公共部分但可以自由选择,该如何将其转换为更通用的解决方案?
正则表达式中是否存在一种简单的方法来捕获此错误?
感谢您的帮助
[编辑]: 谢谢大家的回答,绝对有帮助。就像我猜到的那样,没有简单的方法可以通过使用正则表达式来做到这一点,并且需要/更容易进行数字比较。 实际上,由于我在解释我的第一个想法时遇到了麻烦,所以我使用了十六进制示例,因为它是数字\ d和字母数字\ w字符的混合,并且我告诉自己可以将解决方案扩展为字母[FZ]作为正则表达式来的。 但是我根本不认为自从我正在寻找正则表达式以来,您就不会使用十六进制函数来转换它!对不起我的不好解释。
但是您的解决方案仍然非常有用,因为通过将十六进制转换函数替换为自定义函数,我可以将所有字符[0-9]
和[A-Z]
转换为具有一定权重的ASCII值,从而可以正常工作系数(例如 GV03 必须大于 G0V3 )。再次感谢大家的帮助!
解决方法
调查以下代码以符合您的要求
- 将十六进制范围定义为两个元素数组
- 定义匹配正则表达式
- 将十六进制范围转换为等效的整数
- 浏览输入数据
- 过滤匹配的行
- 将匹配的十六进制值转换为整数
- 将数字与感兴趣的范围进行比较
- 如果数字满足定义的范围,则输出行
use strict;
use warnings;
use feature 'say';
my @range = qw(A0000000 A0003CFF);
my $match = qr/(A000([\d[a-f]){4})/i;
@range = map { hex } @range;
while( <DATA> ) {
chomp;
if( /$match/ ) {
my $n = hex($1);
say if $n >= $range[0] && $n <= $range[1];
}
}
__DATA__
This number is A0000000 must be printed
But B0001234 should not be printed
Again A0001CCF must be printed
Once more A0002FFF must be printed
But C0010000 should not be printed
输出
This number is A0000000 must be printed
Again A0001CCF must be printed
Once more A0002FFF must be printed
,
使用hex
将代表十六进制数字的字符串转换为十进制数字,然后像比较数字一样比较它们。例如:
my $min = 'A0000000';
my $max = 'A0003CFF';
for ( qw( A0000001 A0003DFF ) ) {
print hex $_ >= hex $min && hex $_ <= hex $max
? "$_ is in range"
: "$_ is out of range";
}
输出:
A0000001 is in range
A0003DFF is out of range
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。