Perlについての質問箱 7箱目

>>136
あっちにも書いたけど

my $ip = '192.168.0.1';
my $dec = vec pack('C4', split /\./, $ip), 0, 32; # 3232235521