Skip to content
Snippets Groups Projects
Commit bf75673b authored by Alexis Nasr's avatar Alexis Nasr
Browse files

bug fixed in eval_wplgfs.pl

parent 9f27e7bb
No related branches found
No related tags found
No related merge requests found
...@@ -67,10 +67,14 @@ sub is_punctuation_ftb{ ...@@ -67,10 +67,14 @@ sub is_punctuation_ftb{
while(<REF>){ while(<REF>){
chop;
$line_nb++; $line_nb++;
($ref_form, $ref_pos, $ref_lemma, $ref_gov, $ref_fct, $ref_seg) = split /\t/; ($ref_form, $ref_pos, $ref_lemma, $ref_gov, $ref_fct, $ref_seg) = split /\t/;
$_ = <HYP>; $_ = <HYP>;
chop $_;
# print;
($hyp_form, $hyp_pos, $hyp_lemma, $hyp_gov, $hyp_fct, $hyp_seg) = split /\t/; ($hyp_form, $hyp_pos, $hyp_lemma, $hyp_gov, $hyp_fct, $hyp_seg) = split /\t/;
# print "ref = $hyp_seg\n";
if($ref_seg){ $nb_ref_seg++;} if($ref_seg){ $nb_ref_seg++;}
if($hyp_seg){ $nb_hyp_seg++;} if($hyp_seg){ $nb_hyp_seg++;}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment