blob: be12ce99e8a082cf2148535100c9d7d62037c118 (
plain) (
blame)
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
|
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use YAML;
use Net::Riak;
my $riak = Net::Riak->new();
my $result = $riak->add('goog')->map(days_where_close_is_lower_than_open())->run;
say "days where close is lower than open";
map { say $_ } sort {$a cmp $b} @$result;
sub days_where_close_is_lower_than_open {
"
function(value, keyData, arg) {
var data = Riak.mapValuesJson(value)[0];
if(data.Close < data.Open)
return [value.key];
else
return [];
}
";
}
|