и, я новичок в Perl. У меня есть Perl-скрипт, который должен подсчитать, сколько раз строка появляется в файле. Сценарий получает слово из самого файла.

Мне нужно, чтобы оно захватило первое слово в файле и затем поискало остальную часть файла, чтобы увидеть, повторяется ли оно где-нибудь еще. Если это повторяется, мне нужно вернуть количество повторений. Если это не повторилось, он может вернуть 0. Мне нужно, чтобы затем получить следующее слово в файле и проверить это снова.

Я возьму первое слово из файла, найду в файле повторы этого слова, возьму второе слово из файла, найду в файле повторы этого слова, возьму третье слово из файла, поищу в файле повторы Это слово.

Пока у меня есть цикл while, который захватывает каждое нужное мне слово, но я не знаю, как заставить его искать повторы без сброса положения моей текущей строки. Так как мне это сделать? Любые идеи или предложения с благодарностью! Заранее спасибо!

while (<theFile>) {
    my $line1 = $_;
    my $startHere = rindex($line1, ",");
    my $theName = substr($line1, $startHere + 1, length($line1) - $startHere);
    #print "the name: ".$theName."\n";
}