So, after yesterday, I started back with the command line interface to MongoDB. I found I can do what I want with it, which of course is creating, retrieving, updating and deleting records. So, I try working with Perl, my go-to language, and I install MongoDBx::Class. The following code, especially the
$db->linsert()
is closely adapted from the CPAN page. #!/usr/bin/perl use feature qw{ say state } ; use strict ; use warnings ; use MongoDBx::Class ; my $dbx = MongoDBx::Class->new( namespace => 'MyApp::Model::DB' ) ; my $conn = $dbx->connect(host => 'localhost', port => 27017 , safe => 1 ); my $db = $conn->get_database( 'test' ) ; my @movies ; push @movies , { title => 'Blade Runner' , rating => 'R' , releaseYear => '1982' , hasCreditCookie => 1 } ; push @movies , { title => 'Thor' , rating => 'PG-13' , releaseYear => '2011' , hasCreditCookie => 1 } ; for my $movie ( @movies ) { say qq{$movie->{ title } ($movie->{ releaseYear })}; $db->insert($movie) ; # How the documentation says it should go }
No comments:
Post a Comment