#!/usr/bin/perl -w
# forks_test.pl
use forks;
my $pid = open(CLI, "$ENV{HOME}/bin/cli all -D |") or die "couldn't fork: $!\n";
my $output = '';
while(<CLI>) {
#chomp($_);
if ($_ =~ /\w+.*/) {
$output .= $_;
print "$_\n";
} else {
}
}
close(CLI);
[prompt> ./forks_test.pl
cat: write error: Broken pipe
Any ideas out there about this one? I am using perl 5.8.5 on a RH9 linux box.
In reply to Re^2: forks.pm, CGI::App,TT and DBD::mysql
by perldragon80
in thread forks.pm, CGI::App,TT and DBD::mysql
by perldragon80
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |