File: setrec1.awk

package info (click to toggle)
gawk 1%3A5.1.0-1
  • links: PTS
  • area: main
  • in suites: bullseye
  • size: 22,628 kB
  • sloc: ansic: 52,745; awk: 13,172; yacc: 6,774; sh: 5,744; makefile: 2,838; sed: 135; csh: 6
file content (9 lines) | stat: -rw-r--r-- 116 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
function reassign(x, y) {
   $0 = x
   print y
}

BEGIN {
   $0 = substr("geronimo", 5, 3)
   reassign(" 52", $1)
}