Foro - Perl en Español

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 ...

Se puede descargar desde aquí: https://www.activestate.com/products/ko ... nload-ide/

¿¿ Algo nuevo ??

Vamos a decaer 100 % en popularidad en el mundo hispano...
Dancer o Mojo por fin tendrán difusión, etc.

Bueno, en fin, ¿qué hay de nuevo?

¿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 ...