检查本地仓库与官方仓库软件版本区别的脚本

huntxu

自己编译打包的软件一多，自然是建个本地仓库然后用pacman来更新比较方便...
有些又要追新又要自己定制功能，怕被落下太多哦，所以就写这么个脚本来比较下不同仓库的版本区别了...
$localrepo改成本地仓库名就是...

1. 
   
2. #!/usr/bin/perl -w
   
3. ###################################################
   
4. # Author: Hunt Xu - mhuntxu [AT] gmail [dot] com
   
5. # Last modified: 2010-03-18 06:56
   
6. # Filename: pacup.pl
   
7. # Description: depends on pacman
   
8. ####################################################
   
9. use strict;
   
10. 
    
11. # config
    
12. my $localrepo = "hunt";
    
13. my $color_old = "\e[31;1m";
    
14. my $color_new = "\e[32;1m";
    
15. my $color_end = "\e[0m";
    
16. my $command   = "LANG=en_US.utf8 pacman";
    
17. 
    
18. # variables
    
19. my $content;
    
20. my $pacname;
    
21. my $version;
    
22. my $cmp;
    
23. my $msg;
    
24. 
    
25. # start
    
26. chomp( my @localpac = `$command -Sql $localrepo` );
    
27. foreach (@localpac) {
    
28.     $pacname = $_;
    
29.     $content = `$command -Si $_`;
    
30.     @_ = ( $content =~ m[Repository.*?: \S+.*?Version.*?: \S+]sg );
    
31.     if ( @_ > 1 ) {
    
32.         $_ = shift @_;
    
33.         m[Version.*?: (\S+)]s;
    
34.         $version = $1;
    
35.         foreach (@_) {
    
36.             m[Repository.*?: (\S+).*?Version.*?: (\S+)]sg;
    
37.             $cmp = `vercmp $version $2`;
    
38.             if ( $cmp == 0 ) {
    
39.                 last;
    
40.             }
    
41.             elsif ( $cmp < 0) {
    
42.                 $msg = $color_old."older".$color_end;
    
43.             }
    
44.             else {
    
45.                 $msg = $color_new."newer".$color_end;
    
46.             }
    
47.             print "$pacname: $version, $msg than $1: $2;\n";
    
48.         }
    
49.     }
    
50. }
    

复制代码

运行结果看图...

carbonjiao

perl 高手！

my $localrepo = "hunt";

能改成通用化的就好了，增加交互， 通过参数或者其他办法指定仓库。。。

axlrose

强， 感谢分享
楼主不如建个google code之类的分享出来
现在我感觉就是需要多些编译包，管理仓库这类的工具

perl的看得晕，楼主能否大致讲解一下程序思路？

我现在还遇到个问题，自己将AUR上的打包放入本地仓库，结果AUR上有更新了，自己还不知道，因为yaourt -Su --aur 是检测不出来的，然后只好将本地仓库从pacmna.conf中去掉再yaourt -Su --aur 才能比较，不知各位有没有其他好办法。