不知大家在使用ubuntu时有没有注意到,ubuntu下是可以实现多张壁纸动态切换的,好像Win7下也有类似的功能(曾经使用win7一段时间)。我也是最近才注意到这点,下面是在ubuntu10.04下实验的,之前版本的应该也可以。
实现原理是使用一个xml文件来记录可供切换选择的壁纸。下面展示的是10.04中自带的一个样例。
首先说明一下,ubuntu默认的壁纸存放在/usr/share/backgrounds/目录下的,在该目录中还有一个cosmos(意思是“宇宙”)目录,cosmos里面的xml文件就是实现动态桌面壁纸切换功能的了。
1. perl 写成的源代码如下:
#!/usr/bin/perl
#==============================================================================#
#-------------------------------help-info-start--------------------------------#
=head1 Name
getBackgroundXML.pl --> generate the background.xml file to change Ubuntu background picture dynamiclly
=head1 Usage
perl getBackgroundXML.pl [input file]
-help print this help to screen
-d directory contains the jpgs
-o write result to a file
=head1 Example
perl getBackgroundXML.pl -d pic_dir -o background.xml
perl getBackgroundXML.pl --
=head1 Version
Verion : 1.0
Created : 08/18/2010 03:34:52 PM
Updated : 08/18/2010 05:18:23 PM
LastMod : ---
=head1 Contact
Author : QuNengrong (Qunero)
E-mail :
[email protected],
[email protected]
Company : BGI
=cut
#-------------------------------help-info-end--------------------------------#
#============================================================================#
use strict;
use warnings;
use Getopt::Long;
my ($Need_help, $Out_file, $PicDir );
GetOptions(
"help" => \$Need_help,
"d=s" => \$PicDir,
"o=s" => \$Out_file,
);
die `pod2text $0` if ($Need_help);
#============================================================================#
# Global Variable #
#============================================================================#
my $Input_file = $ARGV[0] if (exists $ARGV[0]);
$PicDir ||= '.';
$PicDir =~ s/\/$//;
$PicDir =~ s/ /\\ /g;
#============================================================================#
# Main process #
#============================================================================#
if(defined $Input_file)
{ open(STDIN, '<', $Input_file) or die $!; }
if(defined $Out_file)
{ open(STDOUT, '>', $Out_file) or die $!; }
print STDERR "---Program\t$0\tstarts--> ".localtime()."\n";
# step 01: getBackgroundXML
&getBackgroundXML();
print STDERR "---Program\t$0\t ends--> ".localtime()."\n";
#============================================================================#
# Subroutines #
#============================================================================#
sub getBackgroundXML(){
my @picFiles = `ls $PicDir |grep .jpg`;
# print STDERR $PicDir , "\n";
chomp( @picFiles );
# print STDERR join( "\n", @picFiles );
if( $PicDir =~ /^\// ){
for ( @picFiles ){
$_ = "$PicDir/$_"; # get full path;
$_ =~ s/ /\\ /g;
}
}
else {
my $curDir = `pwd`;
chomp( $curDir );
for( @picFiles ){
$_ = "$curDir/$PicDir/$_";
$_ =~ s/ /\\ /g;
}
}
# print STDERR join( "\n", @picFiles );
my $oldjpg = $picFiles[-1];
print STDOUT
"
2010
08
18
00
00
00
\n";
for ( @picFiles ){
print STDOUT
"
1795.0
$oldjpg
5.0
$oldjpg
$_
\n";
$oldjpg = $_;
}
print "\n";
}
getBackgroundXML.pl -d /home/mintqnr/Pictures/wallpaper/Windows7/ -o Windows7/background.xml
2. 默认 图片文件路径为当前目录 ,文件类型为 jpg, 默认输出结果到终端,保存需加上 -o filename;
3. 设置好后的应用方法:右键桌面->更改桌面背景->添加,在弹出对话框的右下方那里选择“全部文件”(默认是“图像”),然后找到你定义好的动态桌面壁纸的xml文件,双击添加就可以了。
4. 感兴趣的实验 :
5. 附件是源代码,以及几张漂亮的window7图片 ,background.xml 需要根据你的路径修改后在使用~~,祝大家玩得开心、用得顺手!