返回第一个字母和所有后续辅音的regexp

Question

什么是可从一个单词返回第一个字母和所有后续辅音的正则表达式？

换句话说，应该做

"word" => "wrd"
"alliteration" => "alltrtn"

可以一次完成吗？用替换？

理想情况下是perl，但我可以翻译Javascript或Python。

Answer 1

您可以尝试以下操作（javascript）：

/(?!^)[eyuioa]/g

"word".replace(/(?!^)[eyuioa]/g, ""); // "wrd"
"alliteration".replace(/(?!^)[eyuioa]/g, ""); // "alltrtn"