mirror of
https://github.com/modelscope/FunASR
synced 2025-09-15 14:48:36 +08:00
39 lines
1.3 KiB
Perl
Executable File
39 lines
1.3 KiB
Perl
Executable File
#!/usr/bin/env perl
|
||
use warnings; #sed replacement for -w perl parameter
|
||
# Copyright Chao Weng
|
||
|
||
# normalizations for hkust trascript
|
||
# see the docs/trans-guidelines.pdf for details
|
||
|
||
while (<STDIN>) {
|
||
@A = split(" ", $_);
|
||
print "$A[0] ";
|
||
for ($n = 1; $n < @A; $n++) {
|
||
$tmp = $A[$n];
|
||
if ($tmp =~ /<sil>/) {$tmp =~ s:<sil>::g;}
|
||
if ($tmp =~ /<%>/) {$tmp =~ s:<%>::g;}
|
||
if ($tmp =~ /<->/) {$tmp =~ s:<->::g;}
|
||
if ($tmp =~ /<\$>/) {$tmp =~ s:<\$>::g;}
|
||
if ($tmp =~ /<#>/) {$tmp =~ s:<#>::g;}
|
||
if ($tmp =~ /<_>/) {$tmp =~ s:<_>::g;}
|
||
if ($tmp =~ /<space>/) {$tmp =~ s:<space>::g;}
|
||
if ($tmp =~ /`/) {$tmp =~ s:`::g;}
|
||
if ($tmp =~ /&/) {$tmp =~ s:&::g;}
|
||
if ($tmp =~ /,/) {$tmp =~ s:,::g;}
|
||
if ($tmp =~ /[a-zA-Z]/) {$tmp=uc($tmp);}
|
||
if ($tmp =~ /Ａ/) {$tmp =~ s:Ａ:A:g;}
|
||
if ($tmp =~ /ａ/) {$tmp =~ s:ａ:A:g;}
|
||
if ($tmp =~ /ｂ/) {$tmp =~ s:ｂ:B:g;}
|
||
if ($tmp =~ /ｃ/) {$tmp =~ s:ｃ:C:g;}
|
||
if ($tmp =~ /ｋ/) {$tmp =~ s:ｋ:K:g;}
|
||
if ($tmp =~ /ｔ/) {$tmp =~ s:ｔ:T:g;}
|
||
if ($tmp =~ /，/) {$tmp =~ s:，::g;}
|
||
if ($tmp =~ /丶/) {$tmp =~ s:丶::g;}
|
||
if ($tmp =~ /。/) {$tmp =~ s:。::g;}
|
||
if ($tmp =~ /、/) {$tmp =~ s:、::g;}
|
||
if ($tmp =~ /？/) {$tmp =~ s:？::g;}
|
||
print "$tmp ";
|
||
}
|
||
print "\n";
|
||
}
|