Show
Ignore:
Timestamp:
11/15/07 16:03:33 (6 years ago)
Author:
yappo
Message:

r14@haruna (orig r12): ko | 2006-07-11 13:27:45 +0900
add filters


Location:
lang/perl/Geography-AddressExtract-Japan/trunk
Files:
1 added
2 removed
2 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Geography-AddressExtract-Japan/trunk/lib/Geography/AddressExtract/Japan.pm

    r1574 r1576  
    116116    } 
    117117 
    118     if ($opt->{aza} && $opt->{aza} =~ /\p{Han}+([�Ƥˤ�ؤΤˤ���].*)$/) { 
     118    if ($opt->{aza} && $opt->{aza} =~ /\p{Han}([�Ƥˤ�ؤΤˤ���])$/) { 
    119119        my $prefix = $1; 
    120120        $opt->{aza} =~ s/$prefix$//; 
    121121        $opt->{number} = ''; 
    122122        $opt->{match_text} =~ s/($opt->{aza}).+$/$1/; 
     123    } 
     124 
     125    if ($opt->{aza} && $opt->{aza} =~ /^(?:[�̱]|���|�İ����߽�)$/) { 
     126        $opt->{aza} = ''; 
     127        $opt->{number} = ''; 
     128        $opt->{match_text} = $opt->{city}; 
    123129    } 
    124130 
  • lang/perl/Geography-AddressExtract-Japan/trunk/test.pl

    r1574 r1576  
    7878 
    7979���Ա�Į�ˤ���K 
     80 
     81�������ɶ迷��54-1 
     82078-959 
    8083'); 
    8184