Foro - Perl en Español

Tengo este hash:

$loop{$id} = $nombre;

Bueno y son varios id con varios nombres; lo que deseo es ordenarlos alfabéticamente por el valor y no por la llave, intenteté algo por aquí pero no resultó y me urge ordenar esta hash.

foreach my $llave (sort {$loop{$a} <= $loop{$b}} keys %loop){
$loop{$llave} = $llave;
}

Los valores que contiene son de la siguiente forma:

Code: Seleccionar todo

$loop{5} = 'punto5';
$loop{4} = 'punto3';
$loop{3} = 'punto7';
$loop{2} = 'punto1';

Buenas. Es la primera vez que escribo en este post, y me gustaría consultar una duda que tengo.

El problema es que quiero usar mkdir(), pero la dirección nueva se encuentra en varias variables.

Me explico: yo tengo un directorio que es, por ejemplo, ./home/pepe, y quiero crear uno nuevo de la siguiente forma ./home/p/pepe/. El nuevo directorio contiene un nivel más, con la primera letra de la carpeta pepe. Así, si tuviéramos ./home/hola, el ...

¡¡Hola!!

Me gustaría saber si es posible validar un documento XML usando el DTD especificado en la cabecera usando el módulo XML::Simple.

Por lo que me han dicho se puede realizar esta tarea usando el "xmlstarlet" pero me gustaría poder hacerlo usando alguna librería de Perl.

¡Muchas gracias!

Hola.

Como digo en el asunto tengo un problema moviendo un fichero. He estado haciendo pruebas pero no logro saber en qué me falla. Creo que se debe a algo relacionado con los valores de las variables... en fin, os digo de que se trata:

- Tengo un programa en Perl que tiene varias funciones a las que va llamando durante la ejecución del programa.

- El programa al empezar creó un fichero que sirve ...

...haciendo una pequeña trampa.

¿Cómo uso Tie::Registry para hacer que un programa se inicie cada vez que cargue Windows? Es que no entiendo la documentación ni sé aplicarlo.

Hola. Estoy haciendo un programa que vea columnas para la seguridad de mi web y yo quiero que examine todas las columnas hasta el número 50.

Este es el código:

#!usr/bin/perl

use LWP::UserAgent;
use HTTP::Request;


my $url = $ARGV;

unless ($ARGV) {
print "Examinador <HOST>\n" ;
print "\n";
exit 0;
}

my $ua = LWP::UserAgent->new;
$ua->agent("Kidd 1.0 (http://perlenespanol.com/)");

my $req = HTTP::Request->new(GET => $url);
my $response = $ua->request($req);

my ...

¡Hola nuevamente!

Tengo la siguiente situación y quiero ver si pueden ayudarme.

Estoy haciendo un script que lee un archivo de configuración que trae un conjunto de datos de la forma:

Code: Seleccionar todo

#def tabla a:
[%a]
a1|a2|a3|a4|a5
#def tabla b:
[%b]
b1|b2|b3|b4|b5
#def tabla c:
[%c]
c1|c2|c3|c4|c5
#def tabla d:
[%d]
d1|d2|d3|d4|d5

Como ven, cada par de líneas hace la "definición" de una tabla. La cantidad y nombre de la tabla es variable. Mi intención es ...

Hola a todos.
Tengo un problemilla con un XML que tiene la siguiente estructura:

<perfil>
<miniPerfil tipo='a'>
<campo1> </campo1>
<campo2> </campo2>
</miniPerfil >
<miniPerfil tipo='b'>
<campo3> </campo3>
<campo4> </campo4>
<campo5> </campo5>
</miniPerfil>
</perfil>

Lo que quiero hacer es sacar cada "miniPerfil" (a,b.....) a un fichero. Es decir crear "a.xml" con los datos campo1 y campo2 "b.xml" con los datos campo3, campo4 y campo5.

Estoy usando XML::Simple pero al hacer XMLIn('ficheroXML_original') me da el siguiente error... ...

Saludos, con una consulta. ¿Existe algún comando para obtener el nombre del usuario con el que se está ejecutando un programa en Linux desde Perl?