[rlug] Re: utilitare aritmetice

[Dan Andrei Nestor]

este perfect, multumesc. intre timp am descoperit o solutie si cu awk 
(care era chiar in pagina man)
rtfm, eh?
d.






zavandi <[EMAIL PROTECTED]>
Sent by: [EMAIL PROTECTED]
07/26/2003 06:28 PM
Please respond to rlug

 
        To:     [EMAIL PROTECTED]
        cc: 
        Subject:        [rlug] Re: utilitare aritmetice



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";