my @rpmcmd = qw{rpm
  --queryformat=%{N}\t"%{V}"\t"%{R}"\t%7{ARCH}\t%7{SOURCERPM}\t%9{NOSOURCE}\n
  -qp };

##</code><code>##

      while (<$pfrs>) {
        $package_p->split_n_cmp_vers($_);

##</code><code>##

 perl -e '#!/usr/bin/perl
use strict; use warnings;use P;
use Data::Dumper;

my $fmt="prod\t006\t2.13\tx86_64\trpm";
my @flds = split /\t/,$fmt;
printf "%s, %s", $flds[1],"<".join("|",@flds).">\n";
P "%s, %s", $flds[1],"<".join("|",@flds).">\n";
'
006, <prod|006|2.13|x86_64|rpm>
6, <prod|006|2.13|x86_64|rpm>

##</code><code>##

  sub rec2rpm_name () {
    my $p    = shift;
    my ($n, $v, $r, $arch) = ($p->N, $p->V, $p->R, $p->arch);
    chomp $arch;
    my $q = P "%s-%s-%s.%s.rpm", $n, $v, $r, $arch;
    $q=~s/-"(\S+)"-"(\S+)"/-$1-$2/;
    $q;
  }