免费注册 查看新帖 |

Chinaunix

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

perl 脚本求助 [复制链接]

论坛徽章:
0
发表于 2013-03-20 16:04 |显示全部楼层
输入23    36
     56    75
     90     106
     120   145
求输出:1      22
           35    55
           76   89
           107   119
           146—末端

末端已知

论坛徽章:
6
卯兔
日期:2013-11-26 14:52:02丑牛
日期:2014-02-19 18:01:25卯兔
日期:2014-05-20 20:34:06白羊座
日期:2014-05-23 13:39:232015亚冠之大阪钢巴
日期:2015-08-07 20:57:582015亚冠之大阪钢巴
日期:2015-09-02 14:09:09
发表于 2013-03-20 16:46 |显示全部楼层
一头雾水,能清楚描述问题吗?回复 1# 静女,其姝


   

论坛徽章:
0
发表于 2013-03-20 16:58 |显示全部楼层
错了  更正
输入23    36
     56    75
     90     106
     120   145
求输出:1      22
           37    55
           76   89
           107   119
           146—末端
回复 2# 只是一个红薯


   

论坛徽章:
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
发表于 2013-03-20 17:03 |显示全部楼层
{:3_188:}:
  1. #!/usr/bin/perl
  2. my ( $x, $end ) = ( 1, '末端' );
  3. while (<DATA>) {
  4.     my ( $h, $t ) = split;
  5.     print $x, "\t", $h - 1, $/;
  6.     $x = $t + 1;
  7. }
  8. print $x, "\t", $end, $/;
  9. __DATA__
  10. 23    36
  11. 56    75
  12. 90     106
  13. 120   145
复制代码

论坛徽章:
6
卯兔
日期:2013-11-26 14:52:02丑牛
日期:2014-02-19 18:01:25卯兔
日期:2014-05-20 20:34:06白羊座
日期:2014-05-23 13:39:232015亚冠之大阪钢巴
日期:2015-08-07 20:57:582015亚冠之大阪钢巴
日期:2015-09-02 14:09:09
发表于 2013-03-20 17:06 |显示全部楼层
{:3_188:} 回复 4# rubyish


   

论坛徽章:
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
发表于 2013-03-20 17:09 |显示全部楼层
回复 5# 只是一个红薯

{:3_188:} {:3_188:}
   

论坛徽章:
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
发表于 2013-03-20 17:25 |显示全部楼层
本帖最后由 rubyish 于 2013-03-20 13:33 编辑

{:3_188:}{:3_188:}:
  1. #!/usr/bin/perl
  2. my @a = map { ($a, $b) = split; $a - 1, $b + 1 } <DATA>;
  3. @a = ( 1, @a, '末端' );
  4. my @t = ( "\t", "\n" );
  5. print map { $_, $t[$|--] } @a;
  6. __DATA__
  7. 23    36
  8. 56    75
  9. 90     106
  10. 120   145
复制代码

论坛徽章:
0
发表于 2013-03-21 11:58 |显示全部楼层
回复 7# rubyish


    这个的输出结果,貌似也不对啊

论坛徽章:
46
15-16赛季CBA联赛之四川
日期:2018-03-27 11:59:132015年亚洲杯之沙特阿拉伯
日期:2015-04-11 17:31:45天蝎座
日期:2015-03-25 16:56:49双鱼座
日期:2015-03-25 16:56:30摩羯座
日期:2015-03-25 16:56:09巳蛇
日期:2015-03-25 16:55:30卯兔
日期:2015-03-25 16:54:29子鼠
日期:2015-03-25 16:53:59申猴
日期:2015-03-25 16:53:29寅虎
日期:2015-03-25 16:52:29羊年新春福章
日期:2015-03-25 16:51:212015亚冠之布里斯班狮吼
日期:2015-07-13 10:44:56
发表于 2013-03-21 12:33 |显示全部楼层
rubyish 发表于 2013-03-20 17:25
:


给初学者的代码简单明了些为好吧,最好写的像伪代码一样直白。比如这里这个 $| 他怎么可能看得懂

论坛徽章:
0
发表于 2013-03-21 17:28 |显示全部楼层
顶楼上回复 9# zhlong8


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

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP