Help for this page

Select Code to Download


  1. or download this
    # ST
my @fhs =
...
   sort { $a->[1] <=> $b->[1] }
   map [ $_, fileno($_) ],
   get_fhs();
  2. or download this
    # GRT
my @fhs = get_fhs();
...
   sort
   map pack('NN', fileno($fhs[$_]), $_),
   0..$#fhs;
  3. or download this
    # GRT
my @fhs = get_fhs();
...
   map pack('NN', fileno($fhs[$_]), $_),
   0..$#fhs
];