1package Lingua::StopWords::DE; 2 3use strict; 4use warnings; 5 6use utf8; 7 8use Encode qw(encode); 9 10use Exporter; 11our @ISA = qw(Exporter); 12 13our %EXPORT_TAGS = ( 'all' => [ qw( getStopWords ) ] ); 14our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); 15our $VERSION = 0.12; 16 17sub getStopWords { 18 if ( @_ and $_[0] eq 'UTF-8' ) { 19 my %stoplist = map { ( $_, 1 ) } _stopwords(); 20 return \%stoplist; 21 } 22 else { 23 my %stoplist = map { ( encode("iso-8859-1", $_), 1 ) } _stopwords(); 24 return \%stoplist; 25 } 26} 27 28sub _stopwords { 29 return qw( 30 aber alle allem allen aller alles als also am an ander andere 31 anderem anderen anderer anderes anderm andern anderr anders 32 auch auf aus bei bin bis bist da damit dann der den des dem die 33 das daß derselbe derselben denselben desselben demselben 34 dieselbe dieselben dasselbe dazu dein deine deinem deinen 35 deiner deines denn derer dessen dich dir du dies diese diesem 36 diesen dieser dieses doch dort durch ein eine einem einen einer 37 eines einig einige einigem einigen einiger einiges einmal er 38 ihn ihm es etwas euer eure eurem euren eurer eures für gegen 39 gewesen hab habe haben hat hatte hatten hier hin hinter ich 40 mich mir ihr ihre ihrem ihren ihrer ihres euch im in indem ins 41 ist jede jedem jeden jeder jedes jene jenem jenen jener jenes 42 jetzt kann kein keine keinem keinen keiner keines können könnte 43 machen man manche manchem manchen mancher manches mein meine 44 meinem meinen meiner meines mit muss musste nach nicht nichts 45 noch nun nur ob oder ohne sehr sein seine seinem seinen seiner 46 seines selbst sich sie ihnen sind so solche solchem solchen 47 solcher solches soll sollte sondern sonst über um und uns unse 48 unsem unsen unser unses unter viel vom von vor während war 49 waren warst was weg weil weiter welche welchem welchen welcher 50 welches wenn werde werden wie wieder will wir wird wirst wo 51 wollen wollte würde würden zu zum zur zwar zwischen 52 ); 53} 54 551; 56