C/Perl中的值传递和地址传递

对于如下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 的地址中的值无关。

最后程序运行结果为：