Kaldi / Kaldi first steps

Blame view

LIA_kaldiUtils/preprocess_trs.pl 528 Bytes
edit raw normal view history
ec85f8892   bigot benjamin   first commit 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
  #!/usr/bin/perl
  use strict;
  
  while(<>){
  	chomp;
  	$_ =~ s/\*Schiav\(one\)//g;
  	$_ =~ s/&lt;\/pers&gt;/
  <Event desc="pers" type="entities" extent="end"\/>
  /g;
  	$_ =~ s/&lt;pers=/<pers=/g;
  	$_ =~ s/=\S*&gt;/ /g;
  	$_ =~ s/&amp;//g;
  	$_ =~ s/<pers /
  
  <Event desc="pers" type="entities" extent="begin"\/>
  <Event desc="pers.mention.NP" type="entities" extent="instantaneous"\/>
  /g;
  	$_ =~ s/<Event desc="en" type="language" extent="begin"\/>/
  /g;
  	$_ =~ s/<Event desc="en" type="language" extent="end"\/>/
  /g;
  	print "$_
  ";
  }