Ok, thanks. I'll try it. Thanks magnellig
--- Thomas Bätzler <[EMAIL PROTECTED]> ha scritto: > Sara <[EMAIL PROTECTED]> suggested: > > I always used 'phpmyAdmin' for such tasks. Give it > a try. > > Great idea! That's like handing loaded guns to > people > while telling them to keep them pointed at their > feet ;-) > > But to get back to Glauco's message: > > > > I do a query to mysql table and view the result > in > > > html table. At this point I want export query > result > > > in a text file (comma separated fields), doing > to > > > choose (to user) file name and destination on > your > > > filesystem. > > > Can you help me? > > This is off the top of my head, but it might get you > started: > > #!/usr/bin/perl > > use strict; > use warnings; > use CGI; > > my $q = new CGI; > > # processing goes here > > if( $q->param('mode') || '' eq 'csv' ){ > print $q->header('text/csv'); > # output data as CSV > } else { > print $q->header . > $q->start_html; > # output data as html > # create a link to self > $q->param(-name=>'mode',-value=>'csv'); > print $q->p( $q->a({href=>$q->self_url},"Download > as CSV") ); > print $q->end_html; > } > > __END__ > > HTH, > Thomas > > -- > To unsubscribe, e-mail: > [EMAIL PROTECTED] > For additional commands, e-mail: > [EMAIL PROTECTED] > <http://learn.perl.org/> > <http://learn.perl.org/first-response> > > > ___________________________________ Yahoo! Mail: gratis 1GB per i messaggi e allegati da 10MB http://mail.yahoo.it -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>