免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12
最近访问板块 发新帖
楼主: xin2v
打印 上一主题 下一主题

[文本处理] 请教高难度 shell脚本 搞定加微信发红包奖励 [复制链接]

论坛徽章:
0
11 [报告]
发表于 2019-04-12 13:42 |只看该作者
  1. BEGIN {
  2. FS="|"
  3. OFS="|"
  4. dictx_str="OTH,Citizen,Dual_Citizen,Resident,"

  5. split(dictx_str,dictx_arr,",")
  6.   for(i in dictx_arr){
  7.     key_["\""dictx_arr[i]"\""]=1
  8.   }
  9. #  for(i in key_)print i
  10. }


  11. func process_l()
  12. {
  13.   if(($5~/^.Citizen.$/) || ($5~/^.Dual_Citizen.$/)){
  14.     $6="\"US\""
  15.     print
  16.     return
  17.   }
  18.   if ($5~/^..$/){
  19.     $6="\"DKK_US\""
  20.     print
  21.     return
  22.   }
  23.   if ($5 in key_){
  24.     print
  25.     return
  26.   }
  27. }

  28. {
  29. process_l()
  30. }
复制代码

我去, 我竟然写这个东西了 呵呵
awk -f   thisfile  /url 运行

论坛徽章:
0
12 [报告]
发表于 2021-07-16 17:10 |只看该作者
  1. perl -F'\|' -ane 'if($F[4]=~/^\"OTH\"$|^\"Resident\"$/){pass}elsif($F[4]=~/^\"Citizen\"$|^\"Dual_Citizen\"$/){$F[5]="\"US\""}elsif($F[4]=~/^\"\"$/){$F[5]="\"DKK_US\""}else{@F=()};splice(@F, 4, 1);for($i=0;$i<scalar(@F);$i++){if($i eq scalar(@F)-1){print "@F[$i]"}else{print "@F[$i]|"}}' A
复制代码

论坛徽章:
0
13 [报告]
发表于 2023-03-08 17:24 |只看该作者
帮不上忙,顶一下!
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP