----- Original Message ----- From: Brent Clark <[EMAIL PROTECTED]> Date: Tuesday, June 21, 2005 8:52 am Subject: trying up date a hash
> Hi all
Hello,
>
> Would anyone be so kind as to look at my code.
>
> Im trying to create a hash of hashes
>
> Thanks in advance
>
> Brent Clark
>
> while(<DATFILEREAD>){
> chomp;
> @linex = split(/\|/);
> my %xmlData = (
>
> 'bbookdate' => $linex[0],
>
> 'bbooktime' => $linex[1],
>
> 'bstayf' => $linex[2],
>
> 'bcode' => $linex[3],
>
> 'bhotel' => $linex[4],
>
> 'broomcde' => $linex[5],
>
> 'broom_name' => $linex[6],
>
> 'bnights' => $linex[7],
>
> 'badults' => $linex[8],
>
> 'bchilds' => $linex[9],
>
> 'bbookref' => $linex[10],
>
> 'bbookrefnum' => $linex[11],
>
> 'bnames' => $linex[12],
>
> 'bnett_price' => $linex[13],
>
> 'brrp_price' => $linex[14],
>
> 'bsell_price' => $linex[15],
>
> 'bconfig' => $linex[16],
>
> 'bspecial1' => $linex[17],
>
> 'bspecial2' => $linex[18],
>
> 'bspecial3' => $linex[19],
>
> 'bspecial4' => $linex[20],
>
> 'breceived' => $linex[21],
>
> 'bauditdate' => $linex[22],
>
> 'baudittime' => $linex[23],
>
> 'baudituser' => $linex[24],
>
> 'btran1' => $linex[25],
>
> 'btran2' => $linex[26],
>
> 'bsellcur' => $linex[27],
>
> 'bregion' => $linex[28],
>
> 'bvouchnum1' => $linex[29],
>
> 'bvouchnum2' => $linex[30],
>
> 'bvouchnum3' => $linex[31],
>
> 'bbillcode' => $linex[32],
>
> 'bpuphhmm' => $linex[33],
>
> 'brethhmm' => $linex[34]
> );
> %fullXmlHash{$xmlData{'bbookref'}} =
> %xmlData; }
This line should probably be
%fullXmlHash{$xmlData{'bbookref'}} = \%xmlData;
HTH,
Mark G.
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
