#!/usr/bin/perl $language = "Georgian"; $prefix = "ka"; $script = "georgian"; $alphabet = [ ['ა', ['ა']], ['ბ', ['ბ']], ['გ', ['გ']], ['დ', ['დ']], ['ე', ['ე']], ['ვ', ['ვ']], ['ზ', ['ზ']], ['ჱ', ['ჱ']], ['თ', ['თ']], ['ი', ['ი']], ['კ', ['კ']], ['ლ', ['ლ']], ['მ', ['მ']], ['ნ', ['ნ']], ['ჲ', ['ჲ']], ['ო', ['ო']], ['პ', ['პ']], ['ჟ', ['ჟ']], ['რ', ['რ']], ['ს', ['ს']], ['ტ', ['ტ']], ['ჳ', ['ჳ']], ['უ', ['უ']], ['ფ', ['ფ']], ['ქ', ['ქ']], ['ღ', ['ღ']], ['ყ', ['ყ']], ['შ', ['შ']], ['ჩ', ['ჩ']], ['ც', ['ც']], ['ძ', ['ძ']], ['წ', ['წ']], ['ჭ', ['ჭ']], ['ხ', ['ხ']], ['ჴ', ['ჴ']], ['ჯ', ['ჯ']], ['ჰ', ['ჰ']], ['ჵ', ['ჵ']] ]; @special = ('?', '!', '.', ';', '·', 'letters', '-', '\'', '\\/'); # first lower or upper case? $sortcase = "Aa"; #$sortcase = "aA"; do 'make-rules.pl';