printf(”Going to call another script... \n”);
system(”/my_dir/B.pl”); # call another perl script B.pl
exit;

Ja. Gebruik eisen ().

Ik denk dat, tenzij uw B.pl loopt zelf in de achtergrond (zoals die van deamons, bijvoorbeeld), de perl proces voor B.pl zal niet verlaten voordat het is voltooid, en dus systeem () in je belt script zal niet terugkeren (let op dat systeem () net voert een perl proces op dezelfde wijze als andere processen). Als de exit () optreedt nadat systeem (), kunt u ervan uitgaan dat zal alleen worden uitgevoerd wanneer B.pl uitgangen om welke reden.

Heeft u probeert uit te vinden of dit het geval is?

B.pl is geen achtergrond, zijn een normale gebruiker script.

i qoute van perldoc voor systeem "... Is precies hetzelfde als exec LIJST, behalve dat een splitsing wordt gedaan eerste en de bovenliggende proces wacht voor het kind proces te voltooien ...." Dus ik kan het dat mijn eerste script zal wachten op B.pl te voltooien voordat u afsluit.

de perldoc vermelding voor exec zegt ".. De exec functie voert een systeem commando en nooit terugkeer -". Daarom kan ik neem aan dat hij na de gesprekken B.pl, de aanroepende script zal verlaten.

Mijn bedoeling is niet om te wachten op B.pl te voltooien, (dat wil zeggen, loopt B.pl en de beller script zelf afslag) dus ik moet gebruiken exec? Elke trekken rug?

Ik wil graag dat alle andere bestanden aan het begin van de belangrijkste script dan alleen bellen naar de routines in deze zo nodig. Dit kan al dan niet de beste manier, maar het werkt vrij goed voor mij. By the way, als ik me goed herinner, ik denk dat het bestand dat u bellen hoeft niet noodzakelijkerwijs de norm perl script header, niet hoeft te eindigen in "pl" of "cgi", en hoeft niet uitvoerbaar machtigingen.

(main_file.pl)

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

(other_file.pl)

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



Ik heb niet testen dat script, maar ik weet dat het echt dicht bij wat ik doe.

Dankzij karlsworld,
Ik heb de code en het werkte, maar ik moet passeren argumenten, en voegen ze (op dezelfde manier als je met een subroutine) niet werkt. Dit is mijn eerste ervaring met perl, En het zinloos wegblokkades zijn zo frustrerend!

Sorry - ik overal gekeken en geprobeerd een stelletje benaderingen, zonder succes. Alle hulp wordt gewaardeerd!

Picking Up Perl en Robert's Perl Zelfstudie. Online boeken, zowel met een zeer grondige dekking van het onderwerp voor newbs om de taal.

Eigenlijk "Picking Up Perl"Niet eens melding belt andere perl scripts, en "Robert's Perl Tutorial "is voor Windows en het is slechts sprake van doen met modules. Toch heb ik om het te gebruiken en karlsworld het script voor stuk samen iets dat werkt.

Ook, ik vergat te vermelden dat ik het niet wilt gebruiken, system () want ik moet passeren meerdere bestandsnamen en wilt kunnen accepteren ruimtes zonder de hoofdpijn van het uitzoeken welke stukken gaan samen in de doelstelling-methode.

Hoe dan ook. Voor die het lezen van deze in de toekomst, dit werkt:

(main_file.pl)

#!/usr/bin/perl
use strict;
use warnings;
require "other_file.pl";

my $string = "Hello";
my $string2 = "Hello again";

do_something($string);
my ($s1, $s2) = do_something_else($string2);
print "Received: $s1 $s2\n";

exit;

sub do_something($){
        my $string = $_[0];
        print "Printing: $string\n";
}

sub do_something_else($){
        my $string = $_[0];
        print "Now printing: $string\n";
        my $yyyy = 2009;
        return ($string, $yyyy);
}

1; # return true