File: readfile2.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 (12 lines) | stat: -rw-r--r-- 279 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
 
@load "readfile"
BEGIN { PROCINFO["readfile"] = 1 }
BEGINFILE { print "Start of", basename(FILENAME) }
{ printf ("%d: <%s>\n", FNR, $0 ) }
ENDFILE { print "End of", basename(FILENAME) }

function basename(file,		result)
{
	result = file
	gsub(".*/", "", result)
	return result
}