Shell Programming and Scripting

Hi All

I have this csv file and I need to calculate the average of FPS.

FPS:27.7420, Interval:1314184238772
FPS:25.9798, Interval:1314184242646
FPS:27.4772, Interval:1314184246311
FPS:26.1623, Interval:1314184250159
FPS:26.4515, Interval:1314184253972
FPS:31.5896, Interval:1314184257163
FPS:28.3603, Interval:1314184260721
FPS:35.1411, Interval:1314184263592
FPS:29.7366, Interval:1314184266988
FPS:31.6124, Interval:1314184270175
FPS:30.0630, Interval:1314184273526
FPS:30.0121, Interval:1314184276884
FPS:30.1730, Interval:1314184280225
FPS:32.0201, Interval:1314184283374
FPS:33.6685, Interval:1314184286370
FPS:29.6085, Interval:1314184289923
FPS:28.7976, Interval:1314184293421
FPS:28.4840, Interval:1314184296959
FPS:31.9299, Interval:1314184300116
FPS:33.3468, Interval:1314184303149
FPS:26.6828, Interval:1314184306921
FPS:28.3489, Interval:1314184310474
FPS:31.2881, Interval:1314184313696
FPS:27.0431, Interval:1314184317593
FPS:33.4533, Interval:1314184320608
FPS:32.1011, Interval:1314184323749
FPS:25.5846, Interval:1314184327682
FPS:33.6376, Interval:1314184330681
FPS:33.4556, Interval:1314184333703
FPS:28.3385, Interval:1314184337256
FPS:35.1694, Interval:1314184340127
FPS:27.0235, Interval:1314184343855
FPS:31.5202, Interval:1314184347054
FPS:31.5341, Interval:1314184350251
FPS:32.8578, Interval:1314184353322

Anyone know how to solve it by using perl script?

In awk ..

Code:

$ nawk -F"[:,]" '{print $2|"xargs"}' infile | nawk '{s=0; for (i=1; i<=NF; i++) s=s+$i; print "Average : "s/NF}'

Hi jayan_jay

Thanks for your help. Let say my csv file name is fps.csv

should I open or declare fps.csv before use your code?

Code:

$ nawk -F"[:,]" '{print $2|"xargs"}' infile | nawk '{s=0; for (i=1; i<=NF; i++) s=s+$i; print "Average : "s/NF}'

Corrected the filename and now try with the below command

Code:

$ nawk -F"[:,]" '{print $2|"xargs"}' fps.csv | nawk '{s=0; for (i=1; i<=NF; i++) s=s+$i; print "Average : "s/NF}'

I try the code and name the perl program as ami.pl . Im running this perl script on windows 7 and I already installed active perl on my pc. Seems like nothing happened in csv file.

---------- Post updated at 03:15 AM ---------- Previous update was at 03:10 AM ----------

Is there any conflict or problem if I run the given code on windows?

read about the split function in the perl

the above posted code will not work in windows.

---------- Post updated at 02:11 PM ---------- Previous update was at 02:05 PM ----------

Code:

 
$ perl -e 'my $total=0; while (<>) { chomp; my $value = (split /([,:])/)[2]; $total=$value+$total; }print $total/$.' fps.csv
30.1827114285714

Halo itkamaraj

I try to run this code (ami.pl)

Code:

$ perl -e 'my $total=0; while (<>) { chomp; my $value = (split /([,:])/)[2]; $total=$value+$total; }print $total/$.' fps.csv

but still can't work. I place my fps.csv and ami.pl in one folder at my dekstop. Once I click ami.pl it will just pop out and nothing happened in fps.csv. I try to add break; at the end of the code but still the .pl file close automtically.