Mercurial > repo

annotate bin/hyphenate.fi @ 10843:2d5ba2d44680

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<Jafet> le/rn double dactyl//Curious spurious verse form, ostensibly catchy to hear but herculean to write. Sadly its bent on the sesquipedalian makes double dactyls pretentious and trite.
author HackBot
date Fri, 28 Apr 2017 02:49:16 +0000
parents 7914d7e0b500
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2114
7914d7e0b500 <ais523> revert 87c64ef250a0
HackBot
parents:
diff changeset
1 #!/bin/sh
7914d7e0b500 <ais523> revert 87c64ef250a0
HackBot
parents:
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'