1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#!/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';
|