Comment puis-je exécuter un script Perl à partir d'un script Perl?

Vous pouvez simplement le faire.

{
    local @ARGV = qw<param1 param2 param3>;
    do '/home/buddy/myscript.pl';
}

Empêche la surcharge de chargement dans une autre copie de perl.

Vous avez déjà de bonnes réponses à votre question, mais il y a toujours la possibilité de prendre un point de vue différent: peut-être devriez-vous envisager de refactorer le script que vous voulez exécuter à partir du premier script. Transformez la fonctionnalité en module. Utilisez le module du premier et du deuxième script.

Je peux penser à quelques façons de le faire. Vous avez déjà mentionné les deux premiers, donc je ne vais pas entrer dans les détails sur eux.

1. backticks: $ retVal = " perl somePerlScript.pl;
2. appel système ()
3. eval

L'évaluation peut être effectuée en divisant l'autre fichier en une chaîne (ou une liste de chaînes), puis en "eval" les chaînes. Voici un échantillon:

#!/usr/bin/perl
open PERLFILE, "<somePerlScript.pl";
undef $/;   # this allows me to slurp the file, ignoring newlines
my $program = <PERLFILE>;
eval $program;

4 . faire:

do 'somePerlScript.pl'

Utiliser backticks si vous avez besoin de capturer la sortie de la commande.

Utiliser system si vous n'avez pas besoin de capturer la sortie de la commande.

TMTOWTDI: il y a donc d'autres moyens, mais ce sont les deux plus faciles et les plus probables.

Si vous avez besoin d'appeler de manière asynchrone votre script externe - vous voulez juste le lancer et ne pas attendre qu'il se termine -, alors:

# On Unix systems, either of these will execute and just carry-on
# You can't collect output that way
`myscript.pl &`;
system ('myscript.pl &');    

# On Windows systems the equivalent would be
`start myscript.pl`;
system ('start myscript.pl');

# If you just want to execute another script and terminate the current one
exec ('myscript.pl');

Voir la documentation perlipc pour plusieurs options de communication interprocess.

Si votre premier script configure simplement l'environnement pour le second script, vous recherchez peut-être exec.

#!/usr/bin/perl
use strict;

open(OUTPUT, "date|") or die "Failed to create process: $!\n";

while (<OUTPUT>)
{
  print;
}

close(OUTPUT);

print "Process exited with value " . ($? >> 8) . "\n";

Cela va démarrer le processus date et canaliser la sortie de la commande vers la sortie filehandle que vous pouvez traiter une ligne à la fois. Lorsque la commande est terminée, vous pouvez fermer le filehandle de sortie et récupérer la valeur de retour du processus. Remplacez date par ce que vous voulez.

Je voulais faire quelque chose comme ça pour décharger les non-sous-Programmes dans un fichier externe pour faciliter l'édition. J'ai effectivement fait une sous-routine. L'avantage de cette façon est que ces variables" Mes " dans le fichier externe sont déclarées dans l'espace de noms principal. Si vous utilisez 'do', ils ne migrent apparemment pas vers l'espace de noms principal. Remarque la présentation ci-dessous n'inclut pas la gestion des erreurs

sub getcode($) {
  my @list;
  my $filename = shift;
  open (INFILE, "< $filename");
  @list = <INFILE>;
  close (INFILE);
  return \@list;
}

# and to use it:

my $codelist = [];
$codelist = getcode('sourcefile.pl');
eval join ("", @$codelist);