/usr/share/perl5/Text/German/Ausnahme.pm is in libtext-german-perl 0.06-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | # -*- Mode: Perl -*-
# Ausnahme.pm --
# Author : Ulrich Pfeifer
# Created On : Thu Feb 1 09:10:48 1996
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Sun Apr 3 11:42:38 2005
# Language : Perl
# Update Count : 23
# Status : Unknown, Use with caution!
package Text::German::Ausnahme;
{
local ($_);
while (<DATA>) {
chomp;
($ausnahme, $key) = split;
$AUSNAHME{$ausnahme} = $key;
}
close DATA;
}
sub reduce {
my($v,$s,$e) = @_;
$s = $v.$s;
while (1) { # algorithmus unklar
return $AUSNAHME{$s} if defined $AUSNAHME{$s};
last unless $e;
$s .= substr($e,0,1);
$e = substr($e,1);
}
return undef;
}
1;
__DATA__
Anzeich Anzeichen
Charakter Charakter
Daten Daten
Denken Denken
Eltern Eltern
Entwicklungsländ Entwicklungsland
Frau Frau
Gedankengäng Gedankengang
Geschichte Geschichte
Herausgeb Herausgeber
Interess Interesse
Italien Italien
Jahr Jahr
Länd Land
Lexika Lexikon
Problem Problem
Prominentenlexika Prominentenlexikon
Räte Rat
Rahmen Rahmen
Recht Recht
Sinn Sinn
Ziel Ziel
Zigeun Zigeuner
Zusammenhäng Zusammenhang
ausgestat ausstatten
ausstat ausstatten
berücksichtig berücksichtigen
direkt direkt
entgegengesetz entgegensetzen
entgegensetz entgegensetzen
entwickel entwickeln
erkannt erkennen
hoh hoch
kannt kennen
klär klären
widerleg widerlegen
|