Utilisation de variables perl locales dans la commande shell

Question

J'essaie d'exécuter une commande de recherche à distance, mais je dois lui transmettre des variables locales dont la valeur provient des arguments de la ligne de commande de l'utilisateur. Mais, je reçois une erreur "variable indéfinie". Je suis en train de faire quelque chose comme:

my $ssh = Net::OpenSSH->new($host); 
#I am getting a part of the $path and $pattern from command line 
#I have to look for $pattern at the $path 
my @files = $ssh->capture(q(find $path -name $pattern)); 

Cette commande fonctionne bien quand je donne le chemin exact et le modèle, mais je reçois erreur quand je remplacerai avec des variables.

Answer 1

q(find $path -name $pattern) 

Ceci est la chaîne littérale find $path -name $pattern, signes dollar et tout.

Perl a plusieurs types de guillemets différents. "" va interpoler les variables (ie les remplacer par leurs valeurs), '' ne le fera pas. q() est une autre façon d'écrire ''. Vous voulez qq(). Pour plus d'informations, voir Quote and Quote-Like Operators in perlop.