Foro - Perl en Español

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

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.

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

Hola, buenas, necesito ayuda urgentemente. Soy un poco novata.

Tengo un texto legal que recojo en un campo de una tabla en Oracle. Y un proceso en Perl que mete ese texto en una variable para después ponerlo como cuerpo de un email. Pero en el email las tildes me sale como interrogante. Es decir si yo en el campo de la tabla tengo reunión en el email el resultado es reuni?n.

No sé si ...

my $respuestas = $self->dbh->selectall_hashref("SELECT * FROM respuesta", 'id_respuesta');
$respuestas = ;
$$vars{respuestas} = $respuestas;

return $self->processtmpl($file,$vars);


El código anterior toma las respuestas de la base de datos y las retorna a una plantilla usando template toolkits, lo que no logro solucionar es cómo ordenar las respuestas ya que no tienen un orden lógico... el id_respuesta en un entero que se incremente en 1 cada vez que se realiza una respuesta.

Hola:

Tengo un array con diferentes códigos de lenguaje: @lang=('en', 'es', 'fr', 'it', 'de');

Me gustaría crear un array para cada idioma del array, de la forma:

@lang_en = ();
@lang_es = ();
@lang_fr = ();
@lang_it = ();
@lang_de = ();

He probado con:

foreach my $v (@lang_pref){
$$v++;
}

Pero me da el siguiente error:

Can't use string ("lang_en") as a SCALAR ref while "strict refs" in use at languages.pl line ...

Hola,
Tengo una fecha en este formato:20110818130234.0Z
¿Hay alguna forma para convertirla a formato unix? ( Nº de segungos desde 1970 )