note
premchai21
<p>Are you sure you need [fork] for this? Why not just do something like:</p>
<code>
#!/usr/bin/perl
# Pseudo-Perl; some code shortened to ellipses or text.
use IO::Socket;
my $sock = IO::Socket::INET->new(...) or die "...";
while (not yet done) # Not sure how you want to determine this
{
my $line;
print $sock "send this to server\n";
chomp($line = <$sock>);
#<process $line (one line read from server's response)>
}
__END__
</code>
<p>Also note that</p>
<code>
$fork_errlvl = 1 unless defined $pid;
die "Error forking client: Reason: $!\n" if $fork_errlvl != 0;
</code>
<p>can be shortened to</p>
<code>
die "..." unless defined $pid;
</code>
<p>or, better IMHO,</p>
<code>
defined($pid) or die "..."
</code>
<p>both of which eliminate the unnecessary variable.</p>
160058
160058