2015-11-02 25 views
-2

我有這個問題一個月。我想檢查我的文件中的所有單詞。PERL將相同的索引放在重複的單詞中。 (第一次看到單詞索引)

EXAMPLE FILE:_word [0] word1 [1] word1 [2] word2 [3] _word [4]

這將是位置,但我想,如果我看到的一句話:在位置0 _word,把該位置0至該字是相同的(「_word」位置4 )重複。

我已經嘗試了很多這個問題。

我想要做這樣的事情:

EXAMPLE :_word [0] word1 [1] word1 [1] word2 [2] _word [0]

的[數字]是的位置。

+2

你嘗試過這麼遠嗎?您的描述非常混亂,如果我看到您嘗試編寫的代碼,我可能會更好地理解問題。 –

+0

現在還不清楚。這是一個類似的問題,但它是不同的。另一種編程語言。你試過什麼了。你能否將你的'EXAMPLE'放在代碼塊外面,並準確顯示你期望的輸入和輸出是什麼? –

+0

好的,例如在這個鏈接http://stackoverflow.com/questions/5419204/index-of-duplicates-items-in-a-python-list 我有一個列表List = ['A','B ','A','C','E']; 我想得到像這樣的東西: 索引0:A 索引2:A但在這裏而不是2,再次放0 ..因爲它的同一個詞... –

回答

0

假設,給出"_word word1 word1 word2 _word",你要拿出陣列(0,1,1,3,0)字符串 - 每個單詞的第一個指數,那麼你可以做:

$line = "_word word1 word1 word2 _word"; 
@words = split " ", $line; 
$first_index{$words[$_]} //= $_ for 0..$#words; 
push @indices, $first_index{$_} for @words;