line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Lingua::StopWords::IT; |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
7
|
use strict; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
33
|
|
4
|
1
|
|
|
1
|
|
6
|
use warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
27
|
|
5
|
|
|
|
|
|
|
|
6
|
1
|
|
|
1
|
|
5
|
use utf8; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
6
|
|
7
|
|
|
|
|
|
|
|
8
|
1
|
|
|
1
|
|
26
|
use Encode qw(encode); |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
44
|
|
9
|
|
|
|
|
|
|
|
10
|
1
|
|
|
1
|
|
6
|
use Exporter; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
382
|
|
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
|
11
|
if ( @_ and $_[0] eq 'UTF-8' ) { |
19
|
1
|
|
|
|
|
3
|
my %stoplist = map { ( $_, 1 ) } _stopwords(); |
|
279
|
|
|
|
|
555
|
|
20
|
1
|
|
|
|
|
24
|
return \%stoplist; |
21
|
|
|
|
|
|
|
} |
22
|
|
|
|
|
|
|
else { |
23
|
1
|
|
|
|
|
3
|
my %stoplist = map { ( encode("iso-8859-1", $_), 1 ) } _stopwords(); |
|
279
|
|
|
|
|
7141
|
|
24
|
1
|
|
|
|
|
227
|
return \%stoplist; |
25
|
|
|
|
|
|
|
} |
26
|
|
|
|
|
|
|
} |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
sub _stopwords { |
29
|
2
|
|
|
2
|
|
49
|
return qw( |
30
|
|
|
|
|
|
|
ad al allo ai agli all agl alla alle con col coi da dal dallo |
31
|
|
|
|
|
|
|
dai dagli dall dagl dalla dalle di del dello dei degli dell |
32
|
|
|
|
|
|
|
degl della delle in nel nello nei negli nell negl nella nelle |
33
|
|
|
|
|
|
|
su sul sullo sui sugli sull sugl sulla sulle per tra contro io |
34
|
|
|
|
|
|
|
tu lui lei noi voi loro mio mia miei mie tuo tua tuoi tue suo |
35
|
|
|
|
|
|
|
sua suoi sue nostro nostra nostri nostre vostro vostra vostri |
36
|
|
|
|
|
|
|
vostre mi ti ci vi lo la li le gli ne il un uno una ma ed se |
37
|
|
|
|
|
|
|
perché anche come dov dove che chi cui non più quale quanto |
38
|
|
|
|
|
|
|
quanti quanta quante quello quelli quella quelle questo questi |
39
|
|
|
|
|
|
|
questa queste si tutto tutti a c e i l o ho hai ha abbiamo |
40
|
|
|
|
|
|
|
avete hanno abbia abbiate abbiano avrò avrai avrà avremo avrete |
41
|
|
|
|
|
|
|
avranno avrei avresti avrebbe avremmo avreste avrebbero avevo |
42
|
|
|
|
|
|
|
avevi aveva avevamo avevate avevano ebbi avesti ebbe avemmo |
43
|
|
|
|
|
|
|
aveste ebbero avessi avesse avessimo avessero avendo avuto |
44
|
|
|
|
|
|
|
avuta avuti avute sono sei è siamo siete sia siate siano sarò |
45
|
|
|
|
|
|
|
sarai sarà saremo sarete saranno sarei saresti sarebbe saremmo |
46
|
|
|
|
|
|
|
sareste sarebbero ero eri era eravamo eravate erano fui fosti |
47
|
|
|
|
|
|
|
fu fummo foste furono fossi fosse fossimo fossero essendo |
48
|
|
|
|
|
|
|
faccio fai facciamo fanno faccia facciate facciano farò farai |
49
|
|
|
|
|
|
|
farà faremo farete faranno farei faresti farebbe faremmo |
50
|
|
|
|
|
|
|
fareste farebbero facevo facevi faceva facevamo facevate |
51
|
|
|
|
|
|
|
facevano feci facesti fece facemmo faceste fecero facessi |
52
|
|
|
|
|
|
|
facesse facessimo facessero facendo sto stai sta stiamo stanno |
53
|
|
|
|
|
|
|
stia stiate stiano starò starai starà staremo starete staranno |
54
|
|
|
|
|
|
|
starei staresti starebbe staremmo stareste starebbero stavo |
55
|
|
|
|
|
|
|
stavi stava stavamo stavate stavano stetti stesti stette stemmo |
56
|
|
|
|
|
|
|
steste stettero stessi stesse stessimo stessero stando |
57
|
|
|
|
|
|
|
); |
58
|
|
|
|
|
|
|
} |
59
|
|
|
|
|
|
|
|
60
|
|
|
|
|
|
|
1; |