Changeset 1573

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

r11@haruna (orig r9): ko | 2006-06-21 21:36:02 +0900
untabify
append match_text


Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r1572 r1573  
    6767        $opt{aza}    = $2 if $2; 
    6868        $opt{number} = $3 if $3; 
    69  
    70         $self->normalize($', \%opt);#'); 
    71                           
    72         push @{ $self->{addresses} }, Geography::AddressExtract::Japan::Address->new(%opt); 
     69        $self->normalize($', \%opt);#'); 
     70        push @{ $self->{addresses} }, Geography::AddressExtract::Japan::Address->new(%opt); 
    7371    } 
    7472} 
    … …  
    7876 
    7977    if ($opt->{number} && $opt->{number} =~ /^([���������岼])/) { 
    80         my $prefix = $1; 
    81         if ($right =~ /^((?:��?)?[-���ݤΥ�?(?:(?:(?:[�����͸����Ȭ����)?[�����͸����Ȭ�塻]+|\d+)|[a-zA-Z����)��/) { 
    82             my $append = $1; 
    83             $opt->{aza} .= $prefix; 
    84             $opt->{number} =~ s/^$prefix//; 
    85             $opt->{number} .= $append; 
    86         } 
     78        my $prefix = $1; 
     79        if ($right =~ /^((?:��?)?[-���ݤΥ�?(?:(?:(?:[�����͸����Ȭ����)?[�����͸����Ȭ�塻]+|\d+)|[a-zA-Z����)��/) { 
     80            my $append = $1; 
     81            $opt->{aza} .= $prefix; 
     82            $opt->{number} =~ s/^$prefix//; 
     83            $opt->{number} .= $append; 
     84            $opt->{match_text} .= $append; 
     85        } 
    8786    } 
    8887