[ViewVC] Contents of: cvs/dinfo/dinfo

#!/usr/bin/perl

use dinfo;

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

my $r = $dinfo->search (nummer => prefix => "687190");

if ($r) {
   print "results: " . $r->rows . "\n";

   while (my $row = $r->fetch) {
      while (my ($k, $v) = each %$row) {
         print "$k:$v ";
      }
      print "\n";
   }
}

#my $r = $dinfo->search (ort => exact => "Karlsruhe");
Revision:	1.1
Committed:	Tue Aug 26 23:26:37 2003 UTC (20 years, 8 months ago) by root
Branch:	MAIN
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	my $r = $dinfo->search (nummer => prefix => "687190");
8
9	if ($r) {
10	print "results: " . $r->rows . "\n";
11
12	while (my $row = $r->fetch) {
13	while (my ($k, $v) = each %$row) {
14	print "$k:$v ";
15	}
16	print "\n";
17	}
18	}
19
20	#my $r = $dinfo->search (ort => exact => "Karlsruhe");