Re: Re: Re: Hash of arrays

Golf.......

do{split/: |;|\n/;$h{$_[0]}=[@_[1..$#_]]}for<DATA>
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

Comment on Re: Re: Re: Hash of arrays Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: Hash of arrays by broquaint (Abbot) on Nov 04, 2002 at 14:47 UTC
Four! `%h=map{split/: \|;\|\n/;shift@_,[@_]}<DATA>;` [download] HTH `_________ broquaint`	[reply] [d/l]
Re: Re: Re: Re: Hash of arrays by strider corinth (Friar) on Nov 04, 2002 at 21:05 UTC
Not quite as good as broquaint's score, but close: `y/:;/ /,split,$i=shift@_,$h{$i}=[@_]for<DATA>;` Points to anybody who can explain why `$above_code =~ s/$i=shift@_,$h{$i}=/$h{shift()}=/` won't work the same as $above_code. -- Love justice; desire mercy.	[reply] [d/l] [select]
Re: Re: Re: Re: Hash of arrays by jdporter (Paladin) on Nov 04, 2002 at 17:56 UTC
Shioo. my %h = map { chomp; /:\s+/ ? ( $` => [split ';', $'] ) : () } <DATA>; [download] Or, perhaps a little more comprehensible (but less safe): `my %h = map { $_->[0] => [split ';', $_->[1]] } map { chomp; [split /:\s+/] } <DATA>;` [download]	[reply] [d/l] [select]