Perl 从单词第一个字母的索引中获取单词的位置

假设我有一个句子/段落：

This cat is very cute.

---

这里，“可爱”是这个句子的第五个词。如果我知道这个单词的第一个字母的索引-在本例中是

c

，17-我如何才能找到这个单词在句子中的位置？

计算子字符串中的空格数，然后向其中添加1可能会起作用

#!/usr/bin/perl

use strict;
use warnings;

my $in = "This cat is very cute.";
my $sub = substr $in, 0, 17;

my $word_count = scalar(split " ", $sub) + 1;
print "$word_count\n";

---

为什么选择downvote和close vote？是否有其他linux命令适合您？仅按

“

进行拆分可能有点限制。我建议

/\W+/

包含所有不是字母数字或“连接标点符号”的内容，或者至少使用

/\s+/

在任意数量的空格或制表符中只拆分一次。@devader

“

是一种特殊情况：哦，这样可以节省我对空字符串的一些检查。非常感谢。