如何将Perl中字符串中每个单词的首字母大写？

要将Perl中字符串中每个单词的首字母大写，可以使用Perl的内置函数ucfirst()和正则表达式。

代码示例：

my $str = "hello world";
$str =~ s/(\w+)/\u$1/g;
print $str;

输出：

Hello World

在这个示例中，我们使用了正则表达式/(\w+)/来匹配字符串中的每个单词，并使用\u来将每个单词的首字母转换为大写。\u是Perl的内置函数，它可以将下一个字符转换为大写。g标志表示全局匹配，以便将所有单词的首字母都转换为大写。

如果你想要将字符串中的每个单词的首字母都转换为大写，可以使用Perl的内置函数ucfirst()。

代码示例：

my $str = "hello world";
$str = ucfirst($str);
print $str;

输出：

Hello world

在这个示例中，我们使用了ucfirst()函数来将字符串中的每个单词的首字母都转换为大写。ucfirst()函数只会将字符串中的第一个字母转换为大写，因此我们需要使用正则表达式来匹配每个单词并将其首字母转换为大写。