Foro - Perl en Español

¿Qué tal? Buena tarde. Antes que nada: excelente foro. Ya me han resuelto varias dudas pero apenas me animé a inscribirme. Bueno, mi duda es la siguiente:

Tengo un script Perl. Dentro de él declaro variables que son algo así:

my $var=`comandobash`;
my $var2=`grep "$var" archivo`;

$var trae una cadena de texto extraída de un archivo. Ahora no entendía por qué $var2 no muestra lo que quiero. Cuando la imprimía noté que $var la interpreta bash y como no está definida en bash pues está declarada en Perl.

¿Cómo puedo pasar a $var para que se use como patrón de búsqueda de grep?

Gracias de antemano.

Bienvenida a los foros de Perl en Español, ohmega.

Yo veo que lo estás haciendo bien... a mí me funciona:



Perl sí que hace interpolación de variables dentro de las comillas invertidas (o el operador qx(), que es lo mismo), así que cuando pones $var dentro de esas comillas, Perl la interpola a su valor real antes de pasar todo el comando al shell del sistema para que lo ejecute. El shell no recibe '$var', sino su valor.

¿Seguro que el resultado de comandobash es correcto? Pon print() entre medias para estar seguro de que le pasas a grep algo correcto.





Es más... casi seguro que lo que quieres hacer se puede hacer totalmente en Perl, y no depender de comandos externos.

¡Gracias por responder!

Ahora imprimiendo como me dices print "[$var]\n"; me devuelve esto:

[192.168.100.217 ]

Trae un espacio en blanco. Por eso cuando lo uso como patrón de búsqueda no encuentra lo que quiero.

¡¡Muchas gracias!! Es algo que me estaba rompiendo la cabeza. Incluso recurrí a arreglos asociativos pero cuando usaba la variable para búsqueda no me traía la que quería por el mismo espacio en blanco.

Y lo solucioné de este modo:

$var2 =~ s/^\s*(.*?)\s*$/$1/;
my $var3 = `grep "$var2" /diccionario | cut -d= -f2`;

Gracias por la ayuda.

Si sabes que el espacio en blanco está siempre detrás, lo puedes dejar así:

$var2 =~ s/\s*$//;

Lo que haces es localizar los posibles (*) espacios en blanco (\s) que están al final de la cadena ($), y los sustituyes por... nada (o sea, se borran).

¡Muchas gracias! Si puedes, marca el tema como solucionado.
Gracias por todo.