Help for this page

Select Code to Download


  1. or download this
    >perl -MO=Concise -e"@a = sort @a" 2>&1 | find "sort"
7           <@> sort lK/INPLACE ->8

>perl -MO=Concise -e"@b = sort @a" 2>&1 | find "sort"
7           <@> sort lK ->8
  2. or download this
    @tied_array = map $_, sort { uc($a) cmp uc($b) } @tied_array;
  3. or download this
    @tied_array = ((), sort {uc($a) cmp uc($b)} @tied_array);