mirror of
https://github.com/moparisthebest/pacman
synced 2024-10-31 15:45:03 -04:00
0bfc8adf37
The paclist script provides a simple method for monitoring which packages are installed from a given repo. This is particularly useful when using a testing or unstable repository. Thanks to Allan McRae for the idea and an initial bash script. As suggested by Dan, I tried to rewrite in perl, and this resulted in much better performance. Then Dan further cleaned up the script. Signed-off-by: Chantry Xavier <shiningxc@gmail.com> [Dan: add to Makefile & README, minor script cleanups] Signed-off-by: Dan McGee <dan@archlinux.org>
89 lines
2.4 KiB
Perl
Executable File
89 lines
2.4 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# paclist - List all packages installed from a given repo
|
|
#
|
|
# Copyright (C) 2008 Dan McGee <dpmcgee@gmail.com>
|
|
#
|
|
# This program is free software; you can redistribute it and/or
|
|
# modify it under the terms of the GNU General Public License
|
|
# as published by the Free Software Foundation; either version 2
|
|
# of the License, or (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
my $progname = "paclist";
|
|
my $version = "1.0";
|
|
|
|
if ($#ARGV != 0 || $ARGV[0] eq "--help" || $ARGV[0] eq "-h") {
|
|
print "$progname - List all packages installed from a given repo\n";
|
|
print "Usage: $progname <repo>\n";
|
|
print "Example: $progname testing\n";
|
|
if ($#ARGV != 0) {
|
|
exit 1;
|
|
}
|
|
exit 0;
|
|
}
|
|
|
|
if ( $ARGV[0] eq "--version" || $ARGV[0] eq "-v") {
|
|
print "$progname version $version\n";
|
|
print "Copyright (C) 2008 Dan McGee\n";
|
|
exit 0;
|
|
}
|
|
|
|
# This hash table will be used to store pairs of ('name version', count) from
|
|
# the return of both pacman -Sl <repo> and pacman -Q output. We then check to
|
|
# see if a value was added twice (count = 2)- if so, we will print that package
|
|
# as it is both in the repo we queried and installed on our local system.
|
|
my %packages = ();
|
|
my $output;
|
|
|
|
$output = `pacman -Sl $ARGV[0]`;
|
|
if ($? != 0) {
|
|
exit 1;
|
|
}
|
|
my @sync = split(/\n/, $output);
|
|
# sample output from pacman -Sl:
|
|
# testing foobar 1.0-1
|
|
foreach $_ (@sync) {
|
|
my @info = split(/ /);
|
|
# we only want to store 'foobar 1.0-1' in our hash table
|
|
my $pkg = $info[1] . " " . $info[2];
|
|
$packages{$pkg}++;
|
|
}
|
|
|
|
$output = `pacman -Q`;
|
|
if ($? != 0) {
|
|
exit 1;
|
|
}
|
|
# sample output from pacman -Q:
|
|
# foobar 1.0-1
|
|
my @local = split(/\n/, $output);
|
|
foreach $_ (@local) {
|
|
# store 'foobar 1.0-1' in our hash table
|
|
$packages{$_}++;
|
|
}
|
|
|
|
# run comparison check- if value was added twice, it was in the intersection
|
|
my @intersection;
|
|
foreach $_ (keys %packages) {
|
|
if ($packages{$_} == 2) {
|
|
push @{ \@intersection }, $_;
|
|
}
|
|
}
|
|
|
|
# print our intersection, and bask in the glory and speed of perl
|
|
@intersection = sort @intersection;
|
|
foreach $_ (@intersection) {
|
|
print $_ . "\n";
|
|
}
|
|
|
|
#vim: set noet:
|