in reply to Re: Re: Re: Forking processes / children / threads
in thread Forking processes / children / threads
And I am redirecting the output using >foreach $keyword ( @ARGV ) { $key= join(' ', split(/\+/, $keyword)); $remote = IO::Socket::INET->new( Proto => "tcp", PeerAddr => $host, PeerPort => $port, ); unless ($remote) { die "cannot connect to http daemon on $host + on $port" } $remote->autoflush(1); print $remote "GET $prefix$keyword HTTP/1.0" . $BLANK; $count="0"; while ( <$remote> ) { if (/flist/i) { $count++; } } print "$key,$count\n"; close $remote; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Re: Re: Re: Forking processes / children / threads
by dws (Chancellor) on Nov 19, 2002 at 05:24 UTC | |
by msergeant (Novice) on Nov 19, 2002 at 06:15 UTC |