diff options
author | Phil Williams <philip.williams@mac.com> | 2014-10-13 13:55:07 +0400 |
---|---|---|
committer | Phil Williams <philip.williams@mac.com> | 2014-10-13 13:55:07 +0400 |
commit | 07dbd191ed111f33516798968fd621939947cedf (patch) | |
tree | e523d4dfb680c8b8a5c8db154b1d974e96f2facf /scripts/ems/support/analysis.perl | |
parent | 57223f4a904d3b46782e9501c10923089a8e685d (diff) |
analysis.perl: update regexp for current trace format
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 a2f9580a9..ba92e6026 100755 --- a/scripts/ems/support/analysis.perl +++ b/scripts/ems/support/analysis.perl @@ -746,7 +746,7 @@ sub hierarchical_segmentation { open(NODE,">$dir/node") or die "Cannot open: $!"; while(<TRACE>) { /^Trans Opt (\d+) \[(\d+)\.\.(\d+)\]: (.+) : (\S+) \-\>(.+) :([\(\),\d\- ]*): pC=[\d\.\-e]+, c=/ || - /^Trans Opt (\d+) \[(\d+)\.\.(\d+)\]: (.+) : (\S+) \-\>(.+) :([\(\),\d\- ]*): c=/ || die("cannot scan line $_"); + /^Trans Opt (\d+) \[(\d+)\.\.(\d+)\]: (.+) : (\S+) \-\>\S+ \-\> (.+) :([\(\),\d\- ]*): c=/ || die("cannot scan line $_"); my ($sentence,$start,$end,$spans,$rule_lhs,$rule_rhs,$alignment) = ($1,$2,$3,$4,$5,$6,$7); if ($last_sentence >= 0 && $sentence != $last_sentence) { &hs_process($last_sentence,\@DERIVATION,\%STATS); |