Changeset 567

Show
Ignore:
Timestamp:
03/31/02 01:56:27
Author:
miyagawa
Message:

0.02

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • WWW-Baseball-NPB/trunk/Changes

    r564 r567  
    11Revision history for Perl extension WWW::Baseball::NPB 
     2 
     30.02  Sun Mar 31 01:56:06 JST 2002 
     4        - Fixed HTML parsing when games are not yet started. 
    25 
    360.01  Sat Mar 30 22:21:54 2002 
  • WWW-Baseball-NPB/trunk/MANIFEST

    r564 r567  
    33Makefile.PL 
    44README 
    5 lib/WWW/Baseball/Japan.pm 
    6 lib/WWW/Baseball/Japan/Result.pm 
     5lib/WWW/Baseball/NPB.pm 
     6lib/WWW/Baseball/NPB/Result.pm 
    77t/00_compile.t 
    88t/01_baseball.t 
    9 t/dummy.html 
     9t/02_pre.t 
     10t/20020330.html 
     11t/20020331-pre.html 
  • WWW-Baseball-NPB/trunk/Makefile.PL

    r564 r567  
    22WriteMakefile( 
    33    'NAME'      => 'WWW::Baseball::NPB', 
    4     'VERSION_FROM' => 'lib/WWW/Baseball/Japan.pm', # finds $VERSION 
     4    'VERSION_FROM' => 'lib/WWW/Baseball/NPB.pm', # finds $VERSION 
    55    'PREREQ_PM' => { 
    66        'Test::More' => 0.32, 
  • WWW-Baseball-NPB/trunk/lib/WWW/Baseball/NPB.pm

    r564 r567  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = 0.01
     5$VERSION = 0.02
    66 
    7 use LWP::Simple ()
     7use LWP::Simple
    88use WWW::Baseball::NPB::Result; 
    99 
     
    4747        home    => $home, 
    4848        visitor => $visitor, 
    49         score   => { $home => $home_score, $visitor => $visitor_score }, 
     49        score   => { 
     50            $home => $home_score, 
     51            $visitor => $visitor_score, 
     52        }, 
    5053        league  => $league{$league}, 
    5154        status  => $status, 
     
    6164</b> 
    6265</td> 
    63 <td align="center" width=30%>(\S*) - (\S*)<br><a href="/baseball/(cl|pl)/scores/.*?">(.*?)</a> 
     66<td align="center" width=30%>(\S*) ?- ?(\S*)<br><a href="/baseball/(cl|pl)/scores/.*?">(.*?)</a> 
    6467</td> 
    6568<td align="left" width=35%><b><a href=".*?">(.*?)</a> 
     
    100103 
    101104WWW::Baseball::NPB provides you a way to fetch and extract Japanese 
    102 baseball result via Yahoo! Baseball. 
     105baseball result via Yahoo! Baseball. (NPB = Nippon Professional 
     106Baseball) 
    103107 
    104108=head1 NOTE 
    105109 
     110=over 4 
     111 
     112=item * 
     113 
    106114Characters like team names, status and stadium are encoded in 
    107115EUC-JP. You can convert them to any encoding via Jcode. 
     116 
     117=back 
    108118 
    109119=head1 TODO 
  • WWW-Baseball-NPB/trunk/t/01_baseball.t

    r564 r567  
    99        local $/; 
    1010        require FileHandle; 
    11         my $handle = FileHandle->new("t/dummy.html"); 
     11        my $handle = FileHandle->new("t/20020330.html"); 
    1212        return <$handle>; 
    1313    };