1234567891011121314151617 |
- #!/usr/bin/perl -nl
- # Use Perl's multi-byte alignment code, via sprintf, while
- # performing a rudimentary check for duplicate names and
- # removing duplicate name,email pairs.
- use Encode;
- BEGIN { my (%seen, %name) }
- chomp;
- my ($name, $email) = split '\0', decode ('UTF-8', $_);
- $seen{$name}++
- and warn "$0: THANKS.in: duplicate name: $name\n";
- print encode ('UTF-8', sprintf ('%-36s', $name)), $email
- unless $seen{"$name\0$email"}++;
|