Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

cidaris's scratchpad

by cidaris (Friar)
on Jul 22, 2004 at 14:16 UTC ( #376582=scratchpad: print w/replies, xml ) Need Help??

Trying to dump the entire contents of an Oracle database to an internal flatfile so we can reverse engineer their ER diagram. (Vendor went out of business...)
## @column_names contains column names $sth = $dbh->prepare("SELECT ? FROM employees"); foreach my $column_name (@column_names){ $sth->execute($column_name) or error_somehow(); while($row = $sth->fetchrow_arrayref()){ print "Value in column $column_name: ".$row->[0]; } }
For my output I'm getting the column names:
EMPLOYEE_NAME
EMPLOYEE_NAME
EMPLOYEE_NAME
EMPLOYEE_NAME
EMPLOYEE_NAME
EMPLOYEE_NAME
EMPLOYEE_SALARY
EMPLOYEE_SALARY
EMPLOYEE_SALARY
EMPLOYEE_SALARY
EMPLOYEE_SALARY
EMPLOYEE_SALARY


I'd much rather get the column contents... Does prepare not understand what I'm doing? Is there an alternative method short of writing a statement for every table?

Conceptually, I'm trying to do "SELECT * FROM *" and filtering out BLOBs, etc.
Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (5)
As of 2023-02-03 13:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (26 votes). Check out past polls.

    Notices?