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


open (FH, "$ ARGV [0]") o di morire;
my @ temp \u003d <FH>;
vicino FH;
my $ media \u003d media (\ @ temp);
my $ var \u003d varianza (\ @ temp);
print "$ var \ n";
sub estimate_variance (
my ($ arrayref) \u003d @ _;
my ($ media, $ risultato) \u003d (media ($ arrayref), 0);
foreach (@ $ arrayref) ($ result + \u003d ($ _ - $ media) ** 2)
return $ risultato / $ # $ arrayref ();
)
errore visualizzato:
Undefined subroutine & principale:: varianza chiamato a variance_try1.pl linea 9.

WHT può essere possibile soluzione?

varianza () non è un Perl funzione. Avrete bisogno di scrivere la propria o trovare un modulo che può farlo.

Io se sono state cercando di fare questo in C

Potrebbe essere più facile se hai usato un modulo standard dimostrato le statistiche di cui ci sono un numero su CPAN.

Ad esempio, ho modificato il codice per funzionare con il modulo CPAN Statistiche / Descrizione

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

Cari Shamrock
Ho provato sia utilizzando c e perl ..
Così ha risultati sia in C e perl..
Grazie per la curiosità