[ViewVC] Contents of: cvs/dinfo/dinfo

#!/usr/bin/perl

use dinfo;

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

while (<>) {

   #my $r = $dinfo->search (nummer => exact => 7199, vorwahl => exact => "07066");
   #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");
}
Revision:	1.5
Committed:	Wed Sep 3 23:45:19 2003 UTC (20 years, 8 months ago) by root
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.4:	+1 -0 lines
Log Message:	* empty log message *
#	Content
1	#!/usr/bin/perl
2
3	use dinfo;
4
5	my $dinfo = new dinfo "DBI:mysql:dinfo";
6
7	while (<>) {
8
9	#my $r = $dinfo->search (nummer => exact => 7199, vorwahl => exact => "07066");
10	#print "results: " . $r->rows . "\n";
11	#chomp;
12	#while (my $row = $r->fetch) {
13	$row = $dinfo->identify_number($_);
14	while (my ($k, $v) = each %$row) {
15	print "$k:$v ";
16	}
17	print "\n";
18	last if 1000..20000;
19	#}
20
21	#my $r = $dinfo->search (ort => exact => "Karlsruhe");
22	}