Hi Bryan, Thanks for the tip. :-)
I'm still a Perl beginner so I often don't code the most efficient way. -- Michael # Michael Doran, Systems Librarian # University of Texas at Arlington # 817-272-5326 office # 817-688-1926 cell # [EMAIL PROTECTED] # http://rocky.uta.edu/doran/ > -----Original Message----- > From: Bryan Baldus [mailto:[EMAIL PROTECTED] > Sent: Tuesday, March 29, 2005 5:22 PM > To: Doran, Michael D; perl4lib@perl.org > Subject: RE: LC call number sorting utilities > > On Sunday, March 27, 2005 7:09 PM, Michael Doran wrote: > >I recently converted a Library of Congress (LC) call number > >normalization routine (that I had written for a shelf list > application) > >into a couple of Perl LC call number sorting utilities. > > Thank you for this. It seems to work well (45000+ numbers > sorted, a quick > scroll-through seems to show everything sorted correctly). However, as > written, it seems to bog down on my machine after a few > thousand numbers. > > Instead of: > > @input_list = (@input_list, $call_no); > and > @sorted_list = (@sorted_list, $call_no_array{$key}); > > perhaps: > > push @input_list, $call_no; > and > push @sorted_list, $call_no_array{$key}; > > might help to speed things up (it did in my case). > > I hope this helps. Thank you, > > Bryan Baldus > [EMAIL PROTECTED] > [EMAIL PROTECTED] > http://home.inwave.com/eija > >
