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

Question

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

This cat is very cute.

这里，“可爱”是句子中的第5个单词。如果我知道这个单词的第一个字母的索引 - 在这种情况下是c，17 - 如何在句子中找出这个单词的位置？

Answer 1

计算子字符串中的空格数，然后向其中添加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";