shell 脚本中的命令替换与替换中的 shell 变量答案

【问题标题】：command substitution in shell script with shell variables within the substitutionshell 脚本中的命令替换与替换中的 shell 变量
【发布时间】：2016-05-16 17:58:10
【问题描述】：

基本上，我得到的文件将前三列粘贴到后面跟着一列空白行，因为它看起来没有任何内容被附加到第 4 列

我觉得我可能不应该使用我在命令替换中创建的变量，但我不确定如何访问这些我需要的数字

#!/bin/sh # the first file in the expression of a bunch of patients to be made into data files that can be put into the graph
awk '{print "hs"$1,"\t",$2,"\t",$3}' $1 > temp1.txt     #important columns saved
numLines=`wc -l $1`     
touch column4.txt       #creates a column for the average of column 6-
for ((s=0;s<$numlines;s++)); do                 
        currentRow=0                            #Will eventually be the average of column 6- for the row of focus
        for ((i=6;i<=106;i++)); do              
                addition=`cut -f $i $1 | head -n $s | tail -n 1`        # cuts out the number at the row and column of focus for this loop
                currentRow=`expr $currentRow + $addition`              # adding the newly extracted number to the total
        done
        currentRow=`expr $currentRow / 101`                            #divides so the number is an average instead of a really big number
        echo $currentRow >> column4.txt                                 #appends this current row into a text file that can be pasted onto the first three columns
done
paste temp1.txt column4.txt
rm temp1.txt column4.txt

如果它有助于输入文件非常大（大约 106 列和数万行），但这是它的示例

Important identifier line grant regis 76 83 02 38 0 38 29 38 48 (..up to to 106 columns)
another important identifier bill susan 98 389 20 29 38 20 94 29 0 (.. same point)

然后输出看起来像（假设我们排除..之后的列）

Important identifier line 34.88
another important identifier 79.67

对不起，如果有什么不清楚的地方，我尽量说清楚，请问您是否有什么想知道的，我会编辑或评论

谢谢

【问题讨论】：

在作业中，删除左侧的$。
numlines 与 numLines 不同。
ShellCheck 指出您混淆了numLines 和numlines 这两个名称，并且您正在使用带有#!/bin/sh 的bash 功能。你能解决这个问题，更新帖子，然后发布你得到的实际输出（或错误）吗？
wc 带有文件名也返回文件名。使用重定向：numlines=`wc -l < "$1"` .
您的输入文件选项卡是否分开？如果它只使用空格，你需要告诉cut：cut -d' '

标签： bash shell variables command-line command-substitution

【解决方案1】：

awk 来救援！

您可以使用此脚本替换所有内容，使用示例输入中的值

$ awk '{for(i=6;i<=NF;i++) sum+=$i; 
        printf "%s %s %s %.2f\n", $1,$2,$3, sum/(NF-5); 
        sum=0}' file

Important identifier line 39.11
another important identifier 79.67

对于中位数（奇数个字段），您可以这样做

$ awk '{for(i=6;i<=NF;i++) a[i-5]=$i; 
        asort(a); 
        mid=(NF-4)/2; print mid, a[mid]}' file

5 38
5 29

对于偶数，一般的方法是取相邻数的平均值（也可以按距离加权平均）。

【讨论】：

谢谢@karakfa！我什至不知道 awk 可以做到这一点，你知道有什么地方可以更好地了解更多关于 awk 的知识吗？我在一堂课上学了几个小时，但我觉得我想了解更多它的能力
还有！有没有办法用这个获得中位数？

【解决方案2】：

您可以尝试使用以下方法：

perl -MList::Util=sum -lanE '@n=grep{/^\d+$/}@F; say "@F[0..4] ",sum(@n)/@n'

打印：

Important identifier line grant regis 39.1111111111111
another important identifier bill susan 79.6666666666667

或精确到

perl -MList::Util=sum -lanE '@n=grep{/^\d+$/}@F; printf "@F[0..4] %.2f\n",sum(@n)/@n'

Important identifier line grant regis 39.11
another important identifier bill susan 79.67

上面计算了行中所有数值的平均值。对于确切的6- 可以使用例如：

perl -MList::Util=sum -lanE 'say "@F[0..4] ",sum(@F[5..@F])/(@F-6)'

也打印

Important identifier line grant regis 39.1111111111111
another important identifier bill susan 79.6666666666667

用于打印both、平均值和中值（奇数或偶数个元素）

perl -MList::Util=sum -lanE '
    @s = sort { $a <=> $b } @F[5..@F];
    $m = int(@s/2);
    printf "@F[0..4] %.2f %d\n",
    sum(@s)/(@s-1),
    (@s % 2) ? @s[$m] : sum(@s[$m-1,$m])/2
' filename

打印：

Important identifier line grant regis 39.11 38
another important identifier bill susan 79.67 29

最后，和上面一样——作为一个带有漂亮变量的 perl 脚本。

use strict;
use warnings;
use List::Util qw(sum);

while(<>) {
    chomp;
    my(@text) = split;
    my(@sorted_numbers) = sort { $a <=> $b } grep { /^\d+$/ } splice @text, 5;

    my $average = sum(@sorted_numbers)/@sorted_numbers;

    my $median;
    my $mid = int(@sorted_numbers / 2);

    if( @sorted_numbers % 2) {
        $median = $sorted_numbers[$mid];
    } else {
        $median  = sum(@sorted_numbers[$mid-1,$mid])/2;
    }
    printf "@text %.2f %d\n", $average, $median;
}

【讨论】：