请教perl提取负数

atlandis · 发表于 2014-1-18 12:06:31

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

×

txt文档：

BE0_V0 = 0 //
BE0_V1 = 17 //
BE0_V2 = 34 //
BE0_V3 = -51 //
DLM0 = 0 //
DLM1 = 0 //

perl 提取变量的值：
$o_BE0_V2 = $1 if /^BE0_V2\s+=\s+(\d+)\s+/;
$o_BE0_V3 = $1 if /^BE0_V3\s+=\s+(\d+)\s+/;

请教对于o_BE0_V3是负数的如何提取

atlandis · 发表于 2014-1-18 12:16:39

回复 1# atlandis

哦，试出来了$o_BE0_V2 = $1 if /^BE0_V2\s+=\s+(\S+)\s+/;

atlandis · 发表于 2014-1-18 12:19:31

请教perl如何将负数，转化为十六进制？

atlandis · 发表于 2014-1-18 16:54:24

回复 3# atlandis

哦，原来perl支持负数转十六进制啊，呵呵，乌龙了。就当是灌水赚积分了

账号		自动登录	找回密码
密码			注册

[原创] 请教perl提取负数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块

站长推荐 /1