Scripting >> Perl >> How to convert from binary string to long integer and vice versa

sub bin2long { return unpack('N', pack('B32', shift)); } sub long2bin { return unpack('B32', pack('N', shift)); }