Perl et openssl

Version imprimable

Perl et openssl

Bonjour à tous,
je suis en train d'essayer de faire communiquer perl et openssl. Pour cela j'effectue des appels à openssl depuis mon script perl de la manière suivante :
Code:

1 2 3 4 5 6 7 8 my $bits = shift; my $passphrase = shift; my $privFile = "tmpPriv.key"; my $randFile = "random-bits"; $commande = "openssl genrsa -des3 -out $privFile -passout pass:$passphrase -rand $randFile $bits"; `$commande`;
Ce petit bout de script lance la commande : openssl genrsa -des3 -out tmpPriv.key -passout pass:pwd -rand random-bits 1024

Et c'est là que tout part en cachuète ! J'ai beau passer l'option pass:motdepasse openssl me redemande à chaque fois de saisir une pass phrase... alors que si j'effectue cette même commande directement dans un terminal il ne me demande plus de passphrase.... donc je n'y comprends rien et je galère...

Quelqu'un aurait-il une solution ?

Merci d'avance.

25/04/2006, 21h07
lami20j
Salut,

En général on utilise les apostrophes inverses pour capturer une sortie.
Code:

1 2 my $date = `date`; print "Nous sommes le : $date\n";
Utilise la fonction system plutôt.

lami20j
25/04/2006, 21h15
Jedai

Essaie de faire un "print $commande;" pour vérifier.

--
Jedaï
25/04/2006, 21h39
refre

Re-bonsoir, merci pour vos réponses mais j'avais oublié de le précisé dans mon post d'origine, j'ai déjà testé avec system (même résultat) et la sortie de print $commande est conforme à ce que je désire obtenir... d'ailleurs quand je copie/colle le résultat de print $commande et que je le lance la commande fonctionne correctement... :?
25/04/2006, 21h53
lami20j

Re,

Veux-tu afficher la syntaxe de ton essai avec system ? Merci.

lami20j
25/04/2006, 22h48
Jedai

Bizarre... Très bizarre.... Essaie avec un system à plusieurs arguments, ça évite de passer par le shell, peut-être y a-t-il un problème à ce niveau là.

--
Jedaï
26/04/2006, 10h37
refre

Citation:

Envoyé par lami20j

Re,

Veux-tu afficher la syntaxe de ton essai avec system ? Merci.

lami20j

j'ai tout simplement fait un system($commande);
au lieu du `$commande`

franchement sur ce problème je sèche, en plus il n'y a que cette option (-passout) qui ne passe pas, le reste semble fonctionner...
26/04/2006, 11h16
Mr6

Code:

my $passphrase = shift;

tu appelles ton script en lui passant ta passphrase en param ? je suppose que c'est le dernier param que tu lui passes ? il n'y aurait pas un retour chariot qui traine ?