Foro - Perl en Español

Hola a todos:

Estoy utilizando el módulo LibXML, y no encuentro el modo de reemplazar el contenido de un nodo. Tengo:

<tokens>
<w id="w1" tokentype="HAS_MAI">
<anbtal talde_zenb="13">
<tamaina>002</tamaina>
<C>1</C>
<X>0</X>
<GALD>0</GALD>
</anbtal>
</w>
...
</tokens>

Y si hago (teniento en $contenido = "XXX"):

...
foreach my $anbtal ($word->findnodes("anbtal")){
foreach my $correct ($anbtal->findnodes("C")){
$correct->appendText($contenido);
}
}

Obtengo que el nodo "C" cambia a "1XXX":

<tokens>
<w id="w1" tokentype="HAS_MAI">
<anbtal talde_zenb="13">
<tamaina>002</tamaina>
<C>1XXX</C>
<X>0</X>
<GALD>0</GALD>
</anbtal>
</w> ...

Estoy trabajando con el modulo CGI::Ajax corriendo bajo Windows. Creo que la aplicación está correcta, pero al ejecutarla me sale lo siguiente:

Code: Seleccionar todo

Problems
with the html-generating function sent to CGI::Ajax object

¿Me podrían guiar, sobre cuál podría ser el problema?

Muchas gracias.

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 ++){ ...

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

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

Hola a todos:

Me encuentro con un problema que no sé cómo resolver. He intentado hacer con bucles for, pero es muy lioso y creo que debe haber un modo mejor. Ojalá puedan ayudarme.

Tengo un hash formado por 3 array de 10 elementos cada uno:

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