1
2
3
4
5
6
7
8
9
10
11
12
13
14
| #!/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 $_
| }
|
|
