|
Last change
on this file since 3630 was 3611, checked in by bird, 3 months ago |
|
vendor/sed/current: GNU sed 4.9 (sed-4.9.tar.xz sha256:6e226b732e1cd739464ad6862bd1a1aba42d7982922da7a53519631d24975181)
|
-
Property svn:executable
set to
*
|
|
File size:
441 bytes
|
| Line | |
|---|
| 1 | #!/usr/bin/perl -nl
|
|---|
| 2 | # Use Perl's multi-byte alignment code, via sprintf, while
|
|---|
| 3 | # performing a rudimentary check for duplicate names and
|
|---|
| 4 | # removing duplicate name,email pairs.
|
|---|
| 5 | use Encode;
|
|---|
| 6 |
|
|---|
| 7 | BEGIN { my (%seen, %name) }
|
|---|
| 8 |
|
|---|
| 9 | chomp;
|
|---|
| 10 | my ($name, $email) = split '\0', decode ('UTF-8', $_);
|
|---|
| 11 |
|
|---|
| 12 | $seen{$name}++
|
|---|
| 13 | and warn "$0: THANKS.in: duplicate name: $name\n";
|
|---|
| 14 |
|
|---|
| 15 | print encode ('UTF-8', sprintf ('%-36s', $name)), $email
|
|---|
| 16 | unless $seen{"$name\0$email"}++;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
