Help for this page
use Data::Dumper; $Data::Dumper::Useqq = 1; my @data = map "\0" x $_, 0 .. 5; print Dumper [ sort @data ], [ sort map pack("a*N", $data[$_], $_), 0 .. $#data ];
$VAR1 = [ "", ... "\0\0\0\0\0\2", "\0\0\0\0\1" ];
www.com | www.net | www.org
No recent polls found