XII. 서브루틴 작성 및 호출법
스크립트를 작성하다 보면, 반복적으로 실행되는 루틴을 한번만 정의하고, 메인 루틴에서는 이를 호출하도록 하고 싶을 경우가 있다. 서브루틴(Subroutine)은 메인 루틴에게 호출을 받아 실행되는 독립적인 모듈이다.
서브루틴은 다음과 같은 형태로 구성된다.
sub [subroutine-name] {
[subroutine-body]
}
다음은 서브루틴을 사용하는 예이다.
...
&my_sub; # 서브루틴 호출
...
sub my_sub { # 호출되는 서브루틴의 시작
$myint = 1;
print $myint;
} # 호출되는 서브루틴의 끝
그리고, 서브루틴에게 인자(Arguments)를 전달할 수 있다. 인자는 서브루틴이 실행되는데 필요한 변수값을 뜻하며, 메인 루틴이 전달해준 인자 값에 의해 서브루틴의 실행 결과가 달라지게 된다.
sub [subroutine-name] {
local([argument-1], [argument-2], ...) = @_;
[subroutine-body]
}
다음은 인자를 사용하는 예이다.
...
&my_sub(1);
...
sub my_sub {
local($myint) = @_;
print $myint;
}
"local" 이라는 새로운 함수가 등장했다. PERL에서는 변수 선언시 특별하게 지정해 주지 않는 이상 모든 변수를 전역 변수(global)로 만들어 버린다. 그러나, 이 local 함수를 쓰면, 이 변수의 가시범위(scope)는 이 서브루틴 안으로 제한된다. 이 서브루틴 밖에서 이 변수를 참조할 수 없게 된다. 이것을 지역 변수(local variable)라 한다.
그리고 "@_" 를 이용해서 인자가 몇개이든지 다 받아 낼 수 있다.
local($mylocal, $mylocal2, $mylocal3) = @_;
print "$mylocalt$mylocal2t$mylocal3";
그냥 지역 변수만 선언하려면 다음과 같이 써 주면 된다.
local($mylocal);
지역변수를 초기화 할 수 있다, 다음과 같이 하면 된다.
local($mylocal) = 1;
local(@local_array) = (1, 2, 3);
지역변수가 여러개일 경우에는 다음과 같이 한다.
local($mylocal, $mylocal2, $mylocal3) = (1, 2, 3);
print "$mylocalt$mylocal2t$mylocal3";
그리고, PERL의 서브루틴은 그 개념을 더 넘어서서, 함수(function)처럼 반환값(return value)을 반환할 수 있다. 어떤 값을 반환하는 방법은 서브루틴의 맨 끝에 반환하려는 스칼라 변수명만 써 주거나 반환하려는 값을 직접 써 주면 된다.
sub [subroutine-name] {
local([argument-1], [argument-2], ...) = @_;
[subroutine-body]
[return-value];
}
다음은 반환값을 이용하는 예이다.
...
$myreturn = &my_sub;
print $myreturn;
...
sub my_sub {
$myint = 1;
$myint; # 반환값(즉 1임)
}
이 장에서는 PERL의 완전한 기초만 배웠다. 사실 이 내용만 가지고 실제적인 스크립트를 작성하기에는 다소 무리이다. 앞으로는 실제 방명록 소스를 가지고 보다 세련된 PERL 프로그래밍 기법을 배우게 될 것이다. 그러나, 이 장에서 배운 내용이 앞으로의 PERL 스크립트 작성에 있어서 근간이 될 것만은 확실하다. 건투를 빈다. |
|
