view release on metacpan or  search on metacpan

lib/Baseball/Sabermetrics/League/CPB2.pm  view on Meta::CPAN

    read FILE, $bin, 1024 or die;
    for (0..5) {
	read FILE, $bin, (256 * 25) or die;
	my $t = $c->unpack('Team', $bin);
	my $name = (qw/ elephants lions dragons bears eagles tigers /)[$_];
	$teams->{$name} = $t;
    }

    while (read FILE, $bin, 256) {
	die if length $bin != 256;
	my $p = $c->unpack('Player', $bin);
	next if $p->{team} > 5; # XXX unregistered player

	$p->{name} = decode "big5", pack 'C[6]', @{$p->{name}};
	$p->{name} =~ s/ //g;
	$p->{name} = encode "utf8", $p->{name};

	$p->{team} = $teams->{(qw/ elephants lions dragons bears eagles tigers /)[$p->{team}]};

	$p->{'2b'} = $p->{b2}; delete $p->{b2};
	$p->{'3b'} = $p->{b3}; delete $p->{b3};