Libreta de Apuntes

Esto de Perl, lo he tenido que revisar nuevamente, dado que se me ocurrio cambiar el lenguaje de programación de mucha del sistema de la tesis, el cual trabaja de forma automatamente usando perl, para ello.

Y la gran pregunta, ¿Porqué en Perl?, di la respuesta rápida, mmmm porque no , un lenguaje del cual podemos sacarle mucho provecho.

Investigando sobre dicho lenguaje, me tope con un script el cual le da un poco de vida a mi desktop, cambiando la imagen de fondo cada n segundos, los cuales los podes setear de acuerdo a tu gusto o necesidad :d.

El script, fue creado por:

# Written by Michael Moore, Nov. 2007
# This work is hereby placed in the public domain

Que a continuación lo presento:

#!/usr/bin/perl -w
 
use strict;
use warnings;

### Start CONFIG

my $searchPath = '/home/coolsnow/Imágenes/wallpaper/';
my $switchTime = 15;                 # Time is in seconds

### END CONFIG

# bgotd-- background of the day  
#
# A super simple script which randomly picks a jpg/JPG/jpeg/JPEG photo to place as your 
# Gnome desktop.
#
# Written by Michael Moore, Nov. 2007
# This work is hereby placed in the public domain 


my @photos = `find $searchPath -type f | grep [jJ][pP][eE]*[gG]`;
chomp(@photos);
my $photo;

while(1)
{
    $photo = $photos[rand($#photos)];
    `gconftool-2 --type string --set /desktop/gnome/background/picture_filename "$photo"`;
    sleep($switchTime);
}

Como se nota, el script depende de poder ser llamado y dejado como un demonio :

$nohup perl rotar_wallpaper.pl &

No se ve tan dificil !!!, ahora a ver como se hacen las varas de verdad



Un poco de referencias sobre Perl acá

Felices Hacking !!!