Esse scriipt foi desenvolvido para ser usado em um notebook acer, mas você pode mudar para o seu modelo, observando onde fica no seu /sys o brightness.

• Download iluminacao
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl
use strict;
use diagnostics;
system("clear");
   
   print "Qual é a iluminação que dejesa usar? (0-15) \n";
   my $NUMERO = <STDIN>;
   chomp $NUMERO;

   system("sudo chmod 666 /sys/devices/platform/acer-wmi/backlight/acer-wmi/brightness");
   system("echo $NUMERO > /sys/devices/platform/acer-wmi/backlight/acer-wmi/brightness");
   
   print "Configuração aplicada!\n";

Índice (Logaritmo Discreto) em Perl

MyBF - Interpretador de BrainFuck

Listar arquivos

Hebraic Style

Testando a agilidade do sistema de arquivos