免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1094 | 回复: 9

[文本处理] 把矩阵格式,转换成url格式 [复制链接]

论坛徽章:
0
发表于 2017-02-10 13:38 |显示全部楼层
比如下表,都是\t分割的:

  1. upperserver     sid     web_degrade
  2. userus  d_recom         345
  3. userus  d_recom         123
  4. userus  t_search                123
复制代码


我期望转换成url格式:

  1. upperserver=userus&sid=d_recom&web_degrade=345
  2. upperserver=userus&sid=d_recom&web_degrade=123
  3. upperserver=userus&sid=t_search&web_degrade=123
复制代码
如何做呢?

论坛徽章:
28
15-16赛季CBA联赛之八一
日期:2016-02-22 19:10:4215-16赛季CBA联赛之深圳
日期:2016-12-01 10:34:0415-16赛季CBA联赛之新疆
日期:2016-12-07 10:24:2915-16赛季CBA联赛之同曦
日期:2016-12-15 12:06:43CU十四周年纪念徽章
日期:2016-12-18 13:03:4415-16赛季CBA联赛之吉林
日期:2017-01-03 15:52:2515-16赛季CBA联赛之辽宁
日期:2017-01-04 14:58:2415-16赛季CBA联赛之辽宁
日期:2017-01-15 09:42:512016科比退役纪念章
日期:2017-02-06 17:21:50黑曼巴
日期:2017-02-10 15:46:1215-16赛季CBA联赛之上海
日期:2017-03-18 10:14:5415-16赛季CBA联赛之青岛
日期:2017-03-18 22:00:44
发表于 2017-02-10 14:13 |显示全部楼层

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

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
发表于 2017-02-10 14:45 |显示全部楼层
本帖最后由 sunzhiguolu 于 2017-02-10 14:47 编辑

复制代码

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
发表于 2017-02-10 14:47 |显示全部楼层
#!/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

论坛徽章:
0
发表于 2017-02-10 15:06 |显示全部楼层
本帖最后由 linlone 于 2017-02-10 15:10 编辑

回复 2# moperyblue


论坛徽章:
0
发表于 2017-02-10 15:08 |显示全部楼层
回复 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} ?

论坛徽章:
28
15-16赛季CBA联赛之八一
日期:2016-02-22 19:10:4215-16赛季CBA联赛之深圳
日期:2016-12-01 10:34:0415-16赛季CBA联赛之新疆
日期:2016-12-07 10:24:2915-16赛季CBA联赛之同曦
日期:2016-12-15 12:06:43CU十四周年纪念徽章
日期:2016-12-18 13:03:4415-16赛季CBA联赛之吉林
日期:2017-01-03 15:52:2515-16赛季CBA联赛之辽宁
日期:2017-01-04 14:58:2415-16赛季CBA联赛之辽宁
日期:2017-01-15 09:42:512016科比退役纪念章
日期:2017-02-06 17:21:50黑曼巴
日期:2017-02-10 15:46:1215-16赛季CBA联赛之上海
日期:2017-03-18 10:14:5415-16赛季CBA联赛之青岛
日期:2017-03-18 22:00:44
发表于 2017-02-10 15:46 |显示全部楼层
回复 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")}'
复制代码

论坛徽章:
0
发表于 2017-02-10 16:04 |显示全部楼层
回复 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")}'
复制代码


论坛徽章:
28
15-16赛季CBA联赛之八一
日期:2016-02-22 19:10:4215-16赛季CBA联赛之深圳
日期:2016-12-01 10:34:0415-16赛季CBA联赛之新疆
日期:2016-12-07 10:24:2915-16赛季CBA联赛之同曦
日期:2016-12-15 12:06:43CU十四周年纪念徽章
日期:2016-12-18 13:03:4415-16赛季CBA联赛之吉林
日期:2017-01-03 15:52:2515-16赛季CBA联赛之辽宁
日期:2017-01-04 14:58:2415-16赛季CBA联赛之辽宁
日期:2017-01-15 09:42:512016科比退役纪念章
日期:2017-02-06 17:21:50黑曼巴
日期:2017-02-10 15:46:1215-16赛季CBA联赛之上海
日期:2017-03-18 10:14:5415-16赛季CBA联赛之青岛
日期:2017-03-18 22:00:44
发表于 2017-02-10 16:17 |显示全部楼层
回复 8# linlone


ok 能解决问题就好

论坛徽章:
130
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
发表于 2017-02-10 20:20 |显示全部楼层
回复 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

您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

基于案例的 SQL 优化实战训练营

讲师:中电福富特级专家梁敬彬,参与本次课程培训,你将收获:
1. 能编写出较为高效的 SQL;
2. 能解决70%以上的数据库常见优化问题;
3. 能得到老师提供的高效的相关工具和解决方案;
4. 能举一反三,收获不仅仅是 SQL 优化。
现在购票享受8.8折优惠!
----------------------------------------
优惠时间:2019年3月20日前

大会官网>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP