Foro - Perl en Español

Hola, tengo un código en que un array (@h2) tiene una serie de elementos que a su vez contienen un array de direcciones de memoria. Ahora quiero recorrer todo el array y eliminar todo elemento cuyas direcciones de memoria ya estén incluidas en otro elemento. Por ejemplo, si tengo el elemento: d1, d2, d3 y otro elemento d1,d3.
Este segundo quiero que lo elimine, porque ya está incluido en el primero. Y si tengo otro ...

Se han publicado TRES nuevos artículos (en inglés) relativos a Perl en la red de IBM developerWorks.

Enhance image overlay maps in Google Earth with altitude attributes

"Use Perl and the Imager module to enhance mapping applications by extracting and applying height information based on color to reveal a third dimension of data, showing more information in the same space" (Usa Perl y el módulo Imager para mejorar las aplicaciones de texturado extrayendo y aplicando ...

Hola amigos del foro. Hice un script para descargar archivos desde un sitio en la web, me los descarga sin extensión pero me los baja como documento HTML. Mi pregunta es si los archivos que descargo los puedo convertir a .txt :?:

Acá esta el script:

#!/usr/bin/perl -w

foreach my $mes ( 1 ) {
foreach my $dia ( 1 .. 9 ) {
foreach my $hora ...

Buenas, creo que esta consulta va aquí, porque, al menos a mi se me va de madre, con perdón por la expresión.

Bueno comienzo, como ya comenté soy nuevo en esto de Perl y me ha caído un proyecto en él, lo que trae la ventaja de aprender este lenguaje que cada vez me gusta más, pero me tiene algo "despistado". El tema es que ya me han dejado los fuentes, y al montar el ...

¡Hola! Quería usar dos archivos de texto y guardarlos en un array.
Entonces cada array manejaría un archivo pero, ¿cómo podría hacer el bucle foreach para no tener que ponerlo y abrirlo dos veces?

Ejemplo:
open (NOMBRES, $nombre);
@nombre = <NOMBRES>;
close(NOMBRES);

open (APELLIDOS, $apellidos);
@apellido = <APELLIDOS>;
close(APELLDIDOS);

foreach $nombres(@nombre){
foreach $apellidos(@apellido){
print "$nombre $apellido";
}
}

Intenté probar:

open (NOMBRES, $nombre);
@nombre = <NOMBRES>;
close(NOMBRES);

open (APELLIDOS, $apellidos);
@apellido = <APELLIDOS>;
close(APELLDIDOS);

foreach ...

Tengo que verificar que ciertas tareas programadas (scheduled tasks) de un servidor win2k3 se ejecuten correctamente y si no, recibir un aviso. Usamos Nagios, así que me he puesto a escribir un plugin (no he visto nada en nagiosexchange).

Hay dos maneras de ver si se han ejecutado bien las tareas: interactivamente (no es lo que quiero) o con el comando schtasks.

He visto que puedo sacar la información a un archivo con este comando: ...

Buenos días, tengo un script realizado en perl que hace backups de las configuraciones startup de Cisco. El script funciona bien y realiza lo que quiero pero deseo añadirle una función a la misma, es la siguiente: deseo que cuando haya algún problema en la conexión, ya sea el servidor en el cual está cargado el script desea conectarse al host remoto y éste no responde como si hubiese algún problema al lanzar el tftp, ...

Open Source World Conference - Malaga, 21 y 22 Octubre 2008

Programa:
* http://www.opensourceworldconference.co ... octubre-21
* http://www.opensourceworldconference.co ... octubre-22

Día 21
* "CPAN Festival"
* "La comunidad Perl", por Salvador Fandiño, Diego Kuperman
* "Novedades en Perl 5.10", por Enrique Nell
* "Unicode en Perl; POE", por Enrique Nell, J.J. Merelo
* "Paquetizando módulos de Perl para Debian y Ubuntu", por Diego ...

Buenas tardes.

Estoy leyendo un archivo xml con el siguiente código e imprimiendo el xml leído, pero el xml resultante no es igual, ¿alguien podría ayudarme?

#!c:/Perl/bin/perl.exe
use XML::Simple;
use Data::Dumper;
my $clientes = XMLin("testp.xml");
print XMLout($clientes,KeyAttr=>{},RootName=>'program', XMLDecl => '<?xml version="1.0" encoding="utf-8" ?>',
NoSort => 0,
KeepRoot => 1,);

Archivo xml entrante
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<appScripterApplication>
<name><![CDATA]></name>
<version>
<product>5.2.1.3205</product>
<file>1.0</file>
</version>
<program>
<node>
<nodeID>1000</nodeID>
<name><![CDATA]></name>
<subtype>8</subtype>
<xPos>36</xPos>
<yPos>180</yPos>
<appDataID>0</appDataID>
</node>
<icon>
<recordID>0</recordID>
<xPos>36</xPos>
<yPos>180</yPos> ...

my @dias_calendario = qw( 02 05 10 20 );

sub quitacero{
my $num = $_;

if($num < 10){

return substr $num, 1;

};

};


@dias_calendario = map (quitacero($_,1),@dias_calendario);

print join "<br>",@dias_calendario;

Mejor dicho: lo que quiero es quitarle los ceros que antepone a cualquier número menor de 10 pero hacerlo en una sola línea con map() ^^ sin crear función aparte.