[svn-inject] Tagging upstream source version of scowl

[deb_pkgs/scowl.git] / 6 / src / extract-possessive

diff --git a/6/src/extract-possessive b/6/src/extract-possessive
new file mode 100755 (executable)
index 0000000..2c72835
--- /dev/null
+++ b/6/src/extract-possessive
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+open F, "r/pos/part-of-speech.txt";
+
+while (<F>) 
+{
+    chop;
+    next if not /^([^\t]+)\tN.*$/;
+    print "$1\n";
+}