perl中的包(“C4”，$digits)

Question

在用Perl编写CGI应用程序时，有下面的代码来记录访问者。

(my $digits = #ENV{'REMOTE_ADDR'}) =~ s/\.//g;
my $address = pack("C4", $digits);

在perldoc，

包模板，列表

"C4“应该是模板。这到底意味着什么？

Answer 1

请阅读您提到的pack文档。C的模板是：

C  An unsigned char (octet) value.

所以C4是四个未签名的字符。

Answer 2

例如，您的代码看起来就像代码中错误的摘录，将虚线-四元格式的IP地址转换为一个由四个字节组成的字符串，可以传递给socket调用。

假设#ENV是$ENV的一个错误，您的代码从虚线四边形中去掉点，给出一个4到12位数字的字符串。然后(隐式地)将这些数字解释为一个整数，在结果的第一个字节中放置最小的8位，然后用零填充其余的数字(因为pack为三个缺失的list元素提供了空值，然后将其解释为零)。

为什么要将二进制IP地址打印到日志文件中，我不会尝试猜测。但给出的代码几乎是胡说八道。如果您确实需要一个二进制IP地址，我建议您

use Socket 'inet_aton';
my $address = inet_aton($ENV{REMOTE_ADDR});