line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Lingua::StopWords::RO; |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
7
|
use strict; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
33
|
|
4
|
1
|
|
|
1
|
|
4
|
use warnings; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
29
|
|
5
|
|
|
|
|
|
|
|
6
|
1
|
|
|
1
|
|
4
|
use utf8; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
5
|
|
7
|
|
|
|
|
|
|
|
8
|
1
|
|
|
1
|
|
27
|
use Encode qw(encode); |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
46
|
|
9
|
|
|
|
|
|
|
|
10
|
1
|
|
|
1
|
|
5
|
use Exporter; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
397
|
|
11
|
|
|
|
|
|
|
our @ISA = qw(Exporter); |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
our %EXPORT_TAGS = ( 'all' => [ qw( getStopWords ) ] ); |
14
|
|
|
|
|
|
|
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); |
15
|
|
|
|
|
|
|
our $VERSION = 0.11; |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
sub getStopWords { |
18
|
2
|
100
|
66
|
2
|
0
|
52
|
if ( @_ and $_[0] eq 'UTF-8' ) { |
19
|
1
|
|
|
|
|
3
|
my %stoplist = map { ( $_, 1 ) } _stopwords(); |
|
264
|
|
|
|
|
527
|
|
20
|
1
|
|
|
|
|
22
|
return \%stoplist; |
21
|
|
|
|
|
|
|
} |
22
|
|
|
|
|
|
|
else { |
23
|
1
|
|
|
|
|
5
|
my %stoplist = map { ( encode("iso-8859-2", $_), 1 ) } _stopwords(); |
|
264
|
|
|
|
|
6600
|
|
24
|
1
|
|
|
|
|
221
|
return \%stoplist; |
25
|
|
|
|
|
|
|
} |
26
|
|
|
|
|
|
|
} |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
sub _stopwords { |
29
|
2
|
|
|
2
|
|
47
|
return qw( |
30
|
|
|
|
|
|
|
a abia acea aceasta această această aceea aceia acel acela acelaşi acelaşi |
31
|
|
|
|
|
|
|
acele acelea aceluiaşi acest acesta aceste acestea acestei aceşti aceştia |
32
|
|
|
|
|
|
|
acestor acestora acestui acolo acum adică ai aia aici al ăla alături ale |
33
|
|
|
|
|
|
|
alt alta altă altceva alte altele altfel alţi alţii altul am anume apoi |
34
|
|
|
|
|
|
|
ar are aş aşa asemenea asta astăzi astfel asupra atare atât atâta atâtea |
35
|
|
|
|
|
|
|
atâţi atâţia aţi atît atîti atîţia atunci au avea avem avut azi ba bine |
36
|
|
|
|
|
|
|
ca că cam când care căreia cărora căruia cât câtă câte câţi către ce cea |
37
|
|
|
|
|
|
|
ceea cei ceilalţi cel cele celelalte celor ceva chiar ci cînd cine cineva |
38
|
|
|
|
|
|
|
cît cîte cîteva cîţi cîţiva cu cui cum cumva da daca dacă dar de deasupra |
39
|
|
|
|
|
|
|
decât deci decît deja deşi despre din dintr dintre doar după ea ei el ele |
40
|
|
|
|
|
|
|
era este eu fără fecăreia fel fi fie fiecare fiecărui fiecăruia fiind foarte |
41
|
|
|
|
|
|
|
fost i-au iar ieri îi îl îmi împotriva în în înainte înapoi înca încît însă |
42
|
|
|
|
|
|
|
însă însuşi într între între îşi îţi l-am la le li lor lui mă mai mare mereu |
43
|
|
|
|
|
|
|
mod mult multă multe mulţi ne nici niciodata nimeni nimic nişte noi noştri |
44
|
|
|
|
|
|
|
noştri nostru nouă nu numai o oarecare oarece oarecine oarecui or orice |
45
|
|
|
|
|
|
|
oricum până pe pentru peste pînă plus poată prea prin printr-o puţini s-ar |
46
|
|
|
|
|
|
|
sa să să-i să-mi să-şi să-ţi săi sale sau său se şi sînt sîntem sînteţi spre |
47
|
|
|
|
|
|
|
sub sunt suntem sunteţi te ţi toată toate tocmai tot toţi totul totuşi tu |
48
|
|
|
|
|
|
|
tuturor un una unde unei unele uneori unii unor unui unul va vă voi vom vor |
49
|
|
|
|
|
|
|
vreo vreun |
50
|
|
|
|
|
|
|
); |
51
|
|
|
|
|
|
|
} |
52
|
|
|
|
|
|
|
|
53
|
|
|
|
|
|
|
1; |