Foro - Perl en Español

Buenas, ando intentando importar el token de otro archivo pero me dice que ese paquete no lo tengo instalado. No sé si en algún sitio tengo que poner la ruta o algo.

Los dos archivos los tengo en el mismo directorio.

Este es el código del pm:

package Auth;
use strict;
use warnings;

use base 'Exporter';

use constant TOKEN => 'El token';

our @EXPORT_OK = ('TOKEN');

1;

Aquí el código del pl: ...

Me gustaría poder hacer con WWW::Mechanize una petición POST, pero el servidor no tiene un certificado válido. ¿Cómo podría solucionar ese detalle?

He leído esto en la página del módulo LWP:

HTTPS Requests

HTTPS requests are HTTP requests over an encrypted network connection using the SSL protocol developed by Netscape. Everything about HTTP requests above also apply to HTTPS requests. In addition the library will add the headers "Client-SSL-Cipher", "Client-SSL-Cert-Subject" and "Client-SSL-Cert-Issuer" to the response. ...

Buenas tardes. Al enviar varios archivos utilizando ENCTYPE="multipart/form-data", esto es con el archivo HTML:
<form ENCTYPE="multipart/form-data" method="post" action="../../cgi-bin/sistema/upload.cgi">
Tarda demasiado, incluso si únicamente envío los archivos y los recibo en el CGI sin hacer nada con ellos:
#!/usr/bin/perl -w
#!/usr/bin/perl -T
use strict;
use CGI;
use CGI::Carp qw ( fatalsToBrowser );
use File::Copy; ###---Utilizado para usar copy
my $cgi = new CGI;
my @archivos = $cgi->param("archivos");
my @nombre_archivos = ("NI","RP","RDZ","CRF");
print ...

Saludos.

Tengo un archivo de texto plano txt, generado por cobol, y necesito extraer los datos del archivo y almacenar las variables para luego enviarlas a una base de datos.

Se me ocurre hacerlo a través de las posiciones en la que se encuentran en el archivo, pero en ese caso no sé cómo hacerlo, y si hay otra forma me gustaría que me dieran una sugerencia.

El texto similar es este:

9836 188 ...

Este módulo (mucho mejor usar el script bootstrap-perl) permite la instalación de un Perl completo, incluyendo módulos CPAN, desde una cuenta git (externa o interna), en un directorio local.

Ideal para máquinas o sistemas que no tengan instalado perl.

https://metacpan.org/pod/App::Bootstrap::Perl

La pregunta es simple: tengo acceso a root y puedo instalar módulos, pero estos se instalan, por ejemplo en /usr/root.

Mi proyecto es un sitio web y el usuario de Apache para la ejecución del script no tiene permiso para leer los módulos, y la alternativa más rápida fue copiar y pegar a los directorios con permisos.

¿Alguna forma en la que pueda instalar siendo root, pero que los otros usuarios pueda utilizarlos?

También me ...

Estoy usando CGI::Application::Plugin::Authentication, pero mi problema es que la contraseña a la que tengo que comparar está codificada en mi base de datos con un módulo no convencional.

Mi idea es aplicarle al parámetro contraseña de entrada la función de codificación, para luego si comparar con lo almacenado en base de datos. Pero no hace nada. ¿Cuál es mi error? ¡Gracias!



my $crypt = My::Crypt->new( debug => 0 );
my $texto= 'textodeencriptado';

my ...

¿Cómo puedo hacer peticiones a un servicio web usando WWW::Mechanize GET pasándole parámetros?

La documentación dice esto:
get() is a well-behaved overloaded version of the method in LWP::UserAgent. This lets you do things like

$mech->get( $uri, ':content_file' => $tempfile );

and you can rest assured that the parms will get filtered down appropriately.
También vi esto:
$ua->get( $url )
$ua->get( $url , $field_name => $value, ... )

This method will dispatch a GET request on ...

Buenos días.

He visto esta noticia: post40209.html?hilit=perlcritic#p40209 y he estado probando la configuración de .perlcriticrc pero sólo consigo que me saque las advertencias.

¿Alguien sabe cómo se podrían poner los errores de compilación?

Muchas gracias de antemano.

Hola, Felices Fiestas :)

Estoy queriendo crear un log desde un bot en Perl, y quiero darle el siguiente formato:

1013630386748 :nick!ident@hostname PRIVMSG #channel :Hello world.

El valor ":nick!ident@hostname PRIVMSG #channel :Hello world." me viene dado por el servidor, y la fecha (1013630386748) la puedo tomar con `date +%s%N` del sistema operativo.

Lo que no sé es cómo grabarlo a partir de este código:

#!/usr/bin/perl ...