Perl 다른 파일의 함수 사용하기

저는 자주는 아니지만 정규표현식을 사용해서 텍스트 파일 등을 분석해야 하는 경우에 Perl 을 종종 사용하곤 하는데요~

 

Perl 문법이 간단한 편이긴 하지만~ 자주 사용되거나 중복되는 기능을 하는 부분들은 함수로 만들어서 사용하는 게 좋겠죠~

 

일의 특성상 자주 사용하는 기능들이 있어서 이러한 부분들은 라이브러리의 형태로 만들어서 사용하는 게 편리합니다.

 

오늘은 Perl 에서 다른 파일에 있는 함수를 가져다 사용하는 방법에 대해 간단히 설명 드리려 합니다.

 

C/C++ 에서는 다른 파일을 참조 할 때 include 를 하고~ 자바 등에서는 import 를 하는 것과 유사하게~

 

Perl 에서는 require 를 사용합니다.

 

그리고 함수는 다른 파일에 작성 후 파일의 맨~~ 마지막에 1; 라고 작성해 줘야 합니다.

 

간단하게 더하기를 하는 예제를 만들어 보죠~

 

일단 함수를 정의하는 부분의 코드는 다음과 같습니다.

 

 

<functionS.pl>

use strict;

use warnings;

 

sub add_func {

    my ($number1, $number2) = @_;

    return ($number1 + $number2); # 더하기~

}

1;

 

그리고 위 함수를 사용하는 파일의 코드는 다음과 같습니다.

 

<ExecutionFile.pl>

use strict;

use warnings;

 

require 'functionS.pl';

 

my $result = add_func(10,20);

print "$result\n" ;

 

이렇게~ 코딩하고~ ExecutionFile.pl 파일을 실행 시키면~~ 10+20 의 결과인 30이 나오게 됩니다.