Question

I m still in here. ;) I ve got this code from a very expert guy, and I m shy to ask him this basic questions...anyway this is my question now; this Perl Script prints the median of a column of numbers delimited space, and, I added some stuff to get the size of it, now I m trying to get the sum of the same column. I did and got not results, did I not take the right column? ./stats.pl 1 columns.txt
#!/usr/bin/perl

use strict;
use warnings;

my $index = shift;
my $filename = shift;
my $columns = [];

open (my $fh, "<", $filename) or die "Unable to open $filename for reading
";

for my $row (<$fh>) {

my @vals = split/s+/, $row;
push @{$columns->[$_]}, $vals[$_] for 0 .. $#vals;
}

close $fh;

my @column = sort {$a <=> $b} @{$columns->[$index]};

my $offset = int($#column / 2);
my $length = 2 - @column % 2;

my @medians = splice(@column, $offset, $length);

my $median;
$median += $_ for @medians;
$median /= @medians;

print "MEDIAN = $median
";
################################################
my @elements = @{$columns->[$index]};
my $size = @elements;
print "SIZE = $size
";
exit 0;
#################################################
my $sum = @{$columns->[$index]};
for (my $size=0; $size < $sum; $size++)  { 
my $mean = $sum/$size;
};
print "$mean
";

预先感谢。

Answer 1

• 看到你去做的一些要点:

你们可以把所有数字纳入一个阵列:

my @result = split(m/d+/, $line);
#average 
use List::Util qw(sum);
my $sum = sum(@result);

然后,如果指数是你想要查阅的一栏数,则你可以查阅<代码>(单位:美元/代码>)。

2. 还注意到:

$total = $line + $total;
$count = $count + 1;

可以改写为:

$total += $line;
$count += 1;

最后,确保你阅读档案:

a. 将“de”印成正文:

print $line, "
";

这应当使你:

友情链接