Wrong percentile result

[ankurparihar]

use Statistics::Descriptive;
my $latencystat = Statistics::Descriptive::Full->new();

$latencystat->clear();
$latencystat->add_data(1, 1, 1, 1, 1, 1, 1, 1, 1, 1);
print ($latencystat->count(), " ", $latencystat->mean(), " ", $latencystat->percentile(99), "\n");

Results in
10 1 19

Expected
10 1 1

Perl version is 5

[shlomif]

This is due to list context. this works:

#! /usr/bin/env perl

use strict;
use warnings;
use 5.014;
use autodie;

use Statistics::Descriptive;
my $latencystat = Statistics::Descriptive::Full->new();

$latencystat->clear();
$latencystat->add_data(1, 1, 1, 1, 1, 1, 1, 1, 1, 1);
print ($latencystat->count(), " ", $latencystat->mean(), " ", scalar($latencystat->percentile(99)), "\n");

can this ticket be closed?

[shlomif]

@ankurparihar :

[ankurparihar]

Thanks for reaching out. Haven't tried this yet.

It can be closed.

[shlomif]

Thanks for reaching out. Haven't tried this yet.

It can be closed.

closing then.