Re: Re: Re: How do you move within an array using foreach?

# please forgive me..there are the hashes..
%foo1 = ( 
    a => "1",
    b => "2",
    c => "3",
);
%foo2 = ( 
    d => "4",
    e => "5",
    f => "6",
);
[download]

Comment on Re: Re: Re: How do you move within an array using foreach? Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: How do you move within an array using foreach? by jj808 (Hermit) on Oct 10, 2002 at 19:31 UTC
How about something like this then: `#! /usr/bin/perl -w use strict; use Data::Dumper; my @lines = (<>); my %data = (); my $token = ''; foreach (@lines) { if (/\[(\w+)\]/) { $token = $1; } if (/(\w+)=(\w+)/) { $data{$token}->{$1} = $2; } } print Dumper(\%data);` [download] The output is: `$VAR1 = { 'foo2' => { 'e' => '5', 'f' => '6', 'd' => '4' }, 'foo' => { 'a' => '1', 'b' => '2', 'c' => '3' } };` [download] Not 100% what you want - this creates a hash of hashes - but still useable. JJ	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: Re: Re: How do you move within an array using foreach?
by jj808 (Hermit) on Oct 10, 2002 at 19:31 UTC

#! /usr/bin/perl -w

use strict;
use Data::Dumper;

my @lines = (<>);
my %data  = ();
my $token = '';

foreach (@lines) {
  if (/\[(\w+)\]/) {
    $token = $1;
  }
  if (/(\w+)=(\w+)/) {
    $data{$token}->{$1} = $2;
  }
}

print Dumper(\%data);
[download]

$VAR1 = {
          'foo2' => {
                      'e' => '5',
                      'f' => '6',
                      'd' => '4'
                    },
          'foo' => {
                     'a' => '1',
                     'b' => '2',
                     'c' => '3'
                   }
        };
[download]

[reply]
[d/l]
[select]