Show
Ignore:
Timestamp:
11/15/07 16:03:32 (12 months ago)
Author:
yappo
Message:

r13@haruna (orig r11): ko | 2006-06-22 00:00:04 +0900
Oops


Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Geography-AddressExtract-Japan/trunk/bin/make_maps.pl

    r1574 r1575  
    3131    my @kana; 
    3232    if ($col->[6] ne '����' && $col->[8] !~ /^�ʲ��˷Ǥ�/ && ($col->[8] =~ /^[\p{Hiragana}\p{Katakana}]/ || $col->[8] =~ /��/)) { 
    33         $data = $col->[8]; 
    34         $data =~ s/��/; 
    35         for my $str (split /��/, $data) { 
     33        my $aza = $col->[8]; 
     34        $aza =~ s/��/; 
     35        for my $str (split /��/, $aza) { 
    3636            if ($str =~ /^(\p{Hiragana}+)/ || $str =~ /^(\p{Katakana}+)/) { 
    3737                my $kana = $1;