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>
