AW: [Linux-Biella] Ancora script

[Luca Bertoncello]

CIARROCCHI Paolo <Paolo.CIARROCCHI@omnitelvodafone.it> schrieb:

> torno alla ribalta con un nuovo problemino  :-)

Capita...

> Si accettano proposte in C, script in bash e perl.

Ti propongo uno script PERL...

Eccolo qua!

#!/usr/bin/perl

open(DATI, "dati.txt");
@dati = <DATI>;
close(DATI);

$count = 0;
$tot   = 0;
foreach $dato (@dati)
  {
    $dato =~ s/[\n\r]//g;
    $tot += $dato;
    $count++;
  }

print "media: ".($tot / $count)."\n";

Ovviamente, dati.txt e' il file con i tuoi dati...

Ciao
Luca