[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