diff options
| author | Patrick Simianer <simianer@cl.uni-heidelberg.de> | 2012-11-05 15:29:46 +0100 |
|---|---|---|
| committer | Patrick Simianer <simianer@cl.uni-heidelberg.de> | 2012-11-05 15:29:46 +0100 |
| commit | 1db70a45d59946560fbd5db6487b55a8674ef973 (patch) | |
| tree | 172585dafe4d1462f22d8200e733d52dddb55b1e /extools/test_data/make_len_cats.pl | |
| parent | 4dd5216d3afa9ab72b150e250a3c30a5f223ce53 (diff) | |
| parent | 6bbf03ac46bd57400aa9e65a321a304a234af935 (diff) | |
merge upstream/master
Diffstat (limited to 'extools/test_data/make_len_cats.pl')
| -rwxr-xr-x | extools/test_data/make_len_cats.pl | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/extools/test_data/make_len_cats.pl b/extools/test_data/make_len_cats.pl deleted file mode 100755 index 25ef75fa..00000000 --- a/extools/test_data/make_len_cats.pl +++ /dev/null @@ -1,23 +0,0 @@ -#!/usr/bin/perl -w -use strict; - -my $max_len = 15; -my @cat_names = qw( NULL SHORT SHORT MID MID MID LONG LONG LONG LONG LONG VLONG VLONG VLONG VLONG VLONG ); - -while(<>) { - chomp; - my @words = split /\s+/; - my $len = scalar @words; - my @spans; - for (my $i =0; $i < $len; $i++) { - for (my $k = 1; $k <= $max_len; $k++) { - my $j = $i + $k; - next if ($j > $len); - my $cat = $cat_names[$k]; - die unless $cat; - push @spans, "$i-$j:$cat"; - } - } - print "@spans\n"; -} - |