*([^<]*)([^<]*){$morf}{$lemma_cat} = $lemma_srd;
#print "r_struct->{$morf}{$lemma_cat} = $r_struct->{$morf}{$lemma_cat}\n" if $morf =~ /vblex/o;
-#print "r_struct->{$morf}{$lemma_cat} = $r_struct->{$morf}{$lemma_cat}\n" if $lemma_cat =~ /conegut/o;
+print "r_struct->{$morf}{$lemma_cat} = $r_struct->{$morf}{$lemma_cat}\n" if $lemma_cat =~ /polític/o;
#print "r_struct->{$morf}{$lemma_cat} = $r_struct->{$morf}{$lemma_cat}\n";
}
}
@@ -183,7 +183,6 @@
$lemma_cat = $stem_cat;
if ($stem_cat =~ m/\#/o) {
$stem_cat = $` . '' . $' . '';
- $lemma_cat =~ s/#//o;
}
$stem_cat =~ s| ||og;
@@ -200,12 +199,17 @@
#print "No es carrega: dix_bi{$gram_cat}{$lemma_cat} = $dix_bi{$gram_cat}{$lemma_cat}\n";
next;
}
+ if ($gram_cat eq 'nmf' && $dix_bi{n}{$lemma_cat}) { # sovint apareixen com a nmf paraules que estan posades com a n
+#print "No es carrega: dix_bi{$gram_cat}{$lemma_cat} = $dix_bi{$gram_cat}{$lemma_cat}\n";
+ next;
+ }
#print "Sí es carrega: dix_bi{$gram_cat}{$lemma_cat} = $dix_bi{$gram_cat}{$lemma_cat}\n";
+ $lemma_cat =~ s/#//o;
$dades[3] =~ s|,|;|og;
-#print "11. $linia - stem_cat=$stem_cat, lemma_cat=$lemma_cat, dades[3]=$dades[3]\n" if $lemma_cat eq 'parella';
+print "11. $linia - stem_cat=$stem_cat, lemma_cat=$lemma_cat, gram_cat = $gram_cat, dades[3]=$dades[3]\n" if $lemma_cat =~ /polític/o;
my @stem_srd = split /;/o, $dades[3];
my $primer = 1;
my $n = 0; # index en @stem_srd
@@ -248,7 +252,7 @@
} else {
$gram_srd = $gram_cat;
}
-#print "12. $linia - stem_srd=$stem_srd, lemma_srd=$lemma_srd, gram_cat = $gram_cat, gram_srd = $gram_srd\n" if $lemma_cat eq 'parella';
+print "12. $linia - stem_srd=$stem_srd, lemma_srd=$lemma_srd, gram_cat = $gram_cat, gram_srd = $gram_srd\n" if $lemma_cat =~ /polític/o;
#print "12. $linia - stem_srd=$stem_srd, lemma_srd=$lemma_srd, gram_cat = $gram_cat, gram_srd = $gram_srd\n";
# sortida: diccionari bilingüe
@@ -768,7 +772,7 @@
next unless $par_cat;
unless ($par_srd) {
-print "No es troba dix_srd{$gram_srd}{$lemma_srd}. Es prova de generar $lemma_srd\n" if $lemma_cat =~ /Aliaga/o;
+print "No es troba dix_srd{$gram_srd}{$lemma_srd}. Es prova de generar $lemma_srd\n" if $lemma_cat =~ /polític/o;
# generem el paradigma al diccionari sard
if ($gram_srd eq 'np> riuGrogu