Re: Re: Printing a hash in a specific order?

artist,
Thank you very much! I have to look under the hood of this module as I think I have two problems that may make using it a little less than straight forward.

The object may change over time so I would know how to order keys that haven't been created yet.

If it is truly forcing the order and not performing some other kind of magic, than it is going to hurt performance.

In reference to point one, I could always just create a place holder for all possible keys, but I am not sure I want to do that since some parameters can exist with empty string as the value and I do not want to accidently create a parameter in a record that didn't previously exist. As far as point two. I have about 150,000 records in in the database - I wouldn't mind adding some overhead for ease of use as long as it doesn't add an extra hour to processing time.

Thanks again - I will definately check out this module.
Cheers - L~R

Comment on Re: Re: Printing a hash in a specific order?

Replies are listed 'Best First'.
Re: Re: Re: Printing a hash in a specific order? by artist (Parson) on Mar 15, 2003 at 15:44 UTC
Hi L~R, You can input your data in benchmarking here. My benchmark, comparing 200,00 records and each record contain a 50 fields containing small numeric data as key and value, gives the results: Benchmark: timing 200000 iterations of with_tie, without_tie... with_tie: 98 wallclock secs (96.22 usr + 0.00 sys = 96.22 CPU) @ 2078.61/s (n=200000) without_tie: 14 wallclock secs (13.25 usr + 0.00 sys = 13.25 CPU) @ 15094.34/s (n=200000) Rate with_tie without_tie with_tie 2079/s -- -86% without_tie 15094/s 626% -- And the code is `use Benchmark qw(cmpthese); use strict; use Tie::IxHash; sub with_tie { tie my %menu, 'Tie::IxHash'; foreach (1..50){$menu{$_} = $_; } } sub without_tie{ my %menu; foreach (1..50){$menu{$_} = $_;} } cmpthese(200000, { with_tie => \&with_tie, without_tie => \&without_tie });` [download] artist	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Re: Printing a hash in a specific order?
by artist (Parson) on Mar 15, 2003 at 15:44 UTC

L~R

My benchmark, comparing 200,00 records and each record contain a 50 fields containing small numeric data as key and value, gives the results:

Benchmark: timing 200000 iterations of with_tie, without_tie...
  with_tie: 98 wallclock secs (96.22 usr +  0.00 sys = 96.22 CPU) @ 2078.61/s (n=200000)
without_tie: 14 wallclock secs (13.25 usr +  0.00 sys = 13.25 CPU) @ 15094.34/s (n=200000)
               Rate    with_tie without_tie
with_tie     2079/s          --        -86%
without_tie 15094/s        626%          --

use Benchmark qw(cmpthese);
use strict;
use Tie::IxHash;
sub with_tie {

    tie my %menu, 'Tie::IxHash';    
    foreach (1..50){$menu{$_} = $_; }
}
sub without_tie{

    my %menu;    
    foreach (1..50){$menu{$_} = $_;}

}

cmpthese(200000, {
          with_tie => \&with_tie,
          without_tie => \&without_tie });
[download]

artist

[reply]
[d/l]