Foro - Perl en Español

Buen día, soy nuevo programando en Perl.

En estos días he tenido que hacer un programilla.

Realizo una conexión con una tabla de MySQL para observar los datos de la tabla, los cuales se guardan en un array. Que sucede yo necesito sacar un campo de ese array, el cual contiene a su vez unos registros.

Ejemplo, tengo lo siguiente:

while( @data = $consulta->fetchrow_array() ){
my $name = $data;
my $history_type_id = $data;
my $ticket_id ...

Box2D es un motor de física, usado en juegos, como el popular Angry Birds.

Kartik ha realizado un enlazado con esta biblioteca, permitiendo su uso en Perl. Hay un enlace a un vídeo de demostración.

Artículo (en inglés)

Buenas,

tengo un problema en una función recursiva, concretamente en el uso de un array. El error que me da el navegador, es el siguiente:

Can't use an undefined value as an ARRAY reference at parseXML.cgi line 1817.

La función recorre una estructura $SubPart que puede tener a su vez $SubPart.

El array $posNiveles lo empleo para saber en qué nivel de profundidad estoy. Ejemplo: $posNiveles significaría: "estoy en el elemento 3 del primer nivel, ...

Hola amigos:

¿Cómo puedo iniciar una página web que contenga funcionalidades hechas con Perl?

Un ejemplo sencillo:

Necesito un ejemplo completo, por favor.

Saludos, Juan

Hola gente, estoy haciendo una parte de un programa donde tengo que validar un archivo, que contendrá permisos de base de datos. La lógica de la validación consistirá en:

- Validar que haya una sola sentencia por cada línea y finalice con ";"
(no pueden haber dos sentencias de grants en una misma línea)

- Validar que solo contenga "Grant insert,update,delete,references,execute,select y all" y nada más (no puede haber ningún otro tipo de grant)

- ...

Hola. necesito de su ayuda... Ojalá alguien me pueda asesorar con esto...

Es un formato de secuencias de ADN... me busca la $variable y la $secuencia y abro otro archivo en el cual voy a buscar $variable con un grep() y si la encuentra, imprimir la $variable2 declarada en el if(), más o menos así:

open( my $fh, $ARGV ) or die "No se puede abrir el archivo\n";

my $var;
my $sec;

while (<$fh>) ...

Estoy utilizando la siguiente librería: Spreadsheet::WriteExcel para generar gráficos. ¿Cómo podría hacer para colocar la etiqueta de datos en el gráfico? Quisiera que indique qué valor tiene cada porción en el gráfico.

Tengo una hoja de Excel con 5 columnas y más de 2000 renglones y lo que quiero es leer la información de Excel e insertarla en una tabla de PostgreSQL. Al ejecutar el programa me señala que Can´t locate SpreadSheet::Read.pm in @INC at line 3, que tiene use Spreadsheet::Read;

El programa completo es (estoy trabajando en Windows Vista):
#!/usr/bin/perl

use Spreadsheet::Read;
use strict;

use ConectarDBs;

my ($dbhs,$sths);
my ($index,$llave,$fecha,$nombre,$paterno,$materno);

#-------------- Conexion ...

¡Saludos!

Me gustaría saber si hay alguna posibilidad de enviar un correo a un usuario, para que, por ejemplo, le llegue un enlace para modificación de contraseña, para la primera vez que inicia sesión en una página concreta, para el tema de seguridad.

¿Algún tutorial? ¿Ejemplo?

Gracias.

¿Cómo puedo hacer para unir 2 array para que me muestre los datos ordenados como se indica líneas abajo?

@fecha=('13/12/2010','14/12/2010','15/12/2010')
@monto=('150','360','50')
y obtener el siguiente resultado
14/12/2010->360
13/12/2010->150
15/12/2010->50