我有一个像这样的文本文件:
dave ran very quickly
dan very slowly ran
我正在做一个正则表达式来寻找单词“ran”但我还需要知道它的起始位置(在第一种情况下它是字符6,在第二种情况下它是17)。
我有(虽然不多):
for(@lines){
if(/ran/){
# find where ran is so we can continue parsing
}
}
答案 0 :(得分:9)
很简单:
my $ran_pos = $-[0];
有关perlvar
数组的详细说明,请参见@-
手册页。
答案 1 :(得分:9)
我相信index
功能正是您所需要的。
以下是几个链接:
答案 2 :(得分:2)
索引STR,SUBSTR将返回字符串中子字符串的位置。