parse

[Aben Siatris]

Dňa Tuesday 28 September 2004 16:42 Lukas Svoboda napísal:
> pomoci tohoto zapisu
> my @keys =(1,2,3);
> my @values=(5,6,7);
> my %h
> @h{@keys} = @values;
takze podla kluca:
@h{'test','test2'}=("value1","value2");
a funguje to.
najprv sa mi nezdalo to @h, ale je to skutocne tak.
priznam sa ze toto som este nevidel.

to uz ale skor:
while ($text=~s/^(.*?);(.*)\n//){$hash{$1}=$2};

viem ze funguje nasledovne:
my @array=("kluc","value");
my %hash=@array;

ako teda dostat vstup z $test do pola v tvare kluc,value,kluc,value
aby som to bol schopny priradit %hash=@array;


btw: spominany problem ma zaujima hlavne ciste teoreticky, nepotrebujem
pre prakticke riesenie nejakeho problemu. len viem ze sa to musi dat, ale
neviem ako.



> 
> ..apon doufam, uz jsem v perlu dlouho nic nedelal:)
> 
> On Tue, 28 Sep 2004 11:26:00 +0200 (MEST), Aben Siatris <aben na webcom.sk> 
wrote:
> > 
> > da sa toto napisat aj krajsie?
> > 
> > my $text=<<"HEADER";
> > 646;sadfpwoef
> > 9994;weopsdfj
> > 334;qwepowr
> > HEADER
> > 
> > my %hash;
> > foreach my $lin(split('\n',$text))
> > {
> > my @arr=split(';',$line,2);
> > $hash{$arr[0]}=$arr[1];
> > }
> > 
> > 
> 
> 
> 
> -- 
> Lukas Svoboda
>