Question

我的专栏数据如下:

A B C D E
1 2 3 4 5

我愿照此办理B:2 C:3 D:4 E:5。

怎样才能做到这一点? 我是否应标出两条线,然后用阵列加以打印?

我怎么做。

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
1 2 3 4 5 666 7" |
sed  s/ |$/:/g;N;:a;s/([^:]*:)([^
]*)
([^: ]+ *)/213
/;ta;s/
// 
A:1 B:2 C:3 D:4 E:5 FFF:666 GGG:7

Answer 4

Perl 1-liner:

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;
  }
}

友情链接