Re: accesing a hash of an array of hashes

[pauld]

thanks for the help - im looking up hash slices - but id like to get
something that works and then i can add new ideas etc so im going to
leave it as it for the time being.

Data::Dumper has helped sort out where  an error is coming

#!/usr/bin/perl -w
use strict;
use warnings;
open O, "<$file" or die "could not open $file - $!";
undef $/;
my $whole_file = <O>;
close O;
$whole_file=~s/\x0D\x0A1/\x0D\x0AABC1/g;my @rows=split(/\x0D\x0AABC/,
$whole_file);
######splits in the correct place after looking at the CSV file with a
hex editor - ugly but it seems to work ATM######

my %hash;
my  @headings=split(/,/,$rows[0])
 for (my $j=1;$j<=2;$j++)
{
my @columns = $csv->fields ();

for (my $i=0;$i<=$#columns;$i++)  {$hash{$headings[$i]}=$columns[$i];}

print Dumper(%hash);
push (@{$Hofdates{$hash{OPDATE}}},\%hash);
print Dumper (%Hofdates);
}

and i get this output


#############1st record

$VAR1 = 'STANTIME';
$VAR2 = '06:04';
$VAR3 = 'T3_AN2no';
$VAR4 = '';
$VAR5 = 'DESC3';
$VAR6 = '';
$VAR7 = 'T1_ANSNAME';
etc etc to the end
then

-----------------01/10/2006---BROWN---------------
$VAR1 = '01/10/2006';
$VAR2 = [
          {
            'STANTIME' => '06:04',
            'T3_AN2no' => '',
            'DESC3' => '',
            'T1_ANSNAME' => 'SMITH',
            'P3_STANDTIME' => '',
            'T2_AN2name' => '',
<snip>
             'CANCREASON' => '',
            'RN2_NO' => '',
            'T2_SUSDuty' => ''
          }
        ];

#######################2nd record from file
$VAR1 = 'STANTIME';
$VAR2 = '17:39';
$VAR3 = 'T3_AN2no';
$VAR4 = '';
$VAR5 = 'DESC3';
$VAR6 = '';
<snip>
$VAR347 = 'CANCREASON';
$VAR348 = '';
$VAR349 = 'RN2_NO';
$VAR350 = '';
$VAR351 = 'T2_SUSDuty';
$VAR352 = '';

------------------01/10/2006---JONES--------------
$VAR1 = '01/10/2006';
$VAR2 = [
          {
            'STANTIME' => '17:39',
            'T3_AN2no' => '',
            'DESC3' => '',
            'T1_ANSNAME' => '',
            'P3_STANDTIME' => '',
                'P4_OPCS4_3' => '',
            'STANDATE' => '01/10/2006',
            'CANCREASON' => '',
            'RN2_NO' => '',
            'T2_SUSDuty' => ''
          },
          $VAR2->[0]
        ];
grenada tmp #

so its  pushing the second hash onto the array  and overwriting the
1st


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