Perl 初心者コーナー Part23

[0179 nobodyさん 03/05/19 21:54 ID:???]

>>176
$bits = join('', map { unpack('B*', chr) } split(/\./, $IPAD) );