免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 4437 | 回复: 1
打印 上一主题 下一主题

使用mojo进行get的问题请教 [复制链接]

论坛徽章:
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
1 [报告]
发表于 2014-05-21 00:57 |显示全部楼层
1: wo budong mojo
2: line 32, you do nothing
  1.         @arr =  (map { if (m#attachments/download#) { 'http://192.168.1.1'.$_."\n";$_} } @$array);
复制代码
3: try kankan
  1. my @arr =
  2.   map { m#attachments/download# ? 'http://192.168.1.1' . $_ . "\n" : () }
  3.   @$array;
复制代码

论坛徽章:
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
2 [报告]
发表于 2014-05-21 01:22 |显示全部楼层
  1. my @a = qw/1 a 2 b/;
  2. my @b;

  3. for (@a) {
  4.     push @b, 'hello' . $_ if /\d/;
  5. }
  6. say join '|', @b;    # hello1|hello2
  7. say scalar @b;       # 2

  8. my @c = map { /\d/ ? 'hello' . $_ : () } @a;
  9. say join '|', @c;    # hello1|hello2
  10. say scalar @c;       # 2

  11. my @d = map { 'hello' . $_ if /\d/ } @a;
  12. say join '|', @d;    # hello1||hello2|
  13. say scalar @d;       # 4


  14. # Useless use of concatenation (.) or string in void context
  15. my @e = map { if (/\d/) { 'hello' . $_; $_ } } @a;
  16. say join '|', @e;   # 1||2|
  17. say scalar @e;      # 4
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP