From e81511381148fcb23e7803675ccacfc3c992c221 Mon Sep 17 00:00:00 2001
From: Chris Dyer <cdyer@allegro.clab.cs.cmu.edu>
Date: Mon, 11 Mar 2013 17:06:38 -0400
Subject: russian ortho norm

---
 word-aligner/ortho-norm/ru.pl | 44 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100755 word-aligner/ortho-norm/ru.pl

(limited to 'word-aligner/ortho-norm')

diff --git a/word-aligner/ortho-norm/ru.pl b/word-aligner/ortho-norm/ru.pl
new file mode 100755
index 00000000..34452d06
--- /dev/null
+++ b/word-aligner/ortho-norm/ru.pl
@@ -0,0 +1,44 @@
+#!/usr/bin/perl -w
+use strict;
+use utf8;
+binmode(STDIN,":utf8");
+binmode(STDOUT,":utf8");
+while(<STDIN>) {
+  $_ = uc $_;
+  s/А/a/g;
+  s/І/i/g;
+  s/Б/b/g;
+  s/В/v/g;
+  s/Г/g/g;
+  s/Д/d/g;
+  s/Е/e/g;
+  s/Ж/zh/g;
+  s/З/z/g;
+  s/И/i/g;
+  s/Й/i/g;
+  s/К/k/g;
+  s/Л/l/g;
+  s/М/m/g;
+  s/Н/n/g;
+  s/О/o/g;
+  s/П/p/g;
+  s/Р/r/g;
+  s/С/s/g;
+  s/Т/t/g;
+  s/У/u/g;
+  s/Ф/f/g;
+  s/Х/kh/g;
+  s/Ц/c/g;
+  s/Ч/ch/g;
+  s/Ш/sh/g;
+  s/Щ/shch/g;
+  s/Ъ//g;
+  s/Ы//g;
+  s/Ь//g;
+  s/Э/e/g;
+  s/Ю/yo/g;
+  s/Я/ya/g;
+  $_ = lc $_;
+  print;
+}
+
-- 
cgit v1.2.3