서브 루틴이 내 주요 함수와 같은 디렉토리에 있다면 어떻게 호출해야합니까?

Question

좋아요. 더 자세히 설명하기 위해이 내용을 다시 작성하고 있습니다. 나는 Perl에 상당히 새로운 프로그래밍이므로 & 프로그래밍과 함께하시기 바랍니다. 본질적으로, 나는 그들이 동일한 디렉토리 내에서 왔을 때 메인 .pl 파일 내부에서 하나 이상의 파일 (모듈을 추측하고 있나?)을 어떻게 실행하는지 알고 싶다. 내 코드는 내 파일의 맨 아래에 서브 루틴으로 연결되어 있지만 서브 루틴을 꺼내 모듈로 변환하면 제대로 작동하지 않습니다.

Answer 1

다음 두 단계를 시작하면 도움이됩니다. 일부 서브 시스템을 패키지 MyModule으로 내 보냅니다.

먼저 주 프로그램과 동일한 디렉토리에 MyModule.pm을 만듭니다. 예를 들어 :

package MyModule; 
use warnings; use strict; 

sub foo { 
    my $p = shift; 
    print "foo called with param: $p\n"; 
    bar(); 
} 

sub bar { 
    print "bar called\n"; 
} 

1; # don't delete this line 

그런 다음 메인 프로그램에서이 패키지에서 잠수정을로드하고 호출 :

#/usr/bin/perl                                    
use warnings; use strict; 

use File::Basename qw(dirname); 
use lib dirname(__FILE__); # prepend source directory to the include path                     

use MyModule; 

MyModule::foo(42); 

use lib dirname(__FILE__) 모듈의 주요 프로그램의 소스 디렉토리를 앞에 추가되는 문 경로를 포함한다.

Answer 2

내가 만든 모든 서브 루틴 라이브러리 파일이 있는데, 이것을 util.pl이라고 부릅니다. $ HOME/perl/lib/util.pl에 있다고 가정 해 봅시다. 필요 '의 $ HOME/펄/lib 디렉토리/util.pl';

는 지금은/myscript.pl 내가 넣어 상단에

myscript.pl에서

, $ HOME/펄/프로젝트 1에서 펄 스크립트가

이제 myscript.pl에서 util.pl의 모든 서브 루틴을 호출 할 수 있습니다. 예를 들어, undupespace()는 util.pl에 있습니다. myscript.pl에서 나는 그것을 다음과 같이 부를 수있다 : $ s = undupespace ($ s);

모듈을 설치 한 후 이것을 myscript.pl 맨 위에 넣습니다. File :: Copy;

OP를 원했습니까?