现在的位置: 首页 > 综合 > 正文

perl 函数参数中传递数组和引用的一些问题

2013年09月22日 ⁄ 综合 ⁄ 共 947字 ⁄ 字号 评论关闭

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

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

 

我就直接引用这本书中的例子了。

 

就是如果我们在参数中传递两个数组的时候,会出现一些问题。

 

sub getarrays{

    my(@a,@b) = @_;

.

.

}

 

@fruit = qw(apples oranges banana);

@veggies = qw(carrot cabbage turnip);

getarrays(@fruit, @veggies);

 

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

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

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

 

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

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

 

sub getarrays{

    my($fruit_ref,$veg_ref) = @_;

.

.

}

 

@fruit = qw(apples oranges banana);

@veggies = qw(carrot cabbage turnip);

getarrays(/@fruit, /@veggies);

 

函数getarrays()总是接收两个值,即两个引用,无论这些引用指向的数组有多长。这时,

$fruit_ref和$veg_ref可以用来显示或编辑数据,如下所示:

 

sub getarrays{

    my($fruit_ref,$veg_ref) = @_;

print "Fruit:" ,join(',', @$fruit_ref);

print "Veggies:",join(',', @veggies_ref);

}

 

当你将对标量、数组或哈希结构的引用作为参数传递给函数时,有几个问题必须记住。

当你传递引用时,函数能够对引用指向的原始数据进行操作

 

所以在使用引用的时候我们应该注意这一点。

抱歉!评论已关闭.