Scitani

[Underground]

On 10 Aug 00, at 15:22, 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')

Pokusil jsem se zplodit nasledujici, ale nevim jestli
Vam to bude vyhovovat :-((

Ale mam jeste jeden dotaz ! Vysledek ma byt:

@secteno = (
'308=20',
'308a=10'   #nebo '308a=20' ?
# pokud "10", musel bych kod upravit, protoze tento
# hodnoty scita cisla i u "308a"
'309=20')

#Perlivy kod
#----------------
@pole = (
'308_em1=10',
'308_em2=10',
'308a_em1=10',
'308a_em2=10',
'309_em1=10',
'309_xpt=10'
);

$i = 0;

foreach $element (@pole)
   {
	@str = split("=", $element);
	($num, $not) = split("_", $str[0]);

	$temp{$num} += $str[1];
   }

foreach $str_num (sort keys %temp)
   {
	$secteno[$i++] = "$str_num=$temp{$str_num}";
   }

print "@secteno\n";

exit();
#------
#end