Gossamer Forum
(Advanced Search)
for
Apr 27, 1999, 4:02 AM
Lee
User (154 posts)
Apr 27, 1999, 4:02 AM
Post #1 of 4
Views: 454
Shortcut
Quote Reply
DBM
I have a DBM database which contains membership records with the 'key' of each record being the member's id (alpha, not numeric). I would like to print out the list in alphabetical order of member id, but try as I may, I can't get it to work. Anyone here familiar with DBM files?
Apr 30, 1999, 1:51 PM
Alex
Administrator (9387 posts)
Apr 30, 1999, 1:51 PM
Post #2 of 4
Views: 441
Shortcut
Quote Reply
Re: DBM In reply to
Been a while since I used one, but something like:

Code:
dbmopen (%DB, "/path/to/dbfile", 0644) or die "Can't open: $!";
foreach sort (keys %DB) {
print "$_ => $DB{$_}\n";
}
dbmclose (%DB) or die "Can't close: $!";

Hope that helps,

Alex
May 3, 1999, 5:16 AM
Lee
User (154 posts)
May 3, 1999, 5:16 AM
Post #3 of 4
Views: 438
Shortcut
Quote Reply
Re: DBM In reply to
Thanks Alex. It worked great. One last question on this. Some keys start with capital letters and some in small case. Is there a way to tell the sort to ignore case?
May 4, 1999, 6:24 AM
Alex
Administrator (9387 posts)
May 4, 1999, 6:24 AM
Post #4 of 4
Views: 440
Shortcut
Quote Reply
Re: DBM In reply to
Sure. Replace the foreach line with:

foreach (sort { lc $a cmp lc $b } keys %DB) {

Might need to switch the $a and $b around, I never remember which way it should go for ascending or descending order.

Cheers,

Alex