#! / usr / bin /perl -w
use strict;


open (FH, "$ ARGV [0]") ou morrer;
my @ temp \u003d <FH>;
fechar FH;
my $ média \u003d média (\ @ temp);
my $ var \u003d variância (\ @ temp);
print "$ var \ n";
sub estimate_variance (
my ($ arrayref) \u003d @ _;
my ($ média, $ resultado) \u003d (média ($ arrayref), 0);
foreach (@ $ arrayref) ($ resultado + \u003d ($ _ - $ média) ** 2)
return $ resultado / $ # ($ arrayref);
)
Erro apresentado:
Undefined subrotina & principal:: variância chamada pelo variance_try1.pl linha 9.

WHT pode ser uma solução?

variância () não é um Perl função. Você terá que escrever a sua própria ou encontrar um módulo que pode fazê-lo.

Eu ainda estava tentando fazer isso em C

Seria mais fácil se você tiver usado um módulo de estatísticas padrão comprovado que há um número no CPAN.

Por exemplo, eu ter modificado o seu código para trabalhar com o módulo CPAN Estatísticas / Descritiva

#!/usr/local/bin/perl -w

use strict;
use Statistics::Descriptive;

open(FH, "$ARGV[0]") or die "No file specified\n";
my @temp=<FH>;
close FH;

my $stat = Statistics::Descriptive::Full->new();
$stat->add_data(\@temp);
my $mean = $stat->mean();
my $variance  = $stat->variance();
my $num  = $stat->count();

print "Number of Values = $num\n",
      "Mean             = $mean\n",
      "Variance         = $variance\n";

Caro Shamrock
Eu tenho tentado tanto usando c e perl ..
Então, temos os resultados, tanto em C e perl..
Obrigado por curiosidade