Perl 서브루틴, 함수 호출부터 반환값까지 이해하기 - Perl #7

이번 글에서는 Perl 프로그래밍의 서브루틴 개념과 사용법에 대해 살펴보겠습니다. 서브루틴의 정의, 호출, 인자 전달, 반환값, 그리고 실제 응용 예제를 포함하여 실제 코딩시 유용한 내용이 되도록 정리합니다.

Perl 서브루틴

 

 

Perl 프로그래밍 서브루틴

Perl에서 서브루틴(subroutine)은 반복적으로 사용할 수 있는 코드 블록을 정의하는 기능입니다. 이는 다른 프로그래밍 언어에서 함수(function)와 비슷한 개념으로, 동일한 코드를 여러 곳에서 재사용할 수 있도록 합니다. 서브루틴은 프로그래밍을 더욱 간결하고 가독성 있게 만들어 주며, 코드 유지보수에도 큰 도움을 줍니다.

간단히 말해서, 서브루틴은 특정 작업을 수행하는 코드를 묶어서 이름을 붙인 것입니다. 이를 통해 복잡한 프로그램을 여러 작은 부분으로 나눌 수 있어 관리가 용이해집니다.

 

반응형

 

  서브루틴 정의

서브루틴을 정의하기 위해서는 sub 키워드를 사용합니다. 서브루틴의 기본 형태는 다음과 같습니다.

sub 서브루틴이름 { # 수행할 작업 }

여기서 sub 키워드는 새로운 서브루틴을 정의하겠다는 의미입니다. 그 뒤에 서브루틴 이름과 중괄호 {} 안에 수행할 코드 블록을 작성합니다.

 

예를 들어, "안녕하세요"를 출력하는 간단한 서브루틴을 정의해보겠습니다.

sub say_hello { print "안녕하세요!\n"; }

say_hello라는 이름의 서브루틴을 정의했습니다. 이 서브루틴은 호출될 때마다 "안녕하세요!"라는 메시지를 출력합니다.

 

 

  서브루틴 호출

서브루틴을 호출하려면 서브루틴 이름 앞에 & 기호를 붙여 호출하거나, 간단히 이름만으로 호출할 수 있습니다.

&say_hello;

 

혹은 `&` 없이도 호출할 수 있습니다.

say_hello();

두 방식 모두 동일하게 서브루틴을 실행합니다. 위 예제의 경우, 콘솔에 "안녕하세요!"라는 메시지가 출력될 것입니다.

 

 

 

  서브루틴에 인자 전달

서브루틴을 정의할 때, 원하는 값을 전달하여 서브루틴 내부에서 그 값을 사용할 수 있습니다. 이를 인자(argument)라고 합니다.

인자를 사용하기 위해서는 서브루틴 호출 시 원하는 값을 괄호 안에 넣어 전달합니다. Perl에서 전달된 인자는 서브루틴 내에서 특별한 배열 @_를 통해 접근할 수 있습니다.

 

예시로 두 숫자를 더하는 서브루틴을 만들어보겠습니다.

sub add_numbers { my ($num1, $num2) = @_; # 전달된 인자를 받아옵니다. my $sum = $num1 + $num2; print "두 숫자의 합은: $sum\n"; } add_numbers(3, 5); # "두 숫자의 합은: 8"이 출력됩니다.

여기서 @_는 서브루틴으로 전달된 모든 인자를 포함하는 배열입니다. my ($num1, $num2) = @_ 구문을 사용하여 인자를 각각 변수 $num1과 $num2에 할당합니다. 이후 두 값을 더해 합을 출력합니다.

 

 

 

  서브루틴의 반환값

서브루틴은 결과 값을 반환(return)할 수 있습니다. 반환값은 서브루틴을 호출한 곳에서 사용할 수 있게 됩니다. Perl에서는 return 키워드를 사용하여 값을 반환할 수 있습니다.

 

아래는 두 숫자를 더한 결과를 반환하는 서브루틴 예제입니다:

sub add_numbers_return { my ($num1, $num2) = @_; return $num1 + $num2; } my $result = add_numbers_return(10, 20); print "두 숫자의 합은: $result\n"; # "두 숫자의 합은: 30"이 출력됩니다.

위 예제에서 add_numbers_return 서브루틴은 두 숫자를 더한 값을 return을 통해 반환합니다. 그리고 반환된 값은 $result 변수에 저장되어 출력됩니다.

 

 

 

  예시 코드

간단한 계산기 서브루틴 여러 개의 서브루틴을 사용하여 간단한 계산기 프로그램을 만들어보겠습니다. 덧셈, 뺄셈, 곱셈, 나눗셈을 각각 서브루틴으로 구현합니다.

sub add { my ($a, $b) = @_; return $a + $b; } sub subtract { my ($a, $b) = @_; return $a - $b; } sub multiply { my ($a, $b) = @_; return $a * $b; } sub divide { my ($a, $b) = @_; if ($b == 0) { return "0으로 나눌 수 없습니다."; } return $a / $b; } # 서브루틴을 호출하여 계산해보기 my $add_result = add(10, 5); my $subtract_result = subtract(10, 5); my $multiply_result = multiply(10, 5); my $divide_result = divide(10, 0); print "덧셈 결과: $add_result\n"; print "뺄셈 결과: $subtract_result\n"; print "곱셈 결과: $multiply_result\n"; print "나눗셈 결과: $divide_result\n";

• 네 개의 서브루틴(add, subtract, multiply, divide)을 정의했습니다.
• 각 서브루틴은 두 숫자를 받아서 해당 연산을 수행하고 그 결과를 반환합니다.
• divide 서브루틴의 경우, 두 번째 인자가 0인 경우에는 "0으로 나눌 수 없습니다."라는 메시지를 반환합니다.