diff options
| author | Chris Dyer <redpony@gmail.com> | 2010-01-29 15:56:59 +0000 |
|---|---|---|
| committer | Chris Dyer <redpony@gmail.com> | 2010-01-29 15:56:59 +0000 |
| commit | da222df300e4f87ad185a7decbf119ad56aa34e0 (patch) | |
| tree | 1137deefefd28b1a89f6b2b339883801cc12cb29 /word-aligner/ortho-norm/en.pl | |
| parent | ee4383b3bc67e2d8ce113fce716050dc2e1b8572 (diff) | |
word aligner checkin
Diffstat (limited to 'word-aligner/ortho-norm/en.pl')
| -rwxr-xr-x | word-aligner/ortho-norm/en.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/word-aligner/ortho-norm/en.pl b/word-aligner/ortho-norm/en.pl new file mode 100755 index 00000000..b167803e --- /dev/null +++ b/word-aligner/ortho-norm/en.pl @@ -0,0 +1,11 @@ +#!/usr/bin/perl -w +use strict; +use utf8; + +while(<STDIN>) { + $_ = lc $_; + s/ al-/ al/g; + s/^al-/al/; + print; +} + |