[Cascavel-pm] perl e mysql

[Tarik Gregorio]

Valeu Marco, uma otima ajuda, saiu quase como eu to querendo.... sai
na ordem certinho, so que eu queria que  venha como tabela mesmo...
nao sei se e possivel, estou pesquisando e nao acho muita coisa.  O
que estou tenatndo fazer e criar inumeras tabelas tabelas temporarias
e mexer com elas e retornar no final a tabela que eu quero no formato
de tabela.
[]'s
Tarik Faria da Silva Gregorio

Em 03/05/05, Marco Lima<marco.lima em e-via.com.br> escreveu:
> Salve Tarik !
> 
> Tente o seguinte:
> 
> #!/usr/bin/perl
> use strict;
> use DBI;
> 
> my $db="minhatabela";
> my $host="localhost";
> my $userid="usuario";
> my $passwd="senha";
> my $connectionInfo="DBI:mysql:database=$db;$host";
> 
> my $dbh = DBI->connect($connectionInfo,$userid,$passwd);
> my $query = "SELECT name FROM oi";
> my $sth = $dbh->prepare($query);
> $sth->execute();
> while (@row = $sth->fetchrow_array()) {
>     print "Row: @row\n";
> }
> $sth->finish();
> $dbh->disconnect;
> 
> ou se preferir basta:
> 
> #!/usr/bin/perl
> use strict;
> use DBI;
> 
> my $dbh = DBI->connect(DBI:mysql:database,"usuario","senha", {
> RaiseError => 1, });
> my $sth = $dbh->prepare("SELECT name FROM oi");
> $sth->execute();
> my $array_ref = $sth->fetchall_arrayref( { name => 1, } );
> foreach my $row (@$array_ref) {
>     print "Row: $row->{name}\n";
> }
> exit;
> 
> Espero ter ajudado !
> 
> [  ]'ção
> 
> 
> > Ola Pessoal,
> >
> >   Estou tendo que fazer um script em perl para conectar ao mysql e
> > estou precisando retornar  no formato de tabela so que nao estou tendo
> > muito sucesso.
> > Alguem tem como me ajudar??
> >
> > segue o codigo abaixo:
> >
> > #!/usr/bin/perl
> >
> >
> > use DBI;
> >
> > my $db="minhatabela";
> > my $host="localhost";
> >
> > my $userid="usuario";
> > my $passwd="senha";
> > my $connectionInfo="DBI:mysql:database=$db;$host";
> >
> >
> > my $dbh = DBI->connect($connectionInfo,$userid,$passwd);
> >
> >
> > my $query = "SELECT name FROM oi";
> >
> > my $sth = $dbh->prepare($query);
> >
> > $sth->execute();
> >     print $sth;
> >
> > $sth->finish();
> > $dbh->disconnect;
> >
> > -----------------
> > Tarik Faria da Silva Gregorio
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> >
> 
> Marco Lima
> J. A. P. H.
> 
> marco.lima em e-via.com.br
> mago em rio.pm.org
> 
> +55 19 96 56 06 46
> 
> Sociedade Perl do Brasil   |   http://www.perl.org.br
> Perl Monks                 |   http://www.perlmonks.org
> Brasil Perl Mongers        |   http://brasil.pm.org
> 
> Register Linux User #355235
> Slackware Linux, for the subgenius
> 
> 


--