Perl 스크립트에서 IPC :: Run 모듈을 사용하는 방법

Question

sqlplus 데이터베이스에 연결하고 아래 명령을 실행하는이 Perl 스크립트가 있습니다.

my $SQLPLUS='/opt/oracle/product/11g/db_1/bin/sqlplus -S system/coolman7@vsdb'; 
`$SQLPLUS \@${basePath}/VoucherQuery1.sql $startdate> ${basePath}/QueryResult1.txt`; 

이제 IPC :: Run을 통해 두 번째 명령을 실행하려고합니다. 나는 성공하지 못한 채 여러면에서 노력해 왔습니다. like

open (WFH1, ">", "${basePath}/QueryResult4.txt"); 
run('$SQLPLUS \@${basePath}/VoucherQuery4.sql $startdate', '>', \\WFH1); 
close(WH1); 

하지만, sqlplus에 연결하거나 출력 파일에 쓸 수 없습니다. Google 및 다른 포럼에서 검색했지만 해결책이 없습니다. 도와주세요. :)

Answer 1

어휘 파일 핸들을 사용하면 일반적으로 훨씬 쉬워집니다. 그것들은 전역 적이 지 않으며 범위를 벗어나면 자동으로 닫힙니다.

open (my $wfh1, ">", "${basePath}/QueryResult4.txt"); 

전체 문제는 open이 실패했기 때문에 성공했는지 확인할 필요가 없습니다. 이것을 두 가지 방법으로 할 수 있습니다. 첫 번째는 ... 손으로

my $query_result_file = "${basePath}/QueryResult4.txt"; 
open (my $wfh1, ">", $query_result_file) 
    or die "Couldn't open $query_result_file for writing: $!"; 

그것을 할 것입니다 또는 당신은 당신을 위해 그것을 할 autodie를 사용할 수 있습니다.

use autodie; 
open (my $wfh1, ">", "${basePath}/QueryResult4.txt"); 

파일을 수동으로 열 필요는 없지만 IPC :: Run은 파일 이름을 전달하면이를 수행합니다.

다음 문제는 run에 전달하는 것입니다. 작은 따옴표 안에 있습니다. 즉, 어떤 변수도 보간되지 않습니다. 문자 그대로 $SQLPLUS @${basePath}/VoucherQuery4.sql $startdate을 (를) 실행하려고합니다. 큰 따옴표가 필요합니다.

그러나 명령과 인수를 배열 ref로 전달하는 것이 더 좋습니다. IPC :: Run이 쉘 인용을 처리합니다.

다음은 cat을 사용하여 파일을 읽는 간단한 예입니다. 줄 번호를 추가하고 그 결과를 파일로 출력합니다. 모두 함께 퍼팅

use IPC::Run qw(run); 
run ["cat", "-n"], "<", "/etc/passwd", ">", "test.out"; 

...

my $SQLPLUS_EXE = '/opt/oracle/product/11g/db_1/bin/sqlplus'; 
my $SQLPLUS_DB = 'system/coolman7@vsdb'; 
my @SQLPLUS_CMD = ($SQLPLUS_EXE, '-S', $SQLPLUS_DB); 

run [@SQLPLUS_CMD, "\@${basePath}/VoucherQuery4.sql", $startdate], 
    ">", "${basePath}/QueryResult4.txt";