Tag: HYPERLEDGER-BESU
En el tutorial de Mojolicious se explica cómo colocar plantillas dentro de la sección __DATA__ de archivos Perl. Supongamos que tenemos un directorio de plantillas: /var/www/site/templates/. ¿Cómo configurar el directorio de plantillas para usarlo? #!/usr/bin/env perl use Mojolicious::Lite -signatures; # ¿Quizás necesito usar un renderizador personalizado? # use Mojolicious::Renderer; get . . . Read more
En un script de Perl, quiero determinar desde qué shell se llamó mi script de Perl. La motivación es que he escrito un envoltorio para “módulo”, pero antes de llamar al módulo, necesito saber qué shell pasarle como argumento. Si extraigo $ENV{“SHELL”}, puedo ver que en algunos casos es /bin/tcsh, . . . Read more
He estado trabajando con Perl orientado a objetos. Tengo una clase base, que es un código heredado y no puedo cambiarlo. Estoy escribiendo una clase derivada con un nuevo estilo (también conveniente para mí), pero cuando lo estoy derivando, estoy obteniendo un error como: Intento de bendición en una referencia . . . Read more
Utilizo el paquete WWW::Curl::Easy para llamadas de API, y este es mi código de ejemplo: use WWW::Curl::Easy; my $curl = WWW::Curl::Easy->new(); $curl->setopt(CURLOPT_POST, 1); $curl->setopt(CURLOPT_HEADER, 1); $curl->setopt(CURLOPT_HTTPHEADER, ['Accept: text/xml; charset=utf-8', 'Content-Type:text/xml; charset=utf-8', 'SOAPAction: "importSheet"']); $curl->setopt(CURLOPT_POSTFIELDS, $requestMessage); $curl->setopt(CURLOPT_URL, $tom::{'setup'}{'api'}{'carrier'}{'url'}); my $response; $curl->setopt(CURLOPT_WRITEDATA, \$response); main::_log(Dumper(\$curl)); my $ret = $curl->perform(); ¿Puedo de alguna manera . . . Read more
Estaba intentando ejecutar uno de los archivos perl en la línea de comandos desde la ubicación donde se encuentra el archivo. Una vez que entro en modo de depuración, las funciones de las teclas de flecha hacia abajo y hacia arriba del historial de comandos no funcionan. He intentado muchas . . . Read more