Mockrat dekuji.
Pavel Kunc
"Daniel Trescak" <trescak na eryx1.zcu.cz> wrote in message
news:Pine.OSF.3.95.1000811123926.11504B-100000 na eryx1.zcu.cz...
>
> Takhle:
>
> foreach (@pole) {
> next unless /(\d{3}\w?)_(.+)=(\d+)/;
> $soucet{$1} += $3;
> };
>
> foreach (sort keys %soucet) {
> push @secteno, $_ . "=" . $soucet{$_};
> }
>
> Dan Trescak
>
>