Scitani

[Marian Cavojsky]

Dňa Št, 10 aug 2000 ste (DADAJ Marián) napísali:
> Asi bude nutne cez fereach key vytiahnut kazdu hodnotu,
> rozparsovat ju a ...napr v hashi scitavat hodnoty.
> 
> 	
> > S pozdravom
> > Ing. Marian Dadaj
> 
> -----Original Message-----
> From: Pavel Kunc [mailto:kupa na cmail.cz]
> Sent: Thursday, August 10, 2000 3:23 PM
> To: Multiple recipients of list PERL
> Subject: Scitani
> 
> 
> 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

while( <>){
  if( /(\d{3}[a-z|A-Z]*)_\w+=(\d+)/){
    $hash{$1} += $2;
  }
}

-- 
Marian Cavojsky
cavojsky @ soria-grey.sk