别名还是指针?

背景:

    在按值传递参数时,如果参数本身体积太大,应该考虑地址传递.c/c++中是叫指针,而perl非要叫别名.虽然别扭,但还是有用的.

 

正文:

1.

  @myarray = (1, 2, 3, 4, 5);
  &my_sub(*myarray);
  sub my_sub {
    my (*subarray) = @_;

    #$subarray...
  }

2.传递多个数组

  @array1 = (1, 2, 3);
  @array2 = (4, 5, 6);
  &two_array_sub (*array1, *array2);
  sub two_array_sub {
    my (*subarray1, *subarray2) = @_;

    #$subarray1  $subarray2
  }

真是别扭,不管了,知道是按址传递就得.