忘记密码   免费注册 查看新帖 | 论坛精华区

ChinaUnix.net

  平台 论坛 博客 认证专区 大话IT HPC论坛 徽章 文库 沙龙 自测 下载 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 480 | 回复: 3

perl脚本求助,循环的问题 [复制链接]

论坛徽章:
0
发表于 2017-04-19 11:35 |显示全部楼层
我有两个文件,一个文件数据很少,例如:
cat a.txt
a
b
c
另一个文件数据比较多,例如:
cat b.txt
1
2
3
4
5
6
7
8
9
10

现在需要将b的数据,每两行和a进行配对,如果a不足,要从头再开始,要求的结果是:
a=>1
a=>2
b=>3
b=>4
c=>5
c=>6
a=>7
a=>8
b=>9
b=>10
...
求各位指点下,实在想不出来了

论坛徽章:
306
程序设计版块每周发帖之星
日期: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-04-19 12:45 |显示全部楼层
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;

  4. my @aData = ();
  5. while(<DATA>){
  6.         last if(/\A\Z/);
  7.         my ($k) = split;
  8.         push(@aData, $k);
  9. }

  10. my ($pos, @aT) = (0, ());
  11. while(<DATA>){
  12.         my ($v) = split;
  13.         next if(push(@aT, $v) <= 1);
  14.         $pos %= @aData;
  15.         print("$aData[$pos] => $_\n") for splice(@aT, 0);
  16.         $pos++;
  17. }

  18. __DATA__
  19. a
  20. b
  21. c

  22. 1
  23. 2
  24. 3
  25. 4
  26. 5
  27. 6
  28. 7
  29. 8
  30. 9
  31. 10
复制代码

论坛徽章:
0
发表于 2017-04-19 14:23 |显示全部楼层
perl  ab.pl a.txt b.txt > c.txt
  1. #!/usr/bin/perl
  2. my $true = pop;
  3. my @loop = grep { chomp } <>;
  4. @ARGV = $true;

  5. while ($true) {
  6.     for (@loop) {
  7.         print "$_=>", <> // exit;
  8.         print "$_=>", <> // exit;
  9.     }
  10. }
复制代码

论坛徽章:
7
戌狗
日期:2013-12-15 20:43:38技术图书徽章
日期:2014-03-05 01:33:12技术图书徽章
日期:2014-03-15 20:31:17未羊
日期:2014-03-25 23:48:20丑牛
日期:2014-04-07 22:37:44巳蛇
日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛
日期:2016-03-17 20:36:13
发表于 2017-04-21 02:30 |显示全部楼层
perl abc.pl a.txt b.txt > c.txt
  1. #!/usr/bin/perl
  2. $_    = pop;
  3. @_    = grep chomp, <>;
  4. @ARGV = $_;
  5. print "$_[($.-1)/2%@_]=>$_" while <>;
复制代码

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

本版积分规则

SACC2017购票8.8折优惠进行时

2017中国系统架构师大会(SACC2017)将于10月19-21日在北京新云南皇冠假日酒店震撼来袭。今年,大会以“云智未来”为主题,云集国内外顶级专家,围绕云计算、人工智能、大数据、移动互联网、产业应用等热点领域展开技术探讨与交流。本届大会共设置2大主会场,18个技术专场;邀请来自互联网、金融、制造业、电商等多个领域,100余位技术专家及行业领袖来分享他们的经验;并将吸引4000+人次的系统运维、架构师及IT决策人士参会,为他们提供最具价值的交流平台。
----------------------------------------
优惠时间:2017年8月2日前

活动链接>>
  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP