Source

bllip-parser / evalb / tgrep_proc.prl

Full commit
1
2
3
4
5
6
7
8
9
#!/usr/local/bin/perl

while(<>)
{
    if(m/TOP/) #skip lines which are blank
    {
	print;
    } 
}