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.