*** empty log message ***

2006-09-30 17:03:11 +00:00
parent 95b904c8e9
commit ec0067a430
7 changed files with 124 additions and 54 deletions
--- a/ase/test/awk/wordfreq.awk
+++ b/ase/test/awk/wordfreq.awk
@@ -2,15 +2,18 @@
     
 {
 	$0 = tolower($0);    # remove case distinctions
+
 	# remove punctuation
-	#gsub(/[^[:alnum:]_[:blank:]]/, "", $0);
+	a=0;
+	gsub(/[^[:alnum:]_[:blank:]]/, " ", $a);
+	#gsub(/[^[:alnum:]_[:blank:]]/, " ");

 	for (i = 1; i <= NF; i++) freq[$i]++;
 }
     
 END {
 	for (word in freq)
-		print word, "\t", freq[word];
+		print word, freq[word];
 }