讀取一篇英文文章將所有的單詞設(shè)定為鍵然后賦值為1創(chuàng)建哈希表

大山里出來(lái)的孩子

剛開(kāi)始的思路是：
將整個(gè)文件讀取，然后按照空格切割后保存于數(shù)組中，然后遍歷數(shù)組創(chuàng)建哈希表。但是如果文章很長(zhǎng)，并且有多個(gè)文章的話，
先保存數(shù)組有點(diǎn)不太妥，效率太低，請(qǐng)問(wèn)如何改進(jìn)，使得當(dāng)讀入文件的時(shí)候不創(chuàng)建臨時(shí)數(shù)組直接創(chuàng)建哈希表呢？
text_in:
The U.N. Food and Agriculture Organization says it has less than half the funding it needs to help ensure food security in parts of South Sudan.
.......
(太多先不貼出來(lái)了，假設(shè)文本很規(guī)范)

創(chuàng)建如下的哈希表%Words:
(
    The => 1,
    U.N. => 1,
    Food => 1,
    ...
)

我之前的想法是：
my $content;

{
        local $/= undef;
  $content = <$IN1>;
        close($IN1);
        #print "$content\n";
}

my @words1 = split /\s/,$content;
my %Words1 = map{$_ => 1} @words1;

可不可以不用臨時(shí)的數(shù)組呢，直接創(chuàng)建哈希表，那樣會(huì)不會(huì)更快呢？

sunzhiguolu

1. perl -anle '{$h{$_}++ for @F}END{$,=",";print keys %h}' f

復(fù)制代碼

104359176

use local is easy to slurp all text to a string. not related with speed.

If you want more rapid, use array and uniq it.

jason680

回復(fù) 1# 大山里出來(lái)的孩子

$ perl words.pl text_in
the half ensure of needs has Sudan. Food Agriculture to funding less in help says Organization it South than U.N. food parts security and The


$ cat words.pl
use strict;
use warnings;

my %hWord;

while(<>){
  chomp;
  $hWord{$_}=1 for(split);
}
print join(" ",keys %hWord),"\n";

   

華小飛_Perl

回復(fù) 2# sunzhiguolu


    膜拜大神的單行代碼�。�！

大山里出來(lái)的孩子

感謝大神，我試試看

回復(fù) 4# jason680


   

大山里出來(lái)的孩子

大神還是用了數(shù)組啊

回復(fù) 2# sunzhiguolu


   

sunzhiguolu

有一些東西你沒(méi)有看見(jiàn), 但并不表示它不存在.