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);

[download]
to 
my $erg = 0;
$erg += $erg{$_} foreach (keys %erg); 
print $erg,"\n";

[download]

regards,
tomte

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

In Section Seekers of Perl Wisdom