#!/usr/athena/bin/perl
###############################################################################
#
# File:         munge2
# RCS:          $Header: $
# Description:  
# Author:       Darryl Okahata
# Created:      Tue Dec 17 15:26:46 1991
# Modified:     Wed Dec 18 16:48:07 1991 (Darryl Okahata) darrylo@hpsrdmo
# Language:     Perl
# Package:      N/A
#
###############################################################################


###############################################################################
while (<>) {
    next if (!/^(.+)[ \t]*,[ \t]*([0-9]+)/);
    $word = $1;
    $index = $2;
    if ($master_index{$word}) {
	if ($master_index{$word} !~ /\b$index\b/) {
	    $master_index{$word} = $master_index{$word} . ' ' . $index;
	}
    } else {
	$master_index{$word} = $index;
    }
}

foreach $word (sort(keys %master_index)) {
    print $word, ": ", $master_index{$word}, "\n";
}

exit (0);

###############################################################################



#
# Local Variables:
# mode: perl
# perl-indent-level:			 4
# perl-continued-statement-offset:	 4
# perl-continued-brace-offset:		 0
# perl-brace-offset:			-4
# perl-brace-imaginary-offset:		 0
# perl-label-offset:			-4
# End:
#