Foro - Perl en Español

Hola, tengo el siguiente código

#!usr/bin/perl

menu();

sub menu {

$SIG{INT} = \&menu;

while(1) {
print "opciones 1 2 3\n";
print "option : ";
chomp(my $op = <stdin>);

if($op eq 1) {
while(1) {
print "test1\n";
}
}
elsif($op eq 2) {
while(1) {
print "test2\n";
}
}
else {
print "Mal";
}
}
}

Cuando lo cargo normal va bien pero cuando lo compilo con perl2exe tiene un problema el cual no sé ...

Lo primero es dar las gracias a la gente que hace posible este foro, ya que estoy empezando a programar y aquí hay mucho donde aprender.

Ahora mi problema: estoy intentando crear una lista de hashes mediante un bucle, pero no sé si se puede hacer y lógicamente mi código no funciona.

La pregunta en definitiva sería: ¿se pueden crear variables usando otras variables como parte del nombre?

#!/usr/bin/perl

use strict;
use warnings; ...

Quería preguntar cómo podía sacar todos los valores que se encuentren en un listbox para mostrarlos a cada uno con un print()

La verdad, no sé si mi pregunta corresponde aquí. Soy nueva en Perl y no entiendo casi nada de lo que mencionan anteriormente pero mi pregunta es algo similar.

Quiero crear un archivo XML con un solo dato que tengo en mi BD. Bueno, en realidad ya tengo guardado el código del XML en la BD, solo quiero extraer el código de la BD y generar el archivo XML en algún directorio de mi servidor, ...

Hola, buenas tardes.

Necesito copiar, en Perl, unos ficheros de una máquina Linux a otra.

De momento lo hago en scp en shell: $ scp fitxer.xxx enric-2:/path y luego me pide el login

¿Cómo sería en Perl?

#!/usr/bin/perl
use Net::SCP;
$hostname = "server.ip.address";
$username = "enric";
$file = "temp.dat";
$folder = "/home/$username/";
$scp = Net::SCP->new( { "host"=>$hostname, "user"=>$username } );
$scp->put("$file","$folder$file") or die $scp->{errstr};

Gracias

Buenas. Tengo una duda respecto al tratamiento que la función push() hace de una variable que lleva comillas en medio. El tema es el siguiente:

my @array = ();

El valor a insertar viene de una variable y es, por ejemplo: El gato que esta "contento en el tejado"

Este valor estaría insertado en la variable $insertar

push(@array,$insertar);

¿Habría que escapar las comillas o algo? Se está comportando de una forma un tanto extraña.

Leyendo el siguiente código en Ruby.

(0x30 .. 0x39).each {|v| keys = v} #0-9
(0x41 .. 0x5A).each {|v| keys = v} #A-Z

Y viendo los significados quería saber en qué codificación son porque estaba traduciendo el código a Perl y parece que faltan los números que están a la derecha del teclado, no los de arriba.

Hola...

Desearía me ayudaran con el siguiente script:
Actualmente estoy tratando de generar un script el cual lea línea por línea un archivo .txt y que extraiga todas las filas o cadenas que coincidan al inicio de estas con los siguientes caracteres: -SPtext=

Cada cadena encontrada deberá ser guardada en un nuevo archivo .txt el cual deberá ser generado por el script.

A continuación ejemplos de cadenas que se encuentran en el archivo .txt

-SPtext=mgcSs7MissingUnblockAckEvent ...

Hola a todos.

Estoy intentado añadir en un array asociativo (hash) una serie de datos (clave, valor) vía teclado estándar (STDIN) y no soy capaz. Lo he intentado con push() pero solo me funciona con array.

Dadme un pista por favor, !gracias¡

SALUD

No sé mucho de Perl pero he instalado un repositorio OAI ya programado (lo envío en el adjunto).

La cuestión es que no sé cómo puedo hacer para mapear XML en el aire. El programador del repositorio estableció un archivo config.xml que contiene información en la etiqueta <transform>...</transform> para procesar llamadas mediante un procesador xslt (xsltproc). Este procesador creo que hay que instalarlo en el servidor y no tengo privilegios de administrador para ello.

Necesito ...