Foro - Perl en Español

Hola a todos buenos dias,
Les escribo ya que tengo un problema haciendo un execute() no se porque el codigo no funciona bien, en el segundo select y el script esta bloqueando la base de datos exactamente en la instruccion : $sth_select->execute()|| $self->error;
esta corresponde al segundo select :( ($sql_select_01)



$sql_select = 'SELECT * FROM BSC WHERE (id_nivel = ?) '; #**BUSCAR REGISTROS BSC RELACIONADOS ...

SureVoIP es una empresa que ofrece servicios relacionados con la telefonía.

Anuncia la disponibilidad, para los desarrolladores, de una API con la que se podrá acceder a las funcionalidades básicas que ofrece esta empresa. Por ejemplo:

• enviar mensajes SMS
• enviar faxes
• generar llamadas telefónicas
• gestionar cuentas y números de teléfono
• suscribirse a notificaciones de eventos
• usar el sistema de autenticación OAuth 2.0 que permite a terceras partes crear ...

«Recientemente quise realizar un vídeo tutorial grabando los pasos seguidos en mi escritorio, y después montándolo con Kdenlive. En otras ocasiones utilizaba Record my desktop, para grabar el escritorio, pero después de varios intentos, no conseguí que grabase correctamente, ni siquiera lanzado desde Kdenlive. Se grababa muy deprisa, y ni modificando opciones, etc conseguí que funcionara correctamente. Sé que hay otras opciones, como Istambul, o directamente desde la línea de comandos con ffmpeg.

- El ...

«Para poder enviar correos desde PostgreSQL en GNU/Linux existe una forma sencilla de hacerlo, un script Perl disponible dentro del manejador de base de datos a través de una función.»

Artículo

Hola. Tengo un problema con una expresión regular en la página http://es.thefreedictionary.com/.

Estoy tratando de sacar solo el primer significado pero el código no me devuelve nada.

#!usr/bin/perl

use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

my $page = "http://es.thefreedictionary.com/casa";

my $code = toma($page);

chomp $code;

#<div class="runseg"><b>1 </b>&nbsp; Edificio o parte de él donde viven una o más personas: ...

¿Algunos de ustedes podría darme alguna sugerencia de bibliotecas que exporten datos y generen gráficos a Excel así como WriteExcel de CPAN? Pero lo que deseo es que esa biblioteca pueda realizar gráficos 3D y también pueda colocarle la etiquetas de datos, lo más próximo a las que existen en Excel. Si es de pago, no importa.

Hola. Primeramente quiero saludarles a todos nuevamente.

Tengo un problema.

Considerando el siguiente código:

$salida->{$_}{'marca'} = 'adidas'

Luego haciendo un print(), o escribiendo en un archivo Excel, la salida es correcta: adidas.

print $salida->{$_}{'marca'};

Ahora viene el problema.

$salida->{$_}{'marca'} = sub { my $a = "adidas"; return $a}

Esto me retorna CODE(0xa303878)

He probado colocando un & pero tampoco resulta:

print &$salida->{$_}{'marca'};

Me dice:

Not a CODE reference at archivos/file.pl ...

Hola compañeros, a ver si alguien me puede ayudar. Con el siguiente script, quiero adjuntar unos 40 ficheros .dat en uno de solo. Pero no quiero que se guarden en una sola fila. Necesito que los datos de cada fichero (están por columna) se guarden por columnas separadas las unas de las otras en el fichero único. Tal como tengo el siguiente script, se guardan todas las columnas en una sola columna. ¿Alguien puede ayudarme? ...

Hola perleros. Tengo un problema de rendimiento. El script hace lo que yo quiero, pero en un tiempo inadmisible.

Aquí os muestro el problema.
Tengo dos archivos (indico los saltos de línea con \n):

File1:
1071711 88215 CCATAATTCGCAAAACAAACTCCTTCATTTCCAGACATGTATCTTTACCTCTCCTTATTCTCGCTTTCTGTACTACTTGTTATGCTGGCATATCGTTACCGCGCCGCCGTCGTACCGCACATCCCAGCCCGCGTGCGA... CCATAATTCGCAAAACAAACTCCTTCATTTCCAGACATGTATCTTTACCTCTCCTTATTCTCGCTTTCTGTACTACTTGTTATGCTGACATATCGTTACCGCGCCGCCGTCGTACCGCACATCCCAGCCCGCGTGCGAGC... 609 609 scaffold_06 1563627 1564396 + 769 chr8 722778 723547 - 769\n
1108185 59382 ATGGCCTTCGATCTGCCGCCTTTACGGATTGCTCTGTACTTTACTTTGGGCTTATTCTCGTTCATACTCTTCTGTCTCAGCGCAGCGAGGATACACTACACAACCCATCTCCCTGCGGGCGATCCTCTGAATGGGGGGCAC... ATGGCCTTCGATCTGCCGCCTCTGCGGATTGCTCTGTATTTTACTTTGGGCTTATTTTCGTTCATACTCTTCTGTCTCAGCGCAGCGAGGATACACTACACAACCCATCTCCCTGCGGGCGATCCTCTGAATGGGGGGCAC... 567 567 scaffold_09 447625 448516 + 891 chr7 466963 467854 + 891\n
1074848 85420 ATGCAAGCACATCTAATTTCGGGCACATCTTATTGGGGTCAGAATTCCTATGGAGCTACTCATTCCGATGTCGCGAACTTCCAGAAACCAATATCCTTCTACTGCCAGGACGATTCCATCGATGTATTTCCTATCTCGTTCT... ATGCAAGAACATCTAATTTCGGGCACATCTTATTGTGGTCAGAATTCCTATGGAGCTACTCATTCCGATGTCGCGAACTTCCAGAAACCAATATCCTTCTACTGCCAGGACGATTCCATCGATGTATTTCCTATCTCGTTCT... 1179 1179 scaffold_03 1744446 ...

«Después de varios meses con el curso de Perl, y de igual forma que el curso de LaTeX, está siendo también un éxito. Con menos matriculados -lo que ya esperaba, dada la naturaleza del curso- hace tiempo que superamos el medio centenar de matriculados, y estoy obteniendo realimentaciones muy positivas en las encuestas que pongo tema por tema, para mejorar la calidad. Este curso está siendo muy demandado por estudiantes de Ingeniería e Ingeniería técnica ...