Perl 数组(@data) 到变量($data)

Question

我正在做套接字编程。 从套接字接收到的数据($data)包含4个字节的长度数据+json数据。 我想修剪长度并只解析 json。

我已经完成了代码并且工作正常。但是我想知道是否有更有效的方法(算法)。

有没有一种有效的方法可以将数组移动到 perl 中的变量？

@tmpp = split(//,$data); #data = socket data

my $t1 = sprintf("%02x%02x%02x%02x",ord($tmpp[0]),ord($tmpp[1]),ord($tmpp[2]),ord($tmpp[3])); 
$t1 = hex($t1); #t1 = length 

my $json;
my @tmp = @tmpp[0..-1];
foreach(@tmp){ $json .= $_;}<br>
print $json;

Ok Print ; 

Answer 1

这是 pack/unpack 的标准案例. N/a 模板将解压一个长度为 N 的字符串(按网络字节顺序):

my( $json ) = unpack 'N/a', $data;
print $json;