Not inherent in the hash. You could store the ordinal value as one of the 
values in a hash of arrays, and then sort on that when you retrieve the values, 
but there is really no way to guarantee the order in which it will be retrieved 
from the hash is the same order in which it was inserted. To preserve your 
order, you need to use an array.


-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Fish, David
Sent: Wednesday, November 19, 2008 7:58 AM
To: [EMAIL PROTECTED]; perl-win32-users@listserv.ActiveState.com; [EMAIL 
PROTECTED]
Subject: Reading hash arrays in the order it was written

Hello!  The problem I am having is I am pulling data from a table in a
certain order and loading it into the hash array but when I read the
hash array it comes out in a different order than it is written.  What I
have done as a work around, is the read the data from a file that has it
in the correct order.  Is there away to build the hash so that it reads
in the order it was created?



Key creation and hash build:
      select statement ordering by certain columns
      ......

      $key = sprintf("%04d%07d%07d",$chk_num,$trans_seq,$dtl_seq);
      $midtlinfo{$key} =
sprintf("%d|%d|%s|%d|%d|%d|%d|%d|%d|%d|%d|%d|%d|%d|%s|%s|%d|%d|%0.2f|%0.
2f|%0.2f",
                                  $se_chk_mi_seq,
                                  $obj_num,
                                  $business_date,
                                  $chk_num,
                                  $trans_seq,
                                  ........
                                  );

Reading of the hash:
foreach $mk (keys %midtlinfo)
 @mrec = split(/\|/,$midtlinfo{$mk});

   ....

}

David Fish
Senior Systems Analyst
Property Systems Services
Work (301) 380-3331
Fax (301) 644-7521
BlackBerry (301) 646-8985
[EMAIL PROTECTED]
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to