Re: perl Write filehandle blocks.
- From: kiranmn@xxxxxxxxxxx
- Date: 29 Apr 2007 06:14:58 -0700
if i run the code like "cat passwd|perl head.pl", if size of passwd
file is less it works fine, if it is more than 4k it hangs.
On Apr 29, 1:11 pm, kira...@xxxxxxxxxxx wrote:
hi,
First parent do a fork, parent waits for child to finish , child
runs a command "head" and exits. After waiting parent sleep fror 1
hours and continue doing same thing. when i write a file to t "open2",
write filehandle, it just hangs there, what is the reason.
Following is my code. It stops at " now writing to write fd
". Please help me.
Thanking you,
regards,
kiran
========================================
#!/usr/bin/perl -I../lib
#use strict;
use Carp qw(verbose);
use IPC::Open2;
use Symbol;
my $WTR;
my $RDR;
while(1)
{
if($kid=fork)
{
waitpid($kid,0);
}
else
{
while(<STDIN>)
{
$ref->{"mail"}.=$_;
}
$WTR = gensym(); # get a reference to a typeglob
$RDR = gensym(); # and another one
$pid=open2($RDR, $WTR, "/usr/bin/head ");
print "now writing to write fd\n";
$oo=select $WTR;
$|=1;
select $oo;
print $WTR "$ref->{\"mail\"}";
print "closing writing fd\n";
close($WTR);
print "going to reader\n";
while(<$RDR>)
{
print "$_";
}
print "comming out of while reader\n";
close($RDR);
exit;
}
sleep (3600);
}
.
- References:
- perl Write filehandle blocks.
- From: kiranmn
- perl Write filehandle blocks.
- Prev by Date: Using one methods variable value in another method inside a module
- Next by Date: a problem about function returning point
- Previous by thread: Re: perl Write filehandle blocks.
- Next by thread: Interval Timers on Windows
- Index(es):
Relevant Pages
|
