Perl function 및 Parameter Array (@_) 사용예

다음과 같이 parameter 들을 array 로 받아올 수도 있고

 areaOfRectangle(10, 20);  
 sub areaOfRectangle {  
      my ($height, $width) = @_ ;  
      my $area = $height * $width;  
      print("$height x $width = $area.\n");  
 }  

다음과 같이 $_[] 를 써서 바로 n번째 argument 를 받아올 수도 있다.

 print(tohex(254)."\n");  
 sub tohex {  
      sprintf("%02X",$_[0]);  
 }  

다음과 같이 shift 문으로 @_ 에서 argument 를 하나씩 빼올 수도 있다.

 areaOfRectangle(10, 20);   
 sub areaOfRectangle {   
      my $height = shift;  
      my $width = shift;  
      my $area = $height * $width;   
      print("$height x $width = $area.\n");   
 }  

Using the Parameter Array (@_)
키워드 : 함수 호출, function call