From 470f0facaa1bb9d9e35c2de78cb570156f80f3f4 Mon Sep 17 00:00:00 2001 From: Sergiotarxz Date: Tue, 5 Sep 2023 18:30:40 +0200 Subject: [PATCH] Removing two characters suffixes, too buggy. --- lib/BurguillosInfo/IndexUtils.pm | 25 ------------------------- 1 file changed, 25 deletions(-) diff --git a/lib/BurguillosInfo/IndexUtils.pm b/lib/BurguillosInfo/IndexUtils.pm index 46b9e83..828be48 100644 --- a/lib/BurguillosInfo/IndexUtils.pm +++ b/lib/BurguillosInfo/IndexUtils.pm @@ -23,19 +23,13 @@ sub normalize ( $self, $text ) { $decomposed =~ s/o\b//g; $decomposed =~ s/a\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/dur\b//g; $decomposed =~ s/eccion\b//g; $decomposed =~ s/epcion\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; @@ -43,41 +37,22 @@ sub normalize ( $self, $text ) { $decomposed =~ s/tad\b//g; $decomposed =~ s/bilidad\b//g; $decomposed =~ s/edad\b//g; - $decomposed =~ s/er\b//g; - $decomposed =~ s/er\b//g; - $decomposed =~ s/ez\b//g; - $decomposed =~ s/ez\b//g; $decomposed =~ s/idad\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/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/ant\b//g; $decomposed =~ s/ent\b//g; $decomposed =~ s/rgir\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/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/ific\b//g; return $decomposed;