Hi predrag,

One separate task for my site in Cyrillic will be IDN encoding

I just wanted to point out the power of CPAN. Perl and CPAN have been around for a long time and two of several areas where Perl excels is text processing and web development. I've already linked you to several HTML and XML processing modules, and a quick search on CPAN for "translit" is what gave me, among other things, Lingua::Translit, and a quick search for "IDN" shows me Net::IDN::Encode, again just one module among several.

use warnings;
use strict;
use open qw/:std :utf8/;

use Lingua::Translit;
my $tr = new Lingua::Translit("ISO/R 9");
my $txt = "\x{0441}\x{0440}\x{043F}\x{0441}\x{043A}\x{0438}";
my $latin = $tr->translit($txt);
my $cyrillic = $tr->translit_reverse($latin);
die "text mismatch" unless $txt eq $cyrillic;
print "$latin <-> $cyrillic\n";

use Net::IDN::Encode qw/domain_to_ascii domain_to_unicode/;
my $idn = "\x{0442}\x{0435}\x{0441}\x{0442}.\x{0441}\x{0440}\x{0431}";
my $asc = domain_to_ascii($idn);
my $dom = domain_to_unicode("xn--e1aybc.xn--90a3ac");
die "domain mismatch" unless $idn eq $dom;
print "$asc <-> $dom\n";
[download]

Output:

srpski <-> српски
xn--e1aybc.xn--90a3ac <-> тест.срб

Note: I did not verify that the "ISO/R 9" transliteration table is identical to the Serbian / Cyrillic transliteration table you're using, but at least Wikipedia says it's suitable.

Regards,
-- Hauke D

Hauke D, I simply can't say enough thanks to you. I can only hope that all this is useful to you too and maybe it is true, because as I know, in pedagogy they say the best way for learning is to teach someone (people) and the inverse: teaching is considered as the best way for learning.

I've already had installed cpanm, and with its help, I've succesfully and easy instaled these two modules you used in the code. They are really powerful, and of course, I constantly convince myself how CPAN is huge and powerful

Just tried your code and it works, completely well. Excellent. I see the code does two things, and I have to look at that more detailed and make many tests. I am really excited and happy but you should remember that I am still a beginner and need a time to settle knowledge acquired here

It is fantastic you showed me into IDN encoding. As I've wrote last time, I've recently learned something about IDN and got ACE string on my Cyrillic domain on our national domain service web page form, so I will try to check it with your script now. So happy!

You mentioned "ISO/R 9" and it is my shame, at this moment I can't tell you if it is what I use. It seems I am a bit more confused and a bit tired today that can't answer now. Anyway, you brought me to the solution of so important things for my project

Websites with Cyrillic domain name are rare and I've noticed on the web that these mostly have the rest on the url on Latin, but it seems I will have in Cyrillic, wow!

Hi predrag,

I can only hope that all this is useful to you too and maybe it is true ... teaching is considered as the best way for learning.

Yes, part of the reason I wrote the code above is to satisfy my own curiosity :-)

I've already had installed cpanm, and with its help, I've succesfully and easy instaled these two modules you used in the code.

I just wanted to point out that since CPAN is huge, there are also a lot of modules that might not be well-tested or have other problems. In this node I wrote about some ways to tell which modules are good and which might not be.

Also, another thing is that it's usually recommended to avoid modifying the Perl that comes with your Linux system. The system Perl is usually managed by the system's package manager, and there might be programs that require those specific versions of Perl or its modules. Also, installing Perl modules into the system Perl with both the package manager and CPAN can sometimes lead to breaking the installation. If you've already installed modules into your system Perl, then as long as your system keeps running normally you don't need to worry, but I would recommend installing a separate version of Perl locally so that you can avoid touching the system Perl at all when installing modules. Another advantage of installing a separate version of Perl is that you can always have the latest version. The program perlbrew makes this very easy.

Regards,
-- Hauke D

I've just tried your code for my Cyrillic domain name and ACE string I've already got, works perfectly