Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl
use strict;
...
use CGI qw/:standard/;
use CGI::Carp qw/fatalsToBrowser/;
  2. or download this
    my $wrestlerdir = '/home/ewexpert/public_html/rosterrank';

...
    chomp (@lines = <FILE>);

close(FILE);
  3. or download this
    foreach my $test (@lines) {
open my $fh, "<", "$wrestlerdir/$test.total" or die "Can't open @lines
+.total $!";
my @total = <$fh>;
}
  4. or download this
    print header, start_html('Rankings: '), (@lines), end_html;