<perl>
$merkhersteller="";
$erstersatz=1;
$zaehler=0;
get "hersteller==* sort=hersteller","angebote";
while (get_next("hersteller"))
{
   if ($erstersatz==1)
   {
       $merkhersteller=$hersteller;
   }
   if ($merkhersteller ne $hersteller)
   {
       out "datensätze vom hersteller: ",$merkhersteller, " ",$zaehler;
       $zaehler=0;
   }
   else
   {
       $zaehler++;
   }
}
}
out "datensätze vom hersteller: ", $merkhersteller, " ",$zaehler;
</perl>