On Mon, Jan 02, 2006 at 11:50:57AM +0100, cefe wrote:
> Hojla!
>
> Imam zanimivo vprasanje, in sicer, kako bi prestel stevilo pojavljanj vsake
> besede v datoteki, ne samo ene izbrane besede?
> Ali je kdo ze kdaj kaj takega poizkusal?
> Za tocno izbrano besedo znam narediti, ampak, da bi programcek pokazal vse
> besede v datoteki in se stevilo pojavljanja vsake besede, to pa mi je ze
> prevec ...
> Posamezno besedo iscem na sledec nacin:
> grep 223 123.txt|wc --words
> in to dela ...
perl -e 'while(<>) [EMAIL PROTECTED](/\W+/,$_); foreach $word (@words)
{$cnt{$word}++}}; foreach (keys %cnt) {print "$cnt{$_} $_\n"}' 123.txt
Mimogrede, tvoja dosedanja metoda daje napacne rezultate:
cat /tmp/foo.txt
bla bla bla foo
foo foo
arg arg arg foo
grep bla /tmp/foo.txt |wc --words
4
grep foo /tmp/foo.txt |wc --words
10
Tole je pa rezultat moje skripte:
3 arg
3 bla
4 foo
_______________________________________________
lugos-list mailing list
[email protected]
http://liste2.lugos.si/cgi-bin/mailman/listinfo/lugos-list
