On Wednesday, 13 August 2008, at 00:42:42 (+0200),
Robert Scheck wrote:

> I know, that the rpm-perl part was completely rewritten with the 5.x
> release series and I'm now trying to port my old rpm-perl 4.5
> script.  I already read the man pages, but it seems just to confuse
> me and I am not getting a usable result - note that, the man pages
> seem to be incomplete ... ;-)
> 
> All I'm trying to do is: "rpm -q --qf '%{version}-%{release}\n' rpm"
> using the perl interface. Old-style rpm-perl 4.5 was this:
> 
>   my $rpmdb = RPM->open_rpm_db();
>   my $query = $rpmdb->find_by_name_iter("rpm");
>   my $result = $query->next;
>   print $result->as_nvre;
> 
> Any suggestions and ideas for the new rpm perl interface?

# perl -MRPM::PackageIterator -e '$iter = RPM::PackageIterator->new("NAME", "rpm"); while ($pkg = $iter->next()) {print $pkg->as_nvre(), "\n";}'
rpm-5.1.4-4.caos

HTH,
Michael

-- 
Michael Jennings (a.k.a. KainX)  http://www.kainx.org/  <mej@kainx.org>
Linux Server/Cluster Admin, LBL.gov       Author, Eterm (www.eterm.org)
-----------------------------------------------------------------------
 "And every time you speak her name does she know how you told me
  you'd hold me until you died?  But you're still alive."
                              -- Alanis Morrissette, "You Oughta Know"