Help for this page

Select Code to Download

Select or download this

my %hash = (
      APP1 => {
...
      printf "%3d %3d %s\n", $cnt, $key, $_ if ++$cnt <= 5;
   }
}

Select or download this

  1 200 APP1:alert:1005
  2 165 APP2:alert:1005
  3  25 APP1:error:6003
  4  21 APP2:error:6004
  5  15 APP1:error:6002