1#!/usr/bin/env perl 2use strict; 3use warnings; 4use 5.010; 5 6use Net::Riak; 7 8my $riak = Net::Riak->new(); 9 10my $result = $riak->add('goog')->map(get_day_where_high_is('600.00'))->run; 11say "days where high is over 600:"; 12map { say $_ } sort {$a cmp $b } @$result; 13 14sub get_day_where_high_is { 15 my $val = shift; 16" 17function(value, keyData, arg) { 18 var data = Riak.mapValuesJson(value)[0]; 19 if(data.High && data.High > $val) 20 return [value.key]; 21 else 22 return []; 23} 24"; 25} 26