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 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
|
#!/usr/bin/perl
while (<>) {
s/\n$//;
$flag='';
$privlast='';
$zenske=$_;
if (
($pom=$_)=~s/mcov$/mec/) {
$print=1;
$muzske=$pom;
} elsif (
($pom=$_)=~s/kov$/dk/) {
$print=1;
$muzske=$pom;
} elsif (
($pom=$_)=~s/kov$/tk/) {
$print=1;
$muzske=$pom;
} elsif (
($pom=$_)=~s/kov$/nk/) {
$print=1;
$muzske=$pom;
} elsif (
($pom=$_)=~s/([bcdfghjlmnprstvz])kov$/${1}ek/) {
$print=1;
$muzske=$pom;
} elsif (
($pom=$_)=~s/ov$//) {
$print=1;
$muzske=$pom;
} elsif (
($pom=$_)=~s/$//) {
$print=1;
$muzske=$pom;
} elsif (
($pom=$_)=~s/e$//) {
$print=1;
$muzske="${pom}e";
$zenske="${pom}ov";
} elsif (
($pom=$_)=~s/n$//) {
$print=1;
$muzske="${pom}n";
$zenske="${pom}ov";
} elsif (
($pom=$_)=~s/t$//) {
$print=1;
$muzske="${pom}t";
$zenske="${pom}ttov";
} else {
$print=1;
$muzske=$_;
$zenske='';
}
if ($print) {
if ($muzske=~/[cjs]$/) {
$flag='UV';
} elsif ($muzske=~/$/) {
$flag='Y';
$zenske='';
$privlast='';
} elsif ($muzske=~/$/) {
$flag='';
$zenske='';
$privlast='';
} elsif ($muzske=~/t$/) {
$flag='';
} else {
$flag='PV';
}
if ($zenske) {
if (
($pom=$zenske)=~s/ov$/v\/Y/) {
$privlast=$pom;
}
$zenske.='/Y';
} else {
if (
($zenske=$muzske)=~s/nk$/kov\/Y/) {
} elsif (
($zenske=$muzske)=~s/ek$/kov\/Y/) {
} elsif (
($zenske=$muzske)=~s/ec$/cov\/Y/) {
} elsif (
($zenske=$muzske)=~s/o$/ov\/Y/) {
} elsif (
($zenske=$muzske)=~s/a$/ov\/Y/) {
} elsif (
$muzske=~/$/) {
$privlast='';
} elsif (
$muzske=~/$/) {
$privlast='';
} else {
$zenske=$muzske . "ov/Y";
}
}
if (!$privlast) {
if (
($privlast=$muzske)=~s/ec$/cv\/Y/) {
} elsif (
($privlast=$muzske)=~s/nk$/kv\/Y/) {
} elsif (
($privlast=$muzske)=~s/ek$/kv\/Y/) {
} elsif (
($privlast=$muzske)=~s/o$/v\/Y/) {
} elsif (
($privlast=$muzske)=~s/a$/v\/Y/) {
} elsif (
$muzske=~/$/) {
$zenske='';
$privlast='';
} elsif (
$muzske=~/$/) {
$zenske='';
$privlast='';
} else {
$privlast=$muzske . "v/Y";
}
}
print "$muzske";
print "/$flag" if $flag;
print " $privlast" if $privlast;
print " $zenske" if $zenske;
print "\n";
}
}
|