[Vienna-pm] Nicht erlaubter seek ??
Carl A. Schreiber
gooly at gmx.at
Mon May 23 02:36:56 PDT 2005
Hallo,
Vater - Kind Problem und ich weiss nicht weiter:
Was bedeutet hier Nicht erlaubter Seek, nachdem open funktioniert hat??
Wieso kann ich nicht auf dem PIP-Handle schreiben? Code ist von perlipc.
Da threaded Vars verwenden werden setzte ich:
$SIG{PIPE} = 'ignore';
sub ignore { print "Sig { Pipe } called ignore?: $!\n"; }
aber diese Zeile wird nicht gedruckt?
Kann mir jemand meine Pipe 'reparieren' ?
Danke Calli
der Vater:
my $pid = open(PIP, "|-");
if ($pid < 0 ) { die "open: $!\n"; } else { print "pid:$pid\n";}
# alles OK, keine Fehlermeldung
if ( $pid==0 ) { # child
# Kind lebt!!
machWas( );
exit;
} else { # parent
my $e = print PIP "hallo bist Du da? \n";
print "Par\t1. Print: $e: $!\n";
# jetzt isses passiert Kin der Konsole steht:
# >Par 1. Print: 1: Nicht erlaubter Seek
my $n = 0;
while (1) {
my $x = print PIP "hmm, No. ",++$n,"$EOL";
print "Par:\thmm, No. $n: $x\t $!\n"; sleep 1;
# und weiter folgen:
# >Par: hmm, No. 4: 1 Nicht erlaubter Seek
}
}
das Kind aber bleibt stumm nach 'before while..!:
sub machWas {
print "before while..\n";
my $l;
while ( defined ($l = <STDIN>) ) { print "kid:\t$l\n"; }
}
More information about the Vienna-pm
mailing list