Changeset 4029

Show
Ignore:
Timestamp:
01/04/08 13:46:59 (5 years ago)
Author:
hiroyukim
Message:

モジュール名間違いと間違えてメソッドはやしていたのを修正

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Mezasi/trunk/lib/Mezasi/Dictionary.pm

    r3799 r4029  
    99use List::MoreUtils qw/uniq/; 
    1010use Mezasi::Trie; 
     11use Mezasi::Freq; 
    1112use Data::Dumper; 
    1213 
    … …  
    9899    my $self = shift; 
    99100 
    100     my $tmp_file_name = "@{[$self->dirname]}/sixamo.tmp.@{[$$]}-@{[rand(100)]}"; 
     101    my $tmp_file_name = "@{[$self->{dirname}]}/sixamo.tmp.@{[$$]}-@{[rand(100)]}"; 
    101102 
    102103    my $fp = IO::File->new( $tmp_file_name,">:utf8" ); 
    … …  
    112113 
    113114    my $result = ''; 
    114     $result .= "line_num: @{[$self->line_num]}\n"; 
     115    $result .= "line_num: @{[$self->{line_num}]}\n"; 
    115116    $result .= "\n"; 
    116117 
    … …  
    205206    } 
    206207 
    207     @{$self->{text}} = @ary; 
     208    push @{$self->{text}} , @ary; 
    208209 
    209210    my $fp = IO::File->new( $self->{text_filename} , ">>:utf8"); 
    … …  
    222223    my ($self, $lines, $idx ) = @_; 
    223224 
    224     my @new_terms = Freq->extract_terms( $lines, 30 ); 
     225    my @new_terms = Mezasi::Freq->extract_terms( $lines, 30 ); 
    225226    
    226227    for my $term ( @new_terms ) {