File: extract-possessive

package info (click to toggle)
scowl 5-4
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 8,240 kB
  • ctags: 36
  • sloc: perl: 352; sh: 330; makefile: 234; cpp: 45
file content (10 lines) | stat: -rwxr-xr-x 134 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
 
#!/usr/bin/perl

open F, "r/pos/part-of-speech.txt";

while (<F>) 
{
    chop;
    next if not /^([^\t]+)\tN.*$/;
    print "$1\n";
}