Foro - Perl en Español

por **SunlightRider** » 2010-09-07 23:51 @035

Hola, de nuevo =P.

Les cuento que soy un feliz usuario de una Mac, la cual tiene luces bajo las teclas que se manejan con sus correspondientes teclas en el teclado. Las luces funcionan perfectamente: al modificar un archivo con un número se encienden y se cambia la intensidad. Vi por ahí que había un script para bindearlo a las teclas y así poder cambiarlas con las del teclado, pero sin embargo, ya que estoy aprendiendo Perl, decidí hacer el mio propio, y me estoy volviendo loco.

Lo siguiente funciona perfectamente.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
my $mas = 2;
system("echo $mas > /sys/class/leds/smc::kbd_backlight/brightness");
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Este es mi script, el cual no funciona correctamente (corriéndolo como root, por supuesto)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#use warnings;
 
my $salto = 25.5;
 
open(ARCHIVO, "/sys/class/leds/smc::kbd_backlight/brightness") || die("No se encontro el Archivo de Brightness\n");
@intensidad = <ARCHIVO>;
close(ARCHIVO);
chomp(@intensidad[0]);
 
 
my $var = @intensidad[0];
my $mas = $var + $salto;
my $menos = $var - $salto;
 
if($ARGV[0] eq up){
        system("echo $mas > /sys/class/leds/smc::kbd_backlight/brightness");
}elsif($ARGV[0] eq down){
        system("echo $menos > /sys/class/leds/smc::kbd_backlight/brightness");
}else{
        print "No se encontro el archivo\n";
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Corriendo mi script me encuentro con este error:

root[@]/home/jsanchez/Scripts#./kb-backlight.pl up
sh: line 0: echo: write error: Invalid argument

He buscado el error en Google y la mayoría de las cosas que saltan son bugs, que no pretendo entender de qué se habla. Pero la razón del post, es que...

¿Por qué el primero funciona, y el segundo no?

Edito: sí, también probé con comillas en: eq "up" || "down"

Saludos.

Hay una serie de errores, que no lo son tanto porque Perl los permite, pero que hay que entenderlos porque puede darnos problemas más tarde.

@intensidad[0]

Este es uno de los problemas que tienen las personas que empiezan con Perl: sabemos que @intensidad es un array, pero cuando queremos obtener un solo elemento de ese array, queremos obtener un solo elemento, un escalar. Por eso, lo correcto es escribir

$intensidad[0]

Lo primero, con la '@', quiere decir: "quiero obtener una lista de elementos, compuesta del elemento primero de @intensidad". Aunque lo parezca, no es lo mismo que "quiero obtener el primer elemento de @intensidad". En algunas situaciones, en las que el contexto sea importante, esta pequeña diferencia puede provocar problemas.

$ARGV[0] eq up

Aquí, el error es que "up" no está entrecomillado. Perl, intentará ejecutar la función up(), y si no la encuentra, lo tratará como una palabra constante, que era justo lo que queríamos al principio. Así que es mejor escribirlo como

$ARGV[0] eq 'up'

Lo mismo para 'down', claro.

Foro - Perl en Español

Error al ejecutar system("echo")

Error al ejecutar system("echo")

Publicidad

Re: Error al ejecutar system(echo) - Me tiene loco.

Re: Error al ejecutar system("echo")

Re: Error al ejecutar system("echo")

¿Quién está conectado?