I'm experimenting with the Win32::ODBC module and having (what I perceive to
be) a really weird problem. I hardly ever use Perl, and I'm a novice in
every sense of the word, so bear with me.
I'm running code from the examples given in the documentation for the
module, substituting in variables that actually exist in place of the
variables listed there. When I try to print anything, the variables in the
print function don't show up. For example, when I run:
if ($GILES_RESEARCH->Catalog( '', '', '', "'TABLE','SYSTEM_TABLE'") )
{
my %Data;
print "Available tables:\n";
while ($GILES_RESEARCH->FetchRow( \%Data ) )
{
print "\t$Data{TABLE_NAME} is a $Data{TABLE_TYPE}
(owned by '$Data{TABLE_SCHEM}')\n";
}
}
I get:
Available tables:
is a (owned by '')
The funny thing is that " is a (owned by '')" prints EXACTLY as many times
as there are tables. So the connection is being made, but the values aren't
being read by print. The Catalog() method isn't the only method I'm having
this problem with. I'm running WinXP Pro, ActivePerl 5.8. Any help would
be appreciated. Thanks!
Doug Cacialli
-------------------------------------------
Doug Cacialli - Data Manager / Data Analyst
Depression Research Laboratory
University of Rochester Medical Center
300 Crittenden Boulevard - Box PSYCH
Rochester, New York 14642
Phone: (585)273-3309 Fax: (585)506-0287
-------------------------------------------
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
