Distributed programming: Difference between revisions

m
→‎{{header|Perl 6}}: Only mark actual code as being code for ease of automated testing
m (→‎{{header|Perl 6}}: Only mark actual code as being code for ease of automated testing)
Line 1,171:
 
Server.p6:
<lang perl6pre>./server.p6 --usage
Usage:
server.p6 [--server=<Any>] [--port=<Any>]</langpre>
<lang perl6>#!/usr/bin/env perl6
use JSON::Fast ;
Line 1,211:
}</lang>
client.p6:
<lang perl6pre>Usage:
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>] dump</langpre>
<lang perl6>#!/usr/bin/env perl6
use JSON::Fast ;
Line 1,245:
}</lang>
examples:
<lang perl6pre>echo '{"function":"set","topic":"push","message":["perl5","perl6","rakudo"]}' | nc localhost 3333
 
./client.p6 set version perl6
Line 1,265:
${:function("dump")}
${:function("delete"), :topic("version")}
</langpre>
 
=={{header|PicoLisp}}==
10,333

edits