Что противоположно субстрату?

Question

У меня есть текстовый файл примерно так:

dave ran very quickly
dan very slowly ran

Я делаю регулярное выражение для поиска слова «побежал», но мне также нужно знать, где оно начинается (в первом случае это символ6, во втором случае это 17).

У меня есть (хотя это немного):

for(@lines){

if(/ran/){
 # find where ran is so we can continue parsing

}

} 

Answer 1

Я считаю, что вам нужна функция index.

Вот пара ссылок:

• http://perlmeme.org/howtos/perlfunc/index_function.html
• http://www.misc -perl-info.com / жемчужно-index.html

Answer 2

Это просто:

my $ran_pos = $-[0];

См. Справочную страницу perlvar для подробного описания массива @-.

Answer 3

index STR, SUBSTR будет возвращать позицию подстроки в строке.