in reply to Re^4: Calculating Row Averages From a CSV File
in thread Calculating Row Averages From a CSV File

This input:

AAA01,0,0,0,0,0,1
AAA02,0,0,0,0,1,1

[download]

gives this output:

Row average = 0.166666666666667
Row average = 0.333333333333333

[download]

Looks about right to me ;)

Perhaps I should explain the following line:

$_ and $row_sum += $_

[download]

This says "If $_ is true (ie non-zero1), add it to $row_sum".

1 There's more to true and false than I've implied here

Replies are listed 'Best First'.
Re^6: Calculating Row Averages From a CSV File
by rayv (Novice) on Aug 15, 2007 at 14:34 UTC


    Your input 

    AAA01,0,0,0,0,0,1
AAA02,0,0,0,0,1,1

    [download]

    should give this output 

    Row average = 1
Row average = 1

    [download]
[reply]
[d/l]
[select]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom