Perl单词去元音化:去除除了第一个和最后一个元音以外的所有元音

Question

为了缩短一些名字，但仍然保持它们的可读性，我想删除字符串中的所有元音，除了第一个和最后一个。例如，我希望“明尼苏达”变成“明斯塔”。

my $name="Minnesota";

我已经尝试使用Perl的零宽度查找正则表达式语法，如下所示：

$name =~ s/(?<=[aeiou])([^aeiou]*)[aeiou]/$1/ig; # minnst

然而，尽管这适当地处理了第一个元音，但它删除了最后一个元音。为了解决这个问题，我试着保留最后一个元音，如下所示：

$name =~ s/(?<=[aeiou])([^aeiou]*)([aeiou])([aeiou][^aeiou]*)$/$1$3/ig; # minnesota

这也不起作用，大概是因为“$”将整个正则表达式锚定在字符串的末尾。

当然，我可以查找第一个元音的位置，反转字符串的其余部分并删除除“第一个”（最后一个）之外的所有元音，然后重新反转并连接字符串，但这不是很优雅。我觉得我忽略了零宽度语法的选项之一。

Answer 1

确保匹配后有一个元音，但将其从匹配中排除。

$name =~ s/(?<=[aeiou])([^aeiou]*)[aeiou](?=.*[aeiou])/$1/ig;

您的regexp完成的替换是：

< li >明尼苏达州=

因此，最后一个替换将“nnsta”与“nnst”交换。

my $name="Minnesota";
my $prev = '';
while ( $name ne $prev ) {
    $prev = $name;
    $name =~ s/(?<=[aeiou])([^aeiou]*)[aeiou]/$1/i;
    print "$prev => ${^MATCH} -> $1 => $name\n";
}

Answer 2

对我来说，这个有效（前面的“1”是故意的）：

1 while ($name =~ s/^(.+)[AEIOUaeiou]/$1/g );

如果您想保留$name的最小长度（例如3）：

1 while (length $name > 3 && $name =~ s/^(.+)[AEIOUaeiou]/$1/g );

当然，您可以使用“I”标志来忽略大小写，而不是写“AEIOUaeiou”。为了便于阅读，我明确地写了下来。

当然，您可以在括号中插入任何字符。

Answer 3

只需为正则表达式指定一个结束边界条件:< code >(？！[^aeiou]*$):

use strict;
use warnings;

my @words = qw(Minnesota concatenate strings elegant I feel overlooking options syntax any greatly appreciated);

for (@words) {
    my $word = $_;

    $word =~ s/(?<=[aeiou])([^aeiou]*)[aeiou](?![^aeiou]*$)/$1/ig;

    printf "%-12s -> %s\n", $_, $word;
}

产出:

Minnesota    -> Minnsta
concatenate  -> conctnte
strings      -> strings
elegant      -> elgant
I            -> I
feel         -> feel
overlooking  -> ovrlking
options      -> optons
syntax       -> syntax
any          -> any
greatly      -> greatly
appreciated  -> apprcted