regex - 用大写 perl 更改一行上的第一个字符

Question

我猜这是一个简单的问题，但我试图将一行的第一个小写字母从 .txt 文件更改为大写，使用以下命令

$_ =~ s/^[a-z]/\U/;

当我执行它时，会发生什么，而不是将小写字母更改为大写字母，而是将行首的小写字母替换为该行中的最高有效位。例如，行 nAkld987aBALPaapofikU88而不是替换为 NAkld987变成 Akld987...

Answer 1

您需要捕获 first character在捕获组中，并使用 back reference将其转换为 uppercase使用 \u .

尝试使用这个: -

$_ =~ s/^([a-z])/\u$1/;