Show
Ignore:
Timestamp:
11/14/07 04:09:35 (12 months ago)
Author:
miyagawa
Message:

merged kddi test cases. Updated softbank data format to be in sync with others. Added encode() bruteforce tests to KDDI/DoCoMo/Softbank sjis encodings.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Encode-JP-Mobile/trunk/tools/softbank-scrape.pl

    r1373 r1426  
    99  process '//table[@width="100%" and @cellpadding="2"]//tr/td/font/../..', 
    1010    'emoji[]' => scraper { 
    11       process '//td[2]/font', code => 'TEXT'; 
    12       process '//td[3]/font', char => 'TEXT'; 
     11      process '//td[2]/font', unicode => 'TEXT'; 
     12      process '//td[3]/font', sjis => [ 'TEXT', sub { unpack "H*", shift } ]; 
    1313    }; 
    1414  result 'emoji'; 
    1515}; 
    1616 
    17 my @urls = ( 
    18   'http://72.14.253.104/search?q=cache:http%3A//developers.softbankmobile.co.jp/dp/tool_dl/web/picword_01.php', 
    19   'http://72.14.253.104/search?q=cache:http%3A//developers.softbankmobile.co.jp/dp/tool_dl/web/picword_02.php', 
    20   'http://72.14.253.104/search?q=cache:http%3A//developers.softbankmobile.co.jp/dp/tool_dl/web/picword_03.php', 
    21   'http://72.14.253.104/search?q=cache:http%3A//developers.softbankmobile.co.jp/dp/tool_dl/web/picword_04.php', 
    22   'http://72.14.253.104/search?q=cache:http%3A//developers.softbankmobile.co.jp/dp/tool_dl/web/picword_05.php', 
    23   'http://72.14.253.104/search?q=cache:http%3A//developers.softbankmobile.co.jp/dp/tool_dl/web/picword_06.php', 
    24 ); 
     17my @urls = map "http://developers.softbankmobile.co.jp/dp/tool_dl/web/picword_0$_.php", 1..6; 
     18 
    2519my $res; 
    2620foreach my $url (@urls) { push @$res, @{$emoji->scrape(URI->new($url))} };