Ich hab’s mit allen moeglichen Tricks probiert. STDIN, STDOUT und STDERR nach nul (unter Windows nur mit einem L) umleiten, fork(), von einem anderen Script aus mit open eine Pipe oeffnen, mit cmd.exe /C und mit start /B. Und auch all’ diese verschiedenen Moeglichkeiten kombiniert. Aber nichts funktioniert. Ich kann mich an Visual Basic erinnern. Sogar das kann Prozesse komplett im Hintergrund starten. Aber es liegt nicht an Perl, dass die Windows Commandline so beschissen ist. Das zeigt, dass die Linux Shell sehr maechtig ist. Wofuer gibt es dann unter Windows eigentlich cmd.exe, wenn sie nichts kann? Das ist wie der Blinddarm im menschlichen Koerper. Es muss doch eine Moeglichkeit geben, um ganz einfach einen Prozess im Hintergrund rennen zu lassen. Ich will nicht extra Module installieren muessen, nur um dieses Problem zu loesen. Selber schuld, wieso verwend’ ich auch Windows?

Schliesslich blieb mir doch nichts anderes ueber, als ein vorhandenes Perl-Modul fuer diesen Job zu installieren. Jedoch bevor ich ein passendes Modul gefunden hatte, probierte ich folgende Module aus: Daemon::Easy, Working::Daemon, Win32::Console und Proc::Background. Alle haben eines gemeinsam: POSIX::setsid(). ERROR: POSIX::setsid not implemented on this architecture. Will man setsid() unter Windows XP verwenden, wird diese Fehlermeldung angezeigt. Win32::Process war dann schliesslich des Raetels Loesung. Die anderen Module starten zwar auch einen Prozess im Hintergrund, aber sobald cmd.exe beendet wird, werden auch alle anderen Prozesse beendet, die ueber diese Console gestartet worden sind. Win32::Process startet naemlich einen richtigen Hintergrundprozess, vorausgesetzt das cFlag ist DETACHED_PROCESS.

use Win32::Process;
Win32::Process::Create(
	my $proc,
	$^X,
	'perl run.pl',
	1,
	DETACHED_PROCESS,
	'.'
) || die "Win32::Process::Create failed\n";

Benoetigte Perl-Module

• File::Basename
• Win32::Process

Download

• windaemon-1.1.0.zip
• windaemon-1.0.0.zip

Wobei UDP zu TCP und TCP zu UDP nicht so reibungslos funktioniert wie zwei Verbindungen der gleichen Art. Natuerlich koennen auch mehrere Verbindungen gleichzeitig mit ein und dem selben Server hergestellt werden. Wenn sich ein neuer Client verbindet, wird dafuer ein eigener Socket erstellt. In der tcppipe.conf Datei, die auch in der zip-Datei enthalten ist, befindet sich ein Beispiel zum Testen. Wenn man die conf-Datei unveraendert laesst und tcppipe.pl startet, wird am lokalen Computer ein TCP Server auf Port 2102 erstellt. Wenn man dann mit dem Browser auf http://localhost:2102/ schaut, wird man feststellen, dass meine Seite erscheint. Die Anfragen an localhost:2102 werden also auf fox21.at:80 weitergeleitet. Die Konfigurationsdatei (tcppipe.conf) kann man natuerlich beliebig anpassen. Wenn localhost (= 127.0.0.1, Loopback) fuer den lokalen Server verwendet wird, dann kann man nur vom selben Computer darauf zugreifen. Nicht aber von einem Anderen. Wenn von jedem Computer im Netzwerk darauf zugegriffen werden darf, muss man fuer die lokale IP-Adresse z.B. 192.168.241.21 verwenden. Kommt darauf an, welche IP-Adresse der Computer im Netzwerk hat. Verwendet man 0.0.0.0 als lokale IP-Adresse fuer den Server, so wird auf allen Interfaces gelauscht (LISTEN). Dieses Script funktioniert auch mit ActivePerl. Es benoetigt die Module IO::Select, IO::Socket::INET und Time::HiRes.

Benoetigte Perl-Module

• IO::Select
• IO::Socket::INET
• Time::HiRes

Konfiguration

• Jeder server-Block muss einen client-Block enthalten.
• Die ip, egal ob im server- oder im client-Block muss folgendes Format haben: host:port

Flags

Hier ist eine Liste mit den Bedeutungen des flags-Feldes, das in jedem server- und client-Block vorkommen sollte:

• a = active: Wenn kein a vorkommt, wird der Server nicht erstellt. Damit kann man ganz einfach den Server ein- und ausschalten. Natuerlich wird dann auch kein Client erstellt. Was das a im Client-Block ueberfluessig macht.
• t oder u: TCP oder UDP. Das t steht fuer TCP und das u fuer UDP. Schreibt man beides in das gleiche flags-Feld, so wird TCP verwendet.
• s, c oder l = server, client und lokal client: Jeder Server hat intern eine s-Flag und jeder Client ein c-Flag. Cienten, die zum lokalen Server verbunden sind, haben ein l-Flag (kleines L). Diese 3 Flags sind jedoch fuer die Konfigurationsdatei unwichtig, da sie nur intern in der Funktion parseConfig vergeben werden. Und natuerlich auch, wenn ein neuer Socket erstellt wird.

Download

• tcppipe-1.0.0.zip