diff options
| author | June McEnroe <june@causal.agency> | 2020-12-18 20:44:48 -0500 |
|---|---|---|
| committer | June McEnroe <june@causal.agency> | 2020-12-18 20:44:48 -0500 |
| commit | 9a0876cbf42a005f21dc1ad491a02dcba15986c5 (patch) | |
| tree | 5dc28ec0ae8cadf3222879022d4018ccbb0b6916 /bin/bibsort.pl | |
| parent | Add bibsort (diff) | |
| download | src-9a0876cbf42a005f21dc1ad491a02dcba15986c5.tar.gz src-9a0876cbf42a005f21dc1ad491a02dcba15986c5.zip | |
Fix bibsort name sorting for middle names, trailing titles
Correctly sorts "Kevin L. Mitchell" and "K. Zeilenga, Ed." for example.
Diffstat (limited to 'bin/bibsort.pl')
| -rw-r--r-- | bin/bibsort.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/bibsort.pl b/bin/bibsort.pl index 5f0ad7ba..f87f066f 100644 --- a/bin/bibsort.pl +++ b/bin/bibsort.pl @@ -24,8 +24,8 @@ while (<>) { } sub byLast { - my ($af, $al) = split /\s/, $a, 2; - my ($bf, $bl) = split /\s/, $b, 2; + my ($af, $al) = split /\s(\S+)(,.*)?$/, $a; + my ($bf, $bl) = split /\s(\S+)(,.*)?$/, $b; $al cmp $bl || $af cmp $bf; } |