Re^2: Array of hashes reference problem

Sorry, here's the whole code segment:

   our @arrayAoH = "";
    my $i = 0; # i holds the line number of the input (@discovered) ar
+ray.
    my $j = 0; # j holds the number of the table row.
   my $key;
   my $value;
# $# returns the subscript of the last element in the array.
    until ($i eq $#discovered){
        if ($discovered[$i] =~ m/Item Number:/){
# parse this line containing labels and values until a blank line is f
+ound
            until ($discovered[$i] eq ""){
                ($key, $value) = split /:\s*/, $discovered[$i];
##            $arrayAoH[$j] = { $key => $value };
                $arrayAoH[$j]{$key} = $value;
                $i++;
            }
# If the selected item shouldn't be processed, remove this array row.
            if (($arrayAoH[$j]{"Model Number"} !~ m/^Foo/)){
                splice (@arrayAoH, $j, 1);
            }
            else {
            $j++;
            }
        }
        else {
        $i++;}
    }
[download]

20050623 Edit by ysth: code tags

Comment on Re^2: Array of hashes reference problem Download Code

Replies are listed 'Best First'.
Re^3: Array of hashes reference problem by rev_1318 (Chaplain) on Jun 22, 2005 at 18:15 UTC
here's the whole code segment I doubt that. This code won't parse. When using strict, you have to declare $arrayAoH first. Besides, `$arrayAoH$j{$key} = $value;` [download] should read: `$arrayAoH[$j]{$key} = $value;` [download] and `if (($arrayAoH$j{"Model Number"} !~ m/^Foo/)){` [download] should be `if (($arrayAoH[$j]{"Model Number"} !~ m/^Foo/)){` [download] Please post actual code... Paul	[reply] [d/l] [select]
Re^4: Array of hashes reference problem by tlemons (Novice) on Jun 22, 2005 at 18:30 UTC
Sorry. I added the definition of the array. The brackets around the array subscripts are there in the code; this web site's parser eats them. Thanks tl	[reply]
Re^3: Array of hashes reference problem by Errto (Vicar) on Jun 23, 2005 at 03:06 UTC
The eventual solution found by sapnac got buried below so I'll re-mention it here with an explanation. The issue is in the "initialization" code `our @arrayAoH = "";` [download] The problem is that this doesn't just create an array. It creates an array with a single element that contains an empty string. It's basically equivalent to `our @arrayAoH; $arrayAoH[0] = "";` [download] The solution is to either leave out the assignment or to assign it an empty list (which is different from an empty string): `our @arrayAoH = ();` [download] More formally, a simple scalar value in list context is treated as a list of length one containing that value.	[reply] [d/l] [select]