Comments on: Sort by Library of Congress call number in Perl

By: Library of Congress Call Number Sort in PHP

Library of Congress Call Number Sort in PHP — Tue, 12 Aug 2008 20:36:20 +0000

[...] needed a function that will compare Library of Congress call numbers. I found a function in PERL to do this on Joshua McGees’s site, but I needed it in PHP and our call numbers use a space instead of a period for some of the [...]

By: Tom Clark

Tom Clark — Mon, 30 Jul 2007 13:11:09 +0000

I get it…sorry…like I said, a newbie. Thanks for responding.

By: Joshua (Site Owner)

Sun, 29 Jul 2007 01:37:55 +0000

Tom, I don’t think so. The first line, commented out, shows what was “passed” into the script. The second line, also commented out, shows what one gets after the line is chopped up, or “parsed”. But that’s Geoff’s modification of my code, not mine.

By: Tom Clark

Tom Clark — Fri, 27 Jul 2007 14:53:26 +0000

I’m a newbie looking forward to making this work. If it does it’ll save me a ton of time at my library.

Question: Shouldn’t the phrase:

# print “A passed: $a\nB passed: $b\n”;

use ‘parsed’ instead of ‘passed’ ?

or conversely for the subsequent phrase

# print “A parsed: $resultA\nB parsed: $resultB\n”;

Perhaps I don’t yet understand enough about Perl.

By: Joshua (Site Owner)

Mon, 14 Aug 2006 23:10:31 +0000

Yes, it sure did. It stripped out the backslashes before the dots, too. Thanks for catching that.

By: Geoff Sinclair

Geoff Sinclair — Mon, 14 Aug 2006 21:58:21 +0000

Here’s an example with a little more context. Hopefully it’s useful for newbies! I’ve added one more element to the sort, because our library sometimes makes additions after the year.

>>>>

my @lcList = (’DK602.3.B76 1996′, ‘Q335.P416 1994′, ‘DK602.3.B76 1996a -text’, ‘QA76.73.P22W35 1991′, ‘RS75.P5′, ‘DA870.F64′, ‘DK602.3.B76 1996b -disc’);

$beforeList = join (”\n”, @lcList);
print “Before:\n$beforeList\n\n”;

my @result = sort by_lc_number @lcList;
$afterList = join (”\n”, @result);

print “\nAfter:\n$afterList\n\n”;

sub by_lc_number {

# print “A passed: $a\nB passed: $b\n”;

$a =~ /^([A-Z]+)(\d+(?:\.\d+)?)\.?([A-Z]*)(\d*)\.?([A-Z]*)(\d*)( (?:\d{4})?)?(.*)?/;
@a = ($1,$2,$3,$4,$5,$6,$7,$8);
$b =~ /^([A-Z]+)(\d+(?:\.\d+)?)\.?([A-Z]*)(\d*)\.?([A-Z]*)(\d*)( (?:\d{4})?)?(.*)?/;
@b = ($1,$2,$3,$4,$5,$6,$7,$8);

# $resultA = join (”::”, @a);
# $resultB = join (”::”, @b);
# print “A parsed: $resultA\nB parsed: $resultB\n”;

return
$a[0] cmp $b[0]
||
$a[1] <=> $b[1]
||
$a[2] cmp $b[2]
||
“0.$a[3]” <=> “0.$b[3]”
||
$a[4] cmp $b[4]
||
“0.$a[5]” <=> “0.$b[5]”
||
$a[6] <=> $b[6]
||
$a[7] cmp $b[7]
;
}

By: Geoff Sinclair

Geoff Sinclair — Mon, 14 Aug 2006 21:55:15 +0000

Thanks!! You’re missing the backslashes before the d’s. Did WordPress strip them out?

By: Geoff Sinclair

Geoff Sinclair — Mon, 14 Aug 2006 21:52:46 +0000

Thanks for posting this code!! I had a little trouble getting it to work, but then I figured out that the backslashes before the d’s didn’t show up in your code sample. In any case, here’s the script as I got it to work, with a little extra context. I added another element to the sort, because sometimes our LC numbers have additions after the year. I’ve included some of these in the example. Now…will the backslashes show?

Geoff
>>>>

my @lcList = (’DK602.3.B76 1996′, ‘Q335.P416 1994′, ‘DK602.3.B76 1996a -text’, ‘QA76.73.P22W35 1991′, ‘RS75.P5′, ‘DA870.F64′, ‘DK602.3.B76 1996b -disc’);

$beforeList = join (”\n”, @lcList);
print “Before:\n$beforeList\n\n”;

my @result = sort by_lc_number @lcList;
$afterList = join (”\n”, @result);

print “\nAfter:\n$afterList\n\n”;

sub by_lc_number {

# print “A passed: $a\nB passed: $b\n”;

# $resultA = join (”::”, @a);
# $resultB = join (”::”, @b);
# print “A parsed: $resultA\nB parsed: $resultB\n”;

return
$a[0] cmp $b[0]
||
$a[1] <=> $b[1]
||
$a[2] cmp $b[2]
||
“0.$a[3]” <=> “0.$b[3]”
||
$a[4] cmp $b[4]
||
“0.$a[5]” <=> “0.$b[5]”
||
$a[6] <=> $b[6]
||
$a[7] cmp $b[7]
;
}