|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Edward Smirnov 2:5020/400 18 Feb 2001 17:32:02
To : All
Subject : Re: снова форк
--------------------------------------------------------------------------------
Чайнику помогите......
Родитель ждет, когда умрет ребенок.
unless (defined ($pid = fork)) {die "cannot fork: $!";}
unless ($pid)
{
# Kid
open (MAIL, "|$mailprog -t")
|| print "Can't start mail program";
print MAIL "To: $mailto";
print MAIL "From: $mailfrom";
.....................................................
close (MAIL);
sleep (60); # Отчего родитель ждет этого?
# Kid stops here
exit;
}
# Parent continues here
print "Location: < Hу там .zip...>";
close STDOUT,STDIN,STDERR;
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
