qse/ase/cmd/awk/t17.awk
2008-03-21 03:49:53 +00:00

19 lines
284 B
Awk

/hello[[:space:]]/ {
print $0;
print "INTERNAL LOOP NF=" NF;
for (i = 0; i < NF; i++)
{
print "[" $(i+1) "]";
}
#getline a;
#print a;
if (getline > 0) print $0;
print "GETLINE NF=" NF;
for (i = 0; i < NF; i++)
{
print "[" $(i+1) "]";
}
print "----------------";
}