免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 2724 | 回复: 10

给大家贴个我写错的代码 [复制链接]

论坛徽章:
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
发表于 2012-09-21 10:24 |显示全部楼层
  1. sub t {
  2.     return {'a' .. 'z'}
  3. }

  4. while (my($k, $v) = each %{t()}) {
  5.     print "$k => $v\n";
  6. }
复制代码

论坛徽章:
78
双子座
日期:2013-10-15 08:50:09天秤座
日期:2013-10-16 18:02:08白羊座
日期:2013-10-18 13:35:33天蝎座
日期:2013-10-18 13:37:06狮子座
日期:2013-10-18 13:40:31双子座
日期:2013-10-22 13:58:42戌狗
日期:2013-10-22 18:50:04CU十二周年纪念徽章
日期:2013-10-24 15:41:34巨蟹座
日期:2013-10-24 17:14:56处女座
日期:2013-10-24 17:15:30双子座
日期:2013-10-25 13:49:39午马
日期:2013-10-28 15:02:15
发表于 2012-09-21 10:46 |显示全部楼层
死循环了

论坛徽章:
0
发表于 2012-09-21 11:03 |显示全部楼层
回复 1# zhlong8


    每次调用t()永远返回第一对

论坛徽章:
0
发表于 2012-09-21 11:42 |显示全部楼层
本帖最后由 sjdy521 于 2012-09-21 11:43 编辑

每个hash的迭代器都是独立的,这种错误确实不容易及时发现

论坛徽章:
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
发表于 2012-09-21 11:51 |显示全部楼层
我觉得是这个模式用得太多了潜意识中把 while (($k,$v) = each %hash) {} 当成一种语法,或者说当成迭代器了。比如 ruby 里的 t().each {|k, v| ... }

论坛徽章:
0
发表于 2012-09-21 13:09 |显示全部楼层
谢谢提醒,以后要多注意了。

论坛徽章:
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
发表于 2012-09-21 13:59 来自手机 |显示全部楼层
举一反三下 t() 可以返回任意不同的 hash 引用,所以可以随时切换到另一个 hash 去循环

论坛徽章:
2
技术图书徽章
日期:2013-11-23 01:55:57白羊座
日期:2013-12-08 15:48:16
发表于 2012-09-21 15:21 |显示全部楼层
本帖最后由 7looki 于 2012-09-21 15:30 编辑

回复 1# zhlong8


     贴个each比较有趣的地方:
  1. use strict;
  2. use warnings;
  3. use 5.014;

  4. my @z = qw/a b c/;

  5. foreach ( 6..8 ) {    ## 你也可以改为 4..6, 8..10, 结果都一样
  6.     my ( $x,$y ) = each @z;
  7.     print "$x : $y\n";
  8. }
复制代码
  1. use strict;
  2. use warnings;
  3. use 5.014;

  4. my %z = ( 'a', 'A', 'b', 'B', 'c', 'C' );

  5. foreach ( 6..8 ) {    ## 你也可以改为 4..6, 8..10, 结果还是一样
  6.     my ( $x,$y ) = each %z;
  7.     print "$x : $y\n";
  8. }
复制代码
搞不清原理,不知道 Perl 内部是怎么运作的, 但结果肯定是正确的.

论坛徽章:
78
双子座
日期:2013-10-15 08:50:09天秤座
日期:2013-10-16 18:02:08白羊座
日期:2013-10-18 13:35:33天蝎座
日期:2013-10-18 13:37:06狮子座
日期:2013-10-18 13:40:31双子座
日期:2013-10-22 13:58:42戌狗
日期:2013-10-22 18:50:04CU十二周年纪念徽章
日期:2013-10-24 15:41:34巨蟹座
日期:2013-10-24 17:14:56处女座
日期:2013-10-24 17:15:30双子座
日期:2013-10-25 13:49:39午马
日期:2013-10-28 15:02:15
发表于 2012-09-21 15:53 |显示全部楼层
回复 8# 7looki


    第一个应该是5.14的新用法,我在5.10上都用不了。

               When called in list context, returns a 2-element list
               consisting of the key and value for the next element of a hash,
               or the index and value for the next element of an array, so
               that you can iterate over it.  When called in scalar context,
               returns only the key (not the value) in a hash, or the index in
               an array.

论坛徽章:
1
狮子座
日期:2013-12-16 16:09:24
发表于 2012-09-21 16:43 |显示全部楼层
    while (my($k, $v) = each %{{'a'..'z'}}) {
        print "$k => $v\n";
    }
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

基于案例的 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