[SOLVED by xyne] Search for packages I have but are NOT installed?

Question

Hi all,
I run a couple of computers on Arch (both 64-bit), was just wondering if I could copy the /var/cache/pacman/pkg from one computer to the other, and then run some command to install from the cache all packages that are not currently installed. Basically it would be something like "go through all the packages in /var/cache/pacman/pkg, if any are installed ignore them, if a newer version is installed ignore them, but if no version of this package is installed then install it.
Last edited by ngoonee (2009-06-26 05:17:35)

Answer 1

Try this:
#!/usr/bin/perl
use strict;
use warnings;
exit(1) if not @ARGV;
my $cachedir = $ARGV[0];
$cachedir = substr($cachedir,0,-1) if substr($cachedir,-1) eq '/';
opendir(my $dh, $ARGV[0]) or die $!;
my @cache_pkgs = map { s/-[^-]+-[^-]+(?:-i686|-x86_64|-any)?\.pkg\.tar\.gz$//; $_ }
grep {/\.pkg\.tar\.gz$/}
readdir($dh);
closedir($dh);
my @installed_pkgs = split(/\s*\n\s*/, `pacman -Qq`);
my %cache_pkgs;
$cache_pkgs{$_} = 1 foreach @cache_pkgs;
my %installed_pkgs;
$installed_pkgs{$_} = 1 foreach @installed_pkgs;
foreach (keys(%cache_pkgs))
delete($cache_pkgs{$_}) if exists($installed_pkgs{$_});
# uncomment these lines if you just want a list of uninstalled packages
# without filtering dependencies
# @cache_pkgs = keys(%cache_pkgs);
# print "$_\n" foreach @cache_pkgs;
# exit();
my $pkg_files;
foreach my $pkg (keys(%cache_pkgs))
opendir(my $dh, $cachedir) or die $!;
my @pkg_files = grep {/^\Q$pkg\E/} readdir($dh);
closedir($dh);
foreach my $pkg_file (@pkg_files)
if ( $pkg_file =~ m/^(.+)-([^-]+-[^-]+)(?:-i686|-x86_64|-any)?\.pkg\.tar\.gz$/ )
$pkg_file = $cachedir . '/' . $pkg_file;
if (not exists($pkg_files->{$1}))
$pkg_files->{$1}->{'ver'} = $2;
$pkg_files->{$1}->{'file'} = $pkg_file;
else
my $ver = $pkg_files->{$1}->{'ver'};
if (&compare_versions($2,$ver))
$pkg_files->{$1}->{'ver'} = $2;
$pkg_files->{$1}->{'file'} = $pkg_file;
foreach my $pkg (keys(%{$pkg_files}))
my $pkg_file = $pkg_files->{$pkg}->{'file'};
my $pkginfo = `tar -O -zxf $pkg_file .PKGINFO`;
foreach my $line (split(/\s*\n\s*/, $pkginfo))
if ($line =~ /^depend\s+=\s+([^>=\s]+)/)
delete($cache_pkgs{$1}) if exists($installed_pkgs{$1});
@cache_pkgs = keys(%cache_pkgs);
print "$_\n" foreach @cache_pkgs;
sub compare_versions
my ($a,$b) = @_;
return -1 if not defined($a) and defined($b);
return 1 if defined($a) and not defined($b);
return 0 if not defined($a) and not defined($b);
my ($rel_a,$rel_b) = (0,0);
if ($a =~ m/(.*)-(.+)$/) {($a,$rel_a)=($1,$2);}
if ($b =~ m/(.*)-(.+)$/) {($b,$rel_b)=($1,$2);}
my @a = split(/\./,$a);
my @b = split(/\./,$b);
my $len_a = scalar @a;
my $len_b = scalar @b;
my $n = ($len_a < $len_b) ? $len_a : $len_b;
for (my $i=0; $i<$n; $i++)
my ($int_a,$alph_a,$dash_a) = ($a[$i] =~ m/^(\d*)(.*?)(_.*)?$/);
my ($int_b,$alph_b,$dash_b) = ($b[$i] =~ m/^(\d*)(.*?)(_.*)?$/);
$int_a = 0 if $int_a eq '';
$int_b = 0 if $int_b eq '';
if ($int_a != $int_b)
return $int_a <=> $int_b;
if (length($alph_a) and not length($alph_b))
return -1;
if (not length($alph_a) and length($alph_b))
return 1;
if ($alph_a ne $alph_b)
return $alph_a cmp $alph_b;
return 1 if defined($dash_a) and not defined($dash_b);
return -1 if not defined($dash_a) and defined($dash_b);
if (defined($dash_a) and defined($dash_b))
my $dash_cmp = $dash_a cmp $dash_b;
return $dash_cmp if $dash_cmp != 0;
return $len_a <=> $len_b if not $len_a == $len_b;
return $rel_a <=> $rel_b;
Save it as "list_pkgs", make it executable and then run it with
./list_pkgs /var/cache/pacman/pkg
It should spit back a list which contains all packages in the cache which are currently uninstalled, minus any packages which are dependencies of others. To install those packages, combine it with pacman:
pacman -S $(./list_pkgs /var/cache/pacman/pkg)
This doesn't completely solve the issue of explicit versus implicit installation, but I expect that this would be more manageable than installing everything explicitly. I've commented on lines which can be uncommented to get a simple list which ignores dependency relationships.
Btw, the script isn't really as long as it might look. The compare_versions function, which I copied over from another module, nearly doubles the size of the script.
*edited for typos*
Last edited by Xyne (2009-06-26 04:30:12)