Hei alle, ovenfor er et eksempel som jeg bruker til å ringe en annen perl skript fra gjeldende perl skriptet.

Jeg har to bekymringer:
1) Det finnes en bedre metode for å oppnå samme formål (f.eks ringe en annen perl skript fra en perl script)?

2) Legg merke til det er en exit-kommandoen i mitt kall skriptet. Vil avslutte kommandoen bli utført først etter at B.pl er fullført eller det vil bli gjennomført umiddelbart B.pl kalles?

Ja. Bruk krever ().

Jeg tror ikke dine B.pl går seg i bakgrunnen modus (slik som for daemoner, for eksempel), blir perl prosessen for B.pl vil ikke gå ut før den er ferdig, og dermed system () i ringer Skriptet vil ikke tilbake (merk at systemet () bare utfører en perl prosessen på samme måte som andre prosesser). Hvis exit () skjer etter system (), kan du anta at det vil kun bli henrettet når B.pl utganger uansett grunn.

Har du prøvd å finne ut om det er tilfelle?

B.pl er ikke en bakgrunn modus, dens en normal bruker skriptet.

Jeg qoute fra perldoc for systemet "... Har akkurat det samme som exec listen, bortsett fra at en gaffel gjøres først, og den overordnede prosessen venter for barnet prosess å fullføre ...." Så jeg kan ta det at min første skriptet vil vente på B.pl er ferdig før du går videre.

den perldoc oppføring for exec sier ".. Den exec funksjonen utfører et system kommandoen og aldri tilbake -". Derfor kan jeg anta at når det ringer B.pl, kallehendelsen skriptet vil avslutte.

Min hensikt er ikke å vente på B.pl til slutt, (dvs. kjører B.pl og ringer script selv exit) derfor jeg skal bruke exec? Eventuelle trekke tilbake?

Jeg liker å kreve at alle andre filer på begynnelsen av hovedårsakene script deretter bare ringe rutiner i dem ved behov. Dette kan være den beste måten, men det fungerer ganske bra for meg. For øvrig, hvis jeg husker riktig, tror jeg filen du ringer ikke nødvendigvis standard perl script overskrift, trenger ikke å slutte med "pl" eller "cgi", og du trenger ikke kjørbare tillatelser.

(main_file.pl)

#! / usr / bin /perl
krever "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 igjen";
)
1; # return true



I didn't test som script, men jeg vet at det er virkelig nær det jeg gjør.

Takk karlsworld,
Jeg kjørte inn koden, og det virket, men jeg trenger å passere argumenter, og å legge dem (på samme måte som du gjør med en subroutine) fungerer ikke. Dette er min første erfaring med perlOg tåpelig roadblocks er så frustrerende!

Beklager - Jeg så overalt og prøvd en rekke tilnærminger, uten å lykkes. Eventuelle hjelpe ville være verdsatt!

Plukke opp Perl og Robert's Perl Opplæringen. Online bøker, både med en svært grundig dekning av emnet for newbs til språket.

Egentlig "plukke opp Perl"Ikke engang nevne ringe andre perl scripts, og "Roberts Perl Tutorial "er for Windows, og det bare nevner gjøre det med moduler. Men jeg klarte å bruke det og karlsworld står script til stykket sammen noe som virker.

Også, jeg glemte å nevne at jeg ikke ønsker å bruke systemet () fordi jeg må passere flere filnavn og vil kunne godta mellomrom uten hodepine av å finne ut hvilke brikker gå sammen i målet metode.

Uansett. For de som leser dette i fremtiden, dette fungerer:

(main_file.pl)
(other_file.pl)
Og produksjon er:

Utskrift: Hei!
NÃ¥ utskrift: Hei igjen
Mottatt: Hei igjen 2009