|
Тема |
Re: while loop [re: peks] |
|
Автор |
supremacy (phantom) |
|
Публикувано | 30.05.07 02:14 |
|
|
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.
|
| |
|
|
|