diff options
| author | Patrick Simianer <p@simianer.de> | 2011-11-03 00:38:49 +0100 |
|---|---|---|
| committer | Patrick Simianer <p@simianer.de> | 2011-11-03 00:38:49 +0100 |
| commit | bcfb20c1e1e9434ae04a30240859db6a353457d0 (patch) | |
| tree | 4611721111f4fef5bd132ed3236b820c4e16fa9c /word-aligner/ortho-norm/rw.pl | |
| parent | 4df1aea9e6edce1c79059d3310d55947be0a302e (diff) | |
| parent | 6de8f58cd13813bf33af4903bf386439683c0fd6 (diff) | |
Merge remote-tracking branch 'upstream/master'
Diffstat (limited to 'word-aligner/ortho-norm/rw.pl')
| -rwxr-xr-x | word-aligner/ortho-norm/rw.pl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/word-aligner/ortho-norm/rw.pl b/word-aligner/ortho-norm/rw.pl new file mode 100755 index 00000000..4cb0e8e7 --- /dev/null +++ b/word-aligner/ortho-norm/rw.pl @@ -0,0 +1,13 @@ +#!/usr/bin/perl -w +use strict; +use utf8; + +binmode(STDIN, ":utf8"); +binmode(STDOUT, ":utf8"); + +while(<STDIN>) { + $_ = lc $_; + s/([a-z])'( |$)/$1$2/g; + print; +} + |