Matija Grabnar pravi:
On Mon, Jan 02, 2006 at 11:50:57AM +0100, cefe wrote:
---
perl -e 'while(<>) [EMAIL PROTECTED](/\W+/,$_); foreach $word (@words) {$cnt{$word}++}}; foreach (keys %cnt) {print "$cnt{$_} $_\n"}' 123.txt
Hvala :)
Mimogrede, tvoja dosedanja metoda daje napacne rezultate:
Ups; se enkrat hvala! V spodnjem primeru je sicer delalo pravilno: --- [EMAIL PROTECTED]:/tmp$ cat 123.txt 123 223 323 423 523 623 723 223 223 [EMAIL PROTECTED]:/tmp$ grep 223 123.txt|wc --words 3 [EMAIL PROTECTED]:/tmp$ --- Aja, zahvala tudi Sasotu za njegovo verzijo. robi _______________________________________________ lugos-list mailing list lugos-list@lugos.si http://liste2.lugos.si/cgi-bin/mailman/listinfo/lugos-list
