Help for this page

Select Code to Download

Select or download this

                @list = unpack 'j*', pack 'J*',
                        sort { $a <=> $b }
                        unpack 'J*', pack 'j*',
                        @list;

Select or download this

                @list = unpack 'j>*',
                        sort
                        pack 'j>*',
                        @list;