bash - 如何在shell脚本中垂直解析数据？

Question

我在控制台中打印出这样的数据：

A B C D E
1 2 3 4 5

我想操纵它，所以A:1 B:2 C:3 D:4 E:5打印出来。

最好的方法是什么？我应该标记这两行然后使用数组打印出来吗？

我如何在 bash 中处理它？

Answer 1

awk 对此有好处。

awk 'NR==1{for(i=0;i<NF;i++){row[i]=$i}} NR==2{for(i=0;i<NF;i++){printf "%s:%s",row[i],$i}}' oldfile > newfile

一个更易读的脚本版本：

#!/usr/bin/awk -f

NR == 1 {
    for(i = 0; i < NF; i++) {
        first_row[i] = $i
    }
}
NR == 2 {
    for(i = 0; i < NF; i++) {
        printf "%s:%s", first_row[i], $i
    }
    print ""
}

如果你想让它垂直缩放，你必须说如何。

Answer 2

对于具有任意数量元素的两行：

(read LINE;
 LINE_ONE=($LINE);
 read LINE;
 LINE_TWO=($LINE);
 for i in `seq 0 $((${#LINE_ONE[@]} - 1))`;
 do
     echo ${LINE_ONE[$i]}:${LINE_TWO[$i]};
 done)

要做成对的行只需将其包装在一个循环中。

Answer 3

这可能对您有用：

echo -e "A B C D E FFF GGG\n1 2 3 4 5 666 7" |
sed 's/ \|$/:/g;N;:a;s/\([^:]*:\)\([^\n]*\)\n\([^: ]\+ *\)/\2\1\3\n/;ta;s/\n//'
A:1 B:2 C:3 D:4 E:5 FFF:666 GGG:7

Answer 4

Perl 单行：

perl -lane 'if($.%2){@k=@F}else{print join" ",map{"$k[$_]:$F[$_]"}0..$#F}'

更清晰的版本：

#!/usr/bin/perl 
my @keys;
while (<>) {
  chomp;
  if ($. % 2) {  # odd lines are keys
     @keys = split ' ', $_;
  } else { # even lines are values
     my @values = split ' ', $_;
     print join ' ', map { "$keys[$_]:$values[$_]" } 0..$#values;
  }
}