change_wallpaper
Differences
This shows you the differences between two versions of the page.
| Next revision | Previous revision | ||
| change_wallpaper [2009/11/24 22:48] – created stephen | change_wallpaper [2017/01/01 20:05] (current) – external edit 127.0.0.1 | ||
|---|---|---|---|
| Line 3: | Line 3: | ||
| <code perl> | <code perl> | ||
| # Changes the wallpaper to a randomly selected file. | # Changes the wallpaper to a randomly selected file. | ||
| + | # Version 1.0 | ||
| + | # Last updated 2011-02-18 | ||
| + | |||
| use strict; | use strict; | ||
| use warnings; | use warnings; | ||
| Line 12: | Line 14: | ||
| use constant NULL => 0; | use constant NULL => 0; | ||
| - | my @files = <" | + | my @files = <" |
| - | my @file = $files[int rand($#files)]; | + | |
| + | my @file = $files[int(rand(@files))]; | ||
| + | |||
| + | print " | ||
| my $syspinf = Win32:: | my $syspinf = Win32:: | ||
change_wallpaper.1259102921.txt.gz · Last modified: 2017/01/01 19:48 (external edit)