Foro - Perl en Español

Bueno, quiero saber si hay algún módulo usado por alguno de ustedes para manipular ficheros como si fueran bases de datos con sus consultas SQL y todo eso...

Es que quiero hacer una aplicación con CGI::App y no quiero usar MySQL, quiero usar ficheros, pero la idea es poder usar el módulo DBI con ese fichero.

Hola.

Estoy utilizando el módulo Apache::Session para trabajar con variables de sesión en el lado del servidor.

Quiero guardar objetos, pero cuando recupero un objeto, los métodos no existen. El intérprete me dice que no puede localizar ese método.

Buscando por Google he encontrado muy poco acerca de Perl en este sentido, pero sí que he visto este caso en PHP.

En el caso de PHP, los métodos se pierden, porque el objeto parece ser ...

Hola.

Tengo la siguiente cadena de texto :

:La vida es un misterio sin sentido! :Dejate de joder tio

Lo que ya tengo es /:(.*)!/, con esta expresión regular logro sacar esa parte pero lo que quiero sacar es toda la respuesta que está en el segundo ":" (Dejarte de joder tio) que vendría a ser todo lo que le sigue al segundo ':' en adelante.

¿Cómo lo haría?

Jesse Vincent acaba de anunciar la publicación de la versión de Perl v5.11.0.

Es una versión de DESARROLLO, para preparar la próxima salida de la versión estable v5.12.

Esta versión es el fruto del trabajo de más de dos años de trabajo por parte de una comunidad de desarrolladores. Podéis encontrar la lista de cambios en el documento perl5110delta.pod.

Los desarrolladores agradecerán cualquier comunicación relativa a esta publicación. Si descubres fallos, por favor, usa la ...

Hola, tengo en una variable escalar un texto el cual tiene una comilla simple entre sus caracteres.

Quiero poner adelante de dicha comilla simple una barra invertida.

Ejemplo:


$dato = "tengo una ' en el texto";

# 1er intento:
$dato =~ s/'/\'/g; #esto me lo deja así: "tengo una ' en el texto"

# 2do intento:
$dato =~ s/'/\\'/g; #esto me lo deja así: "tengo una \\' en el texto"


¿Cómo puedo ...

Hola a todos, he estado dando vueltas por Internet y por la documentación de Perl, pero no encuentro algo que me permita identificar el charset de un fichero para verificar si tiene uno u otro y cambiarlo en caso de ser necesario.

Me explico, tengo varios ficheros que tengo que procesar, pero algunos vienen en UTF-8 y otros en ISO-8859-15, el tema es que en UTF-8 no me sirven, tengo que pasarlos todos a ISO-8859-15 ...

printf("hola a todos \n tengo una duda\n");

#Mi pregunta es sencilla
#pero no he podido encontrar una respuesta
#cuando hago un comentario en perl
#existe alguna manera de hacer comentario multilinea
#como en
#<!--
#comentario HTML
#el cual
#permite
#varios renglones
#-->
# /*
#comentario
# en lenguaje C
# */
#
#por que muchas veces tengo un bloque para convertirlo en comentario
#y me toca agregar # a cada línea y para bloques ...

Estimados, tengo el siguiente script el cual tiene como objetivo mediante el módulo en cuestión recaudar información de mis servidores.


#!/usr/bin/perl
BEGIN {

eval "use Net::SSH::Perl";

if ( $@ ) {

warn "No se puede cargar el modulo: Net::SSH::Perl\n"

. "Instalar modulo:\n"

. "\t\t~# perl -MCPAN -e 'install Net::SSH::Perl'l\n";

exit ();

}

}

if ( @ARGV != 2 ) {

die "\nUso: $0 <hosts> <reporte>\n\n"

. " <hosts> Hosts donde nos vamos a ...

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