Show
Ignore:
Timestamp:
01/18/08 13:57:50 (10 months ago)
Author:
miyagawa
Message:

add image and number to Softbank conversion table

Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r1426 r4862  
    66use YAML; 
    77 
     8my $number = 1; 
     9 
    810my $emoji = scraper { 
    911  process '//table[@width="100%" and @cellpadding="2"]//tr/td/font/../..', 
    10     'emoji[]' => scraper { 
    11       process '//td[2]/font', unicode => 'TEXT'; 
    12       process '//td[3]/font', sjis => [ 'TEXT', sub { unpack "H*", shift } ]; 
    13     }; 
     12      'emoji[]' => scraper { 
     13          # 264-266 are Skymail and 277-280 are J-PHONE chars, removed from their website 
     14          $number += 4 if $number == 267; 
     15          process '//td[2]/font', unicode => 'TEXT'; 
     16          process '//td[3]/font', sjis => [ 'TEXT', sub { unpack "H*", shift } ]; 
     17          process '//td[1]/img',  image => [ '@src', sub { $_->as_string } ]; 
     18          process '//td[1]', number => [ 'TEXT', sub { $number++ } ]; # /td[1] etc. is dummy 
     19      }; 
    1420  result 'emoji'; 
    1521};