my $select = qq~SELECT field1 field2 field3 FROM $ref;~;
my $sth = $dbh->prepare( $select );
$sth->execute();
my ($field1, $field2, $field3) = $sth->fetchrow_array;
[download]

my @inarray = $sth->fetchrow_array();
[download]

But is the idea fo specifying the specific fields extensible and maintainable? My logic would be that if the table structure changes then wildcard of fields does not need to be changed. If you use the HASHREF methods of collecting the data from DBI then you only need be concerned about the actual fields when you look into the HASH for the values.

Of course I stand to be corrected on this, but I would think that having to change the code as well as the SQL is less maintainable than just having to change the code.

jdtoronto

Just like him: All opinions are purely mine and all code is untested, unless otherwise specified

Please stand corrected. *grins*

sub display_table
{
    my ($dbh, $table_name, $columns, $is_ordered) = @_;

    my $sql = 'SELECT ';
    $sql .= join ',', @$columns;
    $sql .= "\n  FROM $table_name";
    $sql .= "\n ORDER BY " . join(',', 1 .. @$columns)
        if $is_ordered;

    print "$sql\n";

    my $sth = $dbh->prepare_cached($sql)
        or die "Cannot prepare '$sql':\n" . $dbh->errstr;

    $sth->execute
        or die "Cannot execute '$sql':n" . $dbh->errstr;

    my $values = $sth->fetchall_arrayref;

    $sth->finish;

    return $values;
}
[download]

------
We are the carpenters and bricklayers of the Information Age.

The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

That's certainly a valuable technique.

Unfortunately this breaks down if you have low-level code that executes stored procedures. While the caller will (or should) know what result sets and columns will be coming back, the code that actually executes the proc won't.

For example, I have a system that is table-driven where each database call is described by a small auto-loaded perl subroutine. The higher level code calls this subroutine with appropriate parameters, and then the low-level "execute this request" code runs and fetches all the data. Admittedly the low-level code doesn't have to know about the column names, but it still fetches that information (usually for debugging/trace purposes).

Michael

PS. I'm not disagreeing with you - just pointing out that (as usual) there are exceptions :-)

That said the fundamental problem of the OP's code, as has been noted in one of the previous responses, is the reliance on the order of hash keys - I'd like to stress that one should retrieve column names via $sth->{NAME} (or the NAME_lc/NAME_uc variations) as that will correctly list all the column names in the proper order.

Michael

There is a method to my madness. I choose select * from ... because the code is meant to work on a collection of tables whose columns are all different.

My application involved having a group of small tables. Then I would have this code query and display any table that was selected. I'm trying to be lazy^TM

Neil Watson
watson-wilson.ca

Well - as long as you are aware of the pitfalls of that technique...

Michael

With respect, this is not a good enough reason to use SELECT * - I'll try to explain why.

The main danger is that at some future time, someone (perhaps not you) will add a BLOB column to one of your tables. If this happens, your code as is could blithely start dragging this data across a network. I don't know MySQL so well, but in SQL Server this could be anything up to about 2GB, perhaps more. Plenty enough to provoke the wrath of most Network Administrators.

You might be lucky - your code could fail due to some exceeded limit, or you might be unlucky - your code could work, and quietly start a mammoth data transfer.

If you really have your heart set on your current approach, you might want to consider thinking about a maximum limit to the amount of data returned in a column, and then explicitly set this limit with code similar to this:

    $dbh->{LongReadLen}=1024*200;  # Max size of column data
    $dbh->{LongTruncOk}=0;         # Not OK to truncate data
[download]