*** empty log message ***

ase/test/awk/wordfreq.awk

@@ -0,0 +1,16 @@
+# wordfreq.awk --- print list of word frequencies
+     
+{
+	$0 = tolower($0);    # remove case distinctions
+	# remove punctuation
+	#gsub(/[^[:alnum:]_[:blank:]]/, "", $0);
+
+	for (i = 1; i <= NF; i++) freq[$i]++;
+}
+     
+END {
+	for (word in freq)
+		print word, "\t", freq[word];
+}
+     
+