Foro - Perl en Español

Hola,

El problema es el siguiente: utilizo una subrutina de Ajax para mostrar los resultados de una consulta, hasta aquí no hay ningún problema, pero necesito implementar dentro de esta subrutina otra para eliminar un registro, pero no funciona y no sé cómo hacer la implementación del nuevo objeto cgi.

Este es el código de la implementación.

#implementación
my ($cgi) = new CGI;
my ($pjx) = new CGI::Ajax( 'consultaUsuarios' => \&consultaUsuarios);
my ($pjx2) = new ...

«Gracias a la necesidad de mandar notificaciones de Nagios utilizando un servidor SMTP remoto busque la manera de crear un script que me permita tal tarea, y ¿adivine quien me ayudo? ¡Perl!

Gracias a Perl y el módulo Net::SMTP::TLS pude crear un script que me permitió mandar correos a un servidor SMTP remoto que requiera TLS y autentificación (Por ejemplo Gmail como en este caso).»

Artículo

Hola tengo una duda de si se pude recomponer un hash. Me explico:
Tengo este hash (los guiones son ejemplo para separar los datos):
100022-Cliente1-Sucursal Principal-101-6
100022-Cliente1-Sucursal Principal-103-1
100022-Cliente1-Sucursal Principal-104-2
100022-Cliente1-Sucursal Principal-105-45
100022-Cliente1-Sucursal Principal-108-6
100022-Cliente1-Sucursal Principal-109-1
100022-Cliente1-Sucursal Principal-110-8
100024-Cliente2 -Constitucion-101-41
100024-Cliente2 -Constitucion-103-76
100024-Cliente2 -Constitucion-101-41
100024-Cliente2 -Constitucion-105-343
100024-Cliente2 -Constitucion-107-3
100024-Cliente2 -Constitucion-108-38
100024-Cliente2 -Constitucion-109-11
100024-Cliente2 -Constitucion-110-30
100024-Cliente2 -Constitucion-111-34


Y lo que quiero es consolidad toda los datos de un código de cliente así
100022-Cliente1-Sucursal Principal-101-6-103-1-104-2-105-45-108-6-109-1-110-8
100024-Cliente2 ...

Hola. Soy nuevo en Perl y quisiera hacer un programa en Perl para Windows donde puede exportar un resultado de la BD a una plantilla de Excel que ya está formulado. He visto Spreadsheet::ParseExcel pero no sé si el indicado.

En espera de su ayuda,

saludos.

Buenos días y gracias de antemano por el apoyo.

Estoy intentando enviar un email con un archivo adjunto. Utilizando Email::Send::SMTP::Gmail. y produce el siguiente error (Odd number of elements in hash assignment at /usr/local/share/perl/5.10.0/Email/Send/SMTP/Gmail.pm line 82.) el correo sale y llega al destinatario pero sin anexo.

Anexo el código fuente.
#!/usr/bin/perl

use Email::Send::SMTP::Gmail;
use Data::Dumper;
use File::Basename;
use DBI;
use DBD::Pg;
use POSIX qw/ strftime /;
use File::Copy;

my $user = "postgres"; #Nombre de ...

La empresa NET-A-PORTER.com, empresa especializada en moda de lujo, anunció en el pasado YAPC::EU::2011 que donaría 10.000$ al equipo de desarrollo de Perl 5.

Estimados su ayuda, estoy tratando de reemplazar los acentos y eñes de la siguiente manera:


#!/usr/bin/perl

$Variable ="El árbol está dañado";
$Variable =~ tr/áéíóúüñçÁÉÍÓÚÜÑÇ/aeiouuncAEIOUUNC/;

print $Variable;

Sin embargo no me saca los tildes ni las "ñ". El dato lo obtengo de un campo varchar de una base de datos. No sé si será por eso. Desde ya, muchas gracias.

¡Qué tal, comó están todos!

Antes que nada quiero decirles que soy nuevo en este lenguaje (Perl) y la verdad tengo mucho interés en aprender más.

Tengo una página hospedada en un servidor, un dominio y el servidor soporta PHP y Perl para los cgi, sé cuales son las rutas y tengo los permisos 755 en la carpeta y en el archivo .cgi, pero a la hora de hacer una prueba da error.

El servicio ...

Hola:
Este es mi entorno gráfico del programa:


Funciona de la siguiente forma:

El usuario abre un archivo gbk,y al presionar el botón se genera el resultado que se visualiza en el TextView, eso lo tengo ya realizado. Al apretar el botón guardar se abre la siguiente ventana.


Mi problema es que no sé cómo puedo guardar los datos que se muestran en el TextView al presionar el botón guardar.


Si me pueden ...

hola, soy nuevo en el foro.

Estoy creando una interfaz gráfica para un programa de Bioperl. Estoy usando glade + gtk para crear la interfaz.

El problema es cómo hacer global la variable $archivo_seleccionado ya que la necesito para otra función de otro botón que es el encargado del script Bioperl.

# función para el botón de selección de archivo
sub seleccion_archivo_file_set_cb {
my $archivo_seleccionado = $seleccion_archivo->get_filename;
return ($archivo_seleccionado);

}

si hago esto para ...