Perl : ip 与 inet 十进制字符串互转

use Socket;

my $ip = '202.38.75.11';

my $inet_str =   unpack('N', inet_aton($ip));

my $ip_re = inet_ntoa(pack('N', $inet_str));