diff options
author | phikoehn <pkoehn@inf.ed.ac.uk> | 2012-02-22 04:49:29 +0400 |
---|---|---|
committer | phikoehn <pkoehn@inf.ed.ac.uk> | 2012-02-22 04:49:29 +0400 |
commit | bca952e3e024a7c251f1b3e30ec127adfc4ee105 (patch) | |
tree | 4e8231f6bc7de469ebb955cc07668419665c2c13 /scripts/ems/support/analysis.perl | |
parent | 16376eabccf890ea18f88b97768c3242f0ca00ff (diff) |
fix bug with < and >
Diffstat (limited to 'scripts/ems/support/analysis.perl')
-rwxr-xr-x | scripts/ems/support/analysis.perl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/ems/support/analysis.perl b/scripts/ems/support/analysis.perl index 7b7f943c7..8f889e302 100755 --- a/scripts/ems/support/analysis.perl +++ b/scripts/ems/support/analysis.perl @@ -448,7 +448,7 @@ sub input_annotation { while(<INPUT>) { chop; s/\|\S+//g; # remove additional factors - s/<[^>]+>//g; # remove xml markup + s/<\S[^>]*>//g; # remove xml markup s/\s+/ /g; s/^ //; s/ $//; # remove redundant spaces print OUT $_."\t"; my @WORD = split; |