将CGI REMOTE_ADDR转换为网络字节顺序以用于MySql INET_NTOA

Question

我正在尝试记录脚本请求，并且我想将客户端的IP地址存储在int(4)列中，使用INET_NTOA()以可读函数返回它。

然而，在我的Perl CGI脚本，$ENV{REMOTE_ADDR}包含在其中，当与INET_ATON()功能输入到数据库中，被错误地转换，所以当我拉回来了主机字节序的IP，我有一个完全不同的地址。

#!usr/bin/perl -wT 

use strict; 
use CGI; 
use DBI; 

my $dbh = DBI->connect("DBI:mysql:$db:$server", "$user", "$password"); 
my $addr = $ENV{REMOTE_ADDR}; 

my $insert = $dbh->prepare(qq[insert into access_log (ipaddress) 
            values (INET_ATON('$addr'))]); 

$insert->execute or die "sql insert error"; 

my $retrieve = $dbh->prepare(qq[select INET_NTOA(ipaddress) as IP_Address 
           from access_log]); 

$retrieve->execute or die "sql select error"; 
my $newIP = $retrieve->fetchrow_array; 

理想的情况下，这个脚本应该返回的$addr价值，而是我得到的东西完全不同。在将数据放入数据库之前，如何格式化$addr？

感谢您的帮助。

Answer 1

我发现，需要到$ ENV {} REMOTE_ADDR没有变化。

通过使用一个int（4）无符号我IP_ADDRESS列，INET_ATON（）和INET_NTOA（）正常工作。与有符号整数，

“对应于IP地址的值的量，第一个八位组是大于127不能被正确地存储”，所以得到的数据中插入阶段失真。

http://dev.mysql.com/doc/refman/5.0/en/miscellaneous-functions.html#function_inet-ntoa

Answer 2

奇。 ENV变量应该是正常的点划线符号，而不是原始整数。反正它不应该是$ENV{'REMOTE_ADDR'}？

请注意，您的INT列应该是无符号。 inet_ntoa（）不喜欢负数，如果将其存储在signed int字段中，IP地址空间的一半将显示为负数。