File: clos1way.awk

package info (click to toggle)
gawk 1%3A4.0.1%2Bdfsg-2.1
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 10,944 kB
  • sloc: ansic: 38,137; awk: 6,654; yacc: 6,066; sh: 4,807; makefile: 1,802; sed: 112
file content (21 lines) | stat: -rw-r--r-- 405 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
BEGIN {
	command = "LC_ALL=C sort"

	n = split("abcdefghijklmnopqrstuvwxyz", a, "")
	for (i = n; i > 0; i--) {
#		print "printing", a[i] > "/dev/stderr"
		print a[i] |& command
	}

	close(command, "to")

#	print "starting read loop" > "/dev/stderr"
	do {
		if (line)
			print "got", line
#		stopme();
	} while ((command |& getline line) > 0)

#	print "doing final close" > "/dev/stderr"
	close(command)
}