mirror of
https://github.com/rspamd/rspamd.git
synced 2024-07-29 20:17:47 +02:00
20 lines
304 B
Perl
20 lines
304 B
Perl
#!/usr/bin/env perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
use Net::IDN::Encode ':all';
|
|
use Unicode::Normalize;
|
|
|
|
binmode(STDOUT, ":utf8");
|
|
binmode(STDIN, ":utf8");
|
|
|
|
while (<>) {
|
|
$_ = NFC($_);
|
|
if (/^[^\/].*[^\x00-\x7F]+.*/) {
|
|
chomp;
|
|
printf "%s\n", domain_to_ascii($_);
|
|
$_ .= "\n";
|
|
}
|
|
} continue {
|
|
print $_;
|
|
} |