ineffectual

pipe(TALK,LISTEN);
my $child = fork();

if ($child) {
    my $anger = 0;
    close(TALK);
    while (my $in = <LISTEN>) {
        print TALK "reply" || $anger++;
        last if ($anger > 10);
    }
} else {
    close(LISTEN);
    $SIG{CHLD} = 'IGNORE';
    while ($child < 18) {
        print TALK "commands\n";
    }
}
[download]

$ perl -e 'do() || ! do() ;'
Undefined subroutine &main::try
[download]

Comment on ineffectual Select or Download Code

Replies are listed 'Best First'.
Re: ineffectual by sparkyichi (Deacon) on Dec 04, 2001 at 22:36 UTC
That was really good and very readable. There is however something that I see missing. I think that this should be added: `if ($child){ while (my $in = <LISTEN>){ if ($in eq 'BACKTALK'){ $anger = $anger * 2; } } }` [download] Sparky	[reply] [d/l]