User:Trondtr

My name is Trond Trosterud, I am a Norwegian linguist, and I do not speak Iñupiaq.

Perl script for translating dictionary entries into Unicode

Usage: Save the text below in a file ip.pl. Translate by the command

cat yourtextfile.txt | perl ip.pl > yournewtextfile.txt

Here comes the file:

---

#!/usr/bin/perl -w
use utf8;

while (<>) 
{
# convert the Iñupiaq "font" to utf8
s/B/Ġ/g ; 
s/b/ġ/g ; 
s/X/Ḷ/g ; 
s/x/ḷ/g ; 
s/O/Ł̣/g ; 
s/o/ł̣/g ;
s/J/Ł/g ;  
s/j/ł/g ; 
s/F/Ŋ/g ; 
s/f/ŋ/g ; 
s/E/Ñ/g ;
s/e/ñ/g ;

print ;
}

---