Foro - Perl en Español

Hola, muy buenos días a todos.

Tengo la siguiente duda y no he podido dar con la solución y me gustaría contar con sus comentarios y ayuda. Tengo que hacer un hash, pero este hash debe ser de n niveles, es decir, puede contener n keys, ya que esto lo debo sacar de una tabla que es recursiva.

Me explico mejor: tengo una tabla que es recursiva, es decir se llama a sí misma. Lo ...

Hola, tengo problemas al pasar parámetros a subrutinas que tengo definidas en otros módulos (paquetes).

Ejemplo 1:
Quiero pasarle como parámetro a la función "parsear_por_nombre" el nombre del archivo, o sea, una cadena de caracteres, no una referencia. ¿Cómo hago?
Esto es lo que tengo hecho:

opendir(DIRHANDLE,"$ruta")||die"ERROR: no se pudo leer el directorio";

foreach (readdir(DIRHANDLE)){
my $nombreArchivo = $_;

if (!($nombreArchivo eq "." || $nombreArchivo eq "..")){
my $datos = $procesador->parsear_por_nombre($nombreArchivo)
}
}
...

Saludos, con una consulta: tengo un programa que recibe un XML, mi pregunta es ¿cómo puedo manejar un error en XML::Simple? Para que valide solo una trama. Ejemplo.

El xml correcto es:
<recarga>
<plastico>4234567890123456</plastico>
<fechaven>200906</fechaven>
<documento>123456789</documento>
<moneda>320</moneda>
<valor>56.78</valor>
</recarga>
El xml incorrecto es que venga más de una solicitud. Ejemplo:
<recarga>
<plastico>4234588890123333</plastico>
<fechaven>200906</fechaven>
<documento>123456789</documento>
<moneda>320</moneda>
<valor>56.78</valor>
</recarga>
<recarga>
<plastico>4234567812345678</plastico>
<fechaven>200906</fechaven>
<documento>123456789</documento>
<moneda>320</moneda>
<valor>156.78</valor>
</recarga>

El código que actualmente tengo no sé dónde decirle ...

Hola, amigos foreros.

Resulta que realicé este script, el cual me funciona de maravilla, pero necesito acceder a otro equipo que solo pide password (no tiene nombre de usuario). Vverifiqué la LIB, la sintaxis, pero no comprendo la parte que dice la librería:
#!
$cmd = $cgi->param("cmd" );
$cm = $cgi->param("cmts");
$mac = $cgi->param("mac" );

$ip = '10.52.1.1';
$com = 'scm';

my $session = Net::Telnet::Cisco->new(Host => $ip); # 192.168.88.3

print "Content-type: text/html; charset=iso-8859-1\n\n"; # ...

Hola a todos.

Hace un tiempo vengo desarrollando un programa para mostrar la ciudad en que vivo (Manizales, Colombia) al mundo usando Internet ,

El sitio es http://www.manizales.tk

Yo trabajo el sitio por categorías
1 : imagen del día
2 : chica de hoy
3 : Chico de hoy
.
.
7: Vídeo del día

y así todas las categorías.

El programa está en Perl usando un server gratuito ...

Hola.

Quiero agregarle un icono a uno de mis programas Perl ya compilados en exe con perl2exe pero no sé cómo se hace.

¿Hay alguna forma de hacerlo?

Hola, comunidad de Perl en Español. Soy nuevo en el foro y ando complicado con el tema de hash de hashs.

Crearlos es sencillo pero leerlos no termino de comprender... tal vez esté haciendo todo mal.

A ver...

Tengo esto:

print "Nombre de la carpeta: ";
$carpeta = <STDIN>;
chomp($carpeta);
opendir(DIR,$carpeta) || die "Error al abrir la carpeta.";
readdir(DIR);
readdir(DIR);
while( $file=readdir(DIR)) {
open(F,"$carpeta\\$file") || die "archivo no encontrado";
while ( $linea=<F> ) ...

Hola,
Quiero saber si hay alguna forma para saber si dado un carácter, se puede saber si es un salto de línea o un carácter común.

Saludos.

Buenas a todos.

Tengo una pequeña duda: no sé cómo hago para leer el número de línea de un archivo de texto. Lo único que me puedo imaginar es que se podría hacer con for().

Saludos.

Buenas a todos. Pues tengo dos variables con dos valores de texto iguales y mediante la condición if() verifico que los valores sean iguales y si son iguales almaceno las dos variables en una sola; luego con un print() a la variable en la que almacene los dos textos que prima lo mismo.

Ejemplo:

my $var1 = hola;
my $var2 = hola;
if ($var1 == $var2) {

}
else {
print "las variables no ...