Re^4: To Hash or to Array--Uniqueness is the question.

No, he's using the values of the hash to store the intended order, and sorting on the values instead of the keys. The downside is that instead of just keeping the order around, we're spending time sorting to get the order back.

Comment on Re^4: To Hash or to Array--Uniqueness is the question.

Replies are listed 'Best First'.
Re^5: To Hash or to Array--Uniqueness is the question. by Nkuvu (Priest) on Dec 02, 2005 at 17:48 UTC
Bah, this is what I get for being lazy. ;) Instead of creating a file so that I could open it via the `$fh` filehandle, I used the following snippet: `# sort method my @values = qw( one foo bar one baz two quack baz ); my %h = (); foreach (@values) { $h{ $_ } \|\|= $.; } print "\n\nSort method:\n"; print (join ", ", sort { $h{a} cmp $h{b} } keys %h);` [download] And totally missed the fact that Moron was using `$.` as the hash value. Thanks for pointing out what I should have already noticed.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: To Hash or to Array--Uniqueness is the question.
by Nkuvu (Priest) on Dec 02, 2005 at 17:48 UTC

Bah, this is what I get for being lazy. ;)

Instead of creating a file so that I could open it via the $fh filehandle, I used the following snippet:

# sort method
my @values = qw( one foo bar one baz two quack baz );
my %h = ();
foreach (@values) {
    $h{ $_ } ||= $.;
}

print "\n\nSort method:\n";
print (join ", ", sort { $h{a} cmp $h{b} } keys %h);
[download]

And totally missed the fact that Moron was using $. as the hash value. Thanks for pointing out what I should have already noticed.

[reply]
[d/l]
[select]