Hello World!!!

##

#!/usr/bin/perl
# dbtest.pl
use warnings;
use strict;
use DBI;

my ($CDS, $UPDATE, $name, $type, $len, $sqlquery);

$CDS=DBI->connect('DBI:ODBC:claudonntUPDATE', 'xxxx', 'xxxx') ||
	die "error opening database: $DBI::errstr\n";


# sql query *******************************************
$sqlquery=$CDS->prepare("
                       SELECT catid, description, count (*) 
			FROM cds_prod, cds_cctxx
			WHERE catid = id
			GROUP BY catid, description
			ORDER BY catid;")  
			|| die "Prepare failed: $DBI::errstr\n";

$sqlquery->execute() 
|| die "couldn't execute query: $DBI::errstr\n";

while (($name, $type, $len) = $sqlquery->fetchrow_array) {
	print "$name","\t","$type", "\t","$len\n";
}
$sqlquery ->finish();		
$CDS->disconnect || die "failed to disconnect\n";

##

##

#!/usr/bin/perl
# dbtest.pl
use warnings;
use strict;
use DBI;

print "Content-type: text/html\n\n";

my ($CDS, $UPDATE, $name, $type, $len, $sqlquery);
print "	
	
	dbtest 
	
	";

$CDS=DBI->connect('DBI:ODBC:claudonntUPDATE', 'xxx', 'xxx') ||
	die "error opening database: $DBI::errstr\n";


# sql query *******************************************
$sqlquery=$CDS->prepare("
                       SELECT catid, description, count (*) 
			FROM cds_prod, cds_cctxx 
			WHERE catid = id 	
			GROUP BY catid, description 
			ORDER BY catid;")  
			|| die "Prepare failed: $DBI::errstr\n";
$sqlquery->execute() 
|| die "couldn't execute query: $DBI::errstr\n";

print "";
while (($name, $type, $len) = $sqlquery->fetchrow_array) {
	print "$type$len";
}
print "$name
		

		
";
	
$sqlquery ->finish();		
$CDS->disconnect || die "failed to disconnect\n";