ase/cmd/awk/cou-027.awk

@@ -0,0 +1,13 @@
+BEGIN { FS = "\t"; }
+      { pop[$4] += $3; }
+END   { 
+	for (c in pop) 
+		printf ("%15s\t%6d\n", c, pop[c]) | "sort -t'\t' +1rn";
+
+	# the following two statements make the program behave
+	# consistently across different platforms.
+	# on some platforms, the sort command output has
+	# been delayed until the program exits. 
+	close ("sort -t'\t' +1rn");
+	sleep (1);
+}