Script usado para alterar a imagem de fundo do Desktop do WindowMaker aleatoriamente. Você define o diretório repositório de imagens e, a cada vez que o programa é executado, uma nova imagem é carregada na sua tela.

• Download mudaWallpaper.zip
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl
###################################################
# mudaWallpaper.pl
#
# Script usado para alterar a figura de fundo de
# tela do seu X-Windows aleatoriamente. Bom para
# ser executado via crontab. A entrada abaixo 
# executa o script a cada 1 hora:
#
# 0 * * * * export DISPLAY=0:0; ./mudaWallpaper.pl
# 
# Nota: este script utiliza o programa wmsetbg para
# alterar a figura de fundo e só serve para usuários 
# do WindowMaker.
# 
# Por Fábio Berbert de Paula
# E-mail: fabio@vivaolinux.com.br
# Estou em: www.vivaolinux.com.br
# #################################################

use strict;

my $set = "/usr/bin/wmsetbg";

# configure com o diretório que contém seus wallpapers
my $wdir = "/home/fpaula/wallpapers";

# capture todos os arquivo jpg do diretório
chdir $wdir;
opendir(D,$wdir);
my @arqs = grep /jpg/, readdir(D);
closedir(D);

# selecione um wallpaper usando a função rand()
my $num = sprintf "%.1f", rand($#arqs);
$num =~ s/^.*\.//;
if ( -f "$wdir/$arqs[$num]" ) {
  system("$set $wdir/" . $arqs[$num]);
}

MoOnCrack

Índice (Logaritmo Discreto) em Perl

Testando a agilidade do sistema de arquivos

Mega Sena

Hebraic Style