Server : Apache System : Linux profile 3.10.0-1160.88.1.el7.x86_64 #1 SMP Tue Mar 7 15:41:52 UTC 2023 x86_64 User : apache ( 48) PHP Version : 8.0.28 Disable Function : NONE Directory :  /Data/.backup/script/coreutils-8.21/

Upload File : current_dir [ Writeable ] document_root [ Writeable ]

#!/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"}++;