Ich möchte mein Projekt ordentlicher gestalten. Deshalb würde ich gerne verschiedene Scriptdateien für verschiedene Aufgaben benutzen. Ich habe beispielsweise ein Gästebuch, dass die Daten auf den STDOUT schreibt (mit print). Nun kann man sie zwar mit <qx> oder <open> auslesen, aber das Hinzufügen neuer Einträge funktioniert nicht, denn über das Gästebuch-Script habe ich keinen Zugriff auf STDIN, dass mit Read(STDIN, $buffer, ENV{'CONTENT_LENGTH'}) nur vom AUFRUFENDEN Script ausgelesen werden kann.

Ich stelle mir nun einen Code vor der folgendermaßen aussehen müsste aber -natürlich nicht- funktioniert:

my $buffer;
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});


Die folgende Zeile müsste (um ihren Zweck zu erfüllen)
1. eine Pipe zum Programm herstellen um den STDIN reinzuschreiben 2. eine Pipe vom Programm herstellen um die Daten aufzufangen die das Gästebuch zurückgibt. ...und deshalb nach der open-syntax so aussehen, was irgendwie falsch wirkt und
auch gleichermaßen schlecht funktioniert:

Open(FILE, "|guestbook.pl|") || die "$!";
Print FILE $buffer; #STDIN ans Gästebuch übergeben.
Print <FILE>; #Gästebuch mit zuvor definiertem STDIN anzeigen.
Close(FILE);


Gibt es vielleicht eine andere Möglichkeit das Problem zu lösen oder ist es schlichtweg unmöglich?

IPC::Open3