【轉】xfce4桌面自動整理腳本

轉自http://blog.chinaunix.net/uid-22101074-id-91073.html (有修改)

xfce4桌面沒有自動排列的功能，如果文件多了，超出了桌面的範圍，就不好找了，在網上發現個perl腳本，比較好用，拿過來用用。

#!/usr/bin/perl

use strict;
use warnings;
my $conffile='./.config/xfce4/desktop/icons.screen0-1366x768.rc';
open(CONF,"$conffile") or die "can't find the config file";
my $all;
while (<CONF>) {
    $all=$all.$_;
}
my @oldnames=($all=~/\[(.*)\]/g);
my @allnames=sort { lc($a) cmp lc($b) } @oldnames;
print "排序前:\n";
print join("\n",@allnames);
my @rows=($all=~/row=(\d*)/g);
print join("\n",@allnames);
print "\nok now I will print the amount of rolls\n\n";
@rows=sort(@rows);
my $maxrow=$rows[-1];
print "the max rows is $maxrow\n";
my $numicons=scalar(@allnames);
print "number of icons is $numicons\n";
my @cols=($all=~/col=(\d*)/g);
@cols=sort(@cols);
my $maxcol=$cols[-1];
print "\nthe max cols is $maxcol\n";
my $i=0;

open(OUTPUT,">$conffile");
for (my $j=0;$j<=$maxcol;$j++) {    
    if ($i<=19) {
        for (my $k=0;$k<=$maxrow;$k++) {
            print OUTPUT "\[$allnames[$i]\]\nrow=$k\ncol=$j\n\n";
            $i++;
        }
    }
}

print "更新桌面完成，請刷新桌面。\n";
close(OUTPUT);

運行腳本

perl sort.pl

運行完腳本後，按一下F5，桌面就整理好了