Ver Tema

SunlightRider · Mar Sep 07, 2010 11:51 pm

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.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl
my $mas = 2;
system("echo $mas > /sys/class/leds/smc::kbd_backlight/brightness");
 

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

Syntax: [ Download ] [ Hide ]

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";
}
 

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.

salva · Mié Sep 08, 2010 6:03 am

¿No será que $menos toma un valor negativo?

Prueba poniendo un guion doble después de echo en la llamada a system:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

system("echo -- $menos > /sys/class/leds/smc::kbd_backlight/brightness");

SunlightRider · Mié Sep 08, 2010 10:36 am

Ya lo encontré, el problema era que el archivo en el que intentaba escribir, no aceptaba números con coma.

Saludos y Gracias.

explorer · Mié Sep 08, 2010 11:42 am

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.

Publicidad

Socializa