Hash ref's of hash's

[mgoland]

Hi all,
     I am trying to setup a hash who's values are referance to hash's. Data structure 
should look like this

hash
     1:
           setting 1
           setting 2
     2:
           setting 1
           setting 2
....

  I would think it can be accomplished with following code, but when I try to print it 
out it only prints the last setting which it read. Any idea's ??

CODE:
#!perl -w
use strict;
open RD, "input.txt";

my ( $field,$portsetting, $value, $port, $portnum, %digi, $debug );
$debug=0;

 while ( <RD> ) {
     if(m/^(port)\s\=\s(.*)$/i){$portnum=$2;$portnum++}

     $field = {};
     $digi{$portnum} = $field;

                m/^(.*)\s\=\s(.*)$/;
                $portsetting=$1;
                $value=$2;
                $field->{$portsetting}=$value;

print "setting $portsetting -> $digi{$portnum}{$portsetting}\n" if $debug;

                if($portsetting eq 'porttitle'){
                        $value =~ tr /-/ /;
                        $value =~ m/^(\w+)\s+(\w+)/i;
                        $field->{$portsetting}=$1;
                        $field->{'type'}=$2;
print "1:$digi{$portnum}{$portsetting}\t2:$digi{$portnum}{'type'}\n" if $debug;
                }

 }


# print the whole thing
 foreach $port ( keys %digi ) {
     print "$port: { ";
     for $field ( keys %{ $digi{$port} } ) {
         print "$field=$digi{$port}{$field} ";
     }
     print "}\n";
 }

Sample DATA

port = 0
bmanset = 0
benable = 1
uarttype = 0
baudrate = 9600
stopbits = 1
databits = 8
parity = 0
flowcontrol = 0
protocol = 1
port = 1
bmanset = 0
benable = 1
uarttype = 0
baudrate = 9600
stopbits = 1
databits = 8
parity = 0
flowcontrol = 0
protocol = 1


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>