Come faccio a passare gli argomenti a un processo esterno da Perl?
-
21-09-2019 - |
Domanda
Ho un eseguibile dell'applicazione, che corre con parametri diversi per produrre uscite diverse. Voglio dare alcuni parametri per questo dai parametri della riga di comando dello script e altri saranno locale per lo script. Uso:
./dump-output.pl <version> <folder-name> <output-file>
my $version = $ARGV[0];
my $foldername = $ARGV[1];
my $outputfile = $ARGV[2];
my $mkdir_cmd = "mkdir -p ~/$foldername";
# There are 6 types of outputs, which can be created:
# 'a', 'b', 'c', 'd', 'e' or 'f'
my @outputtype = ('a', 'b', 'c', 'd', 'e', 'f');
my $mkdir_out = `$mkdir_cmd`;
for( $itr=0; itr<=5; itr++ ) {
$my_cmd = "./my_app -v $version -t $outputtype[itr] -f $outputfile > ~/$foldername/$outputtype.out"
$my_out = `$my_cmd`;
}
sto facendo qualcosa di intrinsecamente sbagliato con il codice di cui sopra, ma non sono stati in grado di capirlo: - (
Soluzione
# Always include these at the top of your programs.
# It will help you find bugs like the ones you had.
use strict;
use warnings;
# You can get all arguments in one shot.
my ($version, $foldername, $outputfile) = @ARGV;
# A flag so we can test our script. When
# everything looks good, set it to 1.
my $RUN = 0;
my $mkdir_cmd = "mkdir -p ~/$foldername";
my $mkdir_out = run_it($mkdir_cmd);
# Word quoting with qw().
my @outputtype = qw(a b c d e f);
# If you already have a list, just iterate over it --
# no need to manually manage the array subscripts yourself.
for my $type (@outputtype) {
my $my_cmd = "./my_app -v $version -t $type -f $outputfile > ~/$foldername/$type.out";
my $my_out = run_it($my_cmd);
}
# Our function that will either run or simply print
# calls to system commands.
sub run_it {
my $cmd = shift;
if ($RUN){
my $output = `$cmd`;
return $output;
}
else {
print $cmd, "\n";
}
}
Altri suggerimenti
Il $
ciclo for è mancante
L'array OutputType manca un $itr
per l'indice
Ci possono essere più - non ho ancora testato. Questa è la roba ovvia.
Sembra che forse si proviene da un linguaggio come C dove una variabile può essere un bareword come "i
". Le variabili in perl iniziano sempre con $
per scalare, @
per la lista, %
per hash.
Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow