ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Edward Smirnov                       2:5020/400     18 Feb 2001  17:46:06
 To : All
 Subject : Родитель ждет, когда умрет ребенок.
 -------------------------------------------------------------------------------- 
 

 Чайнику помогите......
 
 Родитель ждет, когда умрет ребенок.
 
 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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор