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