while loop

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: [линк]

Si4ko e to4no i qsno 10x,
da si priznaq nemi beshe do6lo na akula taktikata s fork-a 10x o6te vednuj