作业帮 > 英语 > 作业

请问用perl怎么统计每一行中某个单词出现的位置?

来源:学生作业帮 编辑:作业帮 分类:英语作业 时间:2024/05/09 11:49:29
请问用perl怎么统计每一行中某个单词出现的位置?
譬如说,how old **are** you?
where **are** you from?
“are”这个单词在第一行是第三个,第二行是第二个,我想得到的是
3 how old **are** you?
2 where **are** you from?
利用正则:
my $line = 'how old are you?';
$line /(.)\bare\b/ or die "Can't match\n"; # 匹配are,\b为单词边界;
my $string = $1; # 捕获括号中的内容,也就是are之前的内容;
my $n = $string s/ //g; # 将前面的空格换成空,返回成功个数;
print $n+1 ," $line\n"; # 前面的空格数加1就是are单词的位置;
当然,如果你认为用空格数判断单词个数不严谨,也可以改成带字符边界的正则,这里就不多说了.