|
Last change
on this file since 3670 was 3613, checked in by bird, 10 months ago |
|
src/sed: Merged in changes between 4.1.5 and 4.9 from the vendor branch. (svn merge /vendor/sed/4.1.5 /vendor/sed/current .)
|
-
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.
