c - 如何在 perl 中有效地解析表达式 '^#[0-9A-F]{2}\$[0-9A-F]{4}/$'
问题描述
我必须解析 GIA10N 模块返回的数据字符串。响应字符串由 9 个字节的 ASCII 代码和模式组成
^#[0-9A-F]{2}\$[0-9A-F]{4}/$
.
描述:
DIGITS 123456789
CODE #FF$DDDD/
# -- Response token
FF -- Function code 00-FF
$ -- delimiter
DDDD -- Data value 0000-FFFF
/ -- Terminal symbol
例子:
#0A$F831 -- means value -1999 from function 0A
通常 sscanf 函数会在 C 中完成对这个字符串进行解码的工作。
#include <stdio.h>
int parseData(char *data, int prn) {
char ff[3] = "\0";
unsigned int udddd = 0;
int sdddd = 0;
if (sscanf(data,"#%2s$%X/",ff,&udddd) !=2) {
printf("ERROR parsing %s\n", data);
return 0;
}
sdddd = (int) udddd;
if (sdddd & 0x8000)
sdddd -= 0x10000;
if (prn)
printf("CODE:%s PARSED: %s %d\n", data, ff, sdddd);
return 1;
}
int main(int argc, char **argv)
{
parseData("#0A$F831/", 1);
return 0;
}
使用运行时:
$ gcc test-scan.c -o test-scan
$ time ./test-sprintf
CODE: #0A$F831/ PARSED: -1999
real 0m0.003s
user 0m0.000s
sys 0m0.000s
在 perl 中,与格式 %X 结合使用的函数 sscanf 不可用。我必须定制和拆分消息并执行慢得多的十六进制/ 16 位转换魔法。
#!/usr/bin/env perl
use warnings;
use strict;
sub parseData($$) {
my ($msg, $print) = @_;
my ($ff,$dddd) = split /\$/, substr($msg, 1, length($msg)-2);
$dddd = hex($dddd);
$dddd -= 0x10000 if $dddd & 0x8000;
printf "CODE: %s PARSED: %s %d\n", $msg, $ff, $dddd
if $print;
}
parseData('#0A$F831/', 1);
检查 perl 运行时:
$ time ./test-scan.pl
CODE: #0A$F831/ PARSED: 0A -1999
real 0m0.012s
user 0m0.008s
sys 0m0.000s
我还有其他方法可以在不使用其他语言的情况下加快速度吗?
附录
#!/usr/bin/env perl
use warnings;
use strict;
use Benchmark qw( cmpthese );
my %tests = (
ike => q{
my ($ff, $dddd) = $msg =~ m{^#([0-9A-F]{2})\$([0-9A-F]{4})/\z}
or die("Error parsing \"$msg\"\n");
$dddd = hex($dddd);
},
huck => q{
(my ($ff,$dddd) = split(/\$/, substr($msg, 1, length($msg)-2))) == 2
or die("Error parsing \"$msg\"\n");
$dddd = hex($dddd);
},
pbear => q{
my($ff,$dddd) = unpack('xA2xA4',$msg);
$dddd = hex($dddd);
},
);
$_ = "use strict; use warnings; our \$msg; for (1..1000) { $_ }"
for values %tests;
local our $msg = '#0A$F831/';
cmpthese(-3, \%tests);
我得到了这个基准测试结果:
/usr/bin/perl -w "bench-cvx-data.pl"
Rate ike huck pbear
ike 1070/s -- -33% -41%
huck 1596/s 49% -- -12%
pbear 1816/s 70% 14% --
解决方案
^#[0-9A-F]{2}\$[0-9A-F]{4}/$
匹配 9 或 10 个字符。我想你的意思是
^#[0-9A-F]{2}\$[0-9A-F]{4}/\z
您的代码简化为以下内容:
my ($ff, $dddd) = $msg =~ m{^#([0-9A-F]{2})\$([0-9A-F]{4})/\z}
or die("Error parsing \"$msg\"\n");
$dddd = hex($dddd);
也就是说,这比您的版本慢。不过,它的可读性要高得多。
以下内容和我的一样可读,和你的一样快,但没有验证:
my ($ff, $dddd) = unpack('x a2 x a4', $msg);
$dddd = hex($dddd);
也就是说,perl
为我简单地加载需要 12 毫秒(尽管在不同的机器上只有 5 毫秒)。
$ time perl -e1
real 0m0.012s
user 0m0.016s
sys 0m0.000s
是否正在尝试优化花费不到 1 毫秒的东西?
所以我写了一个基准。为了我,
- 您的版本耗时 1/1232000 s = 0.81 μs
- 我的版本耗时 1/636000 s = 1.3 μs
基准:
use warnings;
use strict;
use Benchmark qw( cmpthese );
my %tests = (
ike => q{
my ($ff, $dddd) = $msg =~ m{^#([0-9A-F]{2})\$([0-9A-F]{4})/\z}
or die("Error parsing \"$msg\"\n");
$dddd = hex($dddd);
},
huck => q{
( my ($ff,$dddd) = split /\$/, substr($msg, 1, length($msg)-2) ) == 2
or die("Error parsing \"$msg\"\n");
$dddd = hex($dddd);
},
);
$_ = "use strict; use warnings; our \$msg; for (1..1000) { $_ }"
for values %tests;
local our $msg = '#0A$F831/';
cmpthese(-3, \%tests);
代表输出:
Rate ike huck
ike 752/s -- -39%
huck 1232/s 64% --
推荐阅读
- bash - Ansible shell 无法运行 shell 脚本任务
- java - 抛出错误时如何在 Spring Integration 中停止链?
- css - 为什么 z-index 不能与 bootstrap 一起正常工作并做出反应
- javascript - Firebase 函数:orderBy 函数不起作用
- c++ - 下面代码中使用的 for 循环是否有任何问题,因为下面的代码显示运行时错误?
- typescript - Typescript 通用类型参数柯里化
- code-composer - 在 Windows 10 上更改 TI Code Composer Studio 自动生成的 Makefile 中使用的 SHELL
- angular - 如何使 2 个芯片列表相互交互 Angular Material
- ios - 自从更新到 Xcode 13 我得到一个 codsign 错误
- sql - 选择查询消除不需要的行