正则表达式在Perl中获取标点符号后单词的第一个字母

Question

谁能告诉我 Perl 中的正则表达式，用于获取点、问号或感叹号后面的单词的 ucfirst 字母...

我的程序逐个字符读取字符串。

要求：

input string : "abcd[.?!]\s*abcd"
output: "Abcd[.?!]\s*Abcd"

我的程序是如下：

#!/usr/bin/perl

use strict;

my $str = <STDIN>;
my $len=length($str);
my $ch;

my $i;
for($i=0;$i<=length($str);$i++)
{
$ch = substr($str,$i,1);
print "$ch";
if($ch =~ 's/([.?!]\s*[a-z])/uc($1)/ge')
{
    $i=$i+1;
    $ch = substr($str, $i,1);
    my $ch = uc($ch);
    print "$ch";
}
#elsif($ch eq "?")
#{
#   $i=$i+1;
#   $ch = substr($str, $i,1);
#   my $ch = uc($ch);
#   print "$ch";
#}
#elsif($ch eq "!")
#{
#   $i=$i+1;
#   $ch = substr($str, $i,1);
#   my $ch = uc($ch);
#   print"$ch";
#}
#elsif($ch eq " ")
#{
#   $i=$i+1;
#   $ch = substr($str, $i,1);
#   my $ch = uc($ch);
#   print"$ch";
#}
#else
#{
#print "";
#}
}
print "\n";

Answer 1

循环字符串，然后循环匹配，是完全多余的。您的整个程序可以替换为：

perl -pe 's/(^|[.?!]\s*)([a-z])/$1\U\2/g' inputfile >outputfile

我将行开头添加到第一个括号表达式中，尽管您的解释不包括这一点（但您的示例包含）。

Answer 2

通常，

$s =~ s/(?<=[.?!]|^)\s*[a-z]/\U$1/g;

$s =~ s/(?<![^.?!])\s*[a-z]/\U$1/g;

$s =~ s/(?:^|[.?!])\s*\K[a-z]/\U$1/g;

但是如果你一次只读一个字符，

my $after_punc = 1;
while (my $ch = ...) {
    if ($ch =~ /^[.?!]\z/) {
       $after_punc = 1;
    }
    elsif ($ch =~ /^[a-z]\z/) {
       $ch = uc($ch) if $after_punc;
       $after_punc = 0;
    }
    elsif ($ch =~ /^\s\z/) {
       # Ignore whitespace.
    }
    else {
       $after_punc = 0;
    }

    ...
}

Answer 3

任何人都可以告诉我 Perl 中的正则表达式，用于获取点、问题或感叹号后出现的单词的 ucfirst 字母...

我的程序逐字符读取字符串。

要求：

输入字符串：“abcd[.?!]\s*abcd”

输出：“Abcd[.?!]\s*Abcd”

您的输出与您的解释不符。在输入中，首字母“a”后面没有句号、问号或感叹号，而是更改为大写。

您可以而且应该通过一次替换来完成这种处理。完全按照您所说的操作：

s/[.?!]\K[[:lower:]]/uc(
amp;)/ge

\K 丢弃与 [.?!] 匹配的字符，只留下匹配字符串中的小写字母。 $& 是匹配的字符串。 e 标志表示评估 uc($&)。

如果您还想将首字母变为大写：

s/(?:^|[.?!])\K[[:lower:]]/uc(
amp;)/ge

Answer 4

如果你有 unicode 字符串，你可以使用：

$str =~ s/(\pP|^)(\s*\pL)/$1\U$2/g;