Foro - Perl en Español

por **tarkano** » 2012-08-22 09:41 @445

Hola.

Estoy ejecutando instrucciones por ssh y necesito poner '$' como contenido de una variable y utilizarla en otro script, pero no me acepta. Por ejemplo :

my $var="$";

En especifico, lo que quiero hacer es ejecutar una consulta mediante ssh en un servidor de correo Zimbra, y ejecutar el comando awk para recopilar unos parámetros.

Les adjunto algo del código...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $doble_comilla=""";
$cuenta_mostrar="ronald.rivera";
my $comilla="'";
my $sig= "$"; 
my $p1=$sig."1";
my $p2=$sig."2";
my $p3=$sig."3";
 
$cos="ssh usuario$servidorZimbra.com $doble_comilla/opt/zimbra/bin/zmprov gqu localhost|awk {$comilla print $doble_comilla $doble_comilla<span style="font-weight: bold">$p1</span>$doble_comilla $doble_comilla<span style="font-weight: bold">$p2</span>/1048576$doble_comilla $doble_comilla<span style="font-weight: bold">$p3</span>/1048576$comilla}|grep $cuenta_mostrar$doble_comilla";
system($cos);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

En conclusión...
En el servidor Zimbra quiero hacer correr el comando:
zmprov gqu localhost|awk {'print " "$1" "$2/1048576" "$3/1048576'}|grep ronald.rivera

El error que sale al ejecutar mi programa es:
Final $ should be \$ or $name at ./crear1 line 99, within string
syntax error at ./crear1 line 99, near "="$""
Execution of ./crear1 aborted due to compilation errors.

Gracias de antemano...

¡Saludos!

Bienvenido a los foros de Perl en Español, tarkano.

En Perl, todo aquello que está entrecomillado con dobles comillas, es interpolado, así que cuando Perl se encuentra con "$" lo que en realidad está viendo es el inicio de una cadena entrecomillada doble, y que contiene la variable especial $" seguida de un ';' y del resto del programa hasta las próximas comillas dobles. Un desastre

Cuando no queremos que Perl haga esa interpolación, usamos comillas simples:

my $var = '$';

Incluso se pueden poner comillas simples dentro de dobles, y viceversa, pero sabiendo que las dobles siempre interpolan aquello que parece una variable (lo que comience por $ y @, sobre todo).

Existen además los operadores q() y qq() que tienen el mismo efecto que las comillas simples y dobles, pero nos valen para los casos en los que hay muchas comillas dentro de la cadena de texto y no queremos "escaparlas" continuamente.

Así, tu programa se podría escribir como:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $servidorZimbra = 'api1.zimbra.com';
my $ssh = "ssh usuario\@$servidorZimbra ";
my $cmd = q(/opt/zimbra/bin/zmprov gqu localhost|awk {'print " "$1" "$2/1048576" "$3/1048576'}|grep ronald.rivera);
 
system("$ssh $cmd");
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Un detalle: system() no devuelve la salida del resultado de la ejecución, así que no podrás capturar el resultado. Para eso, usa qx() en lugar de system().

Más información en perlsyn y perlop.

por **tarkano** » 2012-08-22 10:47 @491

¡¡¡¡ Anduvo joya !!!!

Gracias por la ayuda y los consejos...

¡Saludos!

Foro - Perl en Español

Poner "$" como contenido de una variable

Poner "$" como contenido de una variable

Publicidad

Re: Poner "$" como contenido de una variable

Re: Poner "$" como contenido de una variable

¿Quién está conectado?