From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

WBRASWELL / RPerl-7.000000 / script / development / mongodb / mongodb_insert_one_find_one.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

              
#!/usr/bin/env perl
# [[[ HEADER ]]]
use RPerl;
use strict;
use warnings;
our $VERSION = 0.001_000;
# [[[ CRITICS ]]]
## no critic qw(ProhibitUselessNoCritic ProhibitMagicNumbers RequireCheckedSyscalls)  # USER DEFAULT 1: allow numeric values & print operator
## no critic qw(RequireInterpolationOfMetachars)  # USER DEFAULT 2: allow single-quoted control characters & sigils
# [[[ INCLUDES ]]]
use RPerl::Support::MongoDB;
# [[[ OPERATIONS ]]]
#my MongoDB::MongoClient $my_client = MongoDB::MongoClient->new();                                       # YES SUPPORT, default value
my MongoDB::MongoClient $my_client = MongoDB::MongoClient->new({host => 'mongodb://localhost:27017'});  # YES SUPPORT, host parameter
#my MongoDB::MongoClient $my_client = MongoDB::MongoClient->new({host => q{mongodb://localhost:27017}}); # YES SUPPORT, host parameter
#my MongoDB::MongoClient $my_client = MongoDB::MongoClient->new({host => 'localhost', port => 27_017});  # NO  SUPPORT, parsing of non-host parameters not yet implemented in ConstructorCall.pm
my string $my_database_name = 'rperl_test_database';
print {*STDERR} 'have $my_database_name = ', $my_database_name, "\n";
#my MongoDB::Database $my_database = $my_client->get_database($my_database_name);          # NO  SUPPORT, unwrapped calling convention, OO
#my MongoDB::Database $my_database = $my_client->mongodb_get_database($my_database_name);  # NO  SUPPORT,   wrapped calling convention, OO
my MongoDB::Database $my_database = mongodb_get_database($my_client, $my_database_name);   # YES SUPPORT,   wrapped calling convention, procedural
#print {*STDERR} 'have $my_database = ', Dumper($my_database), "\n";  # ERROR IN C++
my string $my_collection_name = 'rperl_test_collection';
print {*STDERR} 'have $my_collection_name = ', $my_collection_name, "\n";
#my MongoDB::Collection $my_collection = $my_database->get_collection($my_collection_name);          # NO  SUPPORT, unwrapped calling convention, OO
#my MongoDB::Collection $my_collection = $my_database->mongodb_get_collection($my_collection_name);  # NO  SUPPORT,   wrapped calling convention, OO
my MongoDB::Collection $my_collection = mongodb_get_collection($my_database, $my_collection_name);   # YES SUPPORT,   wrapped calling convention, procedural
#print {*STDERR} 'have $my_collection = ', Dumper($my_collection), "\n";  # ERROR IN C++
# DEV NOTE: optional scalar data types specified in bson_build() input data for $my_document, but not in call to mongodb_find_one() below, 
# either way should work due to MongoDB C++ driver's BSON stream mechanism automatically determining data type
my bson_document $my_document = bson_build({
    name => my string $TYPED_name = 'rperl_test_data',
    source => my string $TYPED_source = 'Perl',
    foo_integer => my integer $TYPED_foo_integer = 1,
    foo_string_arrayref => my bson_arrayref $TYPED_foo_string_arrayref = ['abc', 'def', 'ghi'],
    foo_integer_hashref => my bson_hashref  $TYPED_foo_integer_hashref = { x => 203, y => 102 }
});
#my MongoDB::InsertOneResult $my_result = $my_collection->insert_one($my_document);          # NO  SUPPORT, unwrapped calling convention, OO
#my MongoDB::InsertOneResult $my_result = $my_collection->mongodb_insert_one($my_document);  # NO  SUPPORT,   wrapped calling convention, OO
my MongoDB::InsertOneResult $my_result = mongodb_insert_one($my_collection, $my_document);   # YES SUPPORT,   wrapped calling convention, procedural
#print {*STDERR} 'have $my_result = ', Dumper($my_result), "\n";  # ERROR IN C++
#my bson_document__optional $my_found_data = $my_collection->find_one({ name => 'rperl_test_data' });          # NO  SUPPORT, unwrapped calling convention, OO
#my bson_document__optional $my_found_data = $my_collection->mongodb_find_one({ name => 'rperl_test_data' });  # NO  SUPPORT,   wrapped calling convention, OO
my bson_document__optional $my_found_data = mongodb_find_one($my_collection, bson_build({ name => 'rperl_test_data' }));   # YES SUPPORT,   wrapped calling convention, procedural
if ($my_found_data) { print {*STDERR} 'have    $my_found_data = ', bson_Dumper($my_found_data), "\n"; }
else                { print {*STDERR} 'have NO $my_found_data', "\n"; }