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 | 0997e74e2b6bf8d6a3b9e31357e409132a8fef23 (patch) | |
| tree | 65fc6b3669a85d6c1edf41646a81c9d4c3b8c018 /bin/bibsort.pl | |
| parent | Add bibsort (diff) | |
| download | src-0997e74e2b6bf8d6a3b9e31357e409132a8fef23.tar.gz src-0997e74e2b6bf8d6a3b9e31357e409132a8fef23.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; } |