Re: Hash of arrays

use Data::Dumper;
use strict;
my %hash;
while (<DATA>) {
    chomp;
  next unless $_;
    my @bits = split /: |;/;
    my $key = shift @bits;
    $hash{$key} = \@bits;
}
print Dumper \%hash;

__DATA__
t-98: 12;3;56;24
t-56: 1;98
t-3 : 12;56
[download]

This generates the desired data structure:

$VAR1 = {
          't-98' => [
                      '12',
                      '3',
                      '56',
                      '24'
                    ],
          't-3 ' => [
                      '12',
                      '56'
                    ],
          't-56' => [
                      '1',
                      '98'
                    ]
        };
[download]

cheers

tachyon

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

Comment on Re: Hash of arrays Select or Download Code

Replies are listed 'Best First'.
Re: Re: Hash of arrays by broquaint (Abbot) on Nov 04, 2002 at 14:18 UTC
A variation on a theme `use strict; use Data::Dumper; my %hoa; while(<DATA>) { chomp; my($k, $v) = split /\s:\s/ => $_, 2; $hoa{$k} = [ split ';' => $v ]; } print Dumper(\%hoa); __DATA__ t-98: 12;3;56;24 t-56: 1;98 t-3 : 12;56` [download] HTH `_________ broquaint`	[reply] [d/l]
Re: Re: Re: Hash of arrays by tachyon (Chancellor) on Nov 04, 2002 at 14:38 UTC
Golf....... `do{split/: \|;\|\n/;$h{$_[0]}=[@_[1..$#_]]}for<DATA>` [download] cheers tachyon s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print	[reply] [d/l]
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]