18 lines
272 B
Awk
18 lines
272 B
Awk
|
#!/usr/bin/awk -f
|
||
|
|
|
||
|
|
# Downloadable example 4 for GNU Awk Part 15
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
if (ARGC != 2 ) {
|
||
|
|
print "Needs a file name argument" > "/dev/stderr"
|
||
|
|
exit
|
||
|
|
}
|
||
|
|
|
||
|
|
data = ARGV[1]
|
||
|
|
|
||
|
|
while ( (getline line < data) > 0 )
|
||
|
|
print line
|
||
|
|
close(data)
|
||
|
|
}
|
||
|
|
|