在 Perl 中（需要新手的简单程序），在 .或者？或者！下一个字符应为大写

发布于 2024-12-10 07:36:35 字数 464 浏览 0 评论 0原文

可能的重复：
如何将特定字符替换为它的大写对应项？

考虑以下字符串：

String = "this is for test. i'm new to perl! Please help. can u help? i hope so."

在上面的字符串中，after 。或者？或者！下一个字符应为大写。句子（字符串）的第一个字母也应为大写。我怎样才能做到这一点？我正在逐个字符地读取字符串。

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

问候，阿米特

原文

Possible Duplicate:
How can I replace a particular character with its upper-case counterpart?

Consider following string :

String = "this is for test. i'm new to perl! Please help. can u help? i hope so."

In the above string, after . or ? or ! the next character should be in upper case. Also the first letter of the sentence (string) is to be in uppercase. How can I do that?
I'm reading string character by character.

your help will be greatly appreciated.

regards,
Amit

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

强辩 2024-12-17 07:36:35

从基本的角度来说，您可以尝试以下代码

#!/usr/bin/perl

$String = "this is for test. i'm new to perl! Please help. can u help? i hope so.";
$String =~ s/ ((^\w)|(\.\s\w)|(\?\s\w)|(\!\s\w))/\U$1/xg;
print "$String\n";

(^\w) ：行首
(\.\s\w) ：在“.”之后后跟一个空格
(\?\s\w) ：在“?”之后后跟一个空格
(\!\s\w) ：在“!”之后后跟一个空格

In a basic way, you can try this code

#!/usr/bin/perl

$String = "this is for test. i'm new to perl! Please help. can u help? i hope so.";
$String =~ s/ ((^\w)|(\.\s\w)|(\?\s\w)|(\!\s\w))/\U$1/xg;
print "$String\n";

(^\w) : beginning of the line
(\.\s\w) : After a '.' followed by a space
(\?\s\w) : After a '?' followed by a space
(\!\s\w) : After a '!' followed by a space

回复收藏 0 原文

倾城月光淡如水﹏ 2024-12-17 07:36:35

Perl 有一个 ucfirst 函数，它可以完全满足您的需求。因此，您所需要做的就是将字符串分成几个部分，在每个部分上使用 ucfirst ，然后再次将它们连接在一起。

#!/usr/bin/perl

use strict;
use warnings;

use 5.010;

my $string = q[this is for test. i'm new to perl! Please help. can u help? i hope so.];

my @bits = split /([.?!]\s+)/, $string;

$string = join '', map { ucfirst } @bits;

say $string;

Perl has a ucfirst function that does exactly what you want. So all you need to do it to split your string into sections, use ucfirst on each section and then join them together again.

#!/usr/bin/perl

use strict;
use warnings;

use 5.010;

my $string = q[this is for test. i'm new to perl! Please help. can u help? i hope so.];

my @bits = split /([.?!]\s+)/, $string;

$string = join '', map { ucfirst } @bits;

say $string;

回复收藏 0 原文

~没有更多了~