#!/usr/bin/perl

use dinfo;

my $dinfo = new dinfo "DBI:mysql:dinfo";

while (<>) {

   #my $r = $dinfo->search (nummer => prefix => "000", vorwahl => exact => "0721");
   my $r = $dinfo->search (nummer => prefix => "000000");

   #print "results: " . $r->rows . "\n";
   #chomp;
   while (my $row = $r->fetch) {
      #$row = $dinfo->identify_number($_);
      while (my ($k, $v) = each %$row) {
         print "$k:$v ";
      }
      print "\n";
      last if 1000..20000;
   }

   #my $r = $dinfo->search (ort => exact => "Karlsruhe");
}