<DIV>
<DIV>Rafael,</DIV>
<DIV> </DIV>
<DIV>Pelo jeito você deve estar utilizando Linux, se for o caso peço desculpa porque sugeri uma solução sem perguntar em qual plataforma você está trabalhando.</DIV>
<DIV> </DIV>
<DIV>A solução que eu enviei é apenas para Windows, e se você for o caso, dê uma olhada no ActivePerl (<A href="http://www.activestate.com">http://www.activestate.com</A>), é o melhor Perl para 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>
<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 10:48:00 -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>> Muito obrigado pela ajuda de vocês, Luis Campos de Carvalho e Solli 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: <CASCAVEL-PM-REQUEST@PM.ORG></DIV>
<DIV>> To: <CASCAVEL-PM@PM.ORG></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 <DANIEL@RUOSO.COM></DIV>
<DIV>> Subject: Re: [Cascavel-pm] Duvida sobre o GD::Image</DIV>
<DIV>> To: Cascavel Perl Mongers <CASCAVEL-PM@PM.ORG></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>> <IMG src="http://webmail.terra.com.br/cgi-bin/cgi_imagem.cgi?p1=v1&p2=v2"></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 <DOUGLAS@SPEEDWEB.COM.BR></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>> > > <MONSIEUR_CHAMPS@YAHOO.COM.BR></DIV>
<DIV>> > > To: "Cascavel Perl Mongers" <CASCAVEL-PM@PM.ORG></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 <MONSIEUR_CHAMPS@YAHOO.COM.BR></DIV>
<DIV>> Subject: Re: [Cascavel-pm] YAPC::Brasil::2005 / 2º Encontro Nacional</DIV>
<DIV>> To: Cascavel Perl Mongers <CASCAVEL-PM@PM.ORG></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 <MONSIEUR_CHAMPS@YAHOO.COM.BR></DIV>
<DIV>> Subject: Re: [Cascavel-pm] Duvida sobre o GD::Image</DIV>
<DIV>> To: Cascavel Perl Mongers <CASCAVEL-PM@PM.ORG></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>> > <IMG src="http://webmail.terra.com.br/cgi-bin/cgi_imagem.cgi?p1=v1&p2=v2"></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 <MONSIEUR_CHAMPS@YAHOO.COM.BR></DIV>
<DIV>> Subject: Re: [Cascavel-pm] YAPC::Brasil::2005 / 2º Encontro Nacional</DIV>
<DIV>> To: Cascavel Perl Mongers <CASCAVEL-PM@PM.ORG></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" <RAFASZ@IBESTVIP.COM.BR></DIV>
<DIV>> Subject: [Cascavel-pm] Conectar o SQL Server</DIV>
<DIV>> To: <CASCAVEL-PM@PM.ORG></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>> 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>> 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 <DONATOAZ@GMAIL.COM></DIV>
<DIV>> Subject: [Cascavel-pm] Win32::GUI notify icon (tray)</DIV>
<DIV>> To: Cascavel Perl Mongers <CASCAVEL-PM@PM.ORG></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 <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: <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>> 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 <JAMORREU@GMAIL.COM></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" <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: <IBXU6U$4F1D97354FA6D6748783E636033BCD35@TERRA.COM.BR></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, tome</DIV>
<DIV>> o cuidado (e faça as alterações necessárias) com as constantes que estão 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>> <CODE></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>> </CODE></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>> 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>