Hi everyone, oben ist ein Beispiel dafür, dass ich mit einen weiteren perl Skript aus dem aktuellen perl Skript.

Ich habe zwei Anliegen:
1) Diese gibt einen besseren Weg zur Erreichung des gleichen Zweck (zB ein anderes perl Skript von einem perl Script)?

2) Hinweise gibt es eine Ausfahrt Befehl in meinem Script Aufruf. Wird die Ausfahrt Befehl ausgeführt werden erst nach B.pl ist oder es wird sofort ausgeführt B.pl heißt?

Ja. Verwenden Sie require ().

Ich glaube, es sei denn, Ihr B.pl selbst läuft im Hintergrund (z. B., dass der Daemonen, zum Beispiel), die perl für B.pl wird nicht verlassen, bevor es abgeschlossen ist, und damit system () Aufruf in Ihrem Skript wird nicht wieder (beachten Sie, dass system () führt eine nur perl Prozess in der gleichen Weise wie andere Prozesse). Wenn Sie die Ausfahrt () tritt nach dem Einschalten des Systems (), können Sie davon ausgehen, es wird nur dann ausgeführt, wenn B.pl Ausgänge aus welchem Grund auch immer.

Haben Sie versucht, herauszufinden, ob dies der Fall ist?

B.pl ist kein Hintergrund, seine ein normaler Benutzer-Skript.

i qoute von perldoc für System "... tut genau dasselbe wie exec LISTE, es sei denn, dass eine Gabel erfolgt zuerst, und der Parent-Prozess wartet auf das Kind zur vollständigen ...." Ich kann also davon ausgehen, dass mein erstes Skript warten B.pl bis zum Ende vor dem Beenden.

perldoc der Eintrag für exec sagt: ".. Die Funktion exec führt ein Kommando-und kehrt nie -". Deshalb kann ich davon ausgehen, dass, nachdem sie fordert B.pl, das aufrufende Skript wird beendet.

Meine Intention ist es, nicht zu warten, bis zum Ende B.pl, (dh, läuft B.pl und der Anrufer-Skript selbst Ausfahrt) also ich sollte exec? Alle ziehen den Rücken?

Ich mag, dass ein anderer Dateien zu Beginn des Haupt-Skript dann rufen Sie die Routinen in der sie als notwendig. Dies kann, muss aber nicht der beste Weg, aber es funktioniert sehr gut für mich. By the way, wenn ich mich richtig erinnere, ich glaube, dass die Datei, die Sie gerade Aufruf nicht notwendigerweise die Norm perl Script-Header, nicht zu Ende "pl" oder "cgi", und muss nicht mehr ausführbar Berechtigungen.

(main_file.pl)

#! / usr / bin /perl
erforderlich ist "other_file.pl";
& do_something;
& do_something_else;
exit;

(other_file.pl)

Unter do_something (
print "Content-Type: text / html \ n \ n";
print "ok";
)
Unter do_something_else (
print "Content-Type: text / html \ n \ n";
print "OK" ";
)
1; # return true



Ich habe nicht testen, ob Skript, aber ich weiß es wirklich nahe, was ich tue.

Dank karlsworld,
Ich habe den Code ein, und es hat funktioniert, aber ich brauche die Argumente, und einfach, sie (in der gleichen Weise wie Sie mit einer Subroutine) funktioniert nicht. Dies ist meine erste Erfahrung mit perl, Und die sind so dumm Strassensperren frustrierend!

Sorry - ich sah überall und versucht eine Reihe von Ansätzen, ohne Erfolg. Jede Hilfe wird gebeten!

Picking Up Perl und Robert's Perl Tutorial. Online-Bücher, die beide mit einer sehr ausführlichen Überblick über das Thema für newbs auf die Sprache.

Eigentlich "Picking Up Perl"Nicht einmal erwähnt fordert andere perl Skripte, und "Robert's Perl Tutorial "ist für Windows und es nur erwähnt, tun es mit den Modulen. Dennoch, ich, es zu benutzen und das Skript zu karlsworld Stück gemeinsam etwas, das funktioniert.

Also, habe ich vergessen zu erwähnen, dass ich nicht verwenden wollen, system (), da brauche ich, um mehrere Dateinamen und möchten in der Lage zu akzeptieren, ohne die Räume Kopfschmerzen, herauszufinden, welche Teile gehen in das Ziel-Methode.

Immerhin. Für die Lesung in die Zukunft, das funktioniert:

(main_file.pl)
(other_file.pl)
Und die Ausgabe lautet:

Druck: hallo
Jetzt Druck: hallo wieder
Received: hallo wieder 2009