ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Pavel Ammosov                        2:5020/400     09 Dec 2001  14:41:20
 To : nikita kozlovsky
 Subject : Re: вопрос
 -------------------------------------------------------------------------------- 
 

 nikita kozlovsky wrote:
 
 nk>занимаюсь я тут никому не нужным делом, пытаюсь писать демон, вроде
 nk>все ничего, но непонятно одно, как запустить процесс, независимо от
 nk>другого? то есть, что мне надо:
 nk>1.запускать, скажем ~/tmp/mm
 nk>2.продолжать работать
 nk>3.когда ~/tmp/mm остановился то что-то вывести. 
 nk>ессно system не помогает, пробывал system("pname &"); тоже ноль
 nk>эмоций на &. да, последний пункт примерно понятен, непонятен 1ый. то
 nk>есть не понятно, как пускать паралельно.
 
 Читать книжки про Unix и man/perldoc -f на exec, fork и wait.
 
 #!/usr/bin/perl -w
 use strict;
 
 my $pid = fork();
 
 die "fork failed: $!" if (!defined($pid));
 
 if ($pid == 0) {
   exec("/bin/ls", "-l", "/") or warn "couldn't exec: $!";
 } else {
   wait;
   my $exit_value  = $? >> 8;
   my $signal_num  = $? & 127;
   my $dumped_core = $? & 128;
   print "Exit value: $exit_value\n";
   print "Signal: $signal_num\n";
   print "Core dumped" if ($dumped_core);
 }  
 
 -- 
 Павел Аммосов, email: apavel@aha.ru.
 Русский FAQ по perl и etc: http://isabase.philol.msu.ru/~apavel/ruperl/
 Английский: http://www.perldoc.com/perl5.6/pod/perlfaq.html
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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