请问用perl怎么统计每一行中某个单词出现的位置?譬如说,how old **are** you?where **are** you from?“are”这个单词在第一行是第三个,第二行是第二个,我想得到的是3 how old **are** you?2 where **are** you from
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/25 11:31:27
请问用perl怎么统计每一行中某个单词出现的位置?譬如说,how old **are** you?where **are** you from?“are”这个单词在第一行是第三个,第二行是第二个,我想得到的是3 how old **are** you?2 where **are** you from
请问用perl怎么统计每一行中某个单词出现的位置?
譬如说,how old **are** you?
where **are** you from?
“are”这个单词在第一行是第三个,第二行是第二个,我想得到的是
3 how old **are** you?
2 where **are** you from?
请问用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单词的位置；
当然,如果你认为用空格数判断单词个数不严谨,也可以改成带字符边界的正则,这里就不多说了.
#!/usr/bin/perl -w
use strict;
my @words;
while (<>) {
@words = split;
my $i = 1;
foreach my $word (@words) {
print "$i @words\n",if $word =~ /are/;
$i += 1;
}
}