File: getline5.awk

package info (click to toggle)
gawk 1%3A5.3.2-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 24,120 kB
  • sloc: ansic: 56,743; awk: 14,966; sh: 6,985; yacc: 6,820; makefile: 3,144; sed: 119; python: 31; csh: 6
file content (35 lines) | stat: -rw-r--r-- 605 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
# Message-ID: <4F7832BD.9030709@gmx.com>
# Date: Sun, 01 Apr 2012 11:49:33 +0100
# From: Duncan Moore <duncan.moore@gmx.com>
# To: "bug-gawk@gnu.org" <bug-gawk@gnu.org>
# Subject: [bug-gawk] getline difference from gawk versions >=4.0.0
# 
# Hi
# 
# b.awk:
# 
# BEGIN {
#    system("echo 1 > f")
#    while ((getline a[++c] < "f") > 0) {}
#    print c
# }
# 
# gawk -f b.awk
# 
# Prior to gawk 4.0.0 this outputs:
# 
# 1
# 
# For 4.0.0 and 4.0.1 it outputs:
# 
# 2
# 
# Regards
# Duncan Moore

BEGIN {
    system("echo 1 > f")
    while ((getline a[++c] < "f") > 0) {}
    print c
    system("rm -f f")
}