Still struggling with multilevel hashes.  Below is my code snippet, obligatory
use statments are in effect.  I don't understand the error.  Line 52 refers 
to the line %hrLists assignment - 

Where did I go wrong?

Thanks,
deb



while (<DATA>) {
    chomp;
    ($listname, $field) = split(/:/, $_);
    print "\nListname is $listname,\nField is: $field\n";
    %hrLists = split(/\s+/, $field);
    $Lists{$listname} = \%hrLists;
}

__DATA__
list-1: -x abc -r tenb
list-2: -x def -r ghi -h tenr
list-3: -x fel -h asci
list-4: -x foo -h nonasci -r bfab

I'm getting this output:

Listname is list-1,
Field is:  -x abc -r tenb
Odd number of elements in hash assignment at testhash2.pl line 52, <DATA> line 1.

Listname is list-2,
Field is:  -x def -r ghi -h tenr
Odd number of elements in hash assignment at testhash2.pl line 52, <DATA> line 2.

Listname is list-3,
Field is:  -x fel -h asci
Odd number of elements in hash assignment at testhash2.pl line 52, <DATA> line 3.

Listname is list-4,
Field is:  -x foo -h nonasci -r bfab
Odd number of elements in hash assignment at testhash2.pl line 52, <DATA> line 4.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to