<DIV>
<DIV>
<DIV>> DBD:ODBC, descobri que o SQL Server não deixa de ser uma versão do antigo</DIV>
<DIV>> Sybase, e usam o mesmo objeto de conexão, estou fazendo alguns teste,</DIV>
<DIV> </DIV>
<DIV>Rafael este é um comentário infeliz e muito superfícial (sem quere ser grosseiro com você). </DIV>
<DIV> </DIV>
<DIV>O SQL Server nasceu (sim) de uma parceria (compra) de uma versão do Sybase pela Microsoft, mas com certeza estas semelhanças e compatibilidade (hoje) estão apenas na suporte a interface aos usuários, tais como alguns comandos e uma parte do protocolo de comunicação (suporte ao TDS).</DIV>
<DIV> </DIV>
<DIV>Mas pode acreditar que o SQL Server internalmente não tem nada com o antigo Sybase.</DIV>
<DIV> </DIV>
<DIV>Mas o caminho, neste caso, é por aí mesmo</DIV>
<DIV> </DIV>
<DIV>Solli M. Honorio</DIV>
<DIV> </DIV></DIV>
<DIV>
<TABLE cellSpacing=0 cellPadding=0 width=500 border=0>
<TBODY>
<TR>
<TD class=txt width=100 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2><B>De:</B></FONT></TD>
<TD class=txt width=400 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2>cascavel-pm-bounces@pm.org</FONT></TD></TR></TBODY></TABLE></DIV>
<DIV>
<TABLE cellSpacing=0 cellPadding=0 width=500 border=0>
<TBODY>
<TR>
<TD class=txt width=100 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2><B>Para:</B></FONT></TD>
<TD class=txt width=400 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2>cascavel-pm@pm.org</FONT></TD></TR></TBODY></TABLE></DIV>
<DIV>
<TABLE cellSpacing=0 cellPadding=0 width=500 border=0>
<TBODY>
<TR>
<TD class=txt width=100 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2><B>Cópia:</B></FONT></TD>
<TD class=txt width=400 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2></FONT></TD></TR></TBODY></TABLE></DIV>
<DIV>
<TABLE cellSpacing=0 cellPadding=0 width=500 border=0>
<TBODY>
<TR>
<TD class=txt width=100 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2><B>Data:</B></FONT></TD>
<TD class=txt width=400 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2>Tue, 15 Feb 2005 18:32:45 -0300</FONT></TD></TR></TBODY></TABLE></DIV>
<DIV>
<TABLE cellSpacing=0 cellPadding=0 width=500 border=0>
<TBODY>
<TR>
<TD class=txt width=100 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2><B>Assunto:</B></FONT></TD>
<TD class=txt width=400 bgColor=#d8d8d8><FONT face="Trebuchet MS; verdana; arial" size=2>[Cascavel-pm] Re: Conectar o SQL Server</FONT></TD></TR></TBODY></TABLE></DIV>
<DIV>
<TABLE cellSpacing=0 cellPadding=0 width=500 border=0>
<TBODY>
<TR>
<TD width=100 bgColor=#e8e8e8> </TD>
<TD width=400 bgColor=#e8e8e8> </TD></TR></TBODY></TABLE></DIV>
<DIV>> Pessoal,</DIV>
<DIV>> </DIV>
<DIV>> </DIV>
<DIV>> Ah, mesmo assim precisa de um driver ODBC para Linux, escolhi o FreeTDS.</DIV>
<DIV>> </DIV>
<DIV>> Abraços,</DIV>
<DIV>> </DIV>
<DIV>> Rafael Szarblewski</DIV>
<DIV>> Perl Developer</DIV>
<DIV>> </DIV>
<DIV>> ----- Original Message ----- </DIV>
<DIV>> From: <CASCAVEL-PM-REQUEST@PM.ORG></DIV>
<DIV>> To: <CASCAVEL-PM@PM.ORG></DIV>
<DIV>> Sent: Tuesday, February 15, 2005 4:40 PM</DIV>
<DIV>> Subject: Digest Cascavel-pm, volume 82, assunto 3</DIV>
<DIV>> </DIV>
<DIV>> </DIV>
<DIV>> enviar inscrições da lista de discussão Send Cascavel-pm para</DIV>
<DIV>> cascavel-pm@pm.org</DIV>
<DIV>> </DIV>
<DIV>> Para se cadastrar ou descadastrar via WWW, visite o endereço</DIV>
<DIV>> http://mail.pm.org/mailman/listinfo/cascavel-pm</DIV>
<DIV>> ou, via email, envie uma mensagem com a palavra 'help' no assunto ou</DIV>
<DIV>> corpo da mensagem para</DIV>
<DIV>> cascavel-pm-request@pm.org</DIV>
<DIV>> </DIV>
<DIV>> Você poderá entrar em contato com a pessoa que gerencia a lista pelo</DIV>
<DIV>> endereço</DIV>
<DIV>> cascavel-pm-owner@pm.org</DIV>
<DIV>> </DIV>
<DIV>> Quando responder, por favor edite sua linha Assunto assim ela será</DIV>
<DIV>> mais específica que "Re: Contents of Cascavel-pm digest..."</DIV>
<DIV>> </DIV>
<DIV>> </DIV>
<DIV>> Tópicos de Hoje:</DIV>
<DIV>> </DIV>
<DIV>> 1. Re: YAPC::Brasil::2005 / 2º Encontro Nacional</DIV>
<DIV>> (Luis Campos de Carvalho)</DIV>
<DIV>> 2. Re: YAPC::Brasil::2005 / 2º Enc (fglock@pucrs.br)</DIV>
<DIV>> 3. Re: Conectar o SQL Server (Luis Campos de Carvalho)</DIV>
<DIV>> 4. Re: Conectar o SQL Server (Solli Moreira Honorio)</DIV>
<DIV>> 5. Re:Re:Conectar o SQL Server (Solli Moreira Honorio)</DIV>
<DIV>> </DIV>
<DIV>> </DIV>
<DIV>> ----------------------------------------------------------------------</DIV>
<DIV>> </DIV>
<DIV>> Message: 1</DIV>
<DIV>> Date: Tue, 15 Feb 2005 13:25:53 -0300</DIV>
<DIV>> From: Luis Campos de Carvalho <MONSIEUR_CHAMPS@YAHOO.COM.BR></DIV>
<DIV>> Subject: Re: [Cascavel-pm] YAPC::Brasil::2005 / 2º Encontro Nacional</DIV>
<DIV>> To: João Gabriel <JAMORREU@GMAIL.COM>, Cascavel Perl Mongers</DIV>
<DIV>> <CASCAVEL-PM@PM.ORG></DIV>
<DIV>> Message-ID: <42122291.9050408@yahoo.com.br></DIV>
<DIV>> Content-Type: text/plain; charset=ISO-8859-1; format=flowed</DIV>
<DIV>> </DIV>
<DIV>> João Gabriel wrote:</DIV>
<DIV>> > Luis Campos...</DIV>
<DIV>> ></DIV>
<DIV>> >> Impressionante... eu fui procurar na lista, e acho que esta é a</DIV>
<DIV>> >>primeira vez que eu concordo com alguma coisa que o JG posta (nada</DIV>
<DIV>> >>pessoal, JG!)... vai MESMO chover canivete aberto...</DIV>
<DIV>> >></DIV>
<DIV>> >> Deve ser o sono, eu vou dormir...</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > Tú deveria está com muito sono na hora que postou isso... rsrs</DIV>
<DIV>> ></DIV>
<DIV>> > mas não sei pq não concordou com minhas outras idéias... (vai ver é</DIV>
<DIV>> > porque eu só perguntei ou vc tem alguma marra comigo).</DIV>
<DIV>> </DIV>
<DIV>> Nada pessoal, JG.</DIV>
<DIV>> Normalmente, você apenas pergunta (pelo menos, é o que dizem os</DIV>
<DIV>> arquivos da lista).</DIV>
<DIV>> </DIV>
<DIV>> > Quando estiver com sono e sem nada pra fazer, dá uma visitada no</DIV>
<DIV>> > Vitoria PM, CGiClube, fórums de perl espalhados pela net afora (tem</DIV>
<DIV>> > bastande brasileiros precisando de ajuda)... :D</DIV>
<DIV>> </DIV>
<DIV>> Eu acho que você poderia fazer com que eles visitem a lista de</DIV>
<DIV>> Cascavel, e não apenas quando está sem sono... ;-) Tenho certeza de que</DIV>
<DIV>> esta seria uma grande contribuição para a comunidade Perl...</DIV>
<DIV>> </DIV>
<DIV>> > Quanto ao site do YAPC Brasil 2005, quanto entra no ar??</DIV>
<DIV>> ></DIV>
<DIV>> </DIV>
<DIV>> Boa pergunta... acho que o pessoal está precisando de ajuda para</DIV>
<DIV>> construir o website... :-)</DIV>
<DIV>> </DIV>
<DIV>> Putamplexos!</DIV>
<DIV>> -- </DIV>
<DIV>> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=</DIV>
<DIV>> Luis Campos de Carvalho is BSc in Comp Science,</DIV>
<DIV>> PerlMonk [SiteDocClan], Sao Paulo PM Leader,</DIV>
<DIV>> Unix Sys Admin && Certified Oracle DBA</DIV>
<DIV>> http://br.geocities.com/monsieur_champs/</DIV>
<DIV>> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=</DIV>
<DIV>> </DIV>
<DIV>> </DIV>
<DIV>> </DIV>
<DIV>> ------------------------------</DIV>
<DIV>> </DIV>
<DIV>> Message: 2</DIV>
<DIV>> Date: Tue, 15 Feb 2005 15:44:24 GMT</DIV>
<DIV>> From: fglock@pucrs.br</DIV>
<DIV>> Subject: Re: [Cascavel-pm] YAPC::Brasil::2005 / 2º Enc</DIV>
<DIV>> To: Cascavel Perl Mongers <CASCAVEL-PM@PM.ORG></DIV>
<DIV>> Message-ID: <200502151545.j1FFjRC3048816@rigel.pucrs.br></DIV>
<DIV>> </DIV>
<DIV>> Luis escreveu:</DIV>
<DIV>> ></DIV>
<DIV>> > > Quanto ao site do YAPC Brasil 2005, quanto entra</DIV>
<DIV>> no ar??</DIV>
<DIV>> > ></DIV>
<DIV>> ></DIV>
<DIV>> > Boa pergunta... acho que o pessoal está</DIV>
<DIV>> precisando de ajuda para</DIV>
<DIV>> > construir o website... :-)</DIV>
<DIV>> </DIV>
<DIV>> O Er Galvão Abbott já está responsável pelo site.</DIV>
<DIV>> Estamos aguardando a liberação do acesso para colocar</DIV>
<DIV>> o conteúdo.</DIV>
<DIV>> </DIV>
<DIV>> - Flavio S. Glock</DIV>
<DIV>> </DIV>
<DIV>> </DIV>
<DIV>> </DIV>
<DIV>> </DIV>
<DIV>> ------------------------------</DIV>
<DIV>> </DIV>
<DIV>> Message: 3</DIV>
<DIV>> Date: Tue, 15 Feb 2005 14:18:49 -0300</DIV>
<DIV>> From: Luis Campos de Carvalho <MONSIEUR_CHAMPS@YAHOO.COM.BR></DIV>
<DIV>> Subject: Re: [Cascavel-pm] Conectar o SQL Server</DIV>
<DIV>> To: Cascavel Perl Mongers <CASCAVEL-PM@PM.ORG></DIV>
<DIV>> Message-ID: <42122EF9.3060707@yahoo.com.br></DIV>
<DIV>> Content-Type: text/plain; charset=ISO-8859-1; format=flowed</DIV>
<DIV>> </DIV>
<DIV>> Solli Moreira Honorio wrote:</DIV>
<DIV>> > Rafael,</DIV>
<DIV>> ></DIV>
<DIV>> > Estou enviando uma fração do meu código base para acessar o SQL Server,</DIV>
<DIV>> > tome o cuidado (e faça as alterações necessárias) com as constantes que</DIV>
<DIV>> > estão no código.</DIV>
<DIV>> ></DIV>
<DIV>> > O código acessa o SQL via Ado, e está com as melhores práticas de acesso</DIV>
<DIV>> > neste componente.</DIV>
<DIV>> ></DIV>
<DIV>> > Se você tiver interessado em ver as 1001 connection strings para OLEDB,</DIV>
<DIV>> > dê uma olhada no link</DIV>
<DIV>> > http://www.able-consulting.com/MDAC/ADO/Connection/OLEDB_Providers.htm</DIV>
<DIV>> </DIV>
<DIV>> Solli, isto serve para conectar ao SQL Server a partir de uma máquina</DIV>
<DIV>> não-windows? Você sugeriria alguma estratégia específica para este caso?</DIV>
<DIV>> Não preciso dos detalhes sujos, apenas o "caminho das pedras".</DIV>
<DIV>> </DIV>
<DIV>> Obrigado, e putamplexos!</DIV>
<DIV>> -- </DIV>
<DIV>> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=</DIV>
<DIV>> Luis Campos de Carvalho is BSc in Comp Science,</DIV>
<DIV>> PerlMonk [SiteDocClan], Sao Paulo PM Leader,</DIV>
<DIV>> Unix Sys Admin && Certified Oracle DBA</DIV>
<DIV>> http://br.geocities.com/monsieur_champs/</DIV>
<DIV>> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=</DIV>
<DIV>> </DIV>
<DIV>> </DIV>
<DIV>> </DIV>
<DIV>> ------------------------------</DIV>
<DIV>> </DIV>
<DIV>> Message: 4</DIV>
<DIV>> Date: Tue, 15 Feb 2005 16:27:50 -0300</DIV>
<DIV>> From: "Solli Moreira Honorio" <SHONORIO@TERRA.COM.BR></DIV>
<DIV>> Subject: Re: [Cascavel-pm] Conectar o SQL Server</DIV>
<DIV>> To: "cascavel-pm" <CASCAVEL-PM@PM.ORG></DIV>
<DIV>> Message-ID: <IBYWQE$5FD051E12288DE6DDF140E6AD4D077E6@TERRA.COM.BR></DIV>
<DIV>> Content-Type: text/plain; charset="iso-8859-1"</DIV>
<DIV>> </DIV>
<DIV>> ></DIV>
<DIV>> > Solli, isto serve para conectar ao SQL Server a partir de uma máquina</DIV>
<DIV>> > não-windows? Você sugeriria alguma estratégia específica para este caso?</DIV>
<DIV>> > Não preciso dos detalhes sujos, apenas o "caminho das pedras".</DIV>
<DIV>> ></DIV>
<DIV>> > Obrigado, e putamplexos!</DIV>
<DIV>> > -- </DIV>
<DIV>> </DIV>
<DIV>> Ô mestre,</DIV>
<DIV>> </DIV>
<DIV>> Infelizmente não, o ADO só "rola" (literalmente) no Windows.</DIV>
<DIV>> </DIV>
<DIV>> Esta questão de acesso a base MS SQL Server no Linux é muito discutada mas</DIV>
<DIV>> com poucas soluções e sinceramente nunca testei nenhuma proposta.</DIV>
<DIV>> </DIV>
<DIV>> Mas recentemente eu li um artigo na Microsoft sobre um cara que tinha</DIV>
<DIV>> servidores SUN e que precisava acessar/gravar informações no MS SQL Server,</DIV>
<DIV>> e para isto ele utilizou o Perl com SOAP::Lite.</DIV>
<DIV>> </DIV>
<DIV>> Eu achei a solução muito interessante e elegante, afinal com isto estamos</DIV>
<DIV>> implementando uma solução N-Tier (mas que deixa o sistema um pouco mais</DIV>
<DIV>> complexo) e que pode ser facilmente migrado para o Oracle, MySql, txt, etc.</DIV>
<DIV>> </DIV>
<DIV>> O link é</DIV>
<DIV>> http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnsoap/html/soapliteperl.asp</DIV>
<DIV>> </DIV>
<DIV>> Eu recomendo dar uma olhada, e é claro, os exemplos tem alguns pequenos bugs</DIV>
<DIV>> :-).</DIV>
<DIV>> </DIV>
<DIV>> Solli M. Honorio</DIV>
<DIV>> -------------- Próxima Parte ----------</DIV>
<DIV>> Um anexo em HTML foi limpo...</DIV>
<DIV>> URL:</DIV>
<DIV>> http://mail.pm.org/pipermail/cascavel-pm/attachments/20050215/ee977f40/attachment-0001.htm</DIV>
<DIV>> </DIV>
<DIV>> ------------------------------</DIV>
<DIV>> </DIV>
<DIV>> Message: 5</DIV>
<DIV>> Date: Tue, 15 Feb 2005 16:40:36 -0300</DIV>
<DIV>> From: "Solli Moreira Honorio" <SHONORIO@TERRA.COM.BR></DIV>
<DIV>> Subject: Re:[Cascavel-pm] Re:Conectar o SQL Server</DIV>
<DIV>> To: "cascavel-pm" <CASCAVEL-PM@PM.ORG></DIV>
<DIV>> Message-ID: <IBYXBO$7F145EBD544822CCE4C36675F75FC6A5@TERRA.COM.BR></DIV>
<DIV>> Content-Type: text/plain; charset="iso-8859-1"</DIV>
<DIV>> </DIV>
<DIV>> Rafael,</DIV>
<DIV>> </DIV>
<DIV>> Pelo jeito você deve estar utilizando Linux, se for o caso peço desculpa</DIV>
<DIV>> porque sugeri uma solução sem perguntar em qual plataforma você está</DIV>
<DIV>> trabalhando.</DIV>
<DIV>> </DIV>
<DIV>> A solução que eu enviei é apenas para Windows, e se você for o caso, dê uma</DIV>
<DIV>> olhada no ActivePerl (http://www.activestate.com), é o melhor Perl para</DIV>
<DIV>> Windows, e já tem o módulo Win32::OLE.</DIV>
<DIV>> </DIV>
<DIV>> Solli M. Honorio</DIV>
<DIV>> Perl's Hobby</DIV>
<DIV>> </DIV>
<DIV>> </DIV>
<DIV>> De:cascavel-pm-bounces@pm.org</DIV>
<DIV>> </DIV>
<DIV>> Para:cascavel-pm@pm.org</DIV>
<DIV>> </DIV>
<DIV>> Cópia:</DIV>
<DIV>> </DIV>
<DIV>> Data:Tue, 15 Feb 2005 10:48:00 -0300</DIV>
<DIV>> </DIV>
<DIV>> Assunto:[Cascavel-pm] Re:Conectar o SQL Server</DIV>
<DIV>> </DIV>
<DIV>> </DIV>
<DIV>> </DIV>
<DIV>> > Muito obrigado pela ajuda de vocês, Luis Campos de Carvalho e Solli</DIV>
<DIV>> Moreira</DIV>
<DIV>> > Honorio.</DIV>
<DIV>> ></DIV>
<DIV>> > Tenho uma outra dúvida. Solli, para usar o seu código preciso instalar o</DIV>
<DIV>> > módulo Win32::OLE, certo?</DIV>
<DIV>> ></DIV>
<DIV>> > Pois é, tentei instalar, mas não consegui.</DIV>
<DIV>> ></DIV>
<DIV>> > O modo que eu utilizo para instalar módulos é o seguinte:</DIV>
<DIV>> ></DIV>
<DIV>> > - Entro com o comando cpan</DIV>
<DIV>> ></DIV>
<DIV>> > - Depois digito o comando install Win32::ADO</DIV>
<DIV>> ></DIV>
<DIV>> > Seguindo esses dois comandos era para instalar, não é? Ou estou errado? Ou</DIV>
<DIV>> > falta alguma coisa?</DIV>
<DIV>> ></DIV>
<DIV>> > Abraços,</DIV>
<DIV>> ></DIV>
<DIV>> > Rafael Szarblewski</DIV>
<DIV>> > Perl Developer</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > ----- Original Message ----- </DIV>
<DIV>> > From:</DIV>
<DIV>> > To:</DIV>
<DIV>> > Sent: Tuesday, February 15, 2005 2:35 AM</DIV>
<DIV>> > Subject: Digest Cascavel-pm, volume 82, assunto 1</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > enviar inscrições da lista de discussão Send Cascavel-pm para</DIV>
<DIV>> > cascavel-pm@pm.org</DIV>
<DIV>> ></DIV>
<DIV>> > Para se cadastrar ou descadastrar via WWW, visite o endereço</DIV>
<DIV>> > http://mail.pm.org/mailman/listinfo/cascavel-pm</DIV>
<DIV>> > ou, via email, envie uma mensagem com a palavra 'help' no assunto ou</DIV>
<DIV>> > corpo da mensagem para</DIV>
<DIV>> > cascavel-pm-request@pm.org</DIV>
<DIV>> ></DIV>
<DIV>> > Você poderá entrar em contato com a pessoa que gerencia a lista pelo</DIV>
<DIV>> > endereço</DIV>
<DIV>> > cascavel-pm-owner@pm.org</DIV>
<DIV>> ></DIV>
<DIV>> > Quando responder, por favor edite sua linha Assunto assim ela será</DIV>
<DIV>> > mais específica que "Re: Contents of Cascavel-pm digest..."</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > Tópicos de Hoje:</DIV>
<DIV>> ></DIV>
<DIV>> > 1. Re: Duvida sobre o GD::Image (Daniel Ruoso)</DIV>
<DIV>> > 2. Re: YAPC::Brasil::2005 / 2º Encontro Nacional</DIV>
<DIV>> > (Luis Campos de Carvalho)</DIV>
<DIV>> > 3. Re: Duvida sobre o GD::Image (Luis Campos de Carvalho)</DIV>
<DIV>> > 4. Re: YAPC::Brasil::2005 / 2º Encontro Nacional</DIV>
<DIV>> > (Luis Campos de Carvalho)</DIV>
<DIV>> > 5. Conectar o SQL Server (Rafael Szarblewski)</DIV>
<DIV>> > 6. Win32::GUI notify icon (tray) (Donato Azevedo)</DIV>
<DIV>> > 7. Re: Conectar o SQL Server (Luis Campos de Carvalho)</DIV>
<DIV>> > 8. YAPC::Brasil::2005 / 2º Encontro Nacional (João Gabriel)</DIV>
<DIV>> > 9. Re:Conectar o SQL Server (Solli Moreira Honorio)</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > ----------------------------------------------------------------------</DIV>
<DIV>> ></DIV>
<DIV>> > Message: 1</DIV>
<DIV>> > Date: Sat, 12 Feb 2005 08:40:10 -0300</DIV>
<DIV>> > From: Daniel Ruoso</DIV>
<DIV>> > Subject: Re: [Cascavel-pm] Duvida sobre o GD::Image</DIV>
<DIV>> > To: Cascavel Perl Mongers</DIV>
<DIV>> > Message-ID: <1108208410.1395.3.camel@cedro></DIV>
<DIV>> > Content-Type: text/plain; charset=ISO-8859-1</DIV>
<DIV>> ></DIV>
<DIV>> > Mas porque salvar em arquivo?</DIV>
<DIV>> ></DIV>
<DIV>> > é só fazer a chamada da imagem direto para o cgi que cospe a imagem...</DIV>
<DIV>> > tipo</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > Em Sex, 2005-02-11 às 19:29, Alceu R. de Freitas Jr. escreveu:</DIV>
<DIV>> > > Douglas, vc pode usar uma função em javascript para</DIV>
<DIV>> > > fazer uma outra chamada para o CGI apagar a figura</DIV>
<DIV>> > > assim que o usuário abandonar a página.</DIV>
<DIV>> > ></DIV>
<DIV>> > > Bem é só uma idéia. :-)</DIV>
<DIV>> > ></DIV>
<DIV>> > > []'s</DIV>
<DIV>> > > Alceu</DIV>
<DIV>> > ></DIV>
<DIV>> > > --- Douglas de Souza</DIV>
<DIV>> > > escreveu:</DIV>
<DIV>> > > > Usei outra solução,</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > fiz com que o cgi gravasse a imagem em um arquivo</DIV>
<DIV>> > > > .png</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > portanto para nao ficar milhares de arquivo e como</DIV>
<DIV>> > > > nao podia ser o mesmo</DIV>
<DIV>> > > > nome para todos</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > coloquei assim ano mes dia hora minuto segundo.png</DIV>
<DIV>> > > > (sem o espaço)</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > e fiz ele executar no final do cgi uma funcao que</DIV>
<DIV>> > > > verifica todoas as imagens</DIV>
<DIV>> > > > só deixa</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > na pasta as imagens de 1 minutos a menos</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > ex: 2005 02 11 18 27 50.png (sem o espaco)</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > coloquei um if p/ comparar se for < que $data-100</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > ele deleta o arquivo...</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > assim nao preciso passar por get o comando</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > Achei mais seguro...</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > []'s Douglas</DIV>
<DIV>> > > ></DIV>
<DIV>> > > ></DIV>
<DIV>> > > > ----- Original Message ----- </DIV>
<DIV>> > > > From: "Luis Campos de Carvalho"</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > To: "Cascavel Perl Mongers"</DIV>
<DIV>> > > > Sent: Friday, February 11, 2005 9:23 AM</DIV>
<DIV>> > > > Subject: Re: [Cascavel-pm] Duvida sobre o GD::Image</DIV>
<DIV>> > > ></DIV>
<DIV>> > > ></DIV>
<DIV>> > > > Douglas de Souza wrote:</DIV>
<DIV>> > > > > Ola,</DIV>
<DIV>> > > > > fiz um cgi/perl usando o modulo GD::Image</DIV>
<DIV>> > > > > portanto neste cgi ele só imprime a imagem</DIV>
<DIV>> > > > > como faço p/ colocar HTML junto???</DIV>
<DIV>> > > > > coloquei assim</DIV>
<DIV>> > > > ></DIV>
<DIV>> > > > > #!/usr/bin/perl</DIV>
<DIV>> > > > > use GD;</DIV>
<DIV>> > > > > $im = newFromPng GD::Image(PNG);</DIV>
<DIV>> > > > > print "Content-type:text/html\n\n";</DIV>
<DIV>> > > > > print "Teste de CGI, testando bahhhhhhhhh";</DIV>
<DIV>> > > > > print "Olha a imagem que eu fizzzzzzzz";</DIV>
<DIV>> > > > > print "Content-type:image/png\n\n";</DIV>
<DIV>> > > > > binmode STDOUT;</DIV>
<DIV>> > > > > print $im->png;</DIV>
<DIV>> > > > ></DIV>
<DIV>> > > > > só que dai sai um monte de código:</DIV>
<DIV>> > > > ></DIV>
<DIV>> > > > > Content-type:image/png ?PNG IHDRJn</DIV>
<DIV>> > > > ></DIV>
<DIV>> > > > > como faço p/ imprimir os dois no mesmo CGI ?</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > Oies, Douglas.</DIV>
<DIV>> > > > Para isso, você precisa respeitar o protocolo</DIV>
<DIV>> > > > HTTP, que diz que cada</DIV>
<DIV>> > > > Content-Type requisitado deve ser enviado</DIV>
<DIV>> > > > separadamente do restante.</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > Desta forma, para que o browser possa requisitar</DIV>
<DIV>> > > > a imagem (componente</DIV>
<DIV>> > > > do HTML) ele deve primeiro requisitar o HTML.</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > Para fucnionar:</DIV>
<DIV>> > > > 1. Construa um script CGI (ou página HTML) que</DIV>
<DIV>> > > > envie sua página HTML</DIV>
<DIV>> > > > (com referência para o script que gera sua imagem).</DIV>
<DIV>> > > > 2. Publique a página</DIV>
<DIV>> > > > 3. Requisite a página HTML. Automaticamente o seu</DIV>
<DIV>> > > > browser requisitará</DIV>
<DIV>> > > > a imagem (proveniente do script).</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > Espero que isso te ajude.</DIV>
<DIV>> > > > Se ficou confuso, por favor pergunte mais, eu</DIV>
<DIV>> > > > estou à disposição para</DIV>
<DIV>> > > > ajudar.</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > Putamplexos!</DIV>
<DIV>> > > > -- </DIV>
<DIV>> > > > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=</DIV>
<DIV>> > > > Luis Campos de Carvalho is BSc in Comp Science,</DIV>
<DIV>> > > > PerlMonk [SiteDocClan], Sao Paulo PM Leader,</DIV>
<DIV>> > > > Unix Sys Admin && Certified Oracle DBA</DIV>
<DIV>> > > > http://br.geocities.com/monsieur_champs/</DIV>
<DIV>> > > > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=</DIV>
<DIV>> > > ></DIV>
<DIV>> > > > _______________________________________________</DIV>
<DIV>> > > > Cascavel-pm mailing list</DIV>
<DIV>> > > > Cascavel-pm@pm.org</DIV>
<DIV>> > > > http://mail.pm.org/mailman/listinfo/cascavel-pm</DIV>
<DIV>> > > ></DIV>
<DIV>> > > ></DIV>
<DIV>> > > ></DIV>
<DIV>> > > ></DIV>
<DIV>> > > > _______________________________________________</DIV>
<DIV>> > > > Cascavel-pm mailing list</DIV>
<DIV>> > > > Cascavel-pm@pm.org</DIV>
<DIV>> > > > http://mail.pm.org/mailman/listinfo/cascavel-pm</DIV>
<DIV>> > > ></DIV>
<DIV>> > ></DIV>
<DIV>> > ></DIV>
<DIV>> > ></DIV>
<DIV>> > ></DIV>
<DIV>> > ></DIV>
<DIV>> > > _______________________________________________________</DIV>
<DIV>> > > Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora.</DIV>
<DIV>> > http://br.acesso.yahoo.com/ - Internet rápida e grátis</DIV>
<DIV>> > > _______________________________________________</DIV>
<DIV>> > > Cascavel-pm mailing list</DIV>
<DIV>> > > Cascavel-pm@pm.org</DIV>
<DIV>> > > http://mail.pm.org/mailman/listinfo/cascavel-pm</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > ------------------------------</DIV>
<DIV>> ></DIV>
<DIV>> > Message: 2</DIV>
<DIV>> > Date: Mon, 14 Feb 2005 00:57:47 -0300</DIV>
<DIV>> > From: Luis Campos de Carvalho</DIV>
<DIV>> > Subject: Re: [Cascavel-pm] YAPC::Brasil::2005 / 2º Encontro Nacional</DIV>
<DIV>> > To: Cascavel Perl Mongers</DIV>
<DIV>> > Message-ID: <421021BB.1010009@yahoo.com.br></DIV>
<DIV>> > Content-Type: text/plain; charset=ISO-8859-1; format=flowed</DIV>
<DIV>> ></DIV>
<DIV>> > João Gabriel wrote:</DIV>
<DIV>> > > Realmente não sei se vale a pena eu "matar" uma semana de aula e pegar</DIV>
<DIV>> > > 4 dias de ônibus (2 pra ir e 2 pra voltar) para ver palestras na qual</DIV>
<DIV>> > > eu (e outros creio eu) não tivemos mais noticias e fotos do evento.</DIV>
<DIV>> > ></DIV>
<DIV>> > > Realmente acho que ficou "vaga" de certa forma a divulgação do evento</DIV>
<DIV>> > > para quem ainda não conheçe-o.</DIV>
<DIV>> > ></DIV>
<DIV>> > > (outro dia me chamaram de louco por falar da minha possivel idéia de</DIV>
<DIV>> > > ir ao evento [ja que poucos sabem os beneficios do encontro])</DIV>
<DIV>> > ></DIV>
<DIV>> > > Fica ai a minha idéia de divulgar mais e melhor o evento.</DIV>
<DIV>> > ></DIV>
<DIV>> ></DIV>
<DIV>> > Olha, vai chover canivete aberto, mas desta vez eu vou fazer minhas</DIV>
<DIV>> > as palavras do JG... :-o</DIV>
<DIV>> ></DIV>
<DIV>> > -- </DIV>
<DIV>> > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=</DIV>
<DIV>> > Luis Campos de Carvalho is BSc in Comp Science,</DIV>
<DIV>> > PerlMonk [SiteDocClan], Sao Paulo PM Leader,</DIV>
<DIV>> > Unix Sys Admin && Certified Oracle DBA</DIV>
<DIV>> > http://br.geocities.com/monsieur_champs/</DIV>
<DIV>> > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > ------------------------------</DIV>
<DIV>> ></DIV>
<DIV>> > Message: 3</DIV>
<DIV>> > Date: Mon, 14 Feb 2005 02:09:15 -0300</DIV>
<DIV>> > From: Luis Campos de Carvalho</DIV>
<DIV>> > Subject: Re: [Cascavel-pm] Duvida sobre o GD::Image</DIV>
<DIV>> > To: Cascavel Perl Mongers</DIV>
<DIV>> > Message-ID: <4210327B.5040301@yahoo.com.br></DIV>
<DIV>> > Content-Type: text/plain; charset=ISO-8859-1; format=flowed</DIV>
<DIV>> ></DIV>
<DIV>> > Daniel Ruoso wrote:</DIV>
<DIV>> > > Mas porque salvar em arquivo?</DIV>
<DIV>> > ></DIV>
<DIV>> > > é só fazer a chamada da imagem direto para o cgi que cospe a imagem...</DIV>
<DIV>> > > tipo</DIV>
<DIV>> > ></DIV>
<DIV>> ></DIV>
<DIV>> > Claro, este script deve utilizar algumas técnicas de caching ou você</DIV>
<DIV>> > vai precisar de muito processador para atender a todas as requisições de</DIV>
<DIV>> > imagens...</DIV>
<DIV>> ></DIV>
<DIV>> > Eu recomendo também implementar algum limite sobre quantas</DIV>
<DIV>> > requisições um usuário (IP único) pode fazer por minuto, para evitar</DIV>
<DIV>> > ataques DoS.</DIV>
<DIV>> ></DIV>
<DIV>> > Putamplexos!</DIV>
<DIV>> > -- </DIV>
<DIV>> > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=</DIV>
<DIV>> > Luis Campos de Carvalho is BSc in Comp Science,</DIV>
<DIV>> > PerlMonk [SiteDocClan], Sao Paulo PM Leader,</DIV>
<DIV>> > Unix Sys Admin && Certified Oracle DBA</DIV>
<DIV>> > http://br.geocities.com/monsieur_champs/</DIV>
<DIV>> > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > ------------------------------</DIV>
<DIV>> ></DIV>
<DIV>> > Message: 4</DIV>
<DIV>> > Date: Mon, 14 Feb 2005 02:16:43 -0300</DIV>
<DIV>> > From: Luis Campos de Carvalho</DIV>
<DIV>> > Subject: Re: [Cascavel-pm] YAPC::Brasil::2005 / 2º Encontro Nacional</DIV>
<DIV>> > To: Cascavel Perl Mongers</DIV>
<DIV>> > Message-ID: <4210343B.2070807@yahoo.com.br></DIV>
<DIV>> > Content-Type: text/plain; charset=ISO-8859-1; format=flowed</DIV>
<DIV>> ></DIV>
<DIV>> > Luis Campos de Carvalho wrote:</DIV>
<DIV>> > > João Gabriel wrote:</DIV>
<DIV>> > ></DIV>
<DIV>> > >> Realmente não sei se vale a pena eu "matar" uma semana de aula e pegar</DIV>
<DIV>> > >> 4 dias de ônibus (2 pra ir e 2 pra voltar) para ver palestras na qual</DIV>
<DIV>> > >> eu (e outros creio eu) não tivemos mais noticias e fotos do evento.</DIV>
<DIV>> > >></DIV>
<DIV>> > >> Realmente acho que ficou "vaga" de certa forma a divulgação do evento</DIV>
<DIV>> > >> para quem ainda não conheçe-o.</DIV>
<DIV>> > >></DIV>
<DIV>> > >> (outro dia me chamaram de louco por falar da minha possivel idéia de</DIV>
<DIV>> > >> ir ao evento [ja que poucos sabem os beneficios do encontro])</DIV>
<DIV>> > >></DIV>
<DIV>> > >> Fica ai a minha idéia de divulgar mais e melhor o evento.</DIV>
<DIV>> > >></DIV>
<DIV>> > ></DIV>
<DIV>> > > Olha, vai chover canivete aberto, mas desta vez eu vou fazer minhas as</DIV>
<DIV>> > > palavras do JG... :-o</DIV>
<DIV>> > ></DIV>
<DIV>> ></DIV>
<DIV>> > Impressionante... eu fui procurar na lista, e acho que esta é a</DIV>
<DIV>> > primeira vez que eu concordo com alguma coisa que o JG posta (nada</DIV>
<DIV>> > pessoal, JG!)... vai MESMO chover canivete aberto...</DIV>
<DIV>> ></DIV>
<DIV>> > Deve ser o sono, eu vou dormir...</DIV>
<DIV>> > Putamplexos para todos!</DIV>
<DIV>> > -- </DIV>
<DIV>> > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=</DIV>
<DIV>> > Luis Campos de Carvalho is BSc in Comp Science,</DIV>
<DIV>> > PerlMonk [SiteDocClan], Sao Paulo PM Leader,</DIV>
<DIV>> > Unix Sys Admin && Certified Oracle DBA</DIV>
<DIV>> > http://br.geocities.com/monsieur_champs/</DIV>
<DIV>> > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > ------------------------------</DIV>
<DIV>> ></DIV>
<DIV>> > Message: 5</DIV>
<DIV>> > Date: Mon, 14 Feb 2005 12:04:46 -0300</DIV>
<DIV>> > From: "Rafael Szarblewski"</DIV>
<DIV>> > Subject: [Cascavel-pm] Conectar o SQL Server</DIV>
<DIV>> > To:</DIV>
<DIV>> > Message-ID: <01cb01c512a6$86658b40$24c8a8c0@sistemica></DIV>
<DIV>> > Content-Type: text/plain; charset="iso-8859-1"</DIV>
<DIV>> ></DIV>
<DIV>> > Olá Monges,</DIV>
<DIV>> ></DIV>
<DIV>> > Alguém sabe me dizer se existe algum módulo para conectar ao SQL Server?</DIV>
<DIV>> ></DIV>
<DIV>> > Desde já agradeço.</DIV>
<DIV>> ></DIV>
<DIV>> > Um abraço,</DIV>
<DIV>> ></DIV>
<DIV>> > --------------------------------------------------------------------------</DIV>
<DIV>> --</DIV>
<DIV>> > ----</DIV>
<DIV>> > Rafael Szarblewski - Sistêmica Computadores</DIV>
<DIV>> > Desenvolvedor Web</DIV>
<DIV>> > rafael@sistemica.info</DIV>
<DIV>> > Fone: (51)3328-11-22</DIV>
<DIV>> > -------------- Próxima Parte ----------</DIV>
<DIV>> > Um anexo em HTML foi limpo...</DIV>
<DIV>> > URL:</DIV>
<DIV>> ></DIV>
<DIV>> http://mail.pm.org/pipermail/cascavel-pm/attachments/20050214/6a56f6e2/attachment-0001.htm</DIV>
<DIV>> ></DIV>
<DIV>> > ------------------------------</DIV>
<DIV>> ></DIV>
<DIV>> > Message: 6</DIV>
<DIV>> > Date: Mon, 14 Feb 2005 11:03:12 -0300</DIV>
<DIV>> > From: Donato Azevedo</DIV>
<DIV>> > Subject: [Cascavel-pm] Win32::GUI notify icon (tray)</DIV>
<DIV>> > To: Cascavel Perl Mongers</DIV>
<DIV>> > Message-ID: <1746e3e30502140603501adbc7@mail.gmail.com></DIV>
<DIV>> > Content-Type: text/plain; charset=ISO-8859-1</DIV>
<DIV>> ></DIV>
<DIV>> > Olá pessoal,</DIV>
<DIV>> ></DIV>
<DIV>> > eu estava tentando fazer um script para mandar uma janela qualquer da</DIV>
<DIV>> > barra de tarefas para a tray bar. (criar um icone na tray para uma</DIV>
<DIV>> > janela qualquer cujo nome é especificado em runtime)</DIV>
<DIV>> > com uma janela recem criada é simples:</DIV>
<DIV>> > new Win32::GUI::NotifyIcon(PARENT, %OPTIONS)</DIV>
<DIV>> > porem para uma janela para a qual eu peguei o handle usando FindWindow</DIV>
<DIV>> > eu nao consigo. Eu sei que para handles obtidos sem construção nao se</DIV>
<DIV>> > tem aceso aos metodos de maneira normal (sao overloaded) mas nao sei</DIV>
<DIV>> > se existe alguma restricao quanto a metodos construtores...</DIV>
<DIV>> > alguem pode ajudar um GUI::Newbie??</DIV>
<DIV>> > -- </DIV>
<DIV>> > *******************************************</DIV>
<DIV>> > Donato Azevedo</DIV>
<DIV>> > Engenharia de Controle e Automação</DIV>
<DIV>> > UFMG</DIV>
<DIV>> > *******************************************</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > ------------------------------</DIV>
<DIV>> ></DIV>
<DIV>> > Message: 7</DIV>
<DIV>> > Date: Mon, 14 Feb 2005 13:07:10 -0300</DIV>
<DIV>> > From: Luis Campos de Carvalho</DIV>
<DIV>> > Subject: Re: [Cascavel-pm] Conectar o SQL Server</DIV>
<DIV>> > To: Cascavel Perl Mongers</DIV>
<DIV>> > Message-ID: <4210CCAE.30306@yahoo.com.br></DIV>
<DIV>> > Content-Type: text/plain; charset=ISO-8859-1; format=flowed</DIV>
<DIV>> ></DIV>
<DIV>> > Rafael Szarblewski wrote:</DIV>
<DIV>> > > Olá Monges,</DIV>
<DIV>> > ></DIV>
<DIV>> > > Alguém sabe me dizer se existe algum módulo para conectar ao SQL Server?</DIV>
<DIV>> > ></DIV>
<DIV>> > > Desde já agradeço.</DIV>
<DIV>> ></DIV>
<DIV>> > DBD específico, acho que não.</DIV>
<DIV>> > Mas certamente o SQL Server é compatível com padrão ODBC, e você pode</DIV>
<DIV>> > usar o DBI+DBD::ODBC, certamente.</DIV>
<DIV>> ></DIV>
<DIV>> > Existem referências sobre isso nos arquivos desta lista.</DIV>
<DIV>> > Acho que você poderia tentar dar uma espiada.</DIV>
<DIV>> > Se precisar de mais ajuda que isso, ainda esta semana eu orientei o</DIV>
<DIV>> > João Gabriel sobre a forma correta de usar a interface com banco de</DIV>
<DIV>> > dados através da interface em duas camadas DBI + DBD. Acho que você pode</DIV>
<DIV>> > se aproveitar da leitura, também...</DIV>
<DIV>> ></DIV>
<DIV>> > No mais, acho que uma boa hora de leitura de manuais será suficiente</DIV>
<DIV>> > para fazer com que você consiga usar corretamente os drivers e interfaces.</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > Se precisar de alguma ajuda específica, ou algum truque especial,</DIV>
<DIV>> > conte conosco. Os monges do Perl sempre têm um mantra extra na manga...</DIV>
<DIV>> ;-)</DIV>
<DIV>> ></DIV>
<DIV>> > Paz e Glória!</DIV>
<DIV>> > Putamplexos!</DIV>
<DIV>> > -- </DIV>
<DIV>> > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=</DIV>
<DIV>> > Luis Campos de Carvalho is BSc in Comp Science,</DIV>
<DIV>> > PerlMonk [SiteDocClan], Sao Paulo PM Leader,</DIV>
<DIV>> > Unix Sys Admin && Certified Oracle DBA</DIV>
<DIV>> > http://br.geocities.com/monsieur_champs/</DIV>
<DIV>> > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > ------------------------------</DIV>
<DIV>> ></DIV>
<DIV>> > Message: 8</DIV>
<DIV>> > Date: Mon, 14 Feb 2005 19:18:12 -0300</DIV>
<DIV>> > From: João Gabriel</DIV>
<DIV>> > Subject: [Cascavel-pm] YAPC::Brasil::2005 / 2º Encontro Nacional</DIV>
<DIV>> > To: cascavel-pm@mail.pm.org</DIV>
<DIV>> > Message-ID: <8ff2963a05021414181308e166@mail.gmail.com></DIV>
<DIV>> > Content-Type: text/plain; charset=ISO-8859-1</DIV>
<DIV>> ></DIV>
<DIV>> > Luis Campos...</DIV>
<DIV>> > > Impressionante... eu fui procurar na lista, e acho que esta é a</DIV>
<DIV>> > >primeira vez que eu concordo com alguma coisa que o JG posta (nada</DIV>
<DIV>> > >pessoal, JG!)... vai MESMO chover canivete aberto...</DIV>
<DIV>> > ></DIV>
<DIV>> > > Deve ser o sono, eu vou dormir...</DIV>
<DIV>> ></DIV>
<DIV>> > Tú deveria está com muito sono na hora que postou isso... rsrs</DIV>
<DIV>> ></DIV>
<DIV>> > mas não sei pq não concordou com minhas outras idéias... (vai ver é</DIV>
<DIV>> > porque eu só perguntei ou vc tem alguma marra comigo).</DIV>
<DIV>> ></DIV>
<DIV>> > Quando estiver com sono e sem nada pra fazer, dá uma visitada no</DIV>
<DIV>> > Vitoria PM, CGiClube, fórums de perl espalhados pela net afora (tem</DIV>
<DIV>> > bastande brasileiros precisando de ajuda)... :D</DIV>
<DIV>> ></DIV>
<DIV>> > Quanto ao site do YAPC Brasil 2005, quanto entra no ar??</DIV>
<DIV>> ></DIV>
<DIV>> > -- </DIV>
<DIV>> > Um abraço,</DIV>
<DIV>> > João Gabriel / JGCL</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > ------------------------------</DIV>
<DIV>> ></DIV>
<DIV>> > Message: 9</DIV>
<DIV>> > Date: Tue, 15 Feb 2005 02:35:18 -0300</DIV>
<DIV>> > From: "Solli Moreira Honorio"</DIV>
<DIV>> > Subject: Re:[Cascavel-pm] Conectar o SQL Server</DIV>
<DIV>> > To: "cascavel-pm"</DIV>
<DIV>> > Message-ID:</DIV>
<DIV>> > Content-Type: text/plain; charset="iso-8859-1"</DIV>
<DIV>> ></DIV>
<DIV>> > Rafael,</DIV>
<DIV>> ></DIV>
<DIV>> > Estou enviando uma fração do meu código base para acessar o SQL Server,</DIV>
<DIV>> tome</DIV>
<DIV>> > o cuidado (e faça as alterações necessárias) com as constantes que estão</DIV>
<DIV>> no</DIV>
<DIV>> > código.</DIV>
<DIV>> ></DIV>
<DIV>> > O código acessa o SQL via Ado, e está com as melhores práticas de acesso</DIV>
<DIV>> > neste componente.</DIV>
<DIV>> ></DIV>
<DIV>> > Se você tiver interessado em ver as 1001 connection strings para OLEDB, dê</DIV>
<DIV>> > uma olhada no link</DIV>
<DIV>> > http://www.able-consulting.com/MDAC/ADO/Connection/OLEDB_Providers.htm</DIV>
<DIV>> ></DIV>
<DIV>> > Solli M. Honorio</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > use Win32::OLE qw(in);</DIV>
<DIV>> > use Win32::OLE::Const;</DIV>
<DIV>> > sub ConnectDB</DIV>
<DIV>> > {</DIV>
<DIV>> > my $DBConn = Win32::OLE->new('ADODB.Connection');</DIV>
<DIV>> > my $DB_CONNECTION = shift;</DIV>
<DIV>> ></DIV>
<DIV>> > $DBConn->Open( $DB_CONNECTION );</DIV>
<DIV>> > if ( Win32::OLE->LastError() )</DIV>
<DIV>> > {</DIV>
<DIV>> > my $Error = Win32::OLE->LastError();</DIV>
<DIV>> > # Trate o erro aqui !!!</DIV>
<DIV>> > return undef;</DIV>
<DIV>> > }</DIV>
<DIV>> > else</DIV>
<DIV>> > {</DIV>
<DIV>> > return $DBConn;</DIV>
<DIV>> > }</DIV>
<DIV>> > }</DIV>
<DIV>> > sub DBExecute</DIV>
<DIV>> > {</DIV>
<DIV>> > my ($DB_CONNECTION, $String, $ToReturn, $ErrosReturn ) = @_;</DIV>
<DIV>> > my ($DBConn, $RS, $ArgCount);</DIV>
<DIV>> > my $Loop = 0;</DIV>
<DIV>> ></DIV>
<DIV>> > return INVALID_PARAMETER if ( ref ( $String ) );</DIV>
<DIV>> > return NULL_PARAMETER if (! $String );</DIV>
<DIV>> > $ArgCount = ( scalar (@_) - 2 ); # Get number of</DIV>
<DIV>> > argument</DIV>
<DIV>> > if ( $DBConn = ConnectDB($DB_CONNECTION) ) # Try to connect on</DIV>
<DIV>> > DB</DIV>
<DIV>> > { # ... if ok ...</DIV>
<DIV>> > if (! $ArgCount ) # If has just one argument, then it's mean</DIV>
<DIV>> > { # no recordset</DIV>
<DIV>> > $DBConn->Execute ( $String, undef, (0x00000080 + 0x0001) );</DIV>
<DIV>> > }</DIV>
<DIV>> > else # Otherwise mean recordset</DIV>
<DIV>> > {</DIV>
<DIV>> > $RS = $DBConn->Execute ( $String );</DIV>
<DIV>> > }</DIV>
<DIV>> > if ( Win32::OLE->LastError() )</DIV>
<DIV>> > {</DIV>
<DIV>> > # If any error happen, write error message on EventLog</DIV>
<DIV>> > # and abort this class.</DIV>
<DIV>> > my $Error = Win32::OLE->LastError();</DIV>
<DIV>> > WriteEventLog ( $ENV{COMPUTERNAME}, # Computer name</DIV>
<DIV>> > ERROR_DB_EXCUTE, # Event ID</DIV>
<DIV>> > $Error, # String</DIV>
<DIV>> > EVT_ERROR); # Event Type</DIV>
<DIV>> > return ERROR_DB_EXCUTE;</DIV>
<DIV>> > }</DIV>
<DIV>> > if (! $ArgCount ) # Return ok if don't need anything more</DIV>
<DIV>> > { $DBConn->Close(); return };</DIV>
<DIV>> > # Clear any before data on an array ref.</DIV>
<DIV>> > map { pop @{$ToReturn} } @{$ToReturn};</DIV>
<DIV>> > # Save the result on array.</DIV>
<DIV>> > while ( )</DIV>
<DIV>> > {</DIV>
<DIV>> > # Get all message returned by ADO connection</DIV>
<DIV>> > foreach my $Error ( in ( $DBConn->Errors() ) )</DIV>
<DIV>> > {</DIV>
<DIV>> > my $Description = $Error->{Description};</DIV>
<DIV>> > $Description =~ s/\s*$//;</DIV>
<DIV>> > push @{$ErrosReturn}, $Description;</DIV>
<DIV>> > }</DIV>
<DIV>> ></DIV>
<DIV>> > if ( defined $RS->{EOF} )</DIV>
<DIV>> > {</DIV>
<DIV>> > while (! $RS->{EOF} )</DIV>
<DIV>> > {</DIV>
<DIV>> > my %hash = ();</DIV>
<DIV>> > foreach my $field ( in ( $RS->Fields() ) )</DIV>
<DIV>> > {</DIV>
<DIV>> > $hash{$field->{Name}} = $field->{Value}</DIV>
<DIV>> > }</DIV>
<DIV>> > push @{$ToReturn}, \%hash;</DIV>
<DIV>> > $RS->MoveNext;</DIV>
<DIV>> > }</DIV>
<DIV>> > }</DIV>
<DIV>> > eval { $RS = $RS->NextRecordSet(); };</DIV>
<DIV>> > last if ( $@ );</DIV>
<DIV>> > }</DIV>
<DIV>> > # Clean all object used by ADO connection...</DIV>
<DIV>> > $RS->Close();</DIV>
<DIV>> > $DBConn->Close();</DIV>
<DIV>> > undef $RS;</DIV>
<DIV>> > undef $DBConn;</DIV>
<DIV>> > return;</DIV>
<DIV>> > }</DIV>
<DIV>> > else</DIV>
<DIV>> > {</DIV>
<DIV>> > return ERROR_DB_CONNECT;</DIV>
<DIV>> > }</DIV>
<DIV>> > }</DIV>
<DIV>> > my $ConnectionString = "Provider=sqloledb; Data Source=Server; Initial</DIV>
<DIV>> > Catalog=master;Integrated Security=SSPI";</DIV>
<DIV>> > my $string = "select * from table";</DIV>
<DIV>> > DBExecute ($ConnectionString, $string, \@Return );</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > De:cascavel-pm-bounces@pm.org</DIV>
<DIV>> ></DIV>
<DIV>> > Para:cascavel-pm@pm.org</DIV>
<DIV>> ></DIV>
<DIV>> > Cópia:</DIV>
<DIV>> ></DIV>
<DIV>> > Data:Mon, 14 Feb 2005 12:04:46 -0300</DIV>
<DIV>> ></DIV>
<DIV>> > Assunto:[Cascavel-pm] Conectar o SQL Server</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > > Olá Monges,</DIV>
<DIV>> > ></DIV>
<DIV>> > > Alguém sabe me dizer se existe algum módulo para conectar ao SQL Server?</DIV>
<DIV>> > ></DIV>
<DIV>> > > Desde já agradeço.</DIV>
<DIV>> > ></DIV>
<DIV>> > > Um abraço,</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > Rafael Szarblewski - Sistêmica Computadores</DIV>
<DIV>> > Desenvolvedor Web</DIV>
<DIV>> > rafael@sistemica.info</DIV>
<DIV>> > Fone: (51)3328-11-22</DIV>
<DIV>> > -------------- Próxima Parte ----------</DIV>
<DIV>> > Um anexo em HTML foi limpo...</DIV>
<DIV>> > URL:</DIV>
<DIV>> ></DIV>
<DIV>> http://mail.pm.org/pipermail/cascavel-pm/attachments/20050215/1cc8636e/attachment.htm</DIV>
<DIV>> ></DIV>
<DIV>> > ------------------------------</DIV>
<DIV>> ></DIV>
<DIV>> > _______________________________________________</DIV>
<DIV>> > Cascavel-pm mailing list</DIV>
<DIV>> > Cascavel-pm@pm.org</DIV>
<DIV>> > http://mail.pm.org/mailman/listinfo/cascavel-pm</DIV>
<DIV>> ></DIV>
<DIV>> > Fim da Digest Cascavel-pm, volume 82, assunto 1</DIV>
<DIV>> > ***********************************************</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > _______________________________________________</DIV>
<DIV>> > Cascavel-pm mailing list</DIV>
<DIV>> > Cascavel-pm@pm.org</DIV>
<DIV>> > http://mail.pm.org/mailman/listinfo/cascavel-pm</DIV>
<DIV>> -------------- Próxima Parte ----------</DIV>
<DIV>> Um anexo em HTML foi limpo...</DIV>
<DIV>> URL:</DIV>
<DIV>> http://mail.pm.org/pipermail/cascavel-pm/attachments/20050215/8af64970/attachment.htm</DIV>
<DIV>> </DIV>
<DIV>> ------------------------------</DIV>
<DIV>> </DIV>
<DIV>> _______________________________________________</DIV>
<DIV>> Cascavel-pm mailing list</DIV>
<DIV>> Cascavel-pm@pm.org</DIV>
<DIV>> http://mail.pm.org/mailman/listinfo/cascavel-pm</DIV>
<DIV>> </DIV>
<DIV>> Fim da Digest Cascavel-pm, volume 82, assunto 3</DIV>
<DIV>> ***********************************************</DIV>
<DIV>> </DIV>
<DIV>> </DIV>
<DIV>> _______________________________________________</DIV>
<DIV>> Cascavel-pm mailing list</DIV>
<DIV>> Cascavel-pm@pm.org</DIV>
<DIV>> http://mail.pm.org/mailman/listinfo/cascavel-pm</DIV></DIV>