免费注册 查看新帖 |

Chinaunix

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

如何在perl子函数中传递参数 [复制链接]

论坛徽章:
0
发表于 2012-11-13 10:37 |显示全部楼层
我想在perl子函数中传递多个参数,包括数组和标量,如下:
sub func
{
        my($a,$b,$c) = @_;
       
        print "$a\n";
        my $count = 0;
       
        while($count < @b)
        {
                print "$b[$count]\n";
                $count++;
        }
        $count = 0;
        while($count < @c)
        {
                print "$c[$count]\n";
                $count++;
        }
}

my @arry1 = ("fff", "rrr", "www");
my @arry2 = ("ttt", "hhh", "ccc");

func("qqq", @arry1, @arry2);

我想在子函数中使用传进去的两个数组,但是好像不行,请问大神们要怎么处理呢?谢谢

论坛徽章:
0
发表于 2012-11-13 10:47 |显示全部楼层
七夜未央 发表于 2012-11-13 10:37
我想在perl子函数中传递多个参数,包括数组和标量,如下:
sub func
{


传数组引用,在子函数中,接受到引用后,再解引用。

论坛徽章:
0
发表于 2012-11-13 10:53 |显示全部楼层
本帖最后由 kk861123 于 2012-11-13 10:54 编辑

按照仙子指示,我给你改一下吧:
  1. sub func
  2. {
  3.         my($a,$b,$c) = @_;    # 这里$b,$c接受到的是数组的引用
  4.         
  5.         print "$a\n";
  6.         my $count = 0;
  7.         
  8.         while($count < @$b)
  9.         {
  10.                 print "$b->[$count]\n";
  11.                 $count++;
  12.         }
  13.         $count = 0;
  14.         while($count < @$c)
  15.         {
  16.                 print "$c->[$count]\n";
  17.                 $count++;
  18.         }
  19. }

  20. my @arry1 = ("fff", "rrr", "www");
  21. my @arry2 = ("ttt", "hhh", "ccc");

  22. func("qqq", \@arry1, \@arry2); #  这里传入数组的引用

复制代码

论坛徽章:
0
发表于 2012-11-13 15:33 |显示全部楼层
回复 3# kk861123

哇,果然厉害,多谢多谢


   

论坛徽章:
0
发表于 2012-11-13 15:35 |显示全部楼层
回复 2# 兰花仙子

多谢指点,楼下这位大哥代码都帮写了,呵呵~


   

论坛徽章:
2
2015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:58:11
发表于 2012-11-13 15:58 |显示全部楼层
3楼正解。 和楼主一样,对子函数的参数有一些疑问,正好看到这个帖子了。

论坛徽章:
0
发表于 2012-11-13 23:08 |显示全部楼层
回复 3# kk861123

又学习了

论坛徽章:
0
发表于 2014-03-05 14:07 |显示全部楼层
引用就是这个东西,通过它,你能找到我, 然后传送的时候不要理我,你和他打交到就好!

论坛徽章:
1
羊年新春福章
日期:2015-04-28 20:40:58
发表于 2014-04-18 15:15 |显示全部楼层
这样应该也可以。
my($a,@b,@c) = @_; 回复 2# 兰花仙子


   

论坛徽章:
95
程序设计版块每日发帖之星
日期:2015-09-05 06:20:00程序设计版块每日发帖之星
日期:2015-09-17 06:20:00程序设计版块每日发帖之星
日期:2015-09-18 06:20:002015亚冠之阿尔艾因
日期:2015-09-18 10:35:08月度论坛发贴之星
日期:2015-09-30 22:25:002015亚冠之阿尔沙巴布
日期:2015-10-03 08:57:39程序设计版块每日发帖之星
日期:2015-10-05 06:20:00每日论坛发贴之星
日期:2015-10-05 06:20:002015年亚冠纪念徽章
日期:2015-10-06 10:06:482015亚冠之塔什干棉农
日期:2015-10-19 19:43:35程序设计版块每日发帖之星
日期:2015-10-21 06:20:00每日论坛发贴之星
日期:2015-09-14 06:20:00
发表于 2014-04-18 15:57 |显示全部楼层
清泉一边 发表于 2014-04-18 15:15
这样应该也可以。
my($a,@b,@c) = @_; 回复 2# 兰花仙子


`$a` 是第一个参数,`@b` 是剩余的参数,`@c` 是空的。

在用 foo($a, @b, @c) 的方式调用 foo 的时候,@b 和 @c 会被展开,和 $a 一块组成一个大的数组作为 foo 的参数,也即 foo 中的 @_。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

SACC2019中国系统架构师大会

【数字转型 架构演进】SACC2019中国系统架构师大会
2019年10月31日~11月2日第11届中国系统架构师大会(SACC2019)将在北京隆重召开。四大主线并行的演讲模式,1个主会场、20个技术专场、超千人参与的会议规模,100+来自互联网、金融、制造业、电商等领域的嘉宾阵容,将为广大参会者提供一场最具价值的技术交流盛会。




----------------------------------------

大会官网>>
  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP