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

#!/usr/bin/perl -w
###################################################
# Author: Hunt Xu - mhuntxu [AT] gmail [dot] com
# Last modified: 2010-03-18 06:56
# Filename: pacup.pl
# Description: depends on pacman 
####################################################
use strict;

# config
my $localrepo = "hunt";
my $color_old = "\e[31;1m";
my $color_new = "\e[32;1m";
my $color_end = "\e[0m";
my $command = "LANG=en_US.utf8 pacman";

# variables
my $content;
my $pacname;
my $version;
my $cmp;
my $msg;

# start
chomp( my @localpac = `$command -Sql $localrepo` );
foreach (@localpac) {
 $pacname = $_;
 $content = `$command -Si $_`;
 @_ = ( $content =~ m[Repository.*?: \S+.*?Version.*?: \S+]sg );
 if ( @_ > 1 ) {
 $_ = shift @_;
 m[Version.*?: (\S+)]s;
 $version = $1;
 foreach (@_) {
 m[Repository.*?: (\S+).*?Version.*?: (\S+)]sg;
 $cmp = `vercmp $version $2`;
 if ( $cmp == 0 ) {
 last;
 }
 elsif ( $cmp < 0) {
 $msg = $color_old."older".$color_end;
 }
 else {
 $msg = $color_new."newer".$color_end;
 }
 print "$pacname: $version, $msg than $1: $2;\n";
 }
 }
}