Also see Querylet and Querylet::CGI, which do just that (and little more).

Most databases offer functionality to allow you to dump the contents in various formats. Maybe you can make use of those tools? They typically give good performance.

Depending on the database brand it might be possible to use a SQL statement to produce a csv formatted output file, e.g. something like (mySQL):

SELECT col1, col2, col3, ...
FROM some_table
INTO OUTFILE '/tmp/some_table.csv'
FIELDS TERMINATED BY ','
ENCLOSED BY '"'
LINES TERMINATED BY '\n'
[download]

Cheers

Harold

Buttons are GUI specific, so unless you tell us what the GUI is you want it to be implemented in, it will be hard to get working examples. perl/Tk button code won't work in Wx and vise-versa.

A callback to dump a table to CSV could be something like (untested!)

# assuming the database handle in $dbh
use Text::CSV_XS;

sub save_table
{
    my $tbl = shift;
    # it is up to you to check for SQL-injection on $tbl ...
    my $sth = $dbh->prepare ("select * from $tbl");
    $sth->execute;
    my %rec;
    my @fld = @{$sth->{NAME_lc}};
    $sth->bind_columns (\@rec{@fld});
    my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1, eol =>
+ "\n", always_quote => 1 });
    $csv->print (*STDOUT, \@fld); # Print header, change STDOUT to fil
+e if required
    while ($sth->fetch) {
        $csv->print (*STDOUT, [ @rec{@fld} ]);
        }
    } # save_table
[download]

I am developing a GUI in perl/tk. Its mainly for report preparation purpose. So When I give the required inputs and Click on 'Generate Report' button I want the query fetched result to be put in a csv file. -Vidya Surendran

$frame->Button (
    -text               => "Save table FOO",
    -borderwidth        => 1,
    -highlightthickness => 0,
    -command            => sub { save_table ("foo"); },
    )->pack;
[download]


Enjoy, Have FUN! H.Merijn

Hello,
I would like to tie on with my question:
say you need to modify the values bevor printing where could be the best point to do this?
Thank!
VE

while ($sth->fetch) {
    $rec{fobar} =~ s{old}{new};                # change in a single co
+lumn
    s/(?:\b|[0-9])USD\b/EUR/g for values %rec; # change all columns
    $csv->print (*STDOUT, [ @rec{@fld} ]);
    }
[download]


Enjoy, Have FUN! H.Merijn