line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Lingua::StopWords::ES; |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
7
|
use strict; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
32
|
|
4
|
1
|
|
|
1
|
|
6
|
use warnings; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
25
|
|
5
|
|
|
|
|
|
|
|
6
|
1
|
|
|
1
|
|
5
|
use utf8; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
5
|
|
7
|
|
|
|
|
|
|
|
8
|
1
|
|
|
1
|
|
25
|
use Encode qw(encode); |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
40
|
|
9
|
|
|
|
|
|
|
|
10
|
1
|
|
|
1
|
|
5
|
use Exporter; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
403
|
|
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
|
10
|
if ( @_ and $_[0] eq 'UTF-8' ) { |
19
|
1
|
|
|
|
|
3
|
my %stoplist = map { ( $_, 1 ) } _stopwords(); |
|
308
|
|
|
|
|
602
|
|
20
|
1
|
|
|
|
|
25
|
return \%stoplist; |
21
|
|
|
|
|
|
|
} |
22
|
|
|
|
|
|
|
else { |
23
|
1
|
|
|
|
|
3
|
my %stoplist = map { ( encode("iso-8859-1", $_), 1 ) } _stopwords(); |
|
308
|
|
|
|
|
7709
|
|
24
|
1
|
|
|
|
|
248
|
return \%stoplist; |
25
|
|
|
|
|
|
|
} |
26
|
|
|
|
|
|
|
} |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
sub _stopwords { |
29
|
2
|
|
|
2
|
|
54
|
return qw( |
30
|
|
|
|
|
|
|
de la que el en y a los del se las por un para con no una su al |
31
|
|
|
|
|
|
|
lo como más pero sus le ya o este sí porque esta entre cuando |
32
|
|
|
|
|
|
|
muy sin sobre también me hasta hay donde quien desde todo nos |
33
|
|
|
|
|
|
|
durante todos uno les ni contra otros ese eso ante ellos e esto |
34
|
|
|
|
|
|
|
mí antes algunos qué unos yo otro otras otra él tanto esa estos |
35
|
|
|
|
|
|
|
mucho quienes nada muchos cual poco ella estar estas algunas |
36
|
|
|
|
|
|
|
algo nosotros mi mis tú te ti tu tus ellas nosotras vosotros |
37
|
|
|
|
|
|
|
vosotras os mío mía míos mías tuyo tuya tuyos tuyas suyo suya |
38
|
|
|
|
|
|
|
suyos suyas nuestro nuestra nuestros nuestras vuestro vuestra |
39
|
|
|
|
|
|
|
vuestros vuestras esos esas estoy estás está estamos estáis |
40
|
|
|
|
|
|
|
están esté estés estemos estéis estén estaré estarás estará |
41
|
|
|
|
|
|
|
estaremos estaréis estarán estaría estarías estaríamos |
42
|
|
|
|
|
|
|
estaríais estarían estaba estabas estábamos estabais estaban |
43
|
|
|
|
|
|
|
estuve estuviste estuvo estuvimos estuvisteis estuvieron |
44
|
|
|
|
|
|
|
estuviera estuvieras estuviéramos estuvierais estuvieran |
45
|
|
|
|
|
|
|
estuviese estuvieses estuviésemos estuvieseis estuviesen |
46
|
|
|
|
|
|
|
estando estado estada estados estadas estad he has ha hemos |
47
|
|
|
|
|
|
|
habéis han haya hayas hayamos hayáis hayan habré habrás habrá |
48
|
|
|
|
|
|
|
habremos habréis habrán habría habrías habríamos habríais |
49
|
|
|
|
|
|
|
habrían había habías habíamos habíais habían hube hubiste hubo |
50
|
|
|
|
|
|
|
hubimos hubisteis hubieron hubiera hubieras hubiéramos |
51
|
|
|
|
|
|
|
hubierais hubieran hubiese hubieses hubiésemos hubieseis |
52
|
|
|
|
|
|
|
hubiesen habiendo habido habida habidos habidas soy eres es |
53
|
|
|
|
|
|
|
somos sois son sea seas seamos seáis sean seré serás será |
54
|
|
|
|
|
|
|
seremos seréis serán sería serías seríamos seríais serían era |
55
|
|
|
|
|
|
|
eras éramos erais eran fui fuiste fue fuimos fuisteis fueron |
56
|
|
|
|
|
|
|
fuera fueras fuéramos fuerais fueran fuese fueses fuésemos |
57
|
|
|
|
|
|
|
fueseis fuesen siendo sido tengo tienes tiene tenemos tenéis |
58
|
|
|
|
|
|
|
tienen tenga tengas tengamos tengáis tengan tendré tendrás |
59
|
|
|
|
|
|
|
tendrá tendremos tendréis tendrán tendría tendrías tendríamos |
60
|
|
|
|
|
|
|
tendríais tendrían tenía tenías teníamos teníais tenían tuve |
61
|
|
|
|
|
|
|
tuviste tuvo tuvimos tuvisteis tuvieron tuviera tuvieras |
62
|
|
|
|
|
|
|
tuviéramos tuvierais tuvieran tuviese tuvieses tuviésemos |
63
|
|
|
|
|
|
|
tuvieseis tuviesen teniendo tenido tenida tenidos tenidas tened |
64
|
|
|
|
|
|
|
); |
65
|
|
|
|
|
|
|
} |
66
|
|
|
|
|
|
|
|
67
|
|
|
|
|
|
|
1; |