source: trunk/essentials/sys-apps/gawk/test/getline.awk

Last change on this file was 3076, checked in by bird, 18 years ago

gawk 3.1.5

File size: 384 bytes
Line 
1BEGIN {
2 x = y = "s"
3 a = (getline x y)
4 print a, x
5 a = (getline x + 1)
6 print a, x
7 a = (getline x - 2)
8 print a, x
9
10 cmd = "echo A"
11 a = (cmd | getline x y)
12 close(cmd)
13 print a, x
14
15 cmd = "echo B"
16 a = (cmd | getline x + 1)
17 close(cmd)
18 print a, x
19
20 cmd = "echo C"
21 a = (cmd | getline x - 2)
22 close(cmd)
23 print a, x
24
25 cmd = "echo D"
26 a = cmd | getline x
27 close(cmd)
28 print a, x
29}
Note: See TracBrowser for help on using the repository browser.