Script que muda o wallpaper no Fluxbox, você coloca ele na mesma pasta onde armazena seus wallpapers e daí basta executá-lo.

• Download wall.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl

#script pra mudar wallpaper no fluxbox.
#Coloque ele na mesma pasta onde você armazena seus wallpapers e execute: perl wall.pl minutos
#por optimal, optimal2600@yahoo.com.br

if (@ARGV > 0) {$time = @ARGV[0] * 60;}
else { $time = 600; }
print "$time\n";

print "Wallpaper Automatico no Fluxbox\n";
print "Use: perl $0 minutos\n\n";
system("ls *.jpg > file.txt");
system("ls *.jpeg >> file.txt");
system("ls *.png >> file.txt");
open(IN, "<file.txt");
$x = $y = 0;
while(<IN>){
   $wall[$x]= $_;
   chomp($wall[$x]);
   $x++;$y++;
}
close(IN);
$x = 0;
for(;;) {
   sleep($time);
   system("fbsetbg $wall[$x]");
   $x++;
   if($x==$y) { $x = 0; }
}

Invertendo DNA

Índice (Logaritmo Discreto) em Perl

Gravar CDROM

fonte.pl

Login AUDIT