in reply to Re: Re: Re: Re: Unique items in a text file
in thread Unique items in a text file

change

print $_ . ': ' . $erg{$_} . '<br />' . "\n" foreach (keys %erg);
to
my $erg = 0; $erg += $erg{$_} foreach (keys %erg); print $erg,"\n";

regards,
tomte


An intellectual is someone whose mind watches itself.
-- Albert Camus