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)
|
||
|
|
}
|