ubuntu / Mint下 perl 实现动态桌面壁纸 生成xml的实用脚本

相信你们已经了解到了ubuntu自带的动态桌面背景了，有本身的图片集，也想让其中的图片动态做为本身的桌面背景怎么办？？？
背景知识参考：http://qyiyunso.blog.163.com/blog/static/3507768620107185273331/

引用:

不知你们在使用ubuntu时有没有注意到，ubuntu下是能够实现多张壁纸动态切换的，好像Win7下也有相似的功能（曾经使用win7一段时间）。我也是最近才注意到这点，下面是在ubuntu10.04下实验的，以前版本的应该也能够。 
实现原理是使用一个xml文件来记录可供切换选择的壁纸。下面展现的是10.04中自带的一个样例。 
首先说明一下，ubuntu默认的壁纸存放在/usr/share/backgrounds/目录下的，在该目录中还有一个cosmos（意思是“宇宙”）目录，cosmos里面的xml文件就是实现动态桌面壁纸切换功能的了。

如今关键是生成相应的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   :   Quner612@qq.com,QuNengrong@genomics.cn
   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";

}

脚本使用简单说明：
1. 运行时最好使用完整路径，指明 图片所在的目录， 例如：

代码:

getBackgroundXML.pl -d /home/mintqnr/Pictures/wallpaper/Windows7/ -o Windows7/background.xml

2. 默认 图片文件路径为当前目录 ，文件类型为 jpg， 默认输出结果到终端，保存需加上 -o filename；

3. 设置好后的应用方法：右键桌面->更改桌面背景->添加，在弹出对话框的右下方那里选择“所有文件”（默认是“图像”），而后找到你定义好的动态桌面壁纸的xml文件，双击添加就能够了。

4. 感兴趣的实验 ： 
1）加入可选参数 -t 指定切换时间，默认半小时左右。
2）优化代码，让其可移植性更好~~

5. 附件是源代码，以及几张漂亮的window7图片 ，background.xml 须要根据你的路径修改后在使用~~，祝你们玩得开心、用得顺手！

附件和源码下载，请见ubuntu 论坛： http://forum.ubuntu.org.cn/viewtopic.php?f=21&t=289599