diff options
Diffstat (limited to 'scripts/generic/lopar2pos.pl')
-rwxr-xr-x | scripts/generic/lopar2pos.pl | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/scripts/generic/lopar2pos.pl b/scripts/generic/lopar2pos.pl deleted file mode 100755 index 9b97bc806..000000000 --- a/scripts/generic/lopar2pos.pl +++ /dev/null @@ -1,14 +0,0 @@ -#!/usr/bin/perl -w - -#lopar2pos: extract POSs from LOPAR output -#usage: lopar2pos.pl CORPUS.lopar > CORPUS.pos - -my $infilename = shift @ARGV; -open(INFILE, "<$infilename") or die "couldn't open '$infilename' for read: $!\n"; -while(my $line = <INFILE>) -{ - my @words = split(/\s+/, $line); - my @tags = map {$_ =~ /^[^_]*_([A-Z]+)/; $1} @words; - print join(' ', @tags) . "\n"; -} -close(INFILE); |