Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
1234567891011121314151617181920use 5.010;use List::Util qw(shuffle);use List::MoreUtils qw(uniq);
open my $file, "<", "../var/starnames.txt";my @contents = <$file>;close $file;
my @unified;foreach my $name (@contents) { push @unified, join ' ', map { ucfirst lc $_ } split '\s', $name;}
my @unique = uniq(@unified);
open my $file, ">", "../var/starnames-fixed.txt";say {$file} join("\n", @unique);close $file;