sergiotarxz
/
burguillos.info
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixes better vegan support.

This commit is contained in:
Sergiotarxz 2023-09-05 18:05:23 +02:00
parent bf23b12ea8
commit 176a5037de
1 changed files with 40 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
lib/BurguillosInfo/IndexUtils.pm
View File

@ -22,19 +22,20 @@ sub normalize ( $self, $text ) {
$decomposed =~ s/e\b//g;
$decomposed =~ s/o\b//g;
$decomposed =~ s/a\b//g;
$decomposed =~ s/aui\b//g;
$decomposed =~ s/ada\b//g;
$decomposed =~ s/ado\b//g;
$decomposed =~ s/aje\b//g;
$decomposed =~ s/i\b//g;
$decomposed =~ s/au\b//g;
$decomposed =~ s/ad\b//g;
$decomposed =~ s/ad\b//g;
$decomposed =~ s/aj\b//g;
$decomposed =~ s/cion\b//g;
$decomposed =~ s/diccion\b//g;
$decomposed =~ s/duccion\b//g;
$decomposed =~ s/dura\b//g;
$decomposed =~ s/dur\b//g;
$decomposed =~ s/eccion\b//g;
$decomposed =~ s/epcion\b//g;
$decomposed =~ s/ido\b//g;
$decomposed =~ s/miento\b//g;
$decomposed =~ s/ncia\b//g;
$decomposed =~ s/id\b//g;
$decomposed =~ s/mient\b//g;
$decomposed =~ s/nc\b//g;
$decomposed =~ s/scripcion\b//g;
$decomposed =~ s/sicion\b//g;
$decomposed =~ s/sion\b//g;
@ -42,49 +43,44 @@ sub normalize ( $self, $text ) {
$decomposed =~ s/tad\b//g;
$decomposed =~ s/bilidad\b//g;
$decomposed =~ s/edad\b//g;
$decomposed =~ s/era\b//g;
$decomposed =~ s/eria\b//g;
$decomposed =~ s/er\b//g;
$decomposed =~ s/er\b//g;
$decomposed =~ s/ez\b//g;
$decomposed =~ s/ez\b//g;
$decomposed =~ s/eza\b//g;
$decomposed =~ s/ia\b//g;
$decomposed =~ s/idad\b//g;
$decomposed =~ s/ismo\b//g;
$decomposed =~ s/ncia\b//g;
$decomposed =~ s/ante\b//g;
$decomposed =~ s/ente\b//g;
$decomposed =~ s/ura\b//g;
$decomposed =~ s/ism\b//g;
$decomposed =~ s/nc\b//g;
$decomposed =~ s/ant\b//g;
$decomposed =~ s/ent\b//g;
$decomposed =~ s/ur\b//g;
$decomposed =~ s/dor\b//g;
$decomposed =~ s/dero\b//g;
$decomposed =~ s/ero\b//g;
$decomposed =~ s/ista\b//g;
$decomposed =~ s/ado\b//g;
$decomposed =~ s/ario\b//g;
$decomposed =~ s/ia\b//g;
$decomposed =~ s/ero\b//g;
$decomposed =~ s/eria\b//g;
$decomposed =~ s/able\b//g;
$decomposed =~ s/aceo\b//g;
$decomposed =~ s/aco\b//g;
$decomposed =~ s/der\b//g;
$decomposed =~ s/er\b//g;
$decomposed =~ s/ist\b//g;
$decomposed =~ s/ad\b//g;
$decomposed =~ s/ar\b//g;
$decomposed =~ s/er\b//g;
$decomposed =~ s/abl\b//g;
$decomposed =~ s/ac\b//g;
$decomposed =~ s/ac\b//g;
$decomposed =~ s/al\b//g;
$decomposed =~ s/aneo\b//g;
$decomposed =~ s/ante\b//g;
$decomposed =~ s/ario\b//g;
$decomposed =~ s/ente\b//g;
$decomposed =~ s/ant\b//g;
$decomposed =~ s/ent\b//g;
$decomposed =~ s/rgir\b//g;
$decomposed =~ s/ento\b//g;
$decomposed =~ s/errimo\b//g;
$decomposed =~ s/ible\b//g;
$decomposed =~ s/ico\b//g;
$decomposed =~ s/ifico\b//g;
$decomposed =~ s/ent\b//g;
$decomposed =~ s/errim\b//g;
$decomposed =~ s/ibl\b//g;
$decomposed =~ s/ic\b//g;
$decomposed =~ s/ific\b//g;
$decomposed =~ s/il\b//g;
$decomposed =~ s/ino\b//g;
$decomposed =~ s/isimo\b//g;
$decomposed =~ s/ivo\b//g;
$decomposed =~ s/izo\b//g;
$decomposed =~ s/oso\b//g;
$decomposed =~ s/in\b//g;
$decomposed =~ s/isim\b//g;
$decomposed =~ s/iv\b//g;
$decomposed =~ s/iz\b//g;
$decomposed =~ s/os\b//g;
$decomposed =~ s/ecer\b//g;
$decomposed =~ s/ificar\b//g;
$decomposed =~ s/izar\b//g;
$decomposed =~ s/ific\b//g;
say STDERR $decomposed;
return $decomposed;
}