Scitani

[Daniel Trescak]

On Thu, 10 Aug 2000, Pavel Kunc wrote:

> Ahoj,
> 
> mam pole a jeho hodnoty maji tvar "3cisla+pripadne pismeno_neco=pocet ks".
> napr.
> @pole = (
> '308_em1=10',
> '308_em2=10',
> '308a_em1=10',
> '308a_em2=10',
> '309_em1=10',
> '309_xpt=10')
> 
> Potreboval bych toto pole secist tak abych dostal:
> @secteno = (
> '308=20',
> '308a=10'
> '309=20')
> 
> Jak na to?
> 
> Pavel Kunc
> 

Takhle:

foreach (@pole) {
	next unless /(\d{3}\w?)_(.+)=(\d+)/;
	$soucet{$1} += $3;
};

foreach (sort keys %soucet) {
	push @secteno, $_ . "=" . $soucet{$_};
}

Dan Trescak