读取探测值后的Perl字节扫描[已关闭]

如果输入是字符串 0x34c2 你想得到字节 43 2c (或字符串“432c”),可以使用

my $EC = "0x34c2";
my $output = pack 'h4', substr $EC, 2;  # --> \x43\x2c
my $string = unpack 'H4', $output;      # --> "432c"

如果只想交换字符串中的“字节”,可以使用替换

my $EC = "0x34c2";
(my $output = $EC) =~ s/(..)(..)$/$2$1/;

或 substr :

my $EC = "0x34c2";
my $output = $EC;
substr $output, 4, 0, substr $output, 2, 2, q();

您不清楚需要什么输出,但我通过运行您的代码片段确定了以下内容:

0x34c2 .

对于输出,您需要数字49716 ₁₀ =C234 ₁₆ .

有许多不同的方法可以使用。

die("assert") if substr($s, 0, 2) ne "0x";

my $n = unpack('S<', pack('H*', substr($s, 2)));    # If it's a LE uint16_t
  -or-
my $n = unpack('s<', pack('H*', substr($s, 2)));    # If it's a LE int16_t

或者,

my $n = unpack('S<', pack('S>', hex($s)));          # If it's a LE uint16_t
  -or-
my $n = unpack('s<', pack('s>', hex($s)));          # If it's a LE int16_t

这两种解决方案都适用于小端和大端平台。

从评论来看,下一行应该是:

my $ECdec = $n/10;
print "Electric Conductivity $ECdec µS/m\n";

$ python <<'EOS'
import struct
line = "0x34c2"
assert line.startswith("0x")
word = int(line[2:], 16)
word = struct.unpack(">H", struct.pack("<H", word))[0]
print word
EOS
49716

$ perl -e'
   use feature qw( say );
   my $s = "0x34c2";
   die("assert") if substr($s, 0, 2) ne "0x";
   my $word = unpack("S<", pack("H*", substr($s, 2)));
   say $word;
'
49716