如何用大写字母替换特定字符？

Question

考虑下面的字符串

String = "this is for test. i'm new to perl! Please help. can u help? I 希望如此。"

在上面 之后的字符串中。 或 ? 或 ! 下一个字符应为大写。我怎样才能做到这一点？

我正在逐行读取文本文件，并且需要将修改后的数据写入另一个文件。

我们将非常感谢您的帮助。

Answer 1

你可以使用正则表达式
试试这个：

my $s = "...";
$s =~ s/([\.\?!]\s*[a-z])/uc($1)/ge; # of course $1 , thanks to plusplus

g-flag 搜索所有匹配项，e-flag 执行 uc 将字母转换为大写

说明：

• 使用 [.\?!] 搜索标点符号
• \s* 用于搜索标记和下一个单词的第一个字母和
• [az] 匹配单个字母（在这种情况下，

上面提到的正则表达式使用这些模式搜索下一个单词的第一个字母，以查找标点符号后跟（可选）空格和并将其替换为 uc 的结果（将匹配结果转换为大写）

例如：

my $s = "this is for test. i'm new to perl! Please help. can u help? i hope so.";
$s =~ s/([\.\?!]\s*[a-z])/uc(&1)/ge;
print $s;

将查找“.i”、“!P”、“.c”和“?i”并替换 then，因此打印结果是：

this is for test. I'm new to perl! Please help. Can u help? I hope so.

Answer 2

您可以使用替换运算符s///：

   $string =~ s/([.?!]\s*\S)/ uc($1) /ge;

Answer 3

这是一个split解决方案：

$str = "this is for test. im new to perl! Please help. can u help? i hope so."; 
say join "", map ucfirst, split /([?!.]\s*)/, $str;

如果您所做的只是打印到一个新文件，则不需要将字符串连接起来。例如

while ($line = <$input>) {
    print $output map ucfirst, split /([?!.]\s*)/, $line;
}

Answer 4

编辑 - 完全误读了这个问题，以为您只是出于某种原因要求将 i 大写，对于任何混淆表示歉意！

正如到目前为止的答案所述，您可以查看正则表达式和替换运算符 (s///)。不过，没有人提到 \b （单词边界）字符，这对于查找单个 i 可能很有用 - 否则您将不得不继续添加标点符号您找到的字符类匹配的字符（[ ... ]）。

例如

my $x = "this is for test. i'm new to perl! Please help. can u help? i hope so. ".
       \"i want it to work!\". Dave, Bob, Henry viii and i are friends. foo i bar.";

$x =~ s/\bi\b/I/g;  # or could use the capture () and uc($1) in eugene's answer

给出：

# this is for test. I'm new to perl! Please help. can u help? I hope so. 
# "I want it to work!". Dave, Bob, Henry viii and I are friends. foo I bar.