包（“C4" ，$位）在Perl

Question

书面用Perl CGI应用程序，有如下的代码登录游客。

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

中的perldoc，

包模板，LIST

“C4”应该是模板，这是什么意思？

Answer 1

请原谅d您提到的pack文档。 C的模板是：

C An unsigned char (octet) value. 

所以C4是四个无符号字符。

Answer 2

您的代码看起来像是代码中的一个破碎的摘录，用于将点分布式格式的IP地址转换为可传递给socket调用的四字节字符串。

假设#ENV是$ENV的错误，您的代码将从点阵中去掉点，给出4到12位数字的字符串。然后它（隐含地）将这些数字解释为一个整数，将其最低有效位8位放在结果的第一个字节中，并用零填充其余位（因为pack为三个缺少的列表元素提供空值，然后将其解释为零）。

为什么你想打印一个二进制IP地址到日志文件，我不会试图猜测。但是，给出的代码接近于无稽之谈。如果你需要一个二进制IP地址的东西，我推荐

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