/usr/share/perl5/Text/German/Util.pm is in libtext-german-perl 0.06-3.
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 | # -*- Mode: Perl -*-
# Util.pm --
# Author : Ulrich Pfeifer
# Created On : Thu Feb 1 16:08:41 1996
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Sun Apr 3 11:44:12 2005
# Language : Perl
# Update Count : 8
# Status : Unknown, Use with caution!
package Text::German::Util;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(bit_to_int wordclass $CAPITAL $LOWER $ADJEKTIV $UMLAUTR
$VERB $FUNNY $ADJEKTIV $ANY);
sub bit_to_int {
my $bitvec = shift;
unpack('I', pack('b*', $bitvec)."\0\0\0\0");
}
$CAPITAL = bit_to_int('10000');
$LOWER = bit_to_int('01111');
$ADJEKTIV = bit_to_int('00100');
$VERB = bit_to_int('01000');
$FUNNY = bit_to_int('01001');
$ANY = bit_to_int('11111');
$UMLAUTR = "[äöü]";
sub wordclass {
my ($word, $satz_anfang) = @_;
if ($satz_anfang) {
return $ANY;
} elsif ($word =~ /^[A-ZÄÖÜ]/) {
$CAPITAL;
} else {
$LOWER;
}
}
|