Foro - Perl en Español

Necesito saber cómo leo por medio de un foreach() los datos que obtengo de la consulta...

Tengo problemas al hacerlo por medio de

my $sth = $self->dbh->prepare("SELECT id_localizacion, longitud, latitud, descripcion, tipo, propiedad, imagen FROM localizaciones WHERE tipo = ? AND propiedad = ?")
or die("Couldn't prepare statement: " . $self->dbh->errstr);

$sth->execute($datos->param('tipo'),$datos->param('propiedad')) or die("Couldn't execute statement: " . $sth->errstr);
my $puntos = $sth->fetchall_hashref('id_localizacion');
#my $puntos = $sth->fetchall_arrayref();
my $puntos2 = $sth->fetchall_arrayref;


$sth->finish;
$self->dbh->disconnect;

#return ...

Buenas. Mi problema es que quiero ejecutar `perl -e 'print "Hola"'` en la terminal de Linux, pero lo quiero hacer en Perl, o sea, automatizar eso, pero me da error cuando lo quiero hacer.

my $alm = `perl -e 'print "Hola"'`;
system($alm);

Pero me da error cuando lo ejecuto...

Hi!

Mi gran duda es convertir texto ASCII separado por comas a texto normal, por ejemplo: 117,115,101,114,115 = users

¿Alguien podría ayudarme?

Hola,
Estoy checando el tutorial que tienen aquí sobre cómo crear gráficos con el modulo GD::Graph, pero con un pequeño cambio: no quiero generar un CGI, si no crear un archivo .png. Mi código es este:

#! /usr/local/bin/perl5.10.0

use strict;
use GD::Graph::bars;

my @campos = ('Oct 2003','Nov 2003','Dec 2003','Ene 2004','Feb 2004');
my @valores = ('547','2282','2798','2354','4326');
my @graf = (\@campos, \@valores);

my $grafico = GD::Graph::bars->new(500, 300);

$grafico->set(
x_label => 'Mes',
y_label => 'Visitas Totales',
title ...

Hola, ¡buenas!

El caso es que necesito poder descargar ficheros de un servidor. Con un solo fichero me funciona con

open(AUDIO, "$aux[$msgs]") or die ("error al abrir: $!");
$size = -s $aux[$msgs];
$|=1;
print header(-type=>$formats{$format}->{'mime'}, -Content_length => $size, -attachment => "$aux[$msgs]");

while(($amt = sysread(AUDIO, $data, 4096)) > 0) {
syswrite(STDOUT, $data, $amt);
}
close(AUDIO);

Esto me abre un diálogo del navegador pidiéndome si reproducirlo o guardarlo, pero necesito precisamente que en caso de tener ...

Buenas tardes a todos.

Estoy importando un archivo Excel desde Perl y el problema surge con las fechas.

Al importar la fecha 01/11/2006 0:00:00, en Perl se almacena el valor (o por lo menos a lo que he llegado yo, claro) 39022.

El problema es que yo necesito escribir en un fichero de salida esa fecha en formato DD/MM/AAAA HH MM. ¿Alguna idea de cómo transformar ese 39022 al formato original de Excel?

Muchas gracias

Hola, a ver si me podéis ayudar con el siguiente problema que tengo.

Estoy utilizando una función del Mechanize para pasar de HTML a texto. El problema que tengo es que el Mechanize no diferencia los párrafos a la hora de pasar a texto, y yo necesito que diferencie párrafos. Bien, pues he conseguido pasar el contenido del $mech a una variable previo al paso a texto, para así meterle una etiqueta donde haya cambio ...

Hola a todos, espero que este foro alguien me pueda ayudar, soy muy nuevo en este lenguaje ya que yo soy full PHP. Bueno era ahora que recién entiendo a Perl me gusta más.

Mi problema es que copié este código que mi proveedor me envió para poder enviar SMS y no tengo problema en el funcionamiento pero ahora tengo una dificultad: necesito leer un archivo de texto que tiene la siguiente estructura de datos: ...

Hola a tod@s.

Luego de asignarle a cada símbolo su código binario, reconstruyo el archivo original con los códigos binarios.

Mi problema en el algoritmo es al momento de tener el archivo en binario.

Tengo que coger grupos de a 8 números y convertirlos en 1 byte, lo cual no sé cómo hacerlo.

Me he basado en esta página para entender el algoritmo.
http://articulos.conclase.net/compresion/huffman.html

Gracias.

¡Hola!

¿Cómo se haría para cargar un array con los nombres de los ficheros contenidos en un directorio (únicamente los nombres, no los permisos)?

Gracias