Cannot understand this fragment of code

Hello there, I'm trying to understand and modify some perl code to
create an index of word. The subroutine I have is in OO Perl, and I'm
just starting to learn normal Perl. So I'd like to transform it. Here
it is:

sub make_word_list {
my ( $self ) = @_;
my %all_words;
foreach my $doc ( @{ $self->{docs} } ) {
my %words = $self->get_words( $doc );
foreach my $k ( keys %words ) {
#print "Word: $k\n";
$all_words{$k} += $words{$k};
}
}

#-------------?? from here
# create a lookup hash of word to position
my %lookup;
my @sorted_words = sort keys %all_words;
@lookup{@sorted_words} = (1..$#sorted_words );

$self->{'word_index'} = \%lookup;
$self->{'word_list'} = \@sorted_words;
$self->{'word_count'} = scalar @sorted_words;
}

and it's called by

make_word_list();

Ok, the first part is clear (til when %all_words is created).

%all_words for us is a hash like

KEY VALUE
word frequency in documents
foo 32
cat 12
....

but what about the rest? @sorted_words contains just the sorted words
with no frequency, and then?


Thank you so much

Giuseppe

.

Relevant Pages