我有一个属性(32 位长),每个位负责特定的功能。我正在编写的 Perl 脚本应该打开第 4 位,但保存以前对其他位的定义。
我在我的程序中使用:
Sub BitOperationOnAttr
{
my $a="";
MyGetFunc( $a);
$a |= 0x00000008;
MySetFunc( $a);
}
** MyGetFunc/ MySetFunc 我自己知道读取/修复值的函数。
问题:
如果使用
$a |= 0x00000008;
正确?如何通过正则表达式从字符串中提取十六进制值:例如:
“属性:Somestring:值(8长(0x8))”