in reply to Re: Re: Re: Unique items in a text filein thread Unique items in a text file
change
print $_ . ': ' . $erg{$_} . '<br />' . "\n" foreach (keys %erg); [download]
my $erg = 0; $erg += $erg{$_} foreach (keys %erg); print $erg,"\n"; [download]
regards, tomte
An intellectual is someone whose mind watches itself.-- Albert Camus