计算并汇总特定的十进制数字（bash，awk，perl）

Question

我有一个制表符分隔的文件，我想在输出（1.5）每次找到数字时都将某个十进制数字求和，而不是将字符排到第一列，并打印出从第一行到最后一行的所有行的结果。

我有看起来像这样的示例文件：

它有8行

  1st-column 2nd-Column

  a             ship
  1             name     
  b            school
  c             book
  2             blah
  e             blah
  3             ...
  9             ...

现在，我希望我的脚本逐行读取，如果它发现数字总和为1.5，则只为第一列提供输出，如下所示：

  0
  1.5
  1.5
  1.5
  3
  3
  4.5
  6

我的脚本是：

  #!/bin/bash
  for c in {1..8}
  do
  awk 'NR==$c { if (/^[0-9]/) sum+=1.5} END {print sum }' file
  done

但我没有任何输出！

感谢您的帮助。

Answer 1

您的预期输出中的最后一项似乎不正确。 如果是，则可以执行以下操作：

$ awk '$1~/^[[:digit:]]+$/{sum+=1.5}{print sum+0}' file
0
1.5
1.5
1.5
3
3
4.5
6

Answer 2

use warnings;
use strict;

my $sum = 0;
while (<DATA>) {
    my $data = (split)[0]; # 1st column
    $sum += 1.5 if $data =~ /^\d+$/;
    print "$sum\n";
}

__DATA__
a             ship
1             name     
b            school
c             book
2             blah
e             blah
3             ...
6             ...

Answer 3

怎么样

perl -lane 'next unless $F[0]=~/^\d+$/; $c+=1.5; END{print $c}' file 

要么

awk '$1~/^[0-9]+$/{c+=1.5}END{print c}' file 

这些只会产生最终的总和，就像您的脚本会做的那样。 如果要显示数字的增长，请使用：

perl -lane 'BEGIN{$c=0}$c+=1.5 if $F[0]=~/^\d+$/; print "$c"' file 

要么

awk 'BEGIN{c=0}{if($1~/^[0-9]+$/){c+=1.5}{print c}}' file

Answer 4

为什么不使用awk：

awk '{if (/^[0-9]+[[:blank:]]/) sum+=1.5} {print sum+0 }' file

根据jaypal的答案进行了简化编辑，限制了数字并使用制表符和空格。

Answer 5

我不确定每次$ 1中是否有任何数字时，是否要将第一个字段乘以1.5或将1.5加到总和上，否则忽略该行的内容。 这都是awk，使用示例数据作为“文件”的内容。

$ awk '$1~/^[0-9]+$/{val=$1*1.5}{print val+0}' file 0 1.5 1.5 1.5 3 3 4.5 9

$ awk '$1~/^[0-9]+$/{sum+=1.5}{print sum+0}' file 0 1.5 1.5 1.5 3 3 4.5 6

或者，假设数据在STDIN上，则在这里使用ksh（或者bash（如果您有更新的bash可以执行浮点数学运算））

#!/usr/bin/ksh
sum=0
while read a b
do
  [[ "$a" == +([0-9]) ]] && (( sum += 1.5 ))
  print $sum
done