> If you want the teams and players to be unique you
> should probably use a
> hash of hashes (HoH):
>
Eventually, I think I'll use that, but not yet. Baby
steps. :) thanks.
> my %stats;
> while ( <STATS> ) {
> my ( $t, $p ) = /\[($team)\] ($player)/ or next;
> $stats{ $t }{ $p } = ();
>
> print "$t\t$p\n";
> }
>
> for my $t ( keys %stats ) {
> print "$t roster: @{[ keys %{ $stats{ $t } }
> ]}\n";
> }
>
>
>
> John
> --
> use Perl;
> program
> fulfillment
>
> --
> To unsubscribe, e-mail:
> [EMAIL PROTECTED]
> For additional commands, e-mail:
> [EMAIL PROTECTED]
> <http://learn.perl.org/>
> <http://learn.perl.org/first-response>
>
>
__________________________________
Do you Yahoo!?
Yahoo! Search - Find what you�re looking for faster
http://search.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
