以括号结尾的句子的标题案例[重复]

Question

我想为每个以括号结尾仅包含大写字母的句子命名 注意：不要将某些单词的标题大写，例如“for, and, the”。

所以原句是：

经济教育基金会 (FEE)

应该是这样的：

经济教育基金会 (FEE)

非常感谢任何帮助！

这是我的“错误”代码，它将括号前的所有内容都大写...

(^[\p{L}\W]+)([(][\p{Lu}]{3,}[)]$)

\U\1\2

Answer 1

匹配没有以(...)子字符串结尾的大写字母的字符串的正则表达式是，例如：

/^(\P{Lu}*)(?=\([^()]*\)$)/

请参阅regex demo。还有其他方法，但这种方法更方便以后在 Perl 中构建替换部件 RHS。

图案细节：

• ^ - 字符串开头
• (\P{Lu}*) - 第 1 组：除大写字母外的任何零个或多个字符
• (?=\([^()]*\)$) - 需要( 的正向前瞻，然后是除( 和) 之外的任何零个或多个字符，然后是字符串末尾的) ($)。

那么你可以像这样使用Lingua::EN::Titlecase：

#!/usr/bin/perl
use feature 'say';
use strict;
use warnings;
use Lingua::EN::Titlecase;

my $tc = Lingua::EN::Titlecase->new();
my $str = "foundation for economic education (FEE)";
say $str =~ s{^(\P{Lu}*)(?=\([^()]*\)$)}{ $tc->title($1) }re;

输出：Foundation for Economic Education (FEE)。