Foro - Perl en Español

«En otras ocasiones les he hablado de Moose. Hoy voy a explicar lo más básico de este nuevo sistema de programación orientada a objetos que ha tomado por asalto al CPAN y que muchos desarrollos están adoptando como plataforma oficial de programación orientada a objetos.

Todo este ruido es porque Moose ofece mecanismos únicos de reutilización de código y polimorfismo que además son muy fáciles de utilizar. Así que ahora además de la herencia podrás ...

Hola.

Ando queriendo descodificar dos codificaciones, una en ASCII y otra en hexadecimal.

Pues tengo :
users = 117,115,101,114,115 # Ascii separado cada tres dígitos con comas
users = 0x7573657273 # HeXADecimal

Mi pregunta es: ¿cómo hago para descodificar las dos codificaciones a su respectivo valor (users) en Perl?

Felices fiestas

Mucha salud y armonía en sus familias.

Feliz Navidad y un próspero Año Nuevo.

Que la pasen bien.

netsoul@intel:~$ perl -MAcme::POE::Tree -e 'Acme::POE::Tree->new()->run()'

Hola.

Ando queriendo reemplazar en una cadena un cierto número por hola.

@numE = ( "1","2","4");

$num = "1.2.3.4";

$hola = "hola";

foreach $z (@numE) {

$num =~ s/$z/$hola/;

print "LO HICE CON $z $num\n";

}

Los números que quiero reemplazar por hola son lo que están en @numE. El script me tira lo siguiente:

LO HICE CON 1 hola.2.3.4
LO HICE CON 2 hola.hola.3.4
LO HICE CON 4 hola.hola.3.hola

Pero lo que yo quiero ...

La página dedicada a recopilar las muchas listas de correo sobre Perl, ha sido remodelada: http://lists.perl.org/

Noticia (en inglés)

Más de 210 listas de correo, a nuestra disposición.

Los molesto para consultarles cómo puedo hacer para usar este módulo para bajar un archivo de un sitio.

Tengo este script el cual me lo baja pero no sé cómo decirle dónde quiero guardar el archivo y con qué nombre.
use File::Download;
$url = "http://localhost/1.txt";
$dwn = File::Download->new({
overwrite => 1,
});
print $dwn->download($url);
print $dwn->status();

Gracias

Gente: quiero instalar los módulos con el PPM y aparece el siguiente error... ¿Alguno sabe cómo solucionarlo...??
Probé con varios módulos y pasa lo mismo.

Can't determine best at C:/Perl/lib/ActivePerl/PPM/Package.pm line 214.

Can't determine best at C:/Perl/lib/ActivePerl/PPM/Package.pm line 214.

while executing
"::perl::CODE(0x1d2668c)"
(menu invoke)

Tengo un sitio en ASP el cual me devuelve información de mi PC formato XML:
URL: http://localhost/prueba.asp?id=situ
Obtengo en el source del sitio:
<resultado>
<parametros>
<id>123</id>
<hostname>situ</nombre>
<meminfo>1gb</apellido>
</parametros>
</resultado>
El problema es que este formato lo veo en el source del sitio ya que el mismo ASP trae esa información.

¿Hay alguna forma de parsear estos datos?
Saludos.

Hola a todos.

Volvemos al ataque. Yo también quiero hacerme famoso colgando módulos de Perl (es broma) y estoy intentando hacer uno. Y tengo algunas dudas, sobre todo a la hora de leer los datos para escribirlos en el archivo.

package volumen;
use strict;
use warnings;
use diagnostics;

use File::Slurp;
use Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw( lee escribe );
our $VERSION = 0.01;

#Declaramos las variables
my @volumen_cono;
my @datos_cono;
my ...

Hola,

es la primera vez que publico un mensaje en el foro y quería felicitaros por la ayuda que prestáis a la gente.

Os comento el problema que tengo: me envían unos ficheros XML que, teóricamente, están en formato utf-8; cuando intento pasar el método XMLin del módulo XML::Simple y detecta acentos o caracteres raros el script me retorna error:
not well-formed (invalid token) at line 31, column 89, byte 1946 at D:/Perl/site/lib/XML/Parser.pm line 187 ...