把矩阵格式，转换成url格式

linlone

比如下表，都是\t分割的：

1. 
   
2. upperserver     sid     web_degrade
   
3. userus  d_recom         345
   
4. userus  d_recom         123
   
5. userus  t_search                123

复制代码

我期望转换成url格式：

1. 
   
2. upperserver=userus&sid=d_recom&web_degrade=345
   
3. upperserver=userus&sid=d_recom&web_degrade=123
   
4. upperserver=userus&sid=t_search&web_degrade=123

复制代码

如何做呢？

moperyblue

1. awk '/upperserver/{split($0,a);next}{for(i=1;i<=NF;i++)printf a[i]"="$i (i<NF?"&":"\n")}'

复制代码

sunzhiguolu

1. 
   

复制代码

sunzhiguolu

#!/usr/bin/perl
use strict;
use warnings;

local $_ = <DATA>;
my @aData = split;
while (<DATA>){
    my @aT = split;
    @aT = map {"$aData[$_]=$aT[$_]"} 0 .. $#aData;
    print join ("&", splice (@aT, 0)), "\n";
}

__DATA__
upperserver     sid     web_degrade
userus  d_recom         345
userus  d_recom         123
userus  t_search                123

linlone

回复 2# moperyblue

linlone

回复 2# moperyblue

这个不错

1. awk '/upperserver/{split($0,a);next}{for(i=1;i<=NF;i++)printf a[i]"="$i (i<NF?"&":"\n")}'

复制代码

但实际应用中，可能第一个非空行不一定是upperserver，所以，能否改成：如果是第一个非空行，执行{split($0,a);next} ？

moperyblue

回复 6# linlone

1. awk 'NF&&!f{split($0,a);f=1;next}{for(i=1;i<=NF;i++)printf a[i]"="$i (i<NF?"&":"\n")}'

复制代码

linlone

回复 7# moperyblue

我是这么做得

1. sed '/^$/d' _orthogonal_case.txt | awk -F'\t' 'NR==1{split($0,a);next} {for(i=1;i<=NF;i++)printf a[i]"="$i (i<NF?"&":"\n")}'

复制代码

moperyblue

回复 8# linlone


ok 能解决问题就好

jason680

回复 8# linlone

$ awk 'NF{if(!c++){for(n=1;n<=NF;++n)a[n]=$n;next}s=a[1]"="$1;for(n=2;n<=NF;++n)s=s"&"a[n]"="$n;print s}' FILE
upperserver=userus&sid=d_recom&web_degrade=345
upperserver=userus&sid=d_recom&web_degrade=123
upperserver=userus&sid=t_search&web_degrade=123