Foro - Perl en Español

El error lo cometí yo aquí al transcribir. Pero en el código original los nombres coinciden.

Mi problema estaría ahora en que quiero codificar en base 64 el archivo cms.bin obtenido en el firmado con el openSSL.

¿¿ Está bien hacerlo como sigue ??
open my $CMS, q[<], 'cms.bin';
binmode $CMS;
read $CMS, my $cms, -s 'cms.bin';
close $CMS;

use MIME::Base64;

my $encoded = encode_base64($cms); # ¿¿ Es correcto ??

Sí, yo sí lo veo correcto... $encoded debería ser un fichero de texto con líneas de 76 caracteres de ancho, separadas por "\n".

Perfecto, ¡¡¡primera parte LOGRADA!!! ¡¡¡Gracias a su ayuda y colaboración permanente!!!

El error estaba en la llamada al OpenSSL:
open(my $fh, "| openssl smime -sign -signer $cert -inkey $privatekey -outform DER -out cms.bin -nodetach");
binmode $fh;
print $fh $tra_xml;
close $fh;

$cert y $privatekey deben ser los path a los archivos que contienen la clave privada y el certificado correspondiente.

¡¡¡¡ Modificando eso anda perfecto !!!! ¡¡¡¡GRACIAS!!!!

¡¡¡Ahora vamos con la segunda parte!!! ¡¡¡Pero en otro post!!!