다른 프로그램을 실행시키고 그 출력 내용을 읽는 방법은 여러가지가 있습니다.
많은 분들이 알고 계시지만, 몇몇 모르시는 분들을 위해 여기 그 방법들을 소개합니다.
Backtick
역따옴표(`...`)는 그 안에 들어있는 내용을 shell을 통해 실행하고, 표준출력(STDOUT)으로 출력되는 내용을 반환합니다. 따라서,
$content = `cat /etc/passwd`;
는 passwd 파일을 간단히 읽어들입니다.
물론, 단순한 파일을 읽는데는 직접 open을 해서 읽어들이는 것이 좋습니다. 역따옴표를 사용하게 되면, 그 내부의 프로그램을 실행하기 위해서 별도의 프로세스가 생성되어야 하기 때문에 그만큼 시스템의 자원을 소모하게됩니다.
open 함수를 이용하는 방법
open 함수에서 파일이름분에 > 대신 | (파이프)기호를 뒤에 붙이면 해당 파일이름을 실행시키고 그 출력내용을 읽을 수 있습니다.
[프로그램코드]| #!/usr/bin/perl
# prog.pl
print "$$\n";
warn "Exiting\n";
#!/usr/bin/perl
# opener.pl
$p = open(RUN, "./prog.pl |") || die $!; # ./prog.pl 뒤에 | 표시.
@out = <RUN>;
close RUN; # 반드시 하십시오.
print "opener: $p\n";
print map { "opener: $_" } @out; |
opener.pl에서 prog.pl을 "./prog.pl |"와 같이 하여 열었습니다.(open)
그 후 일반 파일 읽기에서 하는 것처럼 <RUN>를 이용하여 출력내용을 읽습니다.
참고로, open 함수가 반환하는 것은, 프로그램이 제대로 실행되었을 때, 새로운 프로세스의 프로세스 아이디입니다.
만일 이 프로그램이 오랜시간동안 살아 있는 것(웹서버처럼)이라면 close를 하지 않을 경우 문제가 될 수 있습니다. 예를 들어, open은 계속해야 하는데, close를 해 주지 않는다면, 해당 프로세스가 죽지않고 계속 남아서 시스템자원을 차지하고 있어서 결국 시스템이 멈추는 상황이 발생할 수도 있게됩니다.
따라서 반드시 close를 해 주어야 합니다.
만일 표준에러(STDERR)까지 같이 읽어야 한다면
[프로그램코드]|
#!/usr/bin/perl
# prog.pl
print "$$\n";
warn "Exiting\n";
#!/usr/bin/perl
# opener.pl
$p = open(RUN, "./prog.pl 2>&1 |") || die $!; # ./prog.pl 뒤에 | 표시.
@out = <RUN>;
close RUN; # 반드시 하십시오.
print "opener: $p\n";
print map { "opener: $_" } @out; |
와 같이 2>&1를 추가합니다.
이 글은 http://www.perl.or.kr/tips/readoutput.html 에서 발췌된 글입니다.
305
3,131
2002-06-03 17:06:08
닉네임
