in reply to Activeperl 5.6 fork() doesn't friggin work
Are you sure you need fork for this? Why not just do something like:
#!/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__
Also note that
$fork_errlvl = 1 unless defined $pid; die "Error forking client: Reason: $!\n" if $fork_errlvl != 0;
can be shortened to
die "..." unless defined $pid;
or, better IMHO,
defined($pid) or die "..."
both of which eliminate the unnecessary variable.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Activeperl 5.6 fork() doesn't friggin work
by Anonymous Monk on Apr 18, 2002 at 01:12 UTC | |
by premchai21 (Curate) on Apr 18, 2002 at 01:47 UTC | |
by jtx (Initiate) on Apr 18, 2002 at 18:20 UTC | |
by premchai21 (Curate) on Apr 19, 2002 at 01:57 UTC |
In Section
Seekers of Perl Wisdom