parse

[Lukas Svoboda]

pomoci tohoto zapisu
my @keys =(1,2,3);
my @values=(5,6,7);
my %h
@h{@keys} = @values;

...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