'Bad index while coercing array into hash' error

[jason_normandin]

Greetings

I am getting the following error when running a script using an anonymous array 
of hashes:

Bad index while coercing array into hash at ./nhsDiffSchema.pl line 240

Here is the code snipt that both assigns values to the array of hashes and the 
code which displays the values back (where the error is coming from) :

* I have a scalar named $dataFiles that contains info similar to the following:

export/spiderman1/ora_data_1/oradata/EHEALTH/SYSTEM01.dbf                       
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                 SYSTEM                                     250 
                                 160.61                         89.39           
   1                         89.39                                 35.76 YES

Here is the code:

        my @dataFilesInfo=split /\n/,$dataFiles;
        foreach my $datafile (@dataFilesInfo) {
                next if $datafile =~ m/^$/;
                my @attributes=split /\s+/,$datafile;
                push @{$dataFileHash{$attributes[0]}},{
                        tableSpace => "$attributes[1]",
                        allocMB => "$attributes[2]",
                        usedMB => "$attributes[3]",
                        freeMB => "$attributes[4]",
                numFrags => "$attributes[5]",
                        maxFrag => "$attributes[6]",
                        percentFree => "$attributes[7]",
                        autoExtend => "$attributes[8]"
                };
        }

oreach my $datafile (sort keys %dataFileHash) {
                print "datafile : $datafile\n";
                foreach my $record (@{dataFileHash{$datafile}}) {
                        print "\tTablespace: $record->{tableSpace}\n";
                        print "\tMB Allocated: $record->{allocMB}\n";
                        print "\tMB Used: $record->{usedMB}\n";
                        print "\tMB Free: $record->{freeMB}\n";
                        print "\tNumber Frags: $record->{numFrags}\n";
                        print "\tMax Frag: $record->{maxFrag}\n";
                        print "\t% Free: $record->{percentFree}\n";
                        print "\tAuto Extend: $record->{autoExtend}\n";
                };
        }

The error is coming from line 236, which is:

print "\tTablespace: $record->{tableSpace}\n";

If I comment out that line, the error then goes to 237. So, it would seem I am 
accessing the values incorrectley some how but I can't seem to figure it out.

I have used the Data::Dumper module to dump the contents of the array of hashes 
and it seems to be populated as I thought:

$VAR1 = '/export/spiderman1/ora_data_1/oradata/EHEALTH/SYSTEM01.dbf';
$VAR2 = [
          {
            'usedMB' => '160.61',
            'autoExtend' => 'YES',
            'freeMB' => '89.39',
            'allocMB' => 250,
            'percentFree' => '35.76',
            'numFrags' => 1,
            'tableSpace' => 'SYSTEM',
            'maxFrag' => '89.39'
          }
        ];
$VAR3 = '/export/spiderman1/ora_data_1/oradata/EHEALTH/NH_INDEX01.dbf';
$VAR4 = [
          {
            'usedMB' => '394.52',
            'autoExtend' => 'YES',
            'freeMB' => '86.48',
            'allocMB' => 481,
            'percentFree' => '17.98',
            'numFrags' => 40,
            'tableSpace' => 'NH_INDEX',
            'maxFrag' => '57.13'
          }
        ];

.....

I am utterly confused as I have similar code that works correctley:

my @tableInfo=split /\n/,$allTables;
        foreach my $table (@tableInfo) {
                my @attributes=split /\s+/,$table;
                push @{$tables{$attributes[0]}},{
                        table_space => "$attributes[1]",
                        num_rows => "$attributes[2]"
                };
        }

foreach my $table (sort keys %tables) {
                print "table:$table\n";
                foreach my $record (@{$tables{$table}}) {
                        print "\tTablespace=$record->{table_space}\n";
                        print "\tNumber of rows=$record->{num_rows}\n\n";
                }
        }

I am using strict and when I enable warnings, I see the following message:

Argument "NH_DATA01" isn't numeric in helem at ./nhsDiffSchema.pl line 236.

I am not sure what that means and what 'helem' refers too.

Help !!

Thanks :)
Jason


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