Help for this page

Select Code to Download


  1. or download this
    use Sort::Key::Natural qw(natsort);
my @sorted = natsort @data;
  2. or download this
    use Benchmark qw(cmpthese);

...
K-2-D-10C
K-2-D-10D
...
  3. or download this
    $ perl bm.pl
      Rate   sn  skn
sn  45.0/s   -- -79%
skn  216/s 381%   --