Help for this page

Select Code to Download


  1. or download this
    my $re = qr{\s*(.+?)\s+(--|[+-]?\d+[.]\d+)};
my (%stats, @stat_order);
...
    push @stat_order, $1;
    $stats{$1} = $2;
}
  2. or download this
    #!/usr/bin/env perl -l

...
}

print "$_: $stats{$_}" for @stat_order;
  3. or download this
    Points/Game: 80.5
Opp Points/Game: 69.7
...
Opp Personal Fouls/Gm: 20.8
Personal Fouls/Play: 21.4
Opp Personal Fouls/Play: 23.7