Mercurial > repo
annotate bin/hyphenate.fi @ 2005:1a9c8c8b2043
<elliott> revert
author | HackBot |
---|---|
date | Mon, 04 Feb 2013 18:01:05 +0000 |
parents | 77ba48eeaa0e |
children |
rev | line source |
---|---|
1975
32e14ad1db51
<ion> f=bin/hyphenate.fi;echo \'H4sIAOD8DFEAA0WPQU7DMBBF9z2FCRFtEakbVpWqSkisWbGssnDDNDFNMmkcNzWa4+QMvoAvxpgNiy/7vfka2Y8P8qQ7aeoF3KEUPQyNyN4/RfZhx/NOZP0EYtm69IbT4TrIowKN1oU5+ELqPQ9K7P4Gp/LrXNXfl6bt+utgxtt0/4mVfKp1A8LIVdwR68/rVTwirmWaZ+mrrP5rCkghKUcqzBxPoAiQgAmYtCKNpJk0EypCIHSELJCFVWSBrCPLwrJwihyQQ3KW+NkUZsUBDnIsxZ9Q8Cw9S8/Ss/Rhlq17MwfTN3pMkpf0aZ+a47bYJFmy4VteSKiWi1/gJQHkPgEAAA==\'|base64 -d|zcat>$f;chmod 755
HackBot
parents:
diff
changeset
|
1 #!/bin/sh |
1996
77ba48eeaa0e
<ion> sed -i -re \'s/bcdfghjklmnpqrstvwxz/b-df-hj-np-tv-xz/\' bin/hyphenate.fi
HackBot
parents:
1982
diff
changeset
|
2 exec perl -CS -Mutf8 -pwe 'my$vow=qr/[aeiouyäö]/i;my$con=qr/[b-df-hj-np-tv-xz]/i;1while s/($vow$con*)($con$vow)/$1-$2/g;1while s/a[eoyäö]|e[aoäö]|i[aoäö]|o[aeyäö]|u[aeyäö]|y[aeouä]|ä[aeouö]|ö[aeouä]/my@s=split"",$&;$s[0]."-".$s[1]/egi' |