Abgesehen davon, dass ich readline() in getline() aendern musste, laeuft das Programm prinzipiell (Linux 2.6.5, Perl 5.8.4).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
$ perl pipetest.pl
Das Kind schreibt: Text vom Kind
Papa arbeitet.
Papa arbeitet.
Das Kind schreibt: Text vom Kind
Papa arbeitet.
Papa arbeitet.
Use of uninitialized value in concatenation (.) or string at pipetest.pl line 33, <GEN0> line 2.
Das Kind schreibt:
Papa arbeitet.
Use of uninitialized value in concatenation (.) or string at pipetest.pl line 33, <GEN0> line 2.
Das Kind schreibt:
Papa arbeitet.
Use of uninitialized value in concatenation (.) or string at pipetest.pl line 33, <GEN0> line 2.
Das Kind schreibt:
Papa arbeitet.
Use of uninitialized value in concatenation (.) or string at pipetest.pl line 33, <GEN0> line 2.
Das Kind schreibt:
Papa arbeitet.
Mich wundert allerdings, dass die Schleife mit den Handles auch noch aufgerufen wird, wenn das Kind gar nichts mehr zu sagen hat.