Simple database: Difference between revisions
m
→{{header|Raku}}: Fix code: Perl 6 --> Raku
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: Fix code: Perl 6 --> Raku) |
||
Line 3,510:
=={{header|Raku}}==
(formerly Perl 6)
A generic client/server JSON database.
<b>server.
<lang perl6>#!/usr/bin/env
use JSON::Fast ;
sub MAIN( :$server='0.0.0.0', :$port=3333, :$dbfile='db' ) {
Line 3,616:
}
}</lang>
<b>client.
<lang perl6>#!/usr/bin/env
use JSON::Fast ;
multi MAIN('set', $topic, $message='', :$server='localhost', :$port='3333', :$json='') {
Line 3,668:
}</lang>
Example:
<pre>./client.
./client.
./client.
./client.
./client.
./client.
./client.
./client.
./client.
./client.
./client.
./client.
./client.
./client.
./client.
./client.
=={{header|REBOL}}==
|