Foro - Perl en Español

Hola a todos:

¿Es posible convertir el contenido de un string en el nombre de una variable? Me refiero a que si tengo, por ejemplo: $cadena = "puntero", ¿hay alguna forma de utilizar "puntero" como variable? No sé si me explico, sería algo así como (perdón por la tosquedad): $($cadena).

Gracias,

Xagutxu

Hola a todos:

Estoy leyendo un documento en XML (parseado con LibXML), y tengo algún problemilla con XPath.

Suponiendo que una muestra del doc XML que tengo es:

<?xml version="1.0" encoding="iso-8859-1"?>
<tokens>
<w id="w1" tokentype="HAS_MAI">
<forma>Baina</forma>
<anbtal talde_zenb="13">
<tamaina>002</tamaina>
</anbtal>
</w>
<w id="w2">
...
</w>
</tokens>


Hago:

use XML::LibXML;
use strict;

my $parser = XML::LibXML->new();
$parser->keep_blanks(0);
my $doc = $parser->parse_file("/home/file.xml");
my $root = $doc->getDocumentElement();

for (my $i = 1; $i < 100; $i ++){ ...

Hola perleros,

Como se darán cuenta el sitio de Perl en Español ha cambiado de imagen, y ahora estamos la versión 4 del sitio.

Con lo mucho que ha crecido el sitio en tráfico, me pareció que valía la pena también renovar la imagen del sitio.

Uno de los grandes cambios que hay, es que el logo de Perl en Español lo decidí cambiar, y mejor hice uso del logo de la cebolla de Perl.org ...

Buenas tardes.

Estoy comprobando que se abre de manera correcta un fichero y en caso contrario escribo en un fichero de log.

Para abrir el fichero empleo el módulo Config::Simple y para escribir en el fichero el módulo Log::Log4perl.

Cuando ejecuto la siguiente sentencia, con el nombre del fichero mal:
my $cfg = new Config::Simple($directorio_conf."clickstream_pruebarr.cfg") or $log->error_die("error_die");

El script escribe en el fichero de log y termina el programa pero aparece por pantalla lo siguiente: ...

¡Hola, amigos! ¡Tengo una consulta muy básica! ¡Estoy usando Perl en un servidor Unix! y lo estoy llamando desde un código PHP, ¡¡¡¡mi problema está en que me aparecen warnings!!!!

¡Me aparecen warnings como por este, por ejemplo!

Code: Seleccionar todo

Warning Cannot modify header information - headers already sent by (output started at /....) in /.... on line 254

Estuve leyendo y me dijeron que ponga en off una opción del php.ini que sirve para no mostrar ...

¿Cómo se elimina un par compuesto de un hash?

Suponiendo que tenemos un hash de arrays:

%hash = (scores => (1 3 1 2 3 3 1 5 2 3),
grupos => (A G H V E T D A A H),
marcas => (X X Y X Y Y Y Y X X));

Si quiero quitar el array "grupo", por ejemplo, ¿cómo puedo hacerlo? Puedo utilizar "delete" como en los hashes simples?

Gracias,

Xagutxu

Buenos días.

Llevo tiempo peleándome con Perl (estoy aprendiendo) y me estoy haciendo un script que me falla, pero no veo dónde. ¿Me podéis echar una mano? Me imagino que para vosotros sea una tontería, pero yo me estoy volviendo tonto (más).

Tengo un fichero que está dividido en columnas separadas por un tabulador. Solo busco el separar las líneas internas del fichero en 3 ficheros de texto para después tratarlo con Excel.

A ver ...

Hola a todos y todas.
Estoy haciendo una aplicación web y necesito que el al seleccionar un ítem en un select, el evento onchange asociado inserte el valor seleccionado (junto con otras cosas) en MySQL pero sin recargar la página. ¿Es eso posible? Cualquier sugerencia o pista será bienvenida.

HOLA: QUIERO DESCARGAR IMÁGENES DESDE ESTE SITIO: http://www.ncdc.noaa.gov/gibbs/calendar/2005 , Y REVISANDO POR INTERNET TENGO QUE USAR Image::Grab. LO DESCARGUÉ PERO AUN ASÍ NO LO PUEDO HACER.

A QUIEN ME AYUDE SE LOS AGRADEZCO DE ANTEMANO, ADIÓS...

Este módulo mantiene una recopilación de los repositorios PPM para usar con Perl versión 5.6 o superior, algo muy útil para disponer de la mayor cantidad y variedad de módulos para nuestra instalación Perl.

PPM::Repositories

# Imprime todos los repositorios para todas las arquitecturas
use PPM::Repositories qw(get list used_archs);

for my $arch (used_archs()) {
print "$arch\n";

for my $name (list($arch)) {
my %repo = get($name, $arch);

next unless $repo{packlist};

print " $name\n";

for my $field ...