Mercurial > repo

annotate bin/hyphenate.fi @ 3418:d0d4a6a6ad9b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<boily> learn ph\xe1\xbb\x9f l\xc3\xa0 m\xe1\xbb\x99t m\xc3\xb3n \xc4\x83n truy\xe1\xbb\x81n th\xe1\xbb\x91ng c\xe1\xbb\xa7a Vi\xe1\xbb\x87t Nam, c\xc5\xa9ng c\xc3\xb3 th\xe1\xbb\x83 xem l\xc3\xa0 m\xe1\xbb\x99t trong nh\xe1\xbb\xafng m\xc3\xb3n \xc4\x83n \xc4\x91\xe1\xba\xb7c tr\xc6\xb0ng nh\xe1\xba\xa5t cho \xe1\xba\xa9m th\xe1\xbb\xb1c Vi\xe1\xbb\x87t Nam.
author HackBot
date Thu, 15 Aug 2013 19:52:26 +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'