Help for this page

Select Code to Download


  1. or download this
    my $extract =
  sub {
...
    sort { $a->[1] <=> $b->[1] }
    map  [ $_, $extract->( $_ ) ],
    @array;
  2. or download this
    {    $a->[1] <=> $b->[1]
  or $b->[2] <=> $a->[2]
  or $a->[3] cmp $b->[3]
  # ...compare as many sort keys as you please
}
  3. or download this
    {
  mbps => 10**6,
...
  bps  => 10**0,
},
{ 't1 line' => 100000 }
  4. or download this
    my %lookup = (
  mbps => 10**6,
...
        return $x;
      };
# etc.