使用Perl計算和打印重複單詞在一行中的位置

Question

我想從文件中讀取並打印出每行上重複單詞的位置。我將每行都存儲在數組中，但我不確定是否這是正確的開始。

while (my $fileLine = <$fh>){ 
    my @lineWords = split /\s+/, $fileLine; 
    print "@\n" 
} 

Answer 1

#!/usr/bin/perl 
use strict; 
use warnings; 
while (<DATA>){ 
    chomp; # remove end of line chars 
    my @wordsInLine = split /\s+/, $_; 
    @wordsInLine = map {lc($_)} @wordsInLine; # convert words to lowercase 
    my($word, %wordsInLine, $n); 
    for $word (@wordsInLine) { 
     $wordsInLine{$word}++; # use hash %wordsInLine to count occurences of words 
    } 
    for $word (@wordsInLine) { 
     $n++; 
     if((my $count = $wordsInLine{$word}||0) > 1) { 
     print "line $.: Word $n \"$word\" is repeated $count times\n"; 
     delete($wordsInLine{$word}); # do not generate more than one report 
            # about the same word in single line 
     } 
    } 
} 
__DATA__ 
This this is a sample sentence 
A that That THAT !