Blame test/ofs1.awk

Packit Service f629e6
# Translate this shell script into gawk:
Packit Service f629e6
#
Packit Service f629e6
#! /bin/sh -
Packit Service f629e6
# 
Packit Service f629e6
# awktest()
Packit Service f629e6
# {
Packit Service f629e6
#   echo a:b:c | $AWK -F":" '{$2="x"; OFS=FS; print}'
Packit Service f629e6
#   echo a:b:c | $AWK -F":" '{$2="x"; print; OFS=FS; print}'
Packit Service f629e6
#   echo a:b:c | $AWK -F":" '{$2="x"; print $1; OFS=FS; print}'
Packit Service f629e6
#   echo a:b:c | $AWK -F":" '{$2="x"; print; $2=$2; OFS=FS; print}'
Packit Service f629e6
# }
Packit Service f629e6
# 
Packit Service f629e6
# AWK=./gawk
Packit Service f629e6
# awktest > foo.gawk
Packit Service f629e6
Packit Service f629e6
BEGIN { FS = ":" }
Packit Service f629e6
Packit Service f629e6
# Have to reset OFS at end since not running separate invocations
Packit Service f629e6
Packit Service f629e6
FNR == 1 { $2 = "x"; OFS = FS; print ; OFS = " "}
Packit Service f629e6
FNR == 2 { $2 = "x"; print; OFS = FS; print ; OFS = " "}
Packit Service f629e6
FNR == 3 { $2 = "x"; print $1; OFS = FS; print ; OFS = " "}
Packit Service f629e6
FNR == 4 { $2 = "x"; print; $2 = $2; OFS = FS; print }