|
Тема
|
while loop
|
|
Автор | peks (Нерегистриран) |
Публикувано | 29.05.07 15:40 |
|
Awe nogo se 4udq nad edin naparvo oko lesen problem ama ...
zna4i ako nqkoi mu doide na akula predi da sam otkril na4ina 6te go pomolq da helpne. Staa wapros za while loop ama v sledniq vid. Izkam da naprawq bezkraen loop cikul koito da preksuva kogato ot vhoda ot klaviaturata natisna <enter> primerno ili koi da e kop.
10x
| |
|
bi moglo da se izpipa i da e better tozi hack:
#!/usr/bin/perl
use strict;
use warnings;
my $pid = fork;
die "cannot fork!\n" if not defined $pid;
if ($pid) { print "parent process\n"; while (<>) { kill 9, $pid and die "input detected, exiting ...\n" if $_} }
if ($pid == 0) { print "child process \n"; my $endless; print $endless,$/ while ++$endless }
pitaj ako neshto po primera ne ti e qsno
propusnah - ako iskash da polzvash koi da e klavish, a ne samo <enter> - polzvaj Term::ReadKey CPAN clasa: http://search.cpan.org/dist/TermReadKey/ReadKey.pmРедактирано от supremacy на 30.05.07 02:18.
| |
Тема
|
Re: while loop
[re: supremacy]
|
|
Автор | peks (Нерегистриран) |
Публикувано | 30.05.07 10:58 |
|
Si4ko e to4no i qsno 10x,
da si priznaq nemi beshe do6lo na akula taktikata s fork-a 10x o6te vednuj
| |
|
|
|
|