Mehrere (copy-) Prozesse gleichzeitig, geht das?

Computer: Software & Programmierung Perl & CGI
#1

Hallo,

es muß doch mit Perl möglich sein, mehrere Prozesse gleichzeitig zu starten und zu verwalten. Ich nutze ActivePerl 5.15 unter Windows.

Das Problem:
Ich will ca. 200 Rechner mit einer (größeren) Datei versorgen, also kopieren. Dazu habe ich eine Liste mit den IP-Adressen und Login-Informationen dieser 200 Rechner, die ich in ein Array einlese. Das Array laufe ich in einer foreach-Schleife durch und mache folgendes:
a) Verbindung öffnen (z.B. mit ‚net use‘)
b) Datei von lokalem PC auf den „Remote-PC“ kopieren
c) Verbindung trennen

Das hat den Nachteil, das die Schleife bei einer großen Datei sehr lange läuft.
Eleganter wäre, mehrere Verbindungen - sagen wir: 15 - gleichzeitig zu öffnen, und die Dateien an diese 15 Remote-Rechner in einem Rutsch zu verteilen.

Natürlich kann ich das Skript auch 15mal kopieren und 15mal aufrufen, das hätte den gleichen Effekt, wäre aber nicht ganz so clever.

Was meint ihr? Gibts da ne Möglichkeit?
Ich habe mir in den FAQ schon einen Wolf gesucht, aber nix gefunden …

Gruß,
Harald

#2

Hi,

frohes neues Jahr auch :smile:

Probier es doch einfach mit Threads. Die
können auch schneller erzeugt werden als Prozesse.
Außerdem hast du die Probleme der Interprozesskomunikation
nicht. Threads laufen ja alle im selben Adressraum. Also
haben die Zugriff auf die globalen Variablen. :wink:

Ich habe hier ein kleines Beispielprogramm das helfen sollte.

use threads;

sub start_thread {
print „Thread started nr=“ . $_[0] . " id=" . threads->self()->tid() . „\n“;
}

my @threads = ();

for(my $i = 0; $i create(„start_thread“,$i);
push @threads, $thread;
}

Auf die Beendigung der anderen Threads warten

foreach $thread (@threads) {
$thread->join();
}

print „finished…\n“;

Mehr steht in der Perl Manpage http://www.perldoc.com/perl5.8.0/pod/perlothrtut.html

Wenn du was allgemeines über Threads und Prozesse wissen
willst, dann schau doch mal hier hinein.
http://www.computer-link.de/view.php?docID=1

Viel Spaß und Glück beim Programmieren im neuen Jahr!