Dotaz: PERL - odstranění duplicit v poli a jejich spočítání

[Pirkil]

Ahoj, učím se základy programování v PERLu a mám problém. Potřebuju napsat program na počítání písmen v textovém souboru. Došel jsem do fáze, kdy mám všechna písmena uložená v poli @abcd. (Je jich mnoho a opakují se.) Nyní potřebuju z pole dostat frekvenci jednotlivých písmen a uložit každé písmeno s jeho frekvencí do hashe. (Můžu to sice udělat tak, že dám vypsat prvky pole po řádcích, uložím výstup programu do textového souboru a potom zadám v shellu:

sort soubor.txt | uniq -c

ale, já bych chtěl posléze setřídit klíče hashe a udělat to celé v Perlu.)

Díky moc za pomoc!

---

---

Odpovědi

[Ondřej Kopka]

to by melo resit neco v tomto smyslu:

my $hash = {};
foreach my $item (@array) {
 $hash->{$item}->{count}++;
}

[buff]

vlastne by stacilo i $hash->{$item}++

[wamba]

nemá to být $hash{$item}++ ?

[wamba]

odpovím si sám nemá, muselo by být my %hash místo my $hash

[Pirkil]

a hodi se pro to i map: http://www.tek-tips.com/faqs.cfm?fid=420

[Pirkil]

Nakonec jsem to udělal pomocí funkce map. Četl jsem o ní už dřív, ale nevěděl jsem, jak se používá. Souvisí to s tím, že moc neznám funkci operátoru $_ . Experimentální cestou jsem na to přišel. :) Díky za pomoc!

[Jirka P]

Když už si hrát s mapem, proč to neudělat takto:

my %counts=(map {($_, 0)} @arr);
keys %counts;

[Pirkil]

...chtěl jsem říct funkci speciální proměnné... :)