Foro - Perl en Español

por **Jaume85** » 2008-10-27 12:59 @582

¡¡Hola a todos!! Es mi primer post :$ He leído y buscado en el foro sobre mi problema pero no he encontrado nada parecido.

Estoy usando el siguiente comando en un programa Perl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

system("zmu -m 2 -E");Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Funciona perfectamente, pero el problema que tengo es que el número "2" es variable y tendría que provenir de una variable llamada $id.

He probado concatenando así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

system("zmu -m ".$id." -E");Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

No me funciona T·T

Si alguien tiene alguna sugerencia es bienvenida ^^

¡¡GRACIAS!!

Esta versión no hace una expansión de los metacaracteres que pudiera contener $id ('?', '*', '[', '{', etc. etc.).

Es recomendable una lectura cuidadosa de system(), pues verás que también realiza una división por palabras, por lo que le afectará también que $id contenga espacios en blanco. En ese caso, hay que forzar el entrecomillado.

Quizás conque nos digas qué aspecto tiene $id, sabremos más del problema.

por **Jaume85** » 2008-10-28 05:41 @278

Antes de todo gracias por responder tan rápido.

He probado las distintas posibilidades y no funciona. El parámetro $id proviene de una instrucción enviada por puerto serie tipo '2|enable|' donde quiero que el identificador se habilite o deshabilite.
El siguiente código es donde se inicia la variable $id que proviene del mensaje enviado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub handleMessage

{

my$connection=shift;

my$message=shift;

my($id,$action,$score,$cause,$text,$showtext)=split(/\|/,$message);

$score= 0 if(!defined($score));

$cause=""if(!defined($cause));

$text=""if(!defined($text));
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Donde $id siempre es un número.

No entiendo por qué no funciona. Gracias.

por **explorer** » 2008-10-28 06:57 @331

El siguiente ejemplo sí funciona:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl

print'Introduce un número: ';$numero=<>;

chomp$numero;# Quitamos el retorno de carro por ser entrada desde el teclado

print"El número introducido es: [$numero]\n";

print'Ejecutando: ';system("echo $numero");Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Si no te fías de lo que contiene $id, mira cómo he puesto el print(), usando corchetes, para saber exactamente, qué aspecto tiene.

Y si no es $id, quizás el problema esté en otro sitio.

por **Jaume85** » 2008-10-29 04:03 @210

Gracias, ya está solucionado. Era el espacio que dejaba al final UU.

¡Gracias, explorer!

Foro - Perl en Español

Problema con system()

Problema con system()

Publicidad

¿Quién está conectado?