Simple database: Difference between revisions

m
→‎{{header|Raku}}: Fix code: Perl 6 --> Raku
(Rename Perl 6 -> Raku, alphabetize, minor clean-up)
m (→‎{{header|Raku}}: Fix code: Perl 6 --> Raku)
Line 3,510:
=={{header|Raku}}==
(formerly Perl 6)
A generic client/server JSON database. <br>
<b>server.p6raku:</b>
<lang perl6>#!/usr/bin/env perl6raku
use JSON::Fast ;
sub MAIN( :$server='0.0.0.0', :$port=3333, :$dbfile='db' ) {
Line 3,616:
}
}</lang>
<b>client.p6raku:</b>
<lang perl6>#!/usr/bin/env perl6raku
use JSON::Fast ;
multi MAIN('set', $topic, $message='', :$server='localhost', :$port='3333', :$json='') {
Line 3,668:
}</lang>
Example:
<pre>./client.p6raku addindex constructor
./client.p6raku addindex date
 
./client.p6raku add 2007 '{"date":"2007-11-04","constructor":"Ducati","name":"Casey Stoner"}'
./client.p6raku add 2008 '{"date":"2008-10-26","constructor":"Yamaha","name":"Valentino Rossi"}'
./client.p6raku add 2009 '{"date":"2009-11-08","constructor":"Yamaha","name":"Valentino Rossi"}'
./client.p6raku add 2010 '{"date":"2010-11-17","constructor":"Yamaha","name":"Jorge Lorenzo"}'
./client.p6raku add 2011 '{"date":"2011-11-06","constructor":"Honda","name":"Casey Stoner"}'
./client.p6raku add 2012 '{"date":"2012-11-11","constructor":"Yamaha","name":"Jorge Lorenzo"}'
./client.p6raku add 2013 '{"date":"2013-11-10","constructor":"Honda","name":"Marc Márquez"}'
./client.p6raku add 2014 '{"date":"2014-11-09","constructor":"Honda","name":"Marc Márquez"}'
./client.p6raku add 2015 '{"date":"2015-11-08","constructor":"Yamaha","name":"Jorge Lorenzo"}'
./client.p6raku add 2016 '{"date":"2016-11-13","constructor":"Honda","name":"Marc Márquez"}'
./client.p6raku add 2017 '{"date":"2017-11-12","constructor":"Honda","name":"Marc Márquez"}'
 
./client.p6raku reportlast
./client.p6raku reportlastindex constructor
./client.p6raku reportindex date</pre>
 
=={{header|REBOL}}==
2,392

edits