对于如下C程序:
#include<stdio.h>
void swap (int a, int b) {
int temp;
temp = a;
a = b;
b = temp;
}
int main () {
int a = 1;
int b = 2;
swap(a, b);
printf("a = %d, b = %d\n", a, b);
}
我们知道,程序的结果是 a = 1, b = 2, 也就是说并没有交换:因为在调用swap函数时进行的是值传递,而在swap函数中的a,b的值的地址与main函数中a和b的地址不同,所以进行交换的仅仅是swap函数中的a,b的地址对应的值,在调用完swap函数后这段地址空间就被释放了,而对main中的变量值没有任何影响。
如果想要进行交换,就需要进行地址传递:
#include<stdio.h>
void swap (int *a, int *b) {
int temp;
temp = *a;
*a = *b;
*b = temp;
}
int main () {
int a = 1;
int b = 2;
swap(&a, &b);
printf("a = %d, b = %d\n", a, b);
}
这样,a b的值就交换成功了:main函数调用swap时传入的是main函数中的a,b变量的地址,而swap函数对这两个地址中的内容进行了交换。
同理,在perl中,同样存在值传递和地址传递的问题:
my $scalar = "Hello";
my $array = ("Hello", "World");
my $scal_ref = \$scalar;
my $arr_ref = \@array;
## compare
my $scalar_com = $scalar;
my $array_0 = $array[0];
## modify the value
$$scal_ref = "Hello222";
${$arr_ref}[0] = "Hello222";
$scalar_com = "Hello333";
$array_0 = "Hello333";
printf("scalar value: $scalar\n");
printf("array0 value: $array[0]\n");
printf("scalar value: $scalar_com\n");
printf("array0 value: $array_0\n");
在上述代码中,$scalar 和数组 @array 的地址分别传递给了 $scal_ref 和 $arr_ref,而它们的值则分别传递给 $scalar_com 和 $array_0。
原理同C,所以在对 $scal_ref 和 $arr_ref 进行更改时,实际上操作的是 $scalar 和数组 @array 的地址中存放的值,所以 $scalar 和数组 @array 的值也会被更改。而对$scalar_com 和 $array_0的值进行更改时,改的则是它们自己的地址中对应的值,与$scalar 和数组 @array 的地址中的值无关。
最后程序运行结果为: