perl - 在 perl 中使用“pack”函数发送数组的问题

Question

我正在使用 pack 函数将列表的内容发送到套接字。代码如下。

$message_array = pack ("(A*)*", @ul_dcch_message);

列表内容是

@ul_dcch_message = (101101012411011, "emergency", 25, "simple");

这段代码发送列表中包含的所有字符串和数字。但是如果列表中的数字超过 15 位，我会得到这样的东西，

 1.01101012411011e+16emergency25simple

我的要求是，我想“打包”数字和字符串，数字将超过 15 位或更多。

有什么办法吗？？是否有其他模板可以做到这一点？

任何帮助表示赞赏。

Answer 1

引用数字，以便pack可以将其解释为字符串，而不是指数符号表示的数字。

@ul_dcch_message = ( '101101012411011', 'emergency', '25', 'simple' );