Perl 모듈의 다양한 예
내장된 Perl 모듈과 사용자 정의 모듈을 사용하는 방법은 튜토리얼의 이 부분에 나와 있습니다.
예 1: 내장 모듈 사용
이 예에서는 Perl에 내장된 세 가지 모듈의 사용을 보여줍니다. 이는 '엄격함', '경고' 및 '5.34.0'입니다. 'strict' 모듈은 Perl 스크립트를 작성하기 위해 다양한 유형의 제한을 활성화하는 데 사용됩니다. 예를 들어, 이 모듈이 스크립트에서 사용되는 경우 'my' 키워드 없이는 변수를 선언할 수 없습니다. '경고' 모듈은 코더가 오류를 이해하는 데 도움이 되는 스크립트를 실행한 후 다양한 유형의 경고 메시지를 표시하는 데 사용됩니다. '5.34.0' 모듈은 스크립트에서 이 모듈의 다양한 기능을 사용하는 데 사용됩니다. 개행 문자로 메시지를 인쇄하는 데 사용되는 'say' 기능이 이 모듈의 기능입니다.
#!/usr/bin/perl
#코딩 제한 활성화
엄격한 사용 ;
#오류에 대한 경고 메시지 표시
사용 경고 ;
#다양한 서비스 활성화
5.34.0 사용 ;
#'strict' 모듈에는 'my' 키워드 사용이 필수입니다.
내 $언어 = '펄' ;
#'말하기' 기능을 활성화합니다
말하다 '$언어 프로그래밍을 배워보세요.' ;
산출:
스크립트를 실행하면 다음 출력이 나타납니다.
예 2: 사용자 정의 모듈 사용
Perl 사용자는 '.pm' 확장자를 가진 파일을 생성하여 특정 목적을 위한 모듈을 생성할 수 있습니다. 이 예에서는 사용자 정의 모듈이 생성되고 'use' 키워드를 사용하여 다른 Perl 스크립트에서 사용됩니다.
사용자 정의 모듈을 생성합니다:
다음 스크립트를 사용하여 'Bonus.pm'이라는 파일을 만듭니다. 여기서는 'package' 키워드를 사용하여 모듈임을 정의합니다. 이 모듈에는 급여와 매출액을 기준으로 직원의 보너스를 계산하는 서브루틴이 포함되어 있습니다. 이 모듈이 사용되는 Perl 스크립트에서 두 개의 인수 값이 전달됩니다. 첫 번째 인수에는 급여가 포함되고 두 번째 인수에는 매출 금액이 포함됩니다. 보너스는 급여가 10000 이상인 경우 판매 금액의 15%입니다. 급여가 7000 이상인 경우 보너스는 판매 금액의 10%입니다. 급여가 10000 미만인 경우 보너스는 판매 금액의 5%입니다. . '1;' 모듈 끝에서 true를 반환하는 데 사용됩니다. 그렇지 않으면 오류가 인쇄됩니다.
보너스.pm
#!/usr/bin/perl엄격한 사용 ;
사용 경고 ;
5.34.0 사용 ;
패키지 보너스 ;
#보너스 계산을 위한 서브루틴 선언
하위 계산_보너스
{
# 변수 초기화
내 월급 = $_ [ 0 ] ;
내 $sales_amount = $_ [ 1 ] ;
내 $보너스 = 0.0 ;
#보너스 계산
만약에 ( $급여 > 10000 )
{
$보너스 = $sales_amount* 0.15 ;
}
엘시프 ( $급여 > 7000 )
{
$보너스 = $sales_amount* 0.10 ;
}
또 다른
{
$보너스 = $sales_amount* 0.05 ;
}
#계산된 보너스를 돌려드립니다
반품 $보너스 ;
}
1 ;
Perl 스크립트에서 모듈 가져오기:
스크립트에 할당된 급여 및 매출액을 기준으로 직원의 보너스 금액을 계산하기 위해 앞서 생성한 'Bonus' 모듈을 가져오는 다음 스크립트를 사용하여 Perl 파일을 생성합니다.
#!/usr/bin/perl엄격한 사용 ;
사용 경고 ;
5.34.0 사용 ;
보너스 사용 ;
#변수 초기화
내 $name = '미르 사비르' ;
내 월급 = 60000 ;
내 $sal_amount = 9700 ;
#모듈에서 서브루틴 호출
내 $보너스 = 보너스::calculate_bonus ( $급여 , $sal_amount ) ;
내 $salary_with_bonus = $급여 + $보너스 ;
#매출을 기준으로 직원 정보를 인쇄합니다.
말하다 '직원 세부 정보: \N ' ;
말하다 '이름: $name' ;
말하다 '급여: $salary' ;
말하다 '급여(보너스 포함): $salary_with_bonus' ;
산출:
스크립트를 실행하면 다음 출력이 나타납니다. 여기서는 '-I'입니다. 사용자 정의 가져온 모듈을 찾으려면 스크립트를 실행할 때 옵션을 사용해야 합니다.
예제 3: 'Require'를 사용하여 사용자 정의 모듈 사용
'require' 함수는 Perl 스크립트에서 모듈을 가져오는 또 다른 방법이며 이 예에 나와 있습니다. 이전에 생성된 '보너스' 모듈은 'require' 기능을 사용하여 스크립트로 가져옵니다. 급여 및 매출액 값은 이 스크립트의 사용자로부터 가져옵니다. 스크립트의 다른 부분은 이전 예제와 유사합니다.
#!/usr/bin/perl엄격한 사용 ;
사용 경고 ;
5.34.0 사용 ;
보너스 필요 ;
#사용자로부터 입력을 받습니다
말하다 '직원 이름을 입력하세요:' ;
씹다 ( 내 $name = <> ) ;
말하다 '급여를 입력하세요:' ;
씹다 ( 내 월급 = <> ) ;
말하다 '판매 금액을 입력하세요:' ;
씹다 ( 내 $sal_amount = <> ) ;
#모듈에서 서브루틴 호출
내 $보너스 = 보너스::calculate_bonus ( $급여 , $sal_amount ) ;
내 $salary_with_bonus = $급여 + $보너스 ;
#매출을 기준으로 직원 정보를 인쇄합니다.
말하다 '직원 세부 정보: \N ' ;
말하다 '이름: $name' ;
말하다 '급여: $salary' ;
말하다 '급여(보너스 포함): $salary_with_bonus' ;
산출:
스크립트를 실행하면 다음 출력이 나타납니다.
결론
이 튜토리얼에서는 간단한 예를 사용하여 Perl의 내장 모듈과 사용자 정의 모듈의 사용을 보여줍니다.