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


open (FH, "$ ARGV [0]") o morir;
mi @ temp \u003d <FH>;
FH estrecha;
my $ media \u003d Media (\ @ temp);
my $ var \u003d varianza (\ @ temp);
print "$ var \ n";
estimate_variance sub (
my ($ arrayref) \u003d @ _;
my ($ decir, $ resultado) \u003d (media ($ arrayref), 0);
foreach (@ $ arrayref) ($ resultado + \u003d ($ _ - $ media) ** 2)
return $ resultado / $ # ($ arrayref);
)
de error se muestra:
Indefinido subrutina y principal: la varianza en variance_try1.pl llamado la línea 9.

wht solución puede ser posible?

varianza () no es un Perl función. Usted tendrá que escribir su propia o encontrar un módulo que puede hacerlo.

Aunque yo estaba tratando de hacer esto en C

Podría ser más fácil si usted utiliza un módulo de estadísticas demostrado que hay una serie de CPAN.

Por ejemplo, he modificado el código para trabajar con el Módulo de Estadísticas de CPAN / descriptoras

#!/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";

Estimado Shamrock
He intentado tanto y mediante c perl ..
Por lo tanto, tiene resultados, tanto en C y perl..
Gracias por la curiosidad