Comment utiliser un nom de variable perl correctement dans les backticks?

J'ai besoin pour exécuter le code suivant sur un shell bash:

mogrify -resize 800x600 *JPG

Étant donné que la largeur et la hauteur sont des variables, j'ai essayé ceci:

`mogrify -resize $widx$hit *JPG`

Cependant lors de la compilation, j'obtiens l'erreur que Global symbol "$widx" requires explicit package name at getattach.pl line 131.qui est parce qu'au lieu de $wid et x séparément, le compilateur voit $widx comme une nouvelle variable non déclarée.

J'ai essayé d'insérer des guillemets à l'intérieur de la backticks, mais l'exécution de code s'est arrêté sans aucun message.

Quelle est la bonne manière d'insérer les noms de variables dans les backticks de l'exécution du shell? Peuvent-ils être concaténés?

source d'informationauteur Droidzone

  1. 20

    Pour insérer une variable dans toute l'interpolation de chaîne (qq// ou qx ou qr//), il suffit de faire "this is $foo!" est suffisante: le nom de La variable (ici: $foo) est délimitée par le ! qui ne peuvent pas faire partie d'un nom de variable.

    Il n'est pas si facile lorsque des parties de la chaîne pourrait être une partie du nom de Perl règles de nommage. Exemple:

    my $genes = "ACTG$insert_genes_hereACTG";

    Perl considère que le nom de la variable à $insert_genes_hereACTG. Ce problème peut être résolu par

    1. À l'aide de curlies de délimiter le nom:

      my $genes = "ACTG${insert_genes_here}ACTG";

      Cela fonctionne toujours et est une solution flexible

    2. De la concaténation de la chaîne:

      my $genes = "ACTG" . $insert_genes_here . "ACTG";

      C'est un peu difficile pour les non-qq-citations. Une solution est de créer une variable temporaire qui retient toute la chaîne, et interpole en spécial citations:

      my $command = "mogrify -resize " . $wid . "x" . $hit. " *JPG";
`$command`;

      Une variante de cette approche consiste à utiliser sprintf interpolation:

      my $command = sprintf 'mogrify -resize %dx%d *JPG', $wid, $hit;

    Que d'un côté, de nombreux shell interpolation des problèmes peuvent être contournés par pas à l'aide de backticks, et à l'aide de open ou system à la place (en fonction de si oui ou non vous avez besoin de sortie).

    Avec open:

    open my $command, "-|", "mogrify", "-resize", $wid . "x" . $hit, glob("*JPG")
  or die ...;

while (<$command>) { do something }

    Cette contourne complètement le shell (et plutôt execs directement), afin d'expansion doit être fait manuellement. La même chose vaut pour system avec plus d'un argument.

  2. 5

    Ce problème n'est pas spécifique à backticks. Le problème peut se produire chaque fois que vous interpoler Perl variables dans une chaîne de caractères.

    my $wid = 800;
my $hit = 600;

print "$widx$hit"; # this has the same problem

    Le problème est que le compilateur Perl ne peut pas savoir où le nom de la variable ("wid"), et le fixe de bits de la chaîne ("x") commence. Donc, il suppose qu'il est à la recherche d'une variable appelée $widx - qui n'existe pas.

    La solution est de mettre le nom de la variable dans { ... }.

    my $wid = 800;
my $hit = 600;

print "${wid}x$hit"; # This works
  3. 1

    En plus de l'autre les bonnes réponses, vous pouvez également utiliser le readpipe fonction, qui est l'équivalent de backticks et la qx de l'opérateur. Mais comme une fonction régulière, vous pouvez exercer un plus grand contrôle sur la façon dont les arguments sont interpolées.

    $output = readpipe("mogrify -resize $wid" . "x$hit *.JPG");
$output = readpipe( sprintf "mogrify -resize %dx%d *.JPG", $wid, $hit );