This probably won't help, but on the off chance that it gives you an idea what to search for or where to look...

The script to which each character belongs has been tabulated as evidenced by the ability to do \p{Greek} in regexp matches. I just don't know if Perl exposes the reverse operation. The list of recognized scripts is in perlunicode and originates from "the Unicode database", files distributed by the Unicode Consortium.

$ perl -e 'use Unicode::UCD qw(charinfo); use Data::Dumper; print Dump
+er( charinfo( ord("é"))), "\n";'


$VAR1 = {
          'digit' => '',
          'bidi' => 'L',
          'category' => 'Lu',
          'code' => '00C3',
          'script' => 'Latin',
          'combining' => '0',
          'upper' => '',
          'name' => 'LATIN CAPITAL LETTER A WITH TILDE',
          'unicode10' => 'LATIN CAPITAL LETTER A TILDE',
          'decomposition' => '0041 0303',
          'comment' => '',
          'mirrored' => 'N',
          'lower' => '00E3',
          'numeric' => '',
          'decimal' => '',
          'title' => '',
          'block' => 'Latin-1 Supplement'
        };
[download]

I doubt that you could get a perfect answer. That data is just not part of the Unicode description. Let me give you just one example. The letter é is commonly used in french, but it is not considered a "native inhabitant" of german language. But it is USED in german language for words like Café (meaning the location, not the drink). So what would be your answer to the "languages of é" question?

Alexander

You're right, of course - my initial question wasn't well formulated. Be forgiving - it was the best I was able to do at that moment :)

Thanks,

Krambambuli
---