[perl] 함수에 배열 인자 넘겨 주기

배열 인자를 넘겨주기 위해서는 레퍼런스 (reference)를 사용한다. 아래는 두개의 배열을 인자로 넘겨 받는 함수의 예이다. 함수 PrintTwoArray를 호출할 때, 레퍼런스를 넘겨 주기 위해서, @num_arr과 @alpha_arr 앞에 \가 붙어 있다. PrintTwoArray에서 @num_arr과 @alpha_arr의 레퍼런스를 받을 때는 $v1, $v2와 같이 스칼라 (scalar) 형식으로 받고, 배열로 사용할 때는 @$v1, @$v2와 같은 형식으로 사용한다.

#!/usr/bin/env perl use strict; use warnings ; use Data::Dumper; sub PrintTwoArray {  my $v1 = $_[0] ;  my $v2 = $_[1] ;  print ("@$v1\n");  print ("@$v2\n"); } my @num_arr = ("1", "2", "3"); my @alpha_arr = ("a", "b", "c"); PrintTwoArray(\@num_arr, \@alpha_arr);