mirror of
https://github.com/modelscope/FunASR
synced 2025-09-15 14:48:36 +08:00
15 lines
268 B
Perl
Executable File
15 lines
268 B
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(" ", $_);
|
|
if (@A == 1) {
|
|
next;
|
|
}
|
|
print $_
|
|
}
|