Help for this page

Select Code to Download


  1. or download this
    my @sorted=
    map { RESTORE($_) }
    sort
    map { XFORM($_) }
    @list;
  2. or download this
    sub XFORM {
    # Extract the sort key from $_[0] and return it.
...
    map { XFORM($list[$_]) . pack "N", $_ }
    0..$#list
];
  3. or download this
    my @index=
    map { unpack "N", substr($_,-4) }
...
    0..$#name;
@name= @name[@index];
@data= @data[@index];