如何使用Perl解压缩？

Question

我有一个http帖子的JSON Body，必须分成80个字符的双引号字符串 - 但是 - 每当我使用unpack读取前80个字符时，源字符串中的字符串指针（不是CR /在每一行的末尾分隔的LF）从未改变 - 例如下面的循环一遍又一遍地读取相同的字符串 - 我假设unpack期望CR / LF预先存在？如果不是<？p>我该怎么办？

@row =unpack 'A80', $body;
foreach $line (@body)
{
    @row =unpack 'A80', $body;
    print '"'.$line.'"' ;
}

Answer 1

很难理解你的情况，但是从你自己的回答中得到了解答＆＃34;看起来你需要这个

my @groups = unpack '(a80)*', $body;

从您的问题看起来可能更好

my @groups = unpack '(A80)*', $body;

但是你真的需要描述$body的来源，以及你期望的结果

Answer 2

以下是我解决问题的方法：

generateAndSaveBitmap(View layout)