如何读取多个文本文件，其中填充了计算统计 perl 的列

Question

我正在运行一些网络测量，现在根据这张图片，我得到了大量的时间戳：https://i.stack.imgur.com/TNnBf.png

我想获取平均值，Var和CoV的统计信息，但我遇到的问题是我真的不知道如何读取文本文件，因此我在正确的数组中获得了正确的值。

我看到Bash在这方面被认为很差，所以我决定perl应该更好。这是我到目前为止的尝试：

#!/usr/bin/perl
#foreach $line
$pkt_number  = $1;
$pkt_arrival = $2;
$pkt_size    = $6;
$nr_of_pkg                = 16;
$linespeed                = 100000;
$sum_of_throughput        = 0;
$throughput               = 0;
$sum_of_throughputsquared = 0;
$mean                     = 0;
$var                      = 0;
$co_v                     = 0;
$duration = $pkt_arrival[0] - $pkt_arrival[15];
for (my $i = 0 ; $nr_of_pkg > $pkt_number[i] ; $i++) {
  $throughput[i]             = $packet_size[i] / $pkt_arrival[i];
  $sum_of_throughput         = $sum_of_throughput + $throughput[i];
  $sum_of_throughput_squared = $sum_of_throughput_squared + $throughput[i] * $throughput[i];
}
$mean = $sum_of_throughput / $nr_of_pkg;
$var  = (($sum_of_throughput * $sum_of_throughput) - $sum_of_throughput_squared);
$co_v = sqrt($var)

Answer 1

这是读取和分析文本文件的代码。

my @pkt_number;
my @pkt_arrival;
my @pkt_size;
my $i = 0;
my $line;
while ( <> ) { 
    $line = " $_"; # make sure it always start with a whitespace
    chomp $line;
    ( $pkt_number[$i], $pkt_arrival[$i], $pkt_size[$i] )
        = (split( /s+/, $line, 8 ))[ 1, 2, 6 ];
    printf "[%s]n", join("/", $pkt_number[$i], $pkt_arrival[$i], $pkt_size[$i]);
    $i++;
}

这就是你在 Linux 上运行它的方式：

% cat result.txt | ./your_perl.pl