From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

CFAERBER / Net-IDN-Encode-2.004_20131101 / eg / hello_idn_email.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

              
#!/usr/bin/perl
use strict;
use utf8;
binmode STDOUT, ":utf8";
use Net::IDN::Encode;
my @email = (
  'postmaster@例．テスト',
  'info＠müller.example.net',
);
foreach (@email) {
  printf "%s: toASCII=<%s>, toUnicode=<%s>\n",
        $_, email_to_ascii($_), email_to_unicode($_);
}