<codigo><br><br>sub Consulta {<br><br> use Teste::Model::MySql;<br><br> my $db = Teste::Model::MySql::Conecta();<br><br> if ($db) {<br><br> my $conn = Teste::Model::MySql::Query($db, "SELECT id_cliente, nome FROM cliente");<br>
<br> my $ref_fields = $conn->fetchall_arrayref;<br><br> return $ref_fields;<br><br> } else {<br><br> return 0;<br><br> } <br><br>}<br><br></codigo><br><br>Agora você tem um AoA:<br>perldoc perldsc: <a href="http://www.perl.org.br/Perldoc/V500807/Perldsc">http://www.perl.org.br/Perldoc/V500807/Perldsc</a><br>
perldoc perlref<br><br>Para pegar o id_cliente e o nome é só fazer agora:<br><code><br>foreach my $item (@{ $ref_fields }) {<br><br>print "id_cliente" . $item->[0] . "\n";<br>print "nome" . $item->[1] . "\n";<br>
}<br></code><br><br>Não precisa de toda aquela volta, entendeu ?<br><br><br><seu_codigo><br><br>package Teste::Model::Cliente;<br>sub Consulta {<br> use Teste::Model::MySql;<br> my $db = Teste::Model::MySql::Conecta();<br>
if ($db ne "") #Não precisa disso, apenas $if($db) é o suficiente.<br> {<br> my $conn = Teste::Model::MySql::Query($db, "SELECT id_cliente, nome FROM cliente");<br> my (@fields) = ("id_cliente", "nome"); <br>
my %results;<br> @results{@fields} = ();<br> $conn->bind_columns(map { \$results{$_} } @fields); <br> return (\%results, sub { $conn->fetch() });<br> }<br> else<br> {<br> return ("false", "false"); #Não é bom usar isso, retorne undef.<br>
} <br>}<br><br></seu_codigo><br><br><seu_codigo><br> use Teste::Controller::Cliente;<br><br># - Não jogue HTML desse jeito, use CGI ou Template Toolkit.<br># <a href="http://search.cpan.org/~lds/CGI.pm-3.43/CGI.pm">http://search.cpan.org/~lds/CGI.pm-3.43/CGI.pm</a><br>
# <a href="http://search.cpan.org/~abw/Template-Toolkit-2.20/lib/Template/Toolkit.pod">http://search.cpan.org/~abw/Template-Toolkit-2.20/lib/Template/Toolkit.pod</a><br><br> print "Content-type: text/html\n\n";<br>
print "<html>\n";<br> print "<head>\n";<br> print " <title>Lista Clientes</title>\n";<br> print "</head>\n";<br> print "<body>\n\n";<br>
my ($res, $conn) = Teste::Controller::Cliente::Consulta();<br> if ($res ne "false") #Agora que você colocou undef no lugar de "false" você pode fazer: $if ($ref), muito mais elegante.<br> {<br>
while ($conn->()) {<br> print "$res->{id_cliente} - \n";<br> print "$res->{nome} \n";<br> print "<br>";<br> }<br> }<br> <br>
print "</body>\n";<br> print "</html>\n";<br><br></seu_codigo><br><br>Você já leu o perldoc perlbot?<br><a href="http://www.perl.org.br/Perldoc/V500807/Perlbot">http://www.perl.org.br/Perldoc/V500807/Perlbot</a><br>
<br>Não use DBI use DBIx::Class<br><a href="http://search.cpan.org/~ash/DBIx-Class-0.08013/lib/DBIx/Class.pm">http://search.cpan.org/~ash/DBIx-Class-0.08013/lib/DBIx/Class.pm</a><br><br>Fazer isso usando Catalyst é muito mais simples, é um framework MVC no próprio manual existem alguns exemplos simples.<br>
O Thiago, fez um tutorial muito bom:<br><a href="http://www.maluco.com.br/perl/catalyst.html">http://www.maluco.com.br/perl/catalyst.html</a><br><br>[]s<br><br><div class="gmail_quote">2009/4/15 Ricardo Zanotto Zaniol <span dir="ltr"><<a href="mailto:zanottors@gmail.com">zanottors@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div><div></div><div class="h5"><p>Olá pessoal, estou com um problema na criação de métodos no Perl, a minha estrutura atual é a seguinte:</p>
<p>C:\perl\lib\Teste\Controller</p>
<p>Na pasta controller (business manager) tenho o arquivo <a href="http://cliente.pm" target="_blank">cliente.pm</a></p>
<p>package Teste::Controller::Cliente;<br>sub Consulta {<br> use Teste::Model::Cliente; <br> my ($res, $conn) = Teste::Model::Cliente::Consulta();<br> return($res, $conn);<br>}<br>========================================================================= </p>
<p>C:\perl\lib\Teste\Model</p>
<p>Na pasta Model (Banco de Dados) tenho dois arquivos o <a href="http://cliente.pm" target="_blank">cliente.pm</a></p>
<p>package Teste::Model::Cliente;<br>sub Consulta {<br> use Teste::Model::MySql; <br> my $db = Teste::Model::MySql::Conecta();<br> if ($db ne "")<br> {<br> my $conn = Teste::Model::MySql::Query($db, "SELECT id_cliente, nome FROM cliente");<br>
my (@fields) = ("id_cliente", "nome"); <br> my %results;<br> @results{@fields} = ();<br> $conn->bind_columns(map { \$results{$_} } @fields); <br> return (\%results, sub { $conn->fetch() });<br>
}<br> else<br> {<br> return ("false", "false");<br> } <br>}<br>====================================================<br> <br>E o outro arquivo MySql.pm</p>
<p>package Teste::Model::MySql;<br>use DBI;</p>
</div></div><p>my $driver = "mysqlPP";</p><div class="im"><br>my $server = "localhost";<br>my $database = "banco";<br>my $user = "usuario";<br>my $password = "senha";<br>
<br></div>sub Conecta<div><div></div><div class="h5"><br>{<br>
my $url = "DBI:$driver:$database:$server";<br> my $dbh = DBI->connect( $url, $user, $password,<br> { PrintError => 0 });;<br> return($dbh);<br>}<br>sub Query<br>{<br> my($conn, $consulta) = @_;<br>
my $sql = qq{ $consulta };<br> my $sth = $conn->prepare( $sql );<br> $sth->execute() ; <br> return($sth);<br>}<br>========================================================</div></div><div><div></div><div class="h5">
<p>pasta onde estaria o site web</p>
<p>C:\inetpub\wwwroot\ListaCliente.pl<br> <br>use Teste::Controller::Cliente;<br>print "Content-type: text/html\n\n";<br>print "<html>\n";<br>print "<head>\n";<br>print " <title>Lista Clientes</title>\n";<br>
print "</head>\n";<br>print "<body>\n\n";<br>my ($res, $conn) = Teste::Controller::Cliente::Consulta();<br>if ($res ne "false") <br>{<br> while ($conn->()) {<br> print "$res->{id_cliente} - \n";<br>
print "$res->{nome} \n";<br> print "<br>";<br> }<br>}<br> <br>print "</body>\n";<br>print "</html>\n";<br>==========================================================</p>
<p>Essa estrutura até funciona mas quando eu manipulo os registros na camada controller (Cliente.pm) eu nao consigo listar novamente os registros na camada de visualização(ListaCliente.pl) </p>
<p>Gostaria de saber se alguem tem um exemplo melhor de como dividir a aplicação em camadas, e como eu poderia modificar essa estrutura de uma forma mais simplificada.</p>
<p>Estou usando esta estrutura em uma maquina com windows2003 + IIS + MySql.</p>
<p>Obrigado...</p>
</div></div><br>_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>
This is my poney:<br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>
--------\_-(\\.---.//)-_/------------<br>----------\)' -8--8- '(/--------------<br>-----------/------------\---------------<br>----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>
perl -MLWP::Simple -le 'grep{ print $1 if /href="(http.+?)"/}split($/,get("<a href="http://www.perl.org.br">http://www.perl.org.br</a>"))'<br>