9 lines
209 B
Awk
9 lines
209 B
Awk
BEGIN {
|
|
NetService = "/inet/tcp/8888/0/0"
|
|
NetService |& getline # sets $0 and the fields
|
|
CatPipe = ("cat " $1)
|
|
while ((CatPipe | getline) > 0)
|
|
print $0 |& NetService
|
|
close(NetService)
|
|
}
|