Perl函数参数中传递数组和引用的使用

本文和大家重点讨论一下Perl函数参数中传递数组和引用的使用，今天看到这个问题可以通过传递参数引用来解决，所以打算写下来，希望可以帮到大家。

建网站原本是网站策划师、网络程序员、网页设计师等，应用各种网络程序开发技术和网页设计技术配合操作的协同工作。成都创新互联公司专业提供成都做网站、成都网站建设,网页设计,网站制作(企业站、自适应网站建设、电商门户网站)等服务,从网站深度策划、搜索引擎友好度优化到用户体验的提升,我们力求做到极致!

Perl函数参数中传递数组和引用

今天看到了在Perl函数参数中传递引用的一段文章，其中讲到了一个问题，自己以前还碰到过，不过***是通过其他办法绕过去了。

今天看到这个问题可以通过传递参数引用来解决，所以打算写下来，希望可以帮到大家。

我就直接引用这本书中的例子了，就是如果我们在参数中传递两个数组的时候，会出现一些问题。

 
 
 

  
  
  
subgetarrays{  
  
  
  
 
  
  
  
my(@a,@b)=@_;  
  
  
  
.  
  
  
  
.  
  
  
  
}  
  
  
  
 
  
  
  
@fruit=qw(applesorangesbanana);  
  
  
  
 
  
  
  
@veggies=qw(carrotcabbageturnip);  
  
  
  
 
  
  
  
getarrays(@fruit,@veggies);  
  
  
  
 
 
 
 

 上面这段代码我们预期@fruit会赋值给@a，@veggies赋值给@b，但其实结果不是那样的。

Perl函数参数在调用getarrays(@fruit,@veggies)的时候，其把参数@fruit和@veggies压缩到单个数组@_中。

这样在getarrays函数内部，就会把@_赋值给@a，即就是@fruit和@veggies都赋值给@a了。

我们根本无法知道一个数组何时结束以及下一个数组何时开始，因为我们只知道@_.

这时传递参数引用可以很好的解决这个问题。即我们没有必要传递整个数组，只要传递相关数组的引用就可以了。

 
 
 

  
  
  
subgetarrays{  
  
  
  
 
  
  
  
my($fruit_ref,$veg_ref)=@_;  
  
  
  
 
  
  
  
}  
  
  
  
 
  
  
  
@fruit=qw(applesorangesbanana);  
  
  
  
 
  
  
  
@veggies=qw(carrotcabbageturnip);  
  
  
  
 
  
  
  
getarrays(\@fruit,\@veggies);  
  
  
  
 
 
 
 

 函数getarrays()总是接收两个值，即两个引用，无论这些引用指向的数组有多长。这时，$fruit_ref和$veg_ref可以用来显示或编辑数据，如下所示：

 
 
 

  
  
  
subgetarrays{  
  
  
  
 
  
  
  
my($fruit_ref,$veg_ref)=@_;  
  
  
  
 
  
  
  
print"Fruit:",join(',',@$fruit_ref);  
  
  
  
 
  
  
  
print"Veggies:",join(',',@veggies_ref);  
  
  
  
 
  
  
  
}  
  
  
  
 
 
 
 

 当你将对标量、数组或哈希结构的引用作为参数传递给函数时，有几个问题必须记住。当你传递引用时，Perl函数参数能够对引用指向的原始数据进行操作，所以在使用引用的时候我们应该注意这一点。

当前标题：Perl函数参数中传递数组和引用的使用
网页路径：http://www.hantingmc.com/qtweb/news30/242430.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联