root/WWW-Baseball-NPB/trunk/eg/bbgames

Revision 569 (checked in by miyagawa, 18 years ago)

0.03

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
Line 
1 #!/usr/local/bin/perl -w
2 use strict;
3 use WWW::Baseball::NPB;
4
5 my $baseball = WWW::Baseball::NPB->new;
6 my @games  = $baseball->games;
7
8 for my $game (@games) {
9     my $home    = $game->home;
10     my $visitor = $game->visitor;
11     printf "%s %d - %d %s (%s) [%s]\n",
12         $home, $game->score($home) || 0, $game->score($visitor) || 0,
13             $visitor, $game->status, $game->stadium;
14 }
Note: See TracBrowser for help on using the browser.