Help for this page

Select Code to Download


  1. or download this
    open(DATA, 'hits.dat') or die "Can't open hits.dat: $!\n";
    my @pages;
    ...
    push @pages, [split /:/] while <DATA>;
    
    my @sorted = sort { $b[2] <=> $a[2] } @pages;
    
  2. or download this
    my $start = param('start');
    my $display = 20;
    
    print map { "@$_\n" } splice @sorted, $start, $display);;