Perl数组(@data)到变量($data)
Perl数组(@data)到变量($data)
提问于 2019-02-07 00:00:06
我正在做套接字编程。从套接字接收的数据($ 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 ; 回答 2
Stack Overflow用户
回答已采纳
发布于 2019-02-07 00:04:47
这是pack/unpack的标准用例。N/a模板将解压一个长度为N (按网络字节顺序)的字符串：
my( $json ) = unpack 'N/a', $data;
print $json;Stack Overflow用户
发布于 2019-02-07 01:54:48
如果你有你所说的东西，你可以简单地去掉长度前缀。
my $json = substr($data, 4);但这将意味着长度前缀是无用的，这表明您在程序的早期有一个主要的bug。您是否正确地从套接字读取？
sub read_bytes {
my ($fh, $bytes_to_read) = @_;
my $buf = '';
while ($bytes_to_read) {
my $bytes_read = read($fh, $buf, $bytes_to_read, length($buf))
die($!) if !defined($bytes_read);
die("Premature EOF") if !$bytes_read;
$bytes_to_read -= $bytes_read;
}
return $buf;
}
sub read_uint32be { unpack('N', read_bytes($_[0], 4)) }
sub read_string {
my ($fh) = @_;
my $len = read_uint32be($fh);
return read_bytes($fh, $len);
}
my $json = read_string($sock);页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/54557725
复制相关文章
相似问题
腾讯云开发者
