Foro - Perl en Español

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

El problema de la línea 6 son las comillas invertidas.

Verás, las comillas invertidas, en Perl, tienen la misión de crear un entorno shell y ejecutar en él el comando que esté entre ellas.

Ahora, repasa la línea 6:
* estás mandando ejecutar en el sistema (por medio de las comillas invertidas) el comando sudo /sbin/iwconfig eth1 | grep -i 'Managed'

* Al resultado de la ejecución (lo que se haya recibido por la salida estándar del comando), lo vas a ejecutar con la función system(), que va a hacer lo mismo que las comillas invertidas (crear un shell, etc. etc.)

Es decir... que estás ejecutando dos veces. Una el comando, y otra, el resultado del comando. Es por eso que sale un error: el shell arrancado por el system() no reconoce como un comando válido lo que el primer comando ha devuelto.

Haz esto: cambia las comillas invertidas por comillas dobles (también valdría comillas simples, pero como ya hay comillas simples en el comando, es mejor no mezclarlas -ni liarnos-).

Pero... el resultado de system() no es lo que hayamos recibido por la salida estándar del comando ejecutado, sino el estado (status) del resultado de la ejecución (un número entero de 8 bits, normalmente.

Viendo el resto del programa, se ve que no es eso lo que quieres, sino el resultado de la ejecución del comando. Necesitamos cambiar system() por otra cosa. Por las comillas simples invertidas, por ejemplo (o por qx(), que hace lo mismo).

Quedaría así:
my $m = `sudo /sbin/iwconfig eth1 | grep -i 'Managed'`;

Aprender C y Bash es una gran ventaja para ti, porque Perl hereda muchas de sus propiedades (muchas, muchas). Pero te animo a que profundices un poco más en su rica sintaxis. Por ejemplo, la línea siguiente

printf ("La salida fue: %s \n", $m);

en Perl se escribe así:

print "La salida fue: $m \n";

y en los últimos dos años (con Perl v5.10):

say "La salida fue: $m";

Otro detalle, que está en tus comentarios... las variables '$' no son de un tipo "string", sino que son escalares, es decir, almacenan un solo valor, que, en este caso, es una cadena de texto. Pero puede que a la línea siguiente sean un número en punto flotante. La cuestión es que sea un solo valor.

En cuanto a libros, del estilo de Kernighan, quizás sea el Programming Perl, de Larry Wall, pero su contenido es, básicamente, lo mismo que si haces man perlsyn.

En español, hay pocos libros de Perl. Casi toda la documentación está en inglés, aunque unos pocos estamos trabajando para que eso cambie.

Puede servirte, para empezar, este mensaje sobre Por dónde empezar, que tiene enlaces a lugares interesantes para el que comienza y quiere ser programador de Perl.

ramiromd escribiste:Luego había una burrada de mi parte intentando comparar un string con un entero, ¡ja,ja!

Pues... el caso es que NO es una burrada... En Perl es completamente legal. Por eso no te he dicho nada antes de que estuviera mal. Perl ya se encarga de hacer las transformaciones necesarias para pasar de cadena de texto a número y viceversa.

ramiromd escribiste:Con respecto a lo del printf(), vi en algún blog que lo usaban en los códigos y me tiré un tute a ver qué pasaba, era solo para probar.

Sí, printf() sí que existe en Perl. Yo solo te he mostrado otras formas para usar print() y printf() (y say()).

Toda la información sobre Perl ya está instalada en tu propio ordenador.

Si estás en Windows, en formato HTML. Si estás en Linux, en formato POD. Para consultarla desde la línea de comandos puedes usar el comando perldoc.

Por ejemplo, para consultar la lista de operadores, escribirías perldoc perlop. O la lista de funciones con perldoc perlfunc.

También puedes consultarlo en Internet, en http://perldoc.perl.org/perlfunc.html.

Si usas Firefox, puedes instalar un motor de búsqueda dirigido a ese sitio.

Finalmente, para saber qué hace una sola función, puedes solicitarlo también a perldoc: perldoc -f printf.