#!/usr/bin/perl

while(<>){
    chomp;
my @entrada=split(/:/,$_);
my $nombre=$entrada[1];


    my @nombres=split(/-/,$nombre);
    my $version=$nombres[-1];
    my $paquete=$nombres[0];
    my $cant=scalar    @nombres;
    my $esv;
    foreach (@nombres[1..$cant-2]){
      $esv=0;
      if (/^[0-9]/) {$esv=1;}
      if (/\./) {$esv=1}
      #print "KK $_ $esv\n";
      if ($esv) {$version=$_.'-'.$version} else {$paquete.='-'.$_}    
       }

    

    my $largo=35-length($paquete); 
    my $largo=35-length($entrada[0]); 
    my $lar=' 'x$largo;
#    print "$paquete   $lar  -  $entrada[1]\n";
    print "$entrada[0]:$paquete\n";
}
# verifica separacion
# -t -k1
#awk -F: ' {print $1":"$2}'  /var/ututopkg/libpro.txt| ./separanombre.pl |sort  -u > /tmp/unico           
# verifica unicidad, que cada soname este en un solo paquete       
#awk -F: ' {print $1":"$2}'  /var/ututopkg/libpro.txt| ./separanombre.pl |sort -u |./orden.pl > /tmp/unico
