Distributed programming: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Only mark actual code as being code for ease of automated testing) |
|||
Line 1,171: | Line 1,171: | ||
Server.p6: |
Server.p6: |
||
< |
<pre>./server.p6 --usage |
||
Usage: |
Usage: |
||
server.p6 [--server=<Any>] [--port=<Any>]</ |
server.p6 [--server=<Any>] [--port=<Any>]</pre> |
||
<lang perl6>#!/usr/bin/env perl6 |
<lang perl6>#!/usr/bin/env perl6 |
||
use JSON::Fast ; |
use JSON::Fast ; |
||
Line 1,211: | Line 1,211: | ||
}</lang> |
}</lang> |
||
client.p6: |
client.p6: |
||
< |
<pre>Usage: |
||
client.p6 [--server=<Any>] [--port=<Any>] [--json=<Any>] set <topic> [<message>] |
client.p6 [--server=<Any>] [--port=<Any>] [--json=<Any>] set <topic> [<message>] |
||
client.p6 [--server=<Any>] [--port=<Any>] get <topic> |
client.p6 [--server=<Any>] [--port=<Any>] get <topic> |
||
client.p6 [--server=<Any>] [--port=<Any>] dump</ |
client.p6 [--server=<Any>] [--port=<Any>] dump</pre> |
||
<lang perl6>#!/usr/bin/env perl6 |
<lang perl6>#!/usr/bin/env perl6 |
||
use JSON::Fast ; |
use JSON::Fast ; |
||
Line 1,245: | Line 1,245: | ||
}</lang> |
}</lang> |
||
examples: |
examples: |
||
< |
<pre>echo '{"function":"set","topic":"push","message":["perl5","perl6","rakudo"]}' | nc localhost 3333 |
||
./client.p6 set version perl6 |
./client.p6 set version perl6 |
||
Line 1,265: | Line 1,265: | ||
${:function("dump")} |
${:function("dump")} |
||
${:function("delete"), :topic("version")} |
${:function("delete"), :topic("version")} |
||
</ |
</pre> |
||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |