Foro - Perl en Español

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

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