[gentoo-dev] list-pkgs - perl script for listing packages

[gentoo-dev] list-pkgs - perl script for listing packages

[Collins Richey]

This little perl script provides a sorted list of packages (installed or available to install).  I got tired of trying to remember which directory under /usr/portage or /var/db/pkg holds a given ebuild.

Now i just enter, for example,  'list-pkgs | grep cups' to see what's available or 'list-pkgs db | grep gtk' to see what's already installed.


#!/usr/bin/perl
# list-pkgs
# Collins Richey 08Mar2001
# usage:  list-pkgs db    (list installed packages in /va/db/pkg)
#         list-pkgs       (list packages in /usr/portage)
if ($ARGV[0] eq "db")
  { @list = `find \/var\/db\/pkg -print|grep '.ebuild'`; 
    print "Packages already installed\n\n";
  }
else
  { @list = `find \/usr\/portage -print|grep '.ebuild'`; 
    print "Packages available to be installed\n\n";
  }
while ($a = shift(@list))
  { chop($a);
    @list2 = split(/\//,$a);
    $pkg = pop(@list2);
    $trash = shift(@list2);
    $place = join('/',@list2);
    push(@list3,"$pkg       \/$place\n");
  }
@list3 = sort(@list3);
print @list3;


enjoy!
-- 
Collins Richey
Denver Area
Gentoo_rc5 XFCE