diff options
Diffstat (limited to 'eg')
| -rw-r--r-- | eg/mapred_01.pl | 3 | ||||
| -rw-r--r-- | eg/mapred_02.pl | 3 | ||||
| -rw-r--r-- | eg/mapred_03.pl | 3 |
3 files changed, 3 insertions, 6 deletions
diff --git a/eg/mapred_01.pl b/eg/mapred_01.pl index 76e26b2..f21d916 100644 --- a/eg/mapred_01.pl +++ b/eg/mapred_01.pl @@ -6,9 +6,8 @@ use 5.010; use Net::Riak; my $riak = Net::Riak->new(); -my $result; -$result = $riak->add('goog')->map(get_day_where_high_is('600.00'))->run; +my $result = $riak->add('goog')->map(get_day_where_high_is('600.00'))->run; say "days where high is over 600:"; map { say $_ } sort {$a cmp $b } @$result; diff --git a/eg/mapred_02.pl b/eg/mapred_02.pl index 31ab0eb..be12ce9 100644 --- a/eg/mapred_02.pl +++ b/eg/mapred_02.pl @@ -7,9 +7,8 @@ use YAML; use Net::Riak; my $riak = Net::Riak->new(); -my $result; -$result = $riak->add('goog')->map(days_where_close_is_lower_than_open())->run; +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; diff --git a/eg/mapred_03.pl b/eg/mapred_03.pl index 228260b..9f2e27d 100644 --- a/eg/mapred_03.pl +++ b/eg/mapred_03.pl @@ -6,9 +6,8 @@ use 5.010; use Net::Riak; my $riak = Net::Riak->new(); -my $result; -$result = +my $result = $riak->add('goog')->map(map_max_daily_variance()) ->reduce(reduce_max_daily_variance())->run; say "max daily variance"; |