perl - 如何在 Perl 中向字符串添加空字符？

Question

我想在 perl 中创建长度为 7 的字符串，但是“可见”的内容，例如“a”。

我的 $test = ...;

打印 $test 结果:“a”
打印长度($test)结果:7

Answer 1

您向字符串添加空字符。为什么你想要这个超出我的范围，但你如何做到这一点如下所示。

{ow-loopkin:tmp:->perl
$string = "e\0\0\0\0";
print length $string;
[ctrl+d]
5
{ow-loopkin:tmp:->

您还可以使用 pack() 用空值填充它:

ow-loopkin:tmp:->perl
$string = pack("Z6", 42);
print length $string;
[ctrl+d]
6
{ow-loopkin:tmp:->