Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

hash sort by value - Alpha Numeric

by juo (Curate)
on May 27, 2003 at 07:32 UTC ( [id://260944]=perlquestion: print w/replies, xml ) Need Help??

juo has asked for the wisdom of the Perl Monks concerning the following question:

I have found the Perlfaq 4 very usefull. I found their a sample to do sorting of hash table by value : Alphabetic and Numeric but I could not find on how to do it Alpha-Numeric. Alpha Numeric : 1 2 12 a9 a12 ---- Numeric : 1 2 12 (cannot have characters) ----- Alphabetic : 1 2 13 a12 a9 ------- Anybody has an idea on how to do this. See example code below for numeric only :

For example : $keys{a} = 2; $keys{b} = 1; $keys{c} = 12; $keys{d} = 'a12'; $keys{d} = 'a9'; # 3 = sort by value - numeric ascending- will not work if contain char +acters foreach my $key (sort {$keys{$a} <eq> $keys{$b} || length($a) <=> le +ngth($b) || $a cmp $b} (keys %keys)) { print "Key = $key, Value = $keys{$key}\n"; }

Replies are listed 'Best First'.
Re: hash sort by value - Alpha Numeric
by sauoq (Abbot) on May 27, 2003 at 08:36 UTC

    The reason this is hard to do is that you can't compare every character with another. You have to break your input strings into larger chunks, the letter chunks and the digit chunks. Then, you have to, essentially, do multiple sorts on any two strings alternating between digits and letters. And you have to keep them in sync (i.e. make sure you are always comparing digits to digits and letters to letters.)

    This is my attempt. I imagine it can be improved upon. The Schwartzian Transform helps reduce a lot of duplicate work by splitting the string into its letter/digit components in the initial map. The regex should always create a field for letters first even if it is undef. That keeps them in sync. The sort routine itself is pretty straight forward, but it is lengthy so I put it in its own function.

    my %hash = map {split} <DATA>; for my $key ( map { $_->[0] } sort custom_sort map {[ $_, $hash{$_} =~ /([A-Z]*)(\d+|[A-Z]+)/ig ]} keys + %hash) { print "Key = $key, Value = $hash{$key}\n"; } sub custom_sort { my $i = 1; for (;;) { return -1 unless defined $a->[$i]; return 1 unless defined $b->[$i]; my $c = $a->[$i] cmp $b->[$i] || $a->[$i+1] <=> $b->[$i+1]; return $c if $c; $i += 2; } } __DATA__ a 2 b 1 c 12 d a12 e a9 f a2b3 g a2b4 h b2b4 i 12 j a2bb5 k a2bb5a l a2bb5b

    The output from that:

    Key = b, Value = 1 Key = a, Value = 2 Key = c, Value = 12 Key = i, Value = 12 Key = f, Value = a2b3 Key = g, Value = a2b4 Key = j, Value = a2bb5 Key = l, Value = a2bb5b Key = k, Value = a2bb5a Key = e, Value = a9 Key = d, Value = a12 Key = h, Value = b2b4

    Caveat: This code assumes your strings only ever contain digits and letters. You'll have to modify the regex to suit your needs if other characters are to be permitted. Also, capitalization matters. (Caps sort lower than lowercase.)

    -sauoq
    "My two cents aren't worth a dime.";
    
Re: hash sort by value - Alpha Numeric
by bart (Canon) on May 27, 2003 at 08:59 UTC
Re: hash sort by value - Alpha Numeric
by Enlil (Parson) on May 27, 2003 at 09:46 UTC
    From what I gather you want everything numerical only up front, followed by anything with a letter in it sorted asciibetically. Here is some code using the ever popular Schwartzian Transform:
    use strict; use warnings; my %keys; @keys{('a'..'n')}= ('2','1','12','a12','a9', 'a2b3','a2b4','b2b4','1a2','a2bb5', 'a2bb5a','a2bb5b',654,9); my @foo = map { $_->[0] } sort newsort map { [$_, $keys{$_} =~ /^(\d+)$/ ? ($keys{$_},1) : $keys{$_} ] } keys %keys; print "KEY:$_ VALUE:$keys{$_}\n" foreach (@foo); sub newsort { if ( defined $a->[2] and defined $b->[2] ){ if ($a->[1] > $b->[1]) {return 1} return -1; } elsif ( defined $b->[2] or defined $a->[2]) { if ( defined $a->[2] ) { return -1 } return 1; } elsif ( $a->[1] gt $b->[1] ) { return 1; } elsif ( $b->[1] gt $a->[1] ) { return -1; } return 0; } #newsort __DATA__ KEY:b VALUE:1 KEY:a VALUE:2 KEY:n VALUE:9 KEY:c VALUE:12 KEY:m VALUE:654 KEY:i VALUE:1a2 KEY:d VALUE:a12 KEY:f VALUE:a2b3 KEY:g VALUE:a2b4 KEY:j VALUE:a2bb5 KEY:k VALUE:a2bb5a KEY:l VALUE:a2bb5b KEY:e VALUE:a9 KEY:h VALUE:b2b4
    -enlil

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://260944]
Approved by Tanalis
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others pondering the Monastery: (3)
As of 2024-03-28 17:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found