diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2020-12-27 21:44:25 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2020-12-27 21:44:25 +0200 |
| commit | ce2fcf704aac494b44c78a34c714732685dfc1ad (patch) | |
| tree | 2b299a1e61dafbf9dc0f37344693a20d8be770b8 /awklib/eg/network/catpipeserver.awk | |
| parent | e4f1018b3b4ff27d109832210a2e5914e62f9bf9 (diff) | |
| download | egawk-ce2fcf704aac494b44c78a34c714732685dfc1ad.tar.gz egawk-ce2fcf704aac494b44c78a34c714732685dfc1ad.tar.bz2 egawk-ce2fcf704aac494b44c78a34c714732685dfc1ad.zip | |
More updates to gawkinet.texi.
Diffstat (limited to 'awklib/eg/network/catpipeserver.awk')
| -rw-r--r-- | awklib/eg/network/catpipeserver.awk | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/awklib/eg/network/catpipeserver.awk b/awklib/eg/network/catpipeserver.awk new file mode 100644 index 00000000..f3ab0c1e --- /dev/null +++ b/awklib/eg/network/catpipeserver.awk @@ -0,0 +1,8 @@ +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) +} |