Hi, I think the key's of the midtlinfo hash are not seen/get in the order you have populated it before, if iam not wrong. If so then a customized compare func could applied (on same terms when ordering by certain columns from tbl was done) while reading from the hash.
Cheers/ --- On Wed, 11/19/08, Fish, David <[EMAIL PROTECTED]> wrote: > From: Fish, David <[EMAIL PROTECTED]> > Subject: Reading hash arrays in the order it was written > To: [EMAIL PROTECTED], perl-win32-users@listserv.ActiveState.com, [EMAIL > PROTECTED] > Date: Wednesday, November 19, 2008, 9:27 PM > 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] > _______________________________________________ > ActivePerl mailing list > [EMAIL PROTECTED] > 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