Ciao a tutti, al di sopra è un esempio che sto usando per chiamare un altro perl script di corrente perl script.

Ho due preoccupazioni:
1) Il presente esiste un modo migliore di raggiungere lo stesso scopo (ad esempio, chiamare un altro perl da uno script perl script)?

2) vi è un avviso di uscita di comando di script nella mia vocazione. Intende l'uscita comando essere eseguito solo dopo che è stato completato B.pl O verrà eseguito immediatamente B.pl si chiama?

Sì. Usa require ().

Penso che se non si corre il tuo B.pl in modalità background (come quella di demoni, per esempio), la perl processo di B.pl non uscire prima del completamento, e quindi del sistema () nel vostro chiamando lo script non ritorno (si noti che sistema () esegue un solo perl processo allo stesso modo di altri processi). Se l'uscita () si verifica dopo il sistema (), si può presumere che non saranno eseguiti quando B.pl uscite per qualsiasi ragione.

Ti è cercare di scoprire se tale sia il caso?

B.pl non è una modalità di sfondo, il suo script di un utente normale.

i qoute da perldoc per il sistema "... Non esattamente la stessa cosa come exec ELENCO, ad eccezione del fatto che la forchetta è fatto prima, e il processo padre attende il processo figlio per completare ...." In modo che io possa prendere il mio primo script attendere B.pl alla fine prima di uscire.

l'ingresso per perldoc exec dice: ".. La funzione exec esegue un sistema di comando e non ritorna mai -". Pertanto posso supporre che dopo essere chiamate B.pl, la convocazione script uscita.

La mia intenzione non è quella di attendere B.pl alla fine, (ad esempio, gestisce il chiamante e B.pl script uscita), pertanto dovrebbe usare i exec? Qualsiasi trarre spalle?

Mi piace di richiedere qualsiasi altro file all'inizio degli script principale quindi chiamare la routine in loro, se necessario. Questo può o non può essere il modo migliore, ma funziona abbastanza bene per me. A proposito, se non ricordo male, credo che il file che si sta chiamando non deve necessariamente standard perl script di intestazione, non ha per fine a "pl" o "cgi", e non ha bisogno di autorizzazioni eseguibile.

(main_file.pl)

#! / usr / bin /perl
richiedono "other_file.pl";
& do_something;
& do_something_else;
uscita;

(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 di nuovo";
)
1; return true #



I test che non ha lo script, ma so che è vero e proprio vicino a quello che faccio.

Grazie karlsworld,
Ho eseguito il codice e ha funzionato, ma ho bisogno di passare argomenti, e semplicemente aggiungendo loro (nello stesso modo come si fa con una subroutine) non funziona. Questa è la mia prima esperienza con perl, E la inane blocchi stradali sono così frustrante!

Siamo spiacenti - Ho guardato dappertutto e ho cercato un po 'di approcci, senza successo. Qualsiasi aiuto sarebbe apprezzato!

Picking Up Perl e Robert's Perl Tutorial. Libri on-line, sia con una copertura molto approfondita del tema per newbs per la lingua.

In realtà "Picking Up Perl"Non menziona neppure chiamare altri perl script, e "Robert's Perl Tutorial "è per Windows e si parla di farlo solo con i moduli. Tuttavia, sono riuscito a utilizzarlo e karlsworld di script per mettere insieme qualcosa che funziona.

Inoltre, ho dimenticato di dire che non voglio usare sistema (), perché ho bisogno di passare più nomi di file e si desidera essere in grado di accettare gli spazi senza il mal di testa di capire che andare in pezzi il target metodo.

Comunque. Per coloro che la lettura di questo in futuro, questo funziona:

(main_file.pl)
(other_file.pl)
E l'output è il seguente:

Stampa: Ciao
Ora la stampa: Ciao di nuovo
Received: Ciao di nuovo 2009