Perl es divertido

Se me ocurrió buscar si se podía usar utf8 en el nombre de las subs en perl. Resulta que sí.

use strict; use warnings;
use feature 'say';
use utf8;

sub ña() {
    say "Soy una eñe";
}
sub ᐁ() {
    say "Soy un triángulo";
}

ña;
ᐁ;

Resulta en:

Soy una eñe
Soy un triángulo

Es tarde, pero se pueden hacer miles de dibujitos con estos caracteres. Perl siempre tuvo eso de poder hacer pavadas como esas (perl golf, dark perl) así que no es nada nuevo.

Les dejo un gato, que mira lo que hice y se pregunta porqué hago esto.

Aventuras con mi teclado nuevo II

Sigo con mi teclado nuevo. Resulta que el teclado de mi notebook está en español "latam" y este nuevo está en "es". Quiero que cada uno esté en el idioma que le corresponde. Sí, así de cabeza dura soy.

Para eso se usa "setxkbmap":

 setxkbmap -device 3 latam
 setxkbmap -device 11 es

¿Cual es cual? Ese número de device se encuentra con xinput:

  xinput -list
⎡ Virtual core pointer                          id=2    [master pointer  (3)]
⎜   ↳ Virtual core XTEST pointer                id=4    [slave  pointer  (2)]
⎜   ↳ SynPS/2 Synaptics TouchPad                id=14   [slave  pointer  (2)]
⎣ Virtual core keyboard                         id=3    [master keyboard (2)]
    ↳ Virtual core XTEST keyboard               id=5    [slave  keyboard (3)]
    ↳ Power Button                              id=6    [slave  keyboard (3)]
    ↳ Video Bus                                 id=7    [slave  keyboard (3)]
    ↳ Power Button                              id=8    [slave  keyboard (3)]
    ↳ Sleep Button                              id=9    [slave  keyboard (3)]
    ↳ WebCam SCB-1900N                          id=10   [slave  keyboard (3)]
    ↳ SINO WEALTH USB KEYBOARD                  id=11   [slave  keyboard (3)]
    ↳ SINO WEALTH USB KEYBOARD                  id=12   [slave  keyboard (3)]
    ↳ AT Translated Set 2 keyboard              id=13   [slave  keyboard (3)]

Hermoso. Salvo que es bastante molesto, porque uno está acostumbrado a encontrar el acento o los corchetes en un lugar. Así que no sé qué voy a hacer.

Aventuras con mi teclado nuevo I

Me compré un teclado (simil) mecánico, con backlight (luz de fondo). Para prenderlo o apagarlo se aprieta "Scroll lock".

NOTA: Extrañamente esa tecla está escrita con "Bloq Num", y hay otra tecla con lo mismo en el pad numérico. "Block Num" y "Scroll Lock" no es lo mismo. 

Pero cuando uno lo enchufa a una computadora que tiene linux, ¡la luz no se prende! Investigué un poco pero no pude encontrar porqué. Sólo encontré que hay una forma de prender los leds de un teclado con un comando: uno puede prender de a uno o todos a la vez:

# Prende el led 1. No se sabe qué led es. ¿Cambiará de teclado en teclado?
# En el mío no cambia nada, pero sería así:
xset led 1


# Para apagarlo.
xset -led 1

# Para prender todo
xset led

# Para apagar todo
xset -led

 Este teclado tiene solo un led, el de 3 (Scroll Lock). Como también se puede apagar y prender con el nombre de la tecla, hago eso.

xset -led named "Scroll Lock"
xset led  named "Scroll Lock"

Sin embargo ahora tengo un comando, pero yo quiero poder apretar Scroll Lock y que se prenda y apague. En KDE se puede configurar que al apretar una tecla ejecute algo, asì que hice un script para que cambie el estado del led según esté.

#/bin/bash
# Este script prende o apaga (debería llamarse "lapegue") la luz del
# fondo del teclado "Dragon gaming keyboard" que me compré en enero/15.
# Es un teclado pseudo-mecánico.

# Para debug (al principio costó que funcionara con la tecla Bloq Num)
# exec 1>> /tmp/qq
# exec 2>> /tmp/qq
# 0 si lo encontró, 1 si no lo encontró.
xset q | grep "Scroll Lock: on" 
OUT=$?
# echo $OUT

if ( [ $OUT -eq 0 ] )
then
    # Está prendido.
    xset -led named "Scroll Lock"
else
    # Apagado.
    xset led named "Scroll Lock"
fi

xset es el comando que da información sobre el estado de los leds:

  xset q
Keyboard Control:
  auto repeat:  on    key click percent:  100    LED mask:  0000003c
  XKB indicators:
    00: Caps Lock:   off    01: Num Lock:    off    02: Scroll Lock: on
    03: Compose:     off    04: Kana:        off    05: Sleep:       off
    06: Suspend:     off    07: Mute:        off    08: Misc:        off
    09: Mail:        off    10: Charging:    off    11: Shift Lock:  off
    12: Group 2:     off    13: Mouse Keys:  off

[...]

Si dice "Scroll Lock: on" quiere decir que la luz está prendida.

Finalmente, lo agregamos a la configuración de KDE. Primero ir a System Settings -> Shortcut and Gestures -> Custom Shorcuts. Luego crear una nueva entrada (yo le puse "keyboard_backlight")  con Edit -> New -> Global -> Command/URL y poner ahí el nombre del script de más arriba.