ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ura Bulatevich                       2:451/16.66    19 Apr 2005  17:52:40
 To : All
 Subject : readkey
 -------------------------------------------------------------------------------- 
 

 ASP 5.6 w2k
 
 объясните пожалуйста почему это не работает
 (задумывалась, как работа цикла,пока не нажат ввод)
 
 -----------
 my $end;
 my $i=0;
 
 if (!($pid=fork()))
 {
  undef($end);
  $end=<STDIN>;
  exit
 }
 
 while (!defined($end))
 {
  print ++$i."\n";
  sleep(1);
 };
 
 print "end";
 -----------------------
 WBR,
 Ura
 
 --- Все, что ни делается - к худшему !
  * Origin: It`s a good ? (2:451/16.66)
 
 

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

Тема:    Автор:    Дата:    readkey   Ura Bulatevich   19 Apr 2005 17:52:40   Re: readkey   Golyashov Sergey   26 Apr 2005 13:11:32