commit bede6a0a558ab4217aadb25059cac09406350662 parent 01a653a89238ea41fad3c4bd4f05e4bfb5ba4726 Author: Antoine Amarilli <a3nm@a3nm.net> Date: Tue, 13 Mar 2012 14:42:07 +0100 remove old file Diffstat:
| detect.pl | | | 24 | ------------------------ |
1 file changed, 0 insertions(+), 24 deletions(-)
diff --git a/detect.pl b/detect.pl @@ -1,24 +0,0 @@ -#!/usr/bin/perl - -# From a list of '\n'-separated words, output occurrences of words -# starting by 'h' when it can be inferred whether the word is aspirated -# or not. The format is "0 word" for non-aspirated and "1 word" for -# aspirated. - -my $asp; # will the next word be aspirated? - -while (<>) { - $_ = lc($_); - print "$asp $_" if (/^h/i && $asp >= 0); - chop; - # we store in asp what the current word indicates about the next word - $asp = -1; # default is unknown - $asp = 0 if /^[lj]'$/; - $asp = 0 if /^qu'$/; - $asp = 1 if /^que$/; - $asp = 0 if /^cet$/; - $asp = 1 if /^ce$/; - # only meaningful are "je", "de", "le" and "la" - $asp = 1 if /^[jdl][ea]$/; -} -