Help for this page

Select Code to Download


  1. or download this
    my @sorted=
  map { $_->[0] }
  sort { $a->[1] cmp $b->[1] }
  map { [$_, ( / (\d*\.\d*) ms/ and $1 or 0 ) ] }
  @data;
  2. or download this
    / (\d*\.\d*) ms/ and $1 or 0
  3. or download this
    my @sorted=
  map { $_->[0] }
  sort { $a->[1] <=> $b->[1] }
  map { [$_, ( / (\d*\.\d*) ms/ and $1 or 0 ) ] }
  @data;