[rlug] Re: utilitare aritmetice

[zavandi]

Dan Andrei Nestor wrote:
>         exista vreun program care sa imi faca niste functii matematice pe 
> liniile dintr-un fisier, presupunand ca acestea contin un numar  (gen 
> suma, medie, etc.)???

In Perl e bine?

#!/usr/bin/perl
while (<>) {
         if (/^\d+(\.\d+)?$/) {
                 $lines++;
                 $sum+=$_;
         }
         elsif (!/^$/) {
                 print "non-number: ",$_;
         }
}
print "Suma e ",$sum,"\n";
print "Media e ",$sum/$lines,"\n";