|
안녕하세요. 해피CGI 웹마스터 윤영웅입니다.
펄마니아에서 발췌된 글입니다.
fork를 사용하는 이유는 새로운 컨넥셕은 맺기 위한거죠.
간단한 사용법은 다음과 같습니다.
if(!defined($ChildPid=fork()) {
die "cannot fork\n";
}
else {
if($ChildPid) { # Parent Process
}
else { # Child Process
}
}
fork로 새로운 프로세스가 생성되면 원 프로세스(부모 프로세스)의 fork는 child process의 pid를 반환하고, 생성된(자식 프로세스)의 fork는 0을 반환합니다.
반환된 PID를 가지고서 자신이 부모 프로세스인지, 자식 프로세스 인지 구별하죠.
소켓의 경우 부보 프로세스는 다음 컨넥션을 기다리고, 자식 프로세스는 컨넥션을 맺어서 데이타를 주고 받고.. 할일 하죠.
좀비 프로세스는 프로세스가 종료됬는데, 그 프로세스를 생성시킨 프로세스가 그 뒷일을 처리하지 않으면 생깁니다. 자식 프로세스가 자기 할 일 다 끝내고 종료했는데, 부모 프로세스가 나몰라하면 그놈이 좀비가 되서 리소스 반환 안하고 문제가 되기도 합니다.
다음은 간단한 서버 소스입니다.
화일 이름 : server.pl
#!/usr/bin/perl
$|=1;
use IO::Socket;
$Local = IO::Socket::INET->new(Proto=>"tcp", LocalPort=>"1234", Listen=>1)
or die "Can't open socket\n";
while($Remote = $Local->accept) {
$Remote->autoflush(1);
print "Connected\n";
if(!defined($ChildPid=fork())) {
die "cannot fork\n";
}
elsif($ChildPid) { # Parent Process
while(`ps axw|grep server|grep Z|grep -v grep|wc`/1 > 0) { wait; }
}
else { # Child Process
$Input=<$Remote>;
print "INCOMING : $Input\n";
print $Remote "HI! I am Server. my pid is $ChildPid\n";
print "Connection Closed\n";
close ($Remote);
exit;
}
}
close $Local;
exit;
사실 저도 좀비 때문에 고민해서 다음과 같이 체크 해서 처리했습니다. 제대로 처리한 것은 아닌데.. 하여간에 좀비를 없애기는 해요.
while(`ps axw|grep server.pl |grep Z|grep -v grep|wc`/1 > 0) { wait; }
프로세스 중에 server.pl(프로그램이름이죠)이 들어간것 다 찾고, 그 중에 좀비(Z로 표시되죠)를 찾아서 그 갯수가 1개 이상이면, wait로 좀비를 처리하고.
그런데 이렇게 하면 자식 프로세스가 종료되자 마자 처리하는 것이 아니라, 다음 컨넥션때 처리하는 거라서 제대로 된 방법이 아니죠. 영 찝찝하긴 한데.
관련된 문서가 있긴 한데, 정리가 안된거라 자료실에도 올리지 못하고...
메일 어드레스 주시면 메일로 보내드릴께요.
즐펄!
|
34
356
2001-04-07 07:51:28
닉네임
