From joaogabrielcas em ig.com.br Sun May 2 14:00:34 2004 From: joaogabrielcas em ig.com.br (=?iso-8859-1?Q?Jo=E3o_Gabriel?=) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Pra que serve o SOAP::Lite ? Message-ID: <000801c43077$c1c0dc60$0a0aa8c0@joaogabr> Olá pessoal! Tava dando uma olhanda nas mensagens daqui da lista e vi o pessoal falar muito do modulo SOAP::Lite. Gostaria de saber ("no bom português"), pra que ele serve? O que ele faz? Um forte abraço para todos! João Gabriel -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040502/dfbf6f6a/attachment.htm From lechamps em terra.com.br Tue May 4 14:44:11 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Pra que serve o SOAP::Lite ? References: <000801c43077$c1c0dc60$0a0aa8c0@joaogabr> Message-ID: <004101c43210$2cfc1500$8800a8c0@lafitt> ----- Original Message ----- From: João Gabriel To: cascavel-pm@mail.pm.org Sent: Sunday, May 02, 2004 4:00 PM Subject: [Cascavel-pm] Pra que serve o SOAP::Lite ? Olá pessoal! Tava dando uma olhanda nas mensagens daqui da lista e vi o pessoal falar muito do modulo SOAP::Lite. Gostaria de saber ("no bom português"), pra que ele serve? O que ele faz? Oies, João! :-) Espero que tenha consertado seus scripts... Em poucas palavras, pergunte ao Google. http://search.cpan.org/~byrne/SOAP-Lite-0.60a/lib/SOAP/Lite.pm http://www.w3.org/TR/soap/ Boa leitura, divirta-se, e por favor não faça como da outra vez... teve muita gente chateada com o fato de você não ter lido nem mesmo o primeiro parágrafo das páginas que o pessoal te enviou. Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho Computer Scientist Unix Sys Adm & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040504/c6a4840e/attachment.htm From joaogabrielcas em ig.com.br Sun May 2 15:33:27 2004 From: joaogabrielcas em ig.com.br (=?iso-8859-1?Q?Jo=E3o_Gabriel?=) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Pra que serve o SOAP::Lite ? Message-ID: <000801c43084$bc51a4a0$0a0aa8c0@joaogabr> > Oies, João! :-) Espero que tenha consertado seus scripts... Oi! Tranquilo? "Espero que tenha consertado seus scripts..." ??? que scripts?! hehehe... > Boa leitura, divirta-se, e por favor não faça como da outra vez... teve muita gente chateada com o fato de você não ter lido nem mesmo o primeiro parágrafo das páginas que o pessoal te enviou. Foi mau! Porém eu detesto ler manuais em inglês (mesmo com a ajuda de tradutores)... não me dou muito bem bom eles... paciência né?!... Mas tipow, eu sou bem sincenro... eu não pedi manuais e sim uma breve explicação... mas,,, vo ver os links que você me passou e se possivel queria uma ajuda pra intender pra que serve o módulo. Um forte abraço, João Gabriel -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040502/6dfb0067/attachment.htm From joaogabrielcas em ig.com.br Sun May 2 16:03:50 2004 From: joaogabrielcas em ig.com.br (=?iso-8859-1?Q?Jo=E3o_Gabriel?=) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] =?iso-8859-1?q?Como_enviar_dados_pelo_metodo_post_?= =?iso-8859-1?q?atrav=E9s_de_um_script_perl=3F?= Message-ID: <000501c43088$fe1b3d20$0a0aa8c0@joaogabr> Olá pessoal. Uso o IO::Socket para abrir páginas pelo metodo get, porém gostaria de saber como eu faço pra abrir uma página pelo metodo post através de um script cgi? Um forte abraço, João Gabriel From falmp em terra.com.br Sun May 2 19:10:05 2004 From: falmp em terra.com.br (Francisco Lopes) Date: Mon Aug 2 21:27:01 2004 Subject: =?ISO-8859-1?B?UmU6IFtDYXNjYXZlbC1wbV0gQ29tbyBlbnZpYXIgZGFkb3MgcGVsbyBt?= =?ISO-8859-1?B?ZXRvZG8gcG9zdCBhdHJhdulzIGRlIHVtIHNjcmlwdCBwZXJsPw==?= In-Reply-To: <000501c43088$fe1b3d20$0a0aa8c0@joaogabr> References: <000501c43088$fe1b3d20$0a0aa8c0@joaogabr> Message-ID: <1964242177.20040502211005@terra.com.br> Fala João. Não é só mandar um request POST em vez do GET? Exemplo de request GET: GET http://www.cgiclube.net/ HTTP/1.1 Host: www.cgiclube.net User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.7b) Gecko/20040316 Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5 Accept-Language: en-us,en;q=0.5 Accept-Encoding: gzip,deflate Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7 Keep-Alive: 300 Proxy-Connection: keep-alive Exemplo de request POST: POST /demos/search/search.cgi HTTP/1.1 Host: www.scriptarchive.com User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.7b) Gecko/20040316 Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5 Accept-Language: en-us,en;q=0.5 Accept-Encoding: gzip,deflate Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7 Keep-Alive: 300 Connection: keep-alive Referer: http://www.scriptarchive.com/demos/search/search.html Content-Type: application/x-www-form-urlencoded Content-Length: 39 terms=test&boolean=AND&case=Insensitive Abração do pulpfiction. ;) Francisco Sunday, May 2, 2004, 6:03:50 PM, you wrote: > Olá pessoal. Uso o IO::Socket para abrir páginas pelo metodo get, porém > gostaria de saber como eu faço pra abrir uma página pelo metodo post através > de um script cgi? > Um forte abraço, > João Gabriel > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm Francisco Lopes, aka pulpfiction From joaogabrielcas em ig.com.br Sun May 2 19:12:26 2004 From: joaogabrielcas em ig.com.br (=?iso-8859-1?Q?Jo=E3o_Gabriel?=) Date: Mon Aug 2 21:27:01 2004 Subject: =?ISO-8859-1?B?UmU6IFtDYXNjYXZlbC1wbV0gQ29tbyBlbnZpYXIgZGFkb3MgcGVsbyBt?= Message-ID: <000601c430a3$55573e80$0a0aa8c0@joaogabr> Mais ai como eu enviaria os dados? pela url (do mesmo modo do GET) ? []'s João Gabriel -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040502/dc60a859/attachment.htm From falmp em terra.com.br Sun May 2 19:23:37 2004 From: falmp em terra.com.br (Francisco Lopes) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Como enviar dados pelo m In-Reply-To: <000601c430a3$55573e80$0a0aa8c0@joaogabr> References: <000601c430a3$55573e80$0a0aa8c0@joaogabr> Message-ID: <142557002.20040502212337@terra.com.br> João, Seguindo o exemplo que eu passei do request POST, depois que você abrir o socket e blá blá blá, você manda: print $socket ("POST /demos/search/search.cgi HTTP/1.1 Host: www.scriptarchive.com User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.7b) Gecko/20040316 Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5 Accept-Language: en-us,en;q=0.5 Accept-Encoding: gzip,deflate Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7 Keep-Alive: 300 Connection: keep-alive Referer: http://www.scriptarchive.com/demos/search/search.html Content-Type: application/x-www-form-urlencoded Content-Length: 39 terms=test&boolean=AND&case=Insensitive"); Certo? Abraço. Francisco Sunday, May 2, 2004, 9:12:26 PM, you wrote: > Mais ai como eu enviaria os dados? pela url (do mesmo modo do GET) ? >   > []'s > João Gabriel >   Francisco Lopes, aka pulpfiction From glasswalk3r em yahoo.com.br Sun May 2 11:43:09 2004 From: glasswalk3r em yahoo.com.br (Alceu Rodrigues de Freitas Junior) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Como enviar dados pelo m In-Reply-To: <000601c430a3$55573e80$0a0aa8c0@joaogabr> References: <000601c430a3$55573e80$0a0aa8c0@joaogabr> Message-ID: <20040502134309.25eab42c@valhalla.localdomain> João, você realmente precisa fazer isso com sockets? Se a resposta é não, procure usar o módulo LWP que faz isso pra vc de maneira muito simples, sem você ter que reinventar a roda. []'s -- Alceu Rodrigues de Freitas Junior -- glasswalk3r@yahoo.com.br PGP public key at http://www.imortais.cjb.net/addgb.html --------------------------------------------------------------- "If anything can go wrong, it will." -- Edsel Murphy Some historians believe that on Sun, 2 May 2004 21:12:26 -0300 João Gabriel wrote: > Mais ai como eu enviaria os dados? pela url (do mesmo modo do GET) ? > > []'s > João Gabriel > From shonorio em terra.com.br Mon May 3 09:03:44 2004 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Pra que serve o SOAP::Lite ? Message-ID: João, O SOAP (Simple Object Access Protocol, algo como Protocolo Simples de Acesso à Objetos) é um protocolo que permite o acesso de rotinas hospedadas em computadores remotos da mesma maneira como você carrega uma função local do seu sistema. Através dos módulos que implementam o SOAP (no caso do Perl, SOAP::Lite) é possível simplificar a programação clienteóServidor, sem o programador preocupar-se com sockets; padronizar a comunicação e disponibilizar serviços a todos sem muito esforço, pois toda a comunicação é baseado em XML e seguem um padrão para solicitar uma função, bem como o retorno da função. Desta maneira um sistema SOAP compatível pode disponibilizar e recuperar informações em qualquer sistema operacional e/ou linguagem de programação. Os atuais protocolos de interface possuem diversos limitadores, como por exemplo dificuldade com estrutura de dados complexas (pelo menos no caso do OLE, COM e DCOM) e uma dificuldade enorme para o processamento remoto. A comunicação entre cliente e servidor pode ser realizado por qualquer protocolo de aplicação (http, https, smtp, pop3, ftp, jabber, etc.), desde que este cara entregue para o serviço o XML padronizado. Estou trabalhando num sistema de monitoramento e inventário de servidores/estações, o meu objetivo com este cara é permitir que qualquer um possa enviar e/ou receber informação deste sistema, independente da linguagem de programação e plataforma. Estou desenvolvendo o servidor em Perl e disponibilizando funções para que os clientes possam requisitar e enviar informações. Neste sistema estou usando e abusando das estruturas complexas de dados do Perl e não estou nenhum um pouco preocupado, pois todos os dados são transmitido em XML, estão o cliente pode desenvolver sua parte da melhor maneira para ele, ele só precisa ler o XML e devolver o XML. Bom, este é o resumo do resumo da síntese !!! Solli De:cascavel-pm-bounces@mail.pm.org Para:cascavel-pm@mail.pm.org Cópia: Data:Sun, 2 May 2004 16:00:34 -0300 Assunto:[Cascavel-pm] Pra que serve o SOAP::Lite ? > Olá pessoal! Tava dando uma olhanda nas mensagens daqui da lista e vi o pessoal falar muito do modulo SOAP::Lite. Gostaria de saber ("no bom português"), pra que ele serve? O que ele faz? > > Um forte abraço para todos! > > João Gabriel -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040503/d53e3919/attachment.htm From marciliomoura em uai.com.br Mon May 3 10:09:12 2004 From: marciliomoura em uai.com.br (Marcilio) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Chamado ao sistema Message-ID: <002001c43120$97fef700$0801a8c0@wminas.com> Fiz uma determinada aplicação em Perl e quero executá-la pelo Browser Internet Explorer ou outro similar , esta aplicação tem que executar comando do Sistema operacional( no caso Unix FreeBSD ) este escript faz o seguinte, ele abre o arquivo que esta no /usr/local/etc/rc.d/ip.sh, neste arquivo eu faço as alterações e salvo, só que na hora de executar o comando que está no Perl ele não reconhece, vc sabe o que pode estar acontecendo ? Se tem alguma config do Apache que tem que mexer, já tentei com exec e system e não reconhece, se usar o mesmo script no promp de comando funciona, agradeço se puder me Ajudar. Marcilio -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040503/a4b7b1cb/attachment.htm From lechamps em terra.com.br Mon May 3 10:22:14 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Chamado ao sistema In-Reply-To: <002001c43120$97fef700$0801a8c0@wminas.com> References: <002001c43120$97fef700$0801a8c0@wminas.com> Message-ID: <409663A6.7080609@terra.com.br> Marcilio wrote: > Fiz uma determinada aplicação em Perl e quero executá-la pelo Browser > Internet Explorer ou outro similar , esta aplicação tem que executar > comando do Sistema operacional( no caso Unix FreeBSD ) este escript faz > o seguinte, ele abre o arquivo que esta no /usr/local/etc/rc.d/ip.sh, > neste arquivo eu faço as alterações e salvo, só que na hora de executar > o comando que está no Perl ele não reconhece, vc sabe o que pode estar > acontecendo ? Se tem alguma config do Apache que tem que mexer, já > tentei com exec e system e não reconhece, se usar o mesmo script no > promp de comando funciona, agradeço se puder me Ajudar. > Oi, Marcílio. Eu acredito que você esteja com problemas por não estar obedecendo a especificação CGI, ou por não ter configuração para rodar CGI's em seu apache. Para poder ajudar você melhor, vou precisar de mais informações. Você pode por favor enviar para a lista o resultado de uma chamada HTTP para o script CGI que você deseja rodar? Putamplexos, e boa sorte. -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From lechamps em terra.com.br Mon May 3 10:32:23 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Como enviar dados pelo m In-Reply-To: <20040502134309.25eab42c@valhalla.localdomain> References: <000601c430a3$55573e80$0a0aa8c0@joaogabr> <20040502134309.25eab42c@valhalla.localdomain> Message-ID: <40966607.9010800@terra.com.br> Alceu Rodrigues de Freitas Junior wrote: > João, você realmente precisa fazer isso com sockets? > Se a resposta é não, procure usar o módulo LWP que faz isso pra vc de > maneira muito simples, sem você ter que reinventar a roda. > Isso! Nunca viole o princípio K.I.S.S., ou você vai trabalhar mais e render muito menos... Use LWP, que a coisa fica muito mais simples... E, caso você tenha formulários, vale à pena olhar o WWW:Mechanize. Putamplexos. -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From joaogabrielcas em ig.com.br Mon May 3 13:44:33 2004 From: joaogabrielcas em ig.com.br (=?iso-8859-1?Q?Jo=E3o_Gabriel?=) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Pra que serve o SOAP::Lite ? Message-ID: <000301c4313e$b000eac0$62dbdec8@joaogabr> Ai Solli Moreira Honorio, valeu pela explicação! Um forte abraço, João Gabriel From joaogabrielcas em ig.com.br Mon May 3 13:51:07 2004 From: joaogabrielcas em ig.com.br (=?iso-8859-1?Q?Jo=E3o_Gabriel?=) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Como enviar dados pelo m Message-ID: <000301c4313f$9aef6f20$62dbdec8@joaogabr> Luis Campos de Carvalho postou: > Isso! Nunca viole o princípio K.I.S.S., ou você vai trabalhar mais e render muito menos... O que diz o princípio K.I.S.S. ? Alceu Rodrigues de Freitas: Vo dar uma olhada na documentação do LWP. Abrigado a todos pela ajuda! Se precisarem estou ai! Um forte abraço, João Gabriel From falmp em terra.com.br Mon May 3 14:37:02 2004 From: falmp em terra.com.br (Francisco Lopes) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Como enviar dados pelo m In-Reply-To: <000301c4313f$9aef6f20$62dbdec8@joaogabr> References: <000301c4313f$9aef6f20$62dbdec8@joaogabr> Message-ID: <156093993.20040503163702@terra.com.br> Keep It Simple Stupid. Francisco Monday, May 3, 2004, 3:51:07 PM, you wrote: > Luis Campos de Carvalho postou: >> Isso! Nunca viole o princípio K.I.S.S., ou você vai trabalhar mais e > render muito menos... > O que diz o princípio K.I.S.S. ? > Alceu Rodrigues de Freitas: Vo dar uma olhada na documentação do LWP. > Abrigado a todos pela ajuda! > Se precisarem estou ai! > Um forte abraço, > João Gabriel > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm From lechamps em terra.com.br Mon May 3 15:46:36 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Como enviar dados pelo m In-Reply-To: <000301c4313f$9aef6f20$62dbdec8@joaogabr> References: <000301c4313f$9aef6f20$62dbdec8@joaogabr> Message-ID: <4096AFAC.8070202@terra.com.br> João Gabriel wrote: > Luis Campos de Carvalho postou: >>Isso! Nunca viole o princípio K.I.S.S., ou você vai trabalhar mais e > render muito menos... > > O que diz o princípio K.I.S.S. ? Por favor não me interprete mal. Faz parte da cultura do mundo unix, é uma citação literal do livro "Computer Networks", de Andrew Tanembaum, capítulo 3, penúltimo parágrafo. O princípio K.I.S.S. é um acronismo para "Keep It Simple, Stupid" que, em bom portugês, eu poderia traduzir como "Mantenha as Coisas Simples, Mané". Não é para ser ofensa, por favor não leve à sério o "stupid", o Tanembaum foi meio "violento" no livro para enfatizar a importância da simplicidade (ainda mais em se tratando de protocolos de comunicação em redes de longa distância). Veja mais pérolas como esta no bom e velho "Jargon File". -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From vivan em dim.fm.usp.br Mon May 3 16:09:56 2004 From: vivan em dim.fm.usp.br (vivan@dim.fm.usp.br) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Net::Telnet In-Reply-To: <002001c43120$97fef700$0801a8c0@wminas.com> References: <002001c43120$97fef700$0801a8c0@wminas.com> Message-ID: <42231.200.179.42.106.1083618596.webmail-dim@dim.fm.usp.br> Oi, Alguem pode me dar um help no modulo Net::Telnet? Estou tentando utiliza-lo para acessar um router, mas sem sucesso... Onde estou errando? #!/usr/bin/perl use Net::Telnet (); ########## LOGIN E SENHA ############## $login="burps"; $password="bleargh"; ####################################### $t = new Net::Telnet (Timeout => 10, Prompt => '/rtb0101\>/'); $t->open("10.22.4.15"); $t->login($login, $passwd); @lines = $t->cmd("sh conf"); print @lines; Tks, Adriano. -------------------------- Esta mensagem foi verificada pelo sistema de antivírus DIM e acredita-se estar livre de Virus. Virus data file v4356 created May 02 2004 From mda em embratel.net.br Mon May 3 18:24:09 2004 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Net::Telnet In-Reply-To: <42231.200.179.42.106.1083618596.webmail-dim@dim.fm.usp.br> References: <002001c43120$97fef700$0801a8c0@wminas.com> <42231.200.179.42.106.1083618596.webmail-dim@dim.fm.usp.br> Message-ID: <4096D499.6070805@embratel.net.br> Adriano, Eu utilizei um script similar ao seu para efetuar um teste e meu unico problema foi o timeout. Para depurar aconselho verificar as opções de log e dump no manual. Outra coisa a corrigir é seu parametro de Prompt, pois vc nao necessita de escape para a formacao usada (aspas simples). Sds, Marco Antonio vivan@dim.fm.usp.br wrote: >Oi, > >Alguem pode me dar um help no modulo Net::Telnet? Estou tentando >utiliza-lo para acessar um router, mas sem sucesso... Onde estou errando? > >#!/usr/bin/perl >use Net::Telnet (); > >########## LOGIN E SENHA ############## >$login="burps"; >$password="bleargh"; >####################################### > >$t = new Net::Telnet (Timeout => 10, > Prompt => '/rtb0101\>/'); >$t->open("10.22.4.15"); > >$t->login($login, $passwd); >@lines = $t->cmd("sh conf"); >print @lines; > > >Tks, >Adriano. > >-------------------------- >Esta mensagem foi verificada >pelo sistema de antivírus DIM e >acredita-se estar livre de Virus. >Virus data file v4356 created May 02 2004 > >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm@mail.pm.org >http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > > > From danielcid em yahoo.com.br Mon May 3 17:07:43 2004 From: danielcid em yahoo.com.br (=?iso-8859-1?q?Daniel=20Cid?=) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Net::Telnet In-Reply-To: <42231.200.179.42.106.1083618596.webmail-dim@dim.fm.usp.br> Message-ID: <20040503220743.75247.qmail@web11405.mail.yahoo.com> Bem, se voce esta usando um roteador cisco, voce precisa enviar o "enable" antes de poder ver a configuracao... Use o dumplog para ver a resposta do servidor e o que esta acontecendo... *comigo eu precisei usar o waitfor(). Apenas o cmd() e login() nao funcionaram []'s > --- vivan@dim.fm.usp.br escreveu: > Oi, > > Alguem pode me dar um help no modulo Net::Telnet? > Estou tentando > utiliza-lo para acessar um router, mas sem > sucesso... Onde estou errando? > > #!/usr/bin/perl > use Net::Telnet (); > > ########## LOGIN E SENHA ############## > $login="burps"; > $password="bleargh"; > ####################################### > > $t = new Net::Telnet (Timeout => 10, > Prompt => '/rtb0101\>/'); > $t->open("10.22.4.15"); > > $t->login($login, $passwd); > @lines = $t->cmd("sh conf"); > print @lines; > > > Tks, > Adriano. > > -------------------------- > Esta mensagem foi verificada > pelo sistema de antivírus DIM e > acredita-se estar livre de Virus. > Virus data file v4356 created May 02 2004 > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm ______________________________________________________________________ Yahoo! Messenger - Fale com seus amigos online. Instale agora! http://br.download.yahoo.com/messenger/ From vivan em dim.fm.usp.br Tue May 4 06:49:15 2004 From: vivan em dim.fm.usp.br (vivan@dim.fm.usp.br) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Net::Telnet In-Reply-To: <4096D499.6070805@embratel.net.br> References: <002001c43120$97fef700$0801a8c0@wminas.com><42231.200.179.42.106.1083618596.webmail-dim@dim.fm.usp.br> <4096D499.6070805@embratel.net.br> Message-ID: <41690.200.179.42.106.1083671355.webmail-dim@dim.fm.usp.br> Marco, Fiz a alteracao indicada, e recebi outro erro: "ignoring bad Prompt argument "": missing opening delimiter of match operator at teste.pl line 9 login failed: bad name or password at teste.pl line 13" Bem... A senha estah correta. E o prompt do meu router eh rtb0101> Talvez nao tenha entendido direito... :( []´s > Adriano, > > Eu utilizei um script similar ao seu para efetuar um teste e meu unico > problema foi o timeout. > > Para depurar aconselho verificar as opções de log e dump no manual. > Outra coisa a corrigir é seu parametro de Prompt, pois vc nao necessita > de escape para a formacao usada (aspas simples). > > Sds, > Marco Antonio > > vivan@dim.fm.usp.br wrote: > >>Oi, >> >>Alguem pode me dar um help no modulo Net::Telnet? Estou tentando >>utiliza-lo para acessar um router, mas sem sucesso... Onde estou errando? >> >>#!/usr/bin/perl >>use Net::Telnet (); >> >>########## LOGIN E SENHA ############## >>$login="burps"; >>$password="bleargh"; >>####################################### >> >>$t = new Net::Telnet (Timeout => 10, >> Prompt => '/rtb0101\>/'); >>$t->open("10.22.4.15"); >> >>$t->login($login, $passwd); >>@lines = $t->cmd("sh conf"); >>print @lines; >> >> >>Tks, >>Adriano. >> >>-------------------------- >>Esta mensagem foi verificada >>pelo sistema de antivírus DIM e >>acredita-se estar livre de Virus. >>Virus data file v4356 created May 02 2004 >> >>_______________________________________________ >>Cascavel-pm mailing list >>Cascavel-pm@mail.pm.org >>http://cascavel.pm.org/mailman/listinfo/cascavel-pm >> >> >> >> > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > -------------------------- > Esta mensagem foi verificada > pelo sistema de antivírus DIM e > acredita-se estar livre de Virus. > Virus data file v4356 created May 02 2004 > -------------------------- Esta mensagem foi verificada pelo sistema de antivírus DIM e acredita-se estar livre de Virus. Virus data file v4356 created May 02 2004 From shonorio em terra.com.br Tue May 4 10:50:12 2004 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Interessante !!! Message-ID: Parar quem não leu, eu recomendo => "How to Sell Perl 6" http://www.perlmonks.com/index.pl?node_id=350254. Abraços, Solli -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040504/2d4e7e6b/attachment.htm From vivan em dim.fm.usp.br Tue May 4 08:54:22 2004 From: vivan em dim.fm.usp.br (vivan@dim.fm.usp.br) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Net::Telnet In-Reply-To: <4096D499.6070805@embratel.net.br> References: <002001c43120$97fef700$0801a8c0@wminas.com><42231.200.179.42.106.1083618596.webmail-dim@dim.fm.usp.br> <4096D499.6070805@embratel.net.br> Message-ID: <17736.200.179.42.106.1083678862.webmail-dim@dim.fm.usp.br> Oi, Fiz as seguintes mudancas: #!/usr/bin/perl use Net::Telnet (); ########## LOGIN E SENHA ############## $login="burps"; $password="bleargh"; ####################################### $t = new Net::Telnet (Timeout => 10, Prompt => '/rtb0101\>/'); $t->open("10.22.4.15"); $t->waitfor(/Username: /); $t->print ($login); $t->waitfor(/Password: /); $t->print ($password); @lines = $t->cmd("who"); print @lines; $t->close; Com isso, consegui autenticar no router, mas nao consigo passar e executar o comando... Alguma sugestao? Para dar o sh conf preciso ser ena, mas para simplificar um pouco, estou tentando apenas um who. Tks. > Adriano, > > Eu utilizei um script similar ao seu para efetuar um teste e meu unico > problema foi o timeout. > > Para depurar aconselho verificar as opções de log e dump no manual. > Outra coisa a corrigir é seu parametro de Prompt, pois vc nao necessita > de escape para a formacao usada (aspas simples). > > Sds, > Marco Antonio > > vivan@dim.fm.usp.br wrote: > >>Oi, >> >>Alguem pode me dar um help no modulo Net::Telnet? Estou tentando >>utiliza-lo para acessar um router, mas sem sucesso... Onde estou errando? >> >>#!/usr/bin/perl >>use Net::Telnet (); >> >>########## LOGIN E SENHA ############## >>$login="burps"; >>$password="bleargh"; >>####################################### >> >>$t = new Net::Telnet (Timeout => 10, >> Prompt => '/rtb0101\>/'); >>$t->open("10.22.4.15"); >> >>$t->login($login, $passwd); >>@lines = $t->cmd("sh conf"); >>print @lines; >> >> >>Tks, >>Adriano. >> >>-------------------------- >>Esta mensagem foi verificada >>pelo sistema de antivírus DIM e >>acredita-se estar livre de Virus. >>Virus data file v4356 created May 02 2004 >> >>_______________________________________________ >>Cascavel-pm mailing list >>Cascavel-pm@mail.pm.org >>http://cascavel.pm.org/mailman/listinfo/cascavel-pm >> >> >> >> > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > -------------------------- > Esta mensagem foi verificada > pelo sistema de antivírus DIM e > acredita-se estar livre de Virus. > Virus data file v4356 created May 02 2004 > -------------------------- Esta mensagem foi verificada pelo sistema de antivírus DIM e acredita-se estar livre de Virus. Virus data file v4356 created May 02 2004 From mda em embratel.net.br Tue May 4 13:18:19 2004 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Net::Telnet In-Reply-To: <17736.200.179.42.106.1083678862.webmail-dim@dim.fm.usp.br> References: <002001c43120$97fef700$0801a8c0@wminas.com><42231.200.179.42.106.1083618596.webmail-dim@dim.fm.usp.br> <4096D499.6070805@embratel.net.br> <17736.200.179.42.106.1083678862.webmail-dim@dim.fm.usp.br> Message-ID: <4097DE6B.9010000@embratel.net.br> Adriano, Vc não seguiu a recomendação do log de depuração. Em meu teste rápido de ontem eu percebi que a execução do "show conf" excedia o timeout, e percebi que estava utilizando a string de prompt incorreta. Opcoes que recomendo que vc utilize para depurar: Dump_Log Errmode na opção return, em vez de die, vc recebe a parte dos dados finalizada. Um dos problemas pode ser seu prompt recebido de forma diferente... new - create a new Net::Telnet object $obj = Net::Telnet->new([Binmode => $mode,] [Cmd_remove_mode => $mode,] [Dump_Log => $filename,] [Errmode => $errmode,] [Fhopen => $filehandle,] [Host => $host,] [Input_log => $file,] [Input_record_separator => $char,] [Option_log => $file,] [Output_log => $file,] [Output_record_separator => $char,] [Port => $port,] [Prompt => $matchop,] [Telnetmode => $mode,] [Timeout => $secs,]); Dentro da documentação do módulo, especificamente da função "cmd" vc ve os comentarios: Use "dump_log()" to debug when this method keeps timing-out and you don't think it should. Consider using a combination of "print()" and "waitfor()" as an alternative to this method when it doesn't do what you want, e.g. the command you run prompts for input. (que vc está usando) Sds, Marco Antonio vivan@dim.fm.usp.br wrote: >Oi, > >Fiz as seguintes mudancas: > >#!/usr/bin/perl >use Net::Telnet (); > >########## LOGIN E SENHA ############## >$login="burps"; >$password="bleargh"; >####################################### > >$t = new Net::Telnet (Timeout => 10, > Prompt => '/rtb0101\>/'); >$t->open("10.22.4.15"); > >$t->waitfor(/Username: /); >$t->print ($login); >$t->waitfor(/Password: /); >$t->print ($password); > >@lines = $t->cmd("who"); >print @lines; >$t->close; > >Com isso, consegui autenticar no router, mas nao consigo passar e executar >o comando... Alguma sugestao? Para dar o sh conf preciso ser ena, mas para >simplificar um pouco, estou tentando apenas um who. > >Tks. > > > > >>Adriano, >> >>Eu utilizei um script similar ao seu para efetuar um teste e meu unico >>problema foi o timeout. >> >>Para depurar aconselho verificar as opções de log e dump no manual. >>Outra coisa a corrigir é seu parametro de Prompt, pois vc nao necessita >>de escape para a formacao usada (aspas simples). >> >>Sds, >>Marco Antonio >> >>vivan@dim.fm.usp.br wrote: >> >> >> >>>Oi, >>> >>>Alguem pode me dar um help no modulo Net::Telnet? Estou tentando >>>utiliza-lo para acessar um router, mas sem sucesso... Onde estou errando? >>> >>>#!/usr/bin/perl >>>use Net::Telnet (); >>> >>>########## LOGIN E SENHA ############## >>>$login="burps"; >>>$password="bleargh"; >>>####################################### >>> >>>$t = new Net::Telnet (Timeout => 10, >>> Prompt => '/rtb0101\>/'); >>>$t->open("10.22.4.15"); >>> >>>$t->login($login, $passwd); >>>@lines = $t->cmd("sh conf"); >>>print @lines; >>> >>> >>>Tks, >>>Adriano. >>> >>>-------------------------- >>>Esta mensagem foi verificada >>>pelo sistema de antivírus DIM e >>>acredita-se estar livre de Virus. >>>Virus data file v4356 created May 02 2004 >>> >>>_______________________________________________ >>>Cascavel-pm mailing list >>>Cascavel-pm@mail.pm.org >>>http://cascavel.pm.org/mailman/listinfo/cascavel-pm >>> >>> >>> >>> >>> >>> >>_______________________________________________ >>Cascavel-pm mailing list >>Cascavel-pm@mail.pm.org >>http://cascavel.pm.org/mailman/listinfo/cascavel-pm >> >>-------------------------- >>Esta mensagem foi verificada >>pelo sistema de antivírus DIM e >>acredita-se estar livre de Virus. >>Virus data file v4356 created May 02 2004 >> >> >> > > >-------------------------- >Esta mensagem foi verificada >pelo sistema de antivírus DIM e >acredita-se estar livre de Virus. >Virus data file v4356 created May 02 2004 > >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm@mail.pm.org >http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > > > From marco.lima em e-via.com.br Tue May 4 13:23:20 2004 From: marco.lima em e-via.com.br (Your Name) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Primeiro Encontro dos Monges Perl Cariocas Message-ID: Gostaria de lembrar a todos os Cariocas e moradores da Cidade Maravilhosa que nosso encontro é no próximo sábado. Conto com a presença de todos. Estou esperendo receber também a visita dos Monges de outros estados e dos Peregrinos. Galera de São Paulo !! estou esperendo vocês !!! Quem estiver vindo de outros cidades, estados ou até paises ... ao chegar no aeoroporto, rodoviária, porto ou aondo estiver me liga que eu encontro com vcs. ====================================================== Primeiro Encontro dos Monges Perl Cariocas Os monges cariocas têm a honra de convidá-lo para o primeiro encontro social, que se realizará no sábado, dia 8 de maio de 2004, a partir das 14:00, no "Arab - Lagoa". Informações: Endereço Avenida Borges de Medeiros, s/n - Quiosques 7 e 9 - Parque dos Patins - Lagoa Telefone (21) 2540-0747 Cartões de Crédito Visa Tipo De Cozinha Árabe Especialidades Quibes, Pastas, Esfiha Horário Funcionamento Segunda à Domingo das 10h ao último cliente Preço Por Pessoa De R$15 até R$30 Se você preferir ir de carro, no local existe um estacionamento da público no local, a entrada é na altura do posto de gasolina do canteiro central. Caso você não conheça o local, pegando a pista da lagoa no sentido de quem sai do Clube do Flamengo e vai para Botafogo depois da academia de ginástica, se eu não me engano é onde ficava o Tivoli Park. Caso tenha alguma dúvida sugiro o site www.apontador.com.br. Para localizar a mesa é só procurar pelo Dromedário. ====================================================== Quem tiver problemas, pode me telefonar no (21) 8123-0667. Conto com a sua presença. [ ]´ção; Marco Lima marco.lima@e-via.com.br +55 21 81230667 From marco.lima em e-via.com.br Tue May 4 14:04:08 2004 From: marco.lima em e-via.com.br (Your Name) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Net::Telnet Message-ID: Tente isso: #!/usr/bin/perl use Net::Telnet (); $LOGIN ="burps"; $PASS ="bleargh"; $IP ="10.22.4.15"; $command = "sh conf"; $tn = new Net::TelNet (Timeout => 180, Errmode => "return", Debug => 1); if ($tn) { $tn->open(Host => $IP); $tn->login(Timeout => 360, Name = > $LOGIN, Password => $PASS, Prompt => '/\>$/'); $tn->cmd(String => $command, Prompt => '/\>$/"); $nextLine = "1" while ($nextLine) { if ($nextLine = $tn->getline(Timeout => 15)) { $nextLine =~ s/\r//; print $nextLine; } } } Eu não cheguei a testar ... mas deve funcionar com algumas adaptações é claro. [ ]´ção Mago > >>>Oi, > >>> > >>>Alguem pode me dar um help no modulo Net::Telnet? Estou tentando > >>>utiliza-lo para acessar um router, mas sem sucesso... Onde estou errando? > >>> > >>>#!/usr/bin/perl > >>>use Net::Telnet (); > >>> > >>>########## LOGIN E SENHA ############## > >>>$login="burps"; > >>>$password="bleargh"; > >>>####################################### > >>> > >>>$t = new Net::Telnet (Timeout => 10, > >>> Prompt => '/rtb0101\>/'); > >>>$t->open("10.22.4.15"); > >>> > >>>$t->login($login, $passwd); > >>>@lines = $t->cmd("sh conf"); > >>>print @lines; > >>> > >>> > >>>Tks, > >>>Adriano. > >>> Marco Lima marco.lima@e-via.com.br +55 21 81230667 From vivan em dim.fm.usp.br Tue May 4 15:10:28 2004 From: vivan em dim.fm.usp.br (vivan@dim.fm.usp.br) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Net::Telnet In-Reply-To: References: Message-ID: <11571.200.179.42.106.1083701428.webmail-dim@dim.fm.usp.br> Sim, Mas eu preciso entrar como enable no router para dar sh conf... Fiz algumas outras alteracoes, e agora jah consigo passar para enable. Porem, o sh conf nao consigo ainda.... #!/usr/bin/perl open (OUTPUT,">./saida.txt") or die ("can´t open file"); use Net::Telnet (); ########## IP LOGIN E SENHA ############## $ip="10.22.15"; $login="burps"; $password="bleargh"; $enable = "argh"; ####################################### $t = new Net::Telnet (Timeout => 10, Prompt => '/rtb0101\>/', Dump_Log => './log.txt'); $t->open($ip); $t->waitfor(/Username: /); $t->print ($login); $t->waitfor(/Password: /); $t->print ($password); $t->waitfor('/rtb0101\>/'); ######## COMANDOS ########### $t->print('ena'); $t->waitfor('/Password: /'); $t->print($enable); $t->waitfor('/rtb0101\#/'); print OUTPUT ($t->print('sh conf')); $t->close; close OUTPUT; []´s > Tente isso: > > #!/usr/bin/perl > use Net::Telnet (); > > $LOGIN ="burps"; > $PASS ="bleargh"; > $IP ="10.22.4.15"; > $command = "sh conf"; > > $tn = new Net::TelNet (Timeout => 180, Errmode => "return", Debug => 1); > if ($tn) { > $tn->open(Host => $IP); > $tn->login(Timeout => 360, Name = > $LOGIN, Password => $PASS, > Prompt => '/\>$/'); > $tn->cmd(String => $command, Prompt => '/\>$/"); > $nextLine = "1" > while ($nextLine) { > if ($nextLine = $tn->getline(Timeout => 15)) { > $nextLine =~ s/\r//; > print $nextLine; > } > } > } > > Eu não cheguei a testar ... mas deve funcionar com algumas adaptações é > claro. > > [ ]´ção > > Mago > >> >>>Oi, >> >>> >> >>>Alguem pode me dar um help no modulo Net::Telnet? Estou tentando >> >>>utiliza-lo para acessar um router, mas sem sucesso... Onde estou > errando? >> >>> >> >>>#!/usr/bin/perl >> >>>use Net::Telnet (); >> >>> >> >>>########## LOGIN E SENHA ############## >> >>>$login="burps"; >> >>>$password="bleargh"; >> >>>####################################### >> >>> >> >>>$t = new Net::Telnet (Timeout => 10, >> >>> Prompt => '/rtb0101\>/'); >> >>>$t->open("10.22.4.15"); >> >>> >> >>>$t->login($login, $passwd); >> >>>@lines = $t->cmd("sh conf"); >> >>>print @lines; >> >>> >> >>> >> >>>Tks, >> >>>Adriano. >> >>> > > Marco Lima > marco.lima@e-via.com.br > +55 21 81230667 > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > -------------------------- > Esta mensagem foi verificada > pelo sistema de antivírus DIM e > acredita-se estar livre de Virus. > Virus data file v4357 created May 04 2004 > -------------------------- Esta mensagem foi verificada pelo sistema de antivírus DIM e acredita-se estar livre de Virus. Virus data file v4357 created May 04 2004 From rrcsilva em terra.com.br Wed May 5 07:46:32 2004 From: rrcsilva em terra.com.br (rrcsilva) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Empresas que utilizam PERL Message-ID: Pessoal, estou pensando em divulgar a linguagem Perl em Goiânia e gostaria de saber de algumas empresas que já trabalham com Perl, em todo o Brasil. Regina -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040505/ba599731/attachment.htm From nferraz em phperl.com Wed May 5 10:08:28 2004 From: nferraz em phperl.com (Nelson Ferraz) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Empresas que utilizam PERL In-Reply-To: References: Message-ID: <4099036C.5040108@phperl.com> rrcsilva wrote: > Pessoal, estou pensando em divulgar a linguagem Perl em Goiânia e > gostaria de saber de algumas empresas que já trabalham com Perl, em todo > o Brasil. A GNU BIS desenvolve seus sistemas de informação em Perl. http://www.gnubis.com.br []s Nelson From gabriel em webclube.com Wed May 5 10:22:33 2004 From: gabriel em webclube.com (Gabriel Vieira) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Empresas que utilizam PERL References: <4099036C.5040108@phperl.com> Message-ID: <003c01c432b6$69b19960$ad57a8c0@fortalnet.com.br> Tenho os meus sites todos desenvolvidos em Perl.. não vou citar por não se tratarem de empresas ;~). Sei que a globo.com em boa parte de seus subportais (jornal hoje, etc) utiliza o Perl. PontoFrio.com.br tb usa. Mas esses são para a web, sei que são inúmeros utilizam nos servidores, acho que os monges podem ajudar mais quanto a isso. Abraços ;) Gabriel Vieira From falmp em terra.com.br Wed May 5 10:49:52 2004 From: falmp em terra.com.br (Francisco Lopes) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Empresas que utilizam PERL In-Reply-To: <003c01c432b6$69b19960$ad57a8c0@fortalnet.com.br> References: <4099036C.5040108@phperl.com> <003c01c432b6$69b19960$ad57a8c0@fortalnet.com.br> Message-ID: <722407513.20040505124952@terra.com.br> Aparentemente a Vivo usa. Vide o Mago. :) Abraço. Francisco Wednesday, May 5, 2004, 12:22:33 PM, you wrote: > Tenho os meus sites todos desenvolvidos em Perl.. não vou citar por não se > tratarem de empresas ;~). > Sei que a globo.com em boa parte de seus subportais (jornal hoje, etc) > utiliza o Perl. > PontoFrio.com.br tb usa. > Mas esses são para a web, sei que são inúmeros utilizam nos servidores, > acho que os monges podem ajudar mais quanto a isso. > Abraços ;) > Gabriel Vieira > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm From mda em embratel.net.br Wed May 5 11:36:52 2004 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Empresas que utilizam PERL In-Reply-To: <4099036C.5040108@phperl.com> References: <4099036C.5040108@phperl.com> Message-ID: <40991824.5020805@embratel.net.br> Na Embratel é utilizado para inúmeros scripts de gerencia de servidores e roteadores (monitoração, automação de processos, processamento de logs, etc). Utilizado no aprovisionamento automático, via webservices para vários serviços. Sds, Marco Antonio Nelson Ferraz wrote: > rrcsilva wrote: > >> Pessoal, estou pensando em divulgar a linguagem Perl em Goiânia e >> gostaria de saber de algumas empresas que já trabalham com Perl, em >> todo o Brasil. > > > A GNU BIS desenvolve seus sistemas de informação em Perl. > > http://www.gnubis.com.br > > []s > > Nelson > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > From daniel em ruoso.com Wed May 5 16:19:17 2004 From: daniel em ruoso.com (Daniel Ruoso) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Empresas que utilizam PERL In-Reply-To: References: Message-ID: <1083791957.841.33.camel@cedro> Inova Tecnologias, mantenedora do email.com.br, fornecedora de tecnologia para o click21 e para o veloxmail. Quase tudo em perl, exceto alguns pequenos programas em C. Oktiva Telecomunicações e Informática, mantenedora do Oktiva.net.Express, todo em perl. Em Qua, 2004-05-05 às 09:46, rrcsilva escreveu: > Pessoal, estou pensando em divulgar a linguagem Perl em Goiânia e > gostaria de saber de algumas empresas que já trabalham com Perl, em > todo o Brasil. > > Regina > > ______________________________________________________________________ > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm From vivan em dim.fm.usp.br Wed May 5 17:02:36 2004 From: vivan em dim.fm.usp.br (vivan@dim.fm.usp.br) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Empresas que utilizam PERL In-Reply-To: References: Message-ID: <34426.200.179.66.230.1083794556.webmail-dim@dim.fm.usp.br> Nao posso responder pelos outros, mas acho que quem trabalha com Internet, administracao de redes, Banco de Dados, .... enfim, utiliza Perl por ser versatil e eficiente. Acredito que mesmo a Micro$oft utiliza Perl. []´s > Pessoal, estou pensando em divulgar a linguagem Perl em Goiânia e gostaria > de saber de algumas empresas que já trabalham com Perl, em todo o Brasil. > > Regina > -------------------------- > Esta mensagem foi verificada > pelo sistema de antivírus DIM e > acredita-se estar livre de Virus. > Virus data file v4357 created May 04 2004 > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > -------------------------- Esta mensagem foi verificada pelo sistema de antivírus DIM e acredita-se estar livre de Virus. Virus data file v4357 created May 04 2004 From nferraz em phperl.com Wed May 5 17:35:57 2004 From: nferraz em phperl.com (Nelson Ferraz) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Empresas que utilizam PERL In-Reply-To: <34426.200.179.66.230.1083794556.webmail-dim@dim.fm.usp.br> References: <34426.200.179.66.230.1083794556.webmail-dim@dim.fm.usp.br> Message-ID: <40996C4D.1030702@phperl.com> vivan@dim.fm.usp.br wrote: > Nao posso responder pelos outros, mas acho que quem trabalha com Internet, > administracao de redes, Banco de Dados, .... enfim, utiliza Perl por ser > versatil e eficiente. Acredito que mesmo a Micro$oft utiliza Perl. Há algum tempo atrás estive em contato com um desenvolvedor da Microsoft, que escreveu um programa em Perl para depurar programas em C/C++. []s Nelson From nferraz em phperl.com Wed May 5 17:44:47 2004 From: nferraz em phperl.com (Nelson Ferraz) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Empresas que utilizam PERL In-Reply-To: <40991824.5020805@embratel.net.br> References: <4099036C.5040108@phperl.com> <40991824.5020805@embratel.net.br> Message-ID: <40996E5F.4050703@phperl.com> Marco A P D´Andrade wrote: > Na Embratel é utilizado para inúmeros scripts de gerencia de servidores > e roteadores (monitoração, automação de processos, processamento de > logs, etc). Utilizado no aprovisionamento automático, via webservices > para vários serviços. O IG tem muitas aplicações (como o web mail e o chat) desenvolvidas em Perl. []s Nelson From marco.lima em e-via.com.br Wed May 5 20:28:07 2004 From: marco.lima em e-via.com.br (Your Name) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Empresas que utilizam PERL Message-ID: Para aumentar a lista: Embratel já citada (Têm bastante coisa). Vésper (a maioria dos sistemas de engenharia e mediação, incluíndo muitos dos filtros de CDRs utilizados) Telemar Oi GVT Vivo Tim Brasil (interfaces entre sistemas) Claro Intelig e outras Sistemas e aplicações que eu desenvolvi ou participei do desenvolvimento. [ ]´ção Mago > Na Embratel é utilizado para inúmeros scripts de gerencia de servidores > e roteadores (monitoração, automação de processos, processamento de > logs, etc). Utilizado no aprovisionamento automático, via webservices > para vários serviços. > > Sds, > Marco Antonio > > Nelson Ferraz wrote: > > > rrcsilva wrote: > > > >> Pessoal, estou pensando em divulgar a linguagem Perl em Goiânia e > >> gostaria de saber de algumas empresas que já trabalham com Perl, em > >> todo o Brasil. > > > > > > A GNU BIS desenvolve seus sistemas de informação em Perl. > > > > http://www.gnubis.com.br > > > > []s > > > > Nelson > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm@mail.pm.org > > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > > > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > Marco Lima marco.lima@e-via.com.br +55 21 81230667 From glasswalk3r em yahoo.com.br Tue May 4 00:46:20 2004 From: glasswalk3r em yahoo.com.br (Alceu Rodrigues de Freitas Junior) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Empresas que utilizam PERL In-Reply-To: References: Message-ID: <20040504024620.0dc3afbe@valhalla.localdomain> Olá Regina, A NAI usa Perl em seu firewall corporativo (Gauntlet) para gerar relatórios. A Amazon usa Perl + Mason, se não estou enganado. A Unilever usa Perl em lugar do (argh) batch do Windows para automatizar tarefas em todas estações de trabalho. []'s -- Alceu Rodrigues de Freitas Junior -- glasswalk3r@yahoo.com.br PGP public key at http://www.imortais.cjb.net/addgb.html --------------------------------------------------------------- Monday is an awful way to spend one seventh of your life. Some historians believe that on Wed, 5 May 2004 09:46:32 -0300 "rrcsilva" wrote: > Pessoal, estou pensando em divulgar a linguagem Perl em Goiânia e > gostaria de saber de algumas empresas que já trabalham com Perl, em > todo o Brasil. > > Regina From nferraz em phperl.com Thu May 6 00:27:21 2004 From: nferraz em phperl.com (Nelson Ferraz) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Empresas que utilizam PERL In-Reply-To: <20040504024620.0dc3afbe@valhalla.localdomain> References: <20040504024620.0dc3afbe@valhalla.localdomain> Message-ID: <4099CCB9.8030606@phperl.com> As seguintes empresas utilizam o TWiki, que foi desenvolvido em Perl: * British Telecom * Disney * Magazine publishing * Motorola * SAP * Sci-worx * SecureWorks * WindRiver No site TWiki.org, você encontrará mais informações. []s Nelson From marciliomoura em uai.com.br Thu May 6 06:27:34 2004 From: marciliomoura em uai.com.br (Marcilio) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Digest Cascavel-pm, volume 42, assunto 2 Message-ID: <409a2f36.2fc.452f.1168469939@uai.com.br> Help Fiz uma determinada aplicação em Perl e quero executá-la pelo Browser Internet Explorer ou outro similar , esta aplicação tem que executar comando do Sistema operacional( no caso Unix FreeBSD ) este escript faz o seguinte, ele abre o arquivo que esta no /usr/local/etc/rc.d/ip.sh, neste arquivo eu faço as alterações e salvo, só que na hora de executar o comando que está no Perl ele não reconhece, vc sabe o que pode estar acontecendo ? Se tem alguma config do Apache que tem que mexer, já tentei com exec e system e não reconhece, se usar o mesmo script no promp de comando funciona, agradeço se puder me Ajudar. enviar inscrições da lista de discussão Send Cascavel-pm > para > cascavel-pm@mail.pm.org > > Para se cadastrar ou descadastrar via WWW, visite o > endereço > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > ou, via email, envie uma mensagem com a palavra 'help' no > assunto ou corpo da mensagem para > cascavel-pm-request@mail.pm.org > > Você poderá entrar em contato com a pessoa que gerencia a > lista pelo endereço > cascavel-pm-owner@mail.pm.org > > Quando responder, por favor edite sua linha Assunto assim > ela será mais específica que "Re: Contents of Cascavel-pm > digest..." > > > Tópicos de Hoje: > > 1. Chamado ao sistema (Marcilio) > 2. Re: Chamado ao sistema (Luis Campos de Carvalho) > 3. Re: Como enviar dados pelo m (Luis Campos de > Carvalho) > > > ---------------------------------------------------------- > ------------ > > Message: 1 > Date: Mon, 3 May 2004 12:09:12 -0300 > From: "Marcilio" > Subject: [Cascavel-pm] Chamado ao sistema > To: > Message-ID: <002001c43120$97fef700$0801a8c0@wminas.com> > Content-Type: text/plain; charset="iso-8859-1" > > Fiz uma determinada aplicação em Perl e quero executá-la > pelo Browser Internet Explorer ou outro similar , esta > aplicação tem que executar comando do Sistema operacional( > no caso Unix FreeBSD ) este escript faz o seguinte, ele > abre o arquivo que esta no /usr/local/etc/rc.d/ip.sh, > neste arquivo eu faço as alterações e salvo, só que na > hora de executar o comando que está no Perl ele não > reconhece, vc sabe o que pode estar acontecendo ? Se tem > alguma config do Apache que tem que mexer, já tentei com > exec e system e não reconhece, se usar o mesmo script no > promp de comando funciona, agradeço se puder me Ajudar. > > Marcilio > -------------- Próxima Parte ---------- > Um anexo em HTML foi limpo... > URL: > http://mail.pm.org/pipermail/cascavel-pm/attachments/20040503/a4b7b1cb/attachment-0001.htm > > ------------------------------ > > Message: 2 > Date: Mon, 03 May 2004 12:22:14 -0300 > From: Luis Campos de Carvalho > Subject: Re: [Cascavel-pm] Chamado ao sistema > To: Cascavel Perl Mongers > Message-ID: <409663A6.7080609@terra.com.br> > Content-Type: text/plain; charset=ISO-8859-1; > format=flowed > > Marcilio wrote: > > Fiz uma determinada aplicação em Perl e quero executá-la > > pelo Browser Internet Explorer ou outro similar , esta > > aplicação tem que executar comando do Sistema > > operacional( no caso Unix FreeBSD ) este escript faz o > seguinte, ele abre o arquivo que esta no > > /usr/local/etc/rc.d/ip.sh, neste arquivo eu faço as > > alterações e salvo, só que na hora de executar o > comando que está no Perl ele não reconhece, vc sabe o que > > pode estar acontecendo ? Se tem alguma config do Apache > > que tem que mexer, já tentei com exec e system e não > > reconhece, se usar o mesmo script no promp de comando > > funciona, agradeço se puder me Ajudar. > > Oi, Marcílio. > Eu acredito que você esteja com problemas por não estar > obedecendo a especificação CGI, ou por não ter > configuração para rodar CGI's em seu apache. > > Para poder ajudar você melhor, vou precisar de mais > informações. > Você pode por favor enviar para a lista o resultado de > uma chamada HTTP para o script CGI que você deseja rodar? > > Putamplexos, e boa sorte. > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Cascavel-pm Moderator, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > > ------------------------------ > > Message: 3 > Date: Mon, 03 May 2004 12:32:23 -0300 > From: Luis Campos de Carvalho > Subject: Re: [Cascavel-pm] Como enviar dados pelo m > To: Cascavel Perl Mongers > Message-ID: <40966607.9010800@terra.com.br> > Content-Type: text/plain; charset=ISO-8859-1; > format=flowed > > Alceu Rodrigues de Freitas Junior wrote: > > João, você realmente precisa fazer isso com sockets? > > Se a resposta é não, procure usar o módulo LWP que faz > > isso pra vc de maneira muito simples, sem você ter que > > reinventar a roda. > > Isso! Nunca viole o princípio K.I.S.S., ou você vai > trabalhar mais e render muito menos... > > Use LWP, que a coisa fica muito mais simples... > E, caso você tenha formulários, vale à pena olhar o > WWW:Mechanize. > > Putamplexos. > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Cascavel-pm Moderator, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > > ------------------------------ > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > > Fim da Digest Cascavel-pm, volume 42, assunto 2 > *********************************************** > **************************************** O grande portal dos mineiros http://www.uai.com.br From lgonzaga em lncc.br Thu May 6 07:44:12 2004 From: lgonzaga em lncc.br (Luiz Gonzaga) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Digest Cascavel-pm, volume 42, assunto 2 In-Reply-To: <409a2f36.2fc.452f.1168469939@uai.com.br> References: <409a2f36.2fc.452f.1168469939@uai.com.br> Message-ID: <20040506094412.753ba006.lgonzaga@lncc.br> Marcilio, Qual o comando que esta no Perl ? No log do Apache voce recebe qual mensagem de erro ? O Apache roda usando qual usuario ? Voce executou o script na linha de comando com qual usuario ? Te pergunto isto, pois provavelmente, o usuario sob o qual o servidor Apache roda, nao tem direitos de escrita neste diretorio. Pela mensagem de erro que estah no log poderemos ter certeza disto. De qualquer forma, mesmo com toda a minha ignorancia em seguranca de servidores, acho que nao seja aconselhavel um script CGI escrever neste tipo de diretorio (/usr/local/etc/rc.d) Espero que possa ter comecado a ajudah-lo. Abracos, Luiz Gonzaga. On Thu, 06 May 2004 08:27:34 -0300 "Marcilio" wrote: > Help > > Fiz uma determinada aplicação em Perl e quero executá-la > pelo Browser > Internet Explorer ou outro similar , esta aplicação tem que > executar > comando do Sistema operacional( no caso Unix FreeBSD ) este > escript faz > o seguinte, ele abre o arquivo que esta no > /usr/local/etc/rc.d/ip.sh, > neste arquivo eu faço as alterações e salvo, só que na hora > de executar > o comando que está no Perl ele não reconhece, vc sabe o que > pode estar > acontecendo ? Se tem alguma config do Apache que tem que > mexer, já > tentei com exec e system e não reconhece, se usar o mesmo > script no > promp de comando funciona, agradeço se puder me Ajudar. > > > enviar inscrições da lista de discussão Send Cascavel-pm > > para > > cascavel-pm@mail.pm.org > > > > Para se cadastrar ou descadastrar via WWW, visite o > > endereço > > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > ou, via email, envie uma mensagem com a palavra 'help' no > > assunto ou corpo da mensagem para > > cascavel-pm-request@mail.pm.org > > > > Você poderá entrar em contato com a pessoa que gerencia a > > lista pelo endereço > > cascavel-pm-owner@mail.pm.org > > > > Quando responder, por favor edite sua linha Assunto assim > > ela será mais específica que "Re: Contents of Cascavel-pm > > digest..." > > > > > > Tópicos de Hoje: > > > > 1. Chamado ao sistema (Marcilio) > > 2. Re: Chamado ao sistema (Luis Campos de Carvalho) > > 3. Re: Como enviar dados pelo m (Luis Campos de > > Carvalho) > > > > > > ---------------------------------------------------------- > > ------------ > > > > Message: 1 > > Date: Mon, 3 May 2004 12:09:12 -0300 > > From: "Marcilio" > > Subject: [Cascavel-pm] Chamado ao sistema > > To: > > Message-ID: <002001c43120$97fef700$0801a8c0@wminas.com> > > Content-Type: text/plain; charset="iso-8859-1" > > > > Fiz uma determinada aplicação em Perl e quero executá-la > > pelo Browser Internet Explorer ou outro similar , esta > > aplicação tem que executar comando do Sistema operacional( > > no caso Unix FreeBSD ) este escript faz o seguinte, ele > > abre o arquivo que esta no /usr/local/etc/rc.d/ip.sh, > > neste arquivo eu faço as alterações e salvo, só que na > > hora de executar o comando que está no Perl ele não > > reconhece, vc sabe o que pode estar acontecendo ? Se tem > > alguma config do Apache que tem que mexer, já tentei com > > exec e system e não reconhece, se usar o mesmo script no > > promp de comando funciona, agradeço se puder me Ajudar. > > > > Marcilio > > -------------- Próxima Parte ---------- > > Um anexo em HTML foi limpo... > > URL: > > > http://mail.pm.org/pipermail/cascavel-pm/attachments/20040503/a4b7b1cb/attachment-0001.htm > > > > ------------------------------ > > > > Message: 2 > > Date: Mon, 03 May 2004 12:22:14 -0300 > > From: Luis Campos de Carvalho > > Subject: Re: [Cascavel-pm] Chamado ao sistema > > To: Cascavel Perl Mongers > > Message-ID: <409663A6.7080609@terra.com.br> > > Content-Type: text/plain; charset=ISO-8859-1; > > format=flowed > > > > Marcilio wrote: > > > Fiz uma determinada aplicação em Perl e quero executá-la > > > pelo Browser Internet Explorer ou outro similar , esta > > > aplicação tem que executar comando do Sistema > > > operacional( no caso Unix FreeBSD ) este escript faz o > > seguinte, ele abre o arquivo que esta no > > > /usr/local/etc/rc.d/ip.sh, neste arquivo eu faço as > > > alterações e salvo, só que na hora de executar o > > comando que está no Perl ele não reconhece, vc sabe o que > > > pode estar acontecendo ? Se tem alguma config do Apache > > > que tem que mexer, já tentei com exec e system e não > > > reconhece, se usar o mesmo script no promp de comando > > > funciona, agradeço se puder me Ajudar. > > > > Oi, Marcílio. > > Eu acredito que você esteja com problemas por não estar > > obedecendo a especificação CGI, ou por não ter > > configuração para rodar CGI's em seu apache. > > > > Para poder ajudar você melhor, vou precisar de mais > > informações. > > Você pode por favor enviar para a lista o resultado de > > uma chamada HTTP para o script CGI que você deseja rodar? > > > > Putamplexos, e boa sorte. > > -- > > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > Luis Campos de Carvalho is BSc in Comp Science, > > PerlMonk [SiteDocClan], Cascavel-pm Moderator, > > Unix Sys Admin && Certified Oracle DBA > > http://br.geocities.com/monsieur_champs/ > > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > > > > > ------------------------------ > > > > Message: 3 > > Date: Mon, 03 May 2004 12:32:23 -0300 > > From: Luis Campos de Carvalho > > Subject: Re: [Cascavel-pm] Como enviar dados pelo m > > To: Cascavel Perl Mongers > > Message-ID: <40966607.9010800@terra.com.br> > > Content-Type: text/plain; charset=ISO-8859-1; > > format=flowed > > > > Alceu Rodrigues de Freitas Junior wrote: > > > João, você realmente precisa fazer isso com sockets? > > > Se a resposta é não, procure usar o módulo LWP que faz > > > isso pra vc de maneira muito simples, sem você ter que > > > reinventar a roda. > > > > Isso! Nunca viole o princípio K.I.S.S., ou você vai > > trabalhar mais e render muito menos... > > > > Use LWP, que a coisa fica muito mais simples... > > E, caso você tenha formulários, vale à pena olhar o > > WWW:Mechanize. > > > > Putamplexos. > > -- > > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > Luis Campos de Carvalho is BSc in Comp Science, > > PerlMonk [SiteDocClan], Cascavel-pm Moderator, > > Unix Sys Admin && Certified Oracle DBA > > http://br.geocities.com/monsieur_champs/ > > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > > > > > ------------------------------ > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm@mail.pm.org > > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > > > > > Fim da Digest Cascavel-pm, volume 42, assunto 2 > > *********************************************** > > > **************************************** > O grande portal dos mineiros > http://www.uai.com.br > From lechamps em terra.com.br Thu May 6 09:18:10 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Re: [perl-br] Ajuda.. In-Reply-To: <36BA4FD1.717D2BE7.0E4D72B8@netscape.net> References: <36BA4FD1.717D2BE7.0E4D72B8@netscape.net> Message-ID: <409A4922.9070107@terra.com.br> LuixFredericoIII AT netscape DOT net wrote: > Buenas Fernando, > > Gostei da sua idéia de um software free para empresas que provávelmente > sejam de médio-pequeno porte, o que seria de muita valia o > desenvolvimento de um projeto baseado na grande ideologia GNU. Acabei > por ler os dois e-mails dos companheiros que responderam e acho que de > alguma forma posso estar ajudando na sua idéia. Seguindo a linha de [snip] > Fernando Lemes da Silva wrote: >> Estou querendo fazer um sistema de gestão free para GNU/Linux. A [snip] >> A ideia é (seria ao menos) montar um sisteminha bem básico de gestão >>para que pequenas empresas que não tem recursos pra investir em um >>sistema proprietário e está disposta a migrar para Linux. >> >> O que me sugerem ? Posso utilizar perl ou devo tentar alguma outra >>linguagem ? Gostaria de rodar algo do tipo: somente uma interface >>gráfica na estação e um mysql no servidor. Ainda nao pesquisei sobre os >>módulos para isso, mas acredito que deva existir. Prezados Fernando e Luiz Eu acho que existe um sistema desate tamanho, que faz exatamente o que vocês desejam, é open-source, licensiado pela GPL, de uma empresa Brazuca e precisando de "reforços" no time de desenvolvimento. O projeto chama-se GNUBIS CRM e tem website próprio aqui: http://www.gnubis.com.br/bin/view/Main/CRM Entrem em contato com o Nélson Ferraz, membro do São Paulo Perl Mongers e do Cascavel Perl Mongers, e conversem com ele. Tenho certeza de que a vossa ajuda seria muito útil e benvinda. E vocês ajudariam um projeto a melhorar, ao invés de simplesmente criar mais um projeto. Ah! O Nélson pode ser contatado na lista de discussão do Cascavel Perl Mongers (preferencialmente) http://cascavel.pm.org/, ou pelo email [nferraz AT gnubis DOT com DOT br], se vocês quiserem um contato imediato de terceiro grau... :-) Boa sorte no vosso projeto, e putamplexos. -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://www.perlmonks.org/index.pl?node_id=260843 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From shonorio em terra.com.br Thu May 6 13:24:56 2004 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] =?iso-8859-1?q?Mais_um_d=FAvida_de_REGEX_!!!?= Message-ID: Pessoal, Eu preciso de mais uma vez do conhecimento de vocês sobre Perl e REGEX. Estou trabalhando num cara para extrair o EventLog do Windows e armazenar em alguma base de dados. Vou permitir incluir regras para ignorar/captura os eventos para cada um dos itens do eventos, podendo ser por exemplo data do evento, tipo de evento, código do evento, etc, etc !!! Para cada item pode existir mais de uma regra tipo : captura os eventid 528, 529, 530 e 667, ou capturar quem pussue no string 'foi pro saco' mas não 'amarelo' - ou seja, se a string for 'foi pro saco verde' pega, se for 'foi pro saco amarelo' não pega !!! A principio eu iria as regras em um array e fazer um loop para cada regra, tipo: @EventIDRules = qw (528 529 530 667); @StringRule = qw ('foi pro saco' '!amarelo'); foreach $IDRule ( @EventIDRules ) { if $EventID =~ m/$IDRule/ { faça qualquer coisa } } foreach $StrRule ( @StringRule ) { # Não tenho a menor idéia neste caso !!!! } <\code> Bom, a minha dúvida é sabe se existe alguma técnica com REGEX, ou qualquer outra, para evitar de eu fazer estes loops, comparar a condição numa linha só. Bom é só isto ! Solli -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040506/fc6c7bf3/attachment.htm From lechamps em terra.com.br Thu May 6 13:59:20 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Mais um =?ISO-8859-1?Q?d=FAvida_de_REGEX_?= =?ISO-8859-1?Q?!!!?= In-Reply-To: References: Message-ID: <409A8B08.2010300@terra.com.br> Solli, eu posso estar mais burro que de costume hoje, mas não entendi nada... você pode por favor ser mais didático e me enviar logo algum código perl... essa coisa de perguntar em português não está com nada... :) Brincadeirinha... mas que eu não entendi, não entendi. O que você quer fazer? []'z! Solli Moreira Honorio wrote: > Pessoal, > > Eu preciso de mais uma vez do conhecimento de vocês sobre Perl e REGEX. > > Estou trabalhando num cara para extrair o EventLog do Windows e > armazenar em alguma base de dados. > > Vou permitir incluir regras para ignorar/captura os eventos para cada um > dos itens do eventos, podendo ser por exemplo data do evento, tipo de > evento, código do evento, etc, etc !!! Para cada item pode existir mais > de uma regra tipo : captura os eventid 528, 529, 530 e 667, ou capturar > quem pussue no string 'foi pro saco' mas não 'amarelo' - ou seja, se a > string for 'foi pro saco verde' pega, se for 'foi pro saco amarelo' não > pega !!! > > A principio eu iria as regras em um array e fazer um loop para cada > regra, tipo: > > > @EventIDRules = qw (528 529 530 667); > @StringRule = qw ('foi pro saco' '!amarelo'); > > foreach $IDRule ( @EventIDRules ) > { > if $EventID =~ m/$IDRule/ { faça qualquer coisa } > } > > foreach $StrRule ( @StringRule ) > { > # Não tenho a menor idéia neste caso !!!! > } > > <\code> > > Bom, a minha dúvida é sabe se existe alguma técnica com REGEX, ou > qualquer outra, para evitar de eu fazer estes loops, comparar a condição > numa linha só. > > Bom é só isto ! > > Solli > > > ------------------------------------------------------------------------ > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From alat23 em yahoo.com Thu May 6 15:17:10 2004 From: alat23 em yahoo.com (Alexandre de Abreu) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] Mais_um_dúvida_de_REGEX_!!! In-Reply-To: Message-ID: <20040506201710.67471.qmail@web41606.mail.yahoo.com> Assumindo $_ if(/foi pro saco/ && !/amarelo/) { print "Boo"; } É isso? :) ===== Alexandre de Abreu RHCE, LPIC-2, CCNA Proteus Security Systems __________________________________ Do you Yahoo!? Win a $20,000 Career Makeover at Yahoo! HotJobs http://hotjobs.sweepstakes.yahoo.com/careermakeover From lechamps em terra.com.br Fri May 7 08:57:45 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:01 2004 Subject: [Cascavel-pm] =?ISO-8859-1?Q?Mais=5Fum=5Fd=FAvida=5Fde=5FREG?= =?ISO-8859-1?Q?EX=5F!!!?= In-Reply-To: <20040506201710.67471.qmail@web41606.mail.yahoo.com> References: <20040506201710.67471.qmail@web41606.mail.yahoo.com> Message-ID: <409B95D9.3010705@terra.com.br> Alexandre de Abreu wrote: > Assumindo $_ > > if(/foi pro saco/ && !/amarelo/) { > print "Boo"; > } > Se é jogo de adivinhas, a melhor forma de resolver é implementar logo um rule-based decision engine: use AI::Categorizer; # Do Manual: # AI::Categorizer is a framework for automatic text categorization. # It consists of a collection of Perl modules that implement common # categorization tasks, and a set of defined relationships among # those modules. The various details are flexible - for example, # you can choose what categorization algorithm to use, what # features (words or otherwise) of the documents should be # used (or how to automatically choose these features), what # format the documents are in, and so on. __END__ Outra forma de resolver é assim: open REGEXP, "/path/to/rules.regexp" or die; foreach $r( ){ push @rules, qr/$r/; } close REGEXP; # enquanto isso, num pedaço de código nas proximidades... open D, '/path/to/data.bin' or die; local $_; DATA: while( ){ foreach $r ( @rules ){ if( m/$r/ ){ push @filtered_data, $_; next DATA; } } } close D; -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From marco.lima em e-via.com.br Fri May 7 13:06:14 2004 From: marco.lima em e-via.com.br (Your Name) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] Primeiro Encontro dos Monges Perl Cariocas Message-ID: Salve Monges ! Falta menos de 24 horas para o Primeiro Encontro dos Monges Perl Cariocas. Segue alguns Monges que já confirmaram presença: Marco Lima - O Mago Ricardo Filipo André Goés Ramoni Marco A P D´Andrade Ylem Arnaldo Outros devem passar por lá. Pessoal de Sampa (Luis, Alceu, Solli, Nelson ...) cadê vocês ??? Está concedido o perdão para Monges como o Flávio que teriam que encarar algumas horas de peregrinação para chegar no evento. Encontro vocês amanhã. ====================================================== Primeiro Encontro dos Monges Perl Cariocas Os monges cariocas têm a honra de convidá-lo para o primeiro encontro social, que se realizará no sábado, dia 8 de maio de 2004, a partir das 14:00, no "Arab - Lagoa". Informações: Endereço Avenida Borges de Medeiros, s/n - Quiosques 7 e 9 - Parque dos Patins - Lagoa Telefone (21) 2540-0747 Cartões de Crédito Visa Tipo De Cozinha Árabe Especialidades Quibes, Pastas, Esfiha Horário Funcionamento Segunda à Domingo das 10h ao último cliente Preço Por Pessoa De R$15 até R$30 Se você preferir ir de carro, no local existe um estacionamento da público no local, a entrada é na altura do posto de gasolina do canteiro central. Caso você não conheça o local, pegando a pista da lagoa no sentido de quem sai do Clube do Flamengo e vai para Botafogo depois da academia de ginástica, se eu não me engano é onde ficava o Tivoli Park. Caso tenha alguma dúvida sugiro o site www.apontador.com.br. Para localizar a mesa é só procurar pelo Dromedário. ====================================================== Se você tiver algum tipo de problema para chegar, pode me telefonar no (21) 8123-0667. Conto com a sua presença. [ ]´ção; Marco Lima - O Mago marco.lima@e-via.com.br +55 21 81230667 From shonorio em terra.com.br Fri May 7 14:35:04 2004 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Mon Aug 2 21:27:02 2004 Subject: =?iso-8859-1?b?UmU6IFtDYXNjYXZlbC1wbV0gTWFpc191bV9k+nZpZGFfZGVfUkVHRVhf?= =?iso-8859-1?b?ISEh?= Message-ID: O pessoal, Calma aí... vocês se esqueceram que eu trabalho com Windows e tem um virus novo no mercado, o tal de Sasser.... não que minha rede tenha tido problema, mas apesar do Antivirus estar Ok eu precisava aplicar o mais novo security path, e sem teste, em mais de 1.000, incluindo usuário remotos !! Ainda bem que escolhi Windows, assim eu garanto o Wiskies das criancinhas !!! Vamos lá... O que vou implentar é uma interface para o administrador escolher o que ele quer pegar dos eventlog do Windows, desda maneira o cara poderá colocar condições para armazenar na base um evento, e eu não tenho limite para estas condições. Simplificando mais um pouco, imagine o eventlog do Windows como uma tabela e aí o cara vai fazer um 'select' com os 'where', certo ? Bom, a minha dúvida é saber qual seria a melhor maneira de implementar este where, a príncio eu estava imaginando em colocar cada condição deste 'where' em um elemento de um array e depois aplicar a regra de condição para cada elemento !!! Você vislumbram algo mais inteligente para isto ? Obrigado, Solli ps.: vou dar uma olhada neste tal de AI::Categorizer !!!! De:cascavel-pm-bounces@mail.pm.org Para:"Cascavel Perl Mongers" cascavel-pm@mail.pm.org Cópia: Data:Fri, 07 May 2004 10:57:45 -0300 Assunto:Re: [Cascavel-pm] Mais_um_dúvida_de_REGEX_!!! > Alexandre de Abreu wrote: > > Assumindo $_ > > > > if(/foi pro saco/ && !/amarelo/) { > > print "Boo"; > > } > > > > Se é jogo de adivinhas, a melhor forma de resolver é implementar logo > um rule-based decision engine: > > use AI::Categorizer; > > # Do Manual: > # AI::Categorizer is a framework for automatic text categorization. > # It consists of a collection of Perl modules that implement common > # categorization tasks, and a set of defined relationships among > # those modules. The various details are flexible - for example, > # you can choose what categorization algorithm to use, what > # features (words or otherwise) of the documents should be > # used (or how to automatically choose these features), what > # format the documents are in, and so on. > __END__ > > Outra forma de resolver é assim: > > open REGEXP, "/path/to/rules.regexp" > or die; > foreach $r( ){ push @rules, qr/$r/; } > close REGEXP; > > # enquanto isso, num pedaço de código nas proximidades... > open D, '/path/to/data.bin' > or die; > local $_; > DATA: while( ){ > foreach $r ( @rules ){ > if( m/$r/ ){ > push @filtered_data, $_; > next DATA; > } > } > } > close D; > > > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Cascavel-pm Moderator, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040507/5a488313/attachment.htm From lechamps em terra.com.br Fri May 7 14:58:44 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] =?ISO-8859-1?Q?Mais=5Fum=5Fd=FAvida=5Fde=5FREG?= =?ISO-8859-1?Q?EX=5F!!!?= In-Reply-To: References: Message-ID: <409BEA74.9050900@terra.com.br> Solli Moreira Honorio wrote: > O pessoal, > > Calma aí... vocês se esqueceram que eu trabalho com Windows e tem um > virus novo no mercado, o tal de Sasser.... não que minha rede tenha tido > problema, mas apesar do Antivirus estar Ok eu precisava aplicar o mais > novo security path, e sem teste, em mais de 1.000, incluindo usuário > remotos !! Ainda bem que escolhi Windows, assim eu garanto o Wiskies das > criancinhas !!! Caraca, Solli! Se seus filhos já bebem whisky, eu fico imaginando o que eles vão beber quando entrarem na "aborrecência", e quiserem provar que são machos de verdade... :-) vai ser um tal de chegar no hospital carregado e dizer ao médico "hoje foi etanol!" ou "terebentina... só uma garrafa, doutor!" :-) > Vamos lá... > > O que vou implentar é uma interface para o administrador escolher o que > ele quer pegar dos eventlog do Windows, desda maneira o cara poderá > colocar condições para armazenar na base um evento, e eu não tenho > limite para estas condições. Simplificando mais um pouco, imagine o > eventlog do Windows como uma tabela e aí o cara vai fazer um 'select' > com os 'where', certo ? Os "WHERE" podem trazer condições complexas. Que operadores lógicos você pretende usar para concatenar suas condições? Apenas "E"? "E" e "OU"? > Bom, a minha dúvida é saber qual seria a melhor maneira de implementar > este where, a príncio eu estava imaginando em colocar cada condição > deste 'where' em um elemento de um array e depois aplicar a regra de > condição para cada elemento !!! Você vislumbram algo mais inteligente > para isto ? Bom, o fato de você não estar procurando nada específico não ajuda muito. Mas acho que poderíamos treinar uma rede neural para identificar entradas potencialmente perigosas no EventLog... que você acha disso? AI::Neural::BackProp (acho que é este o nome do módulo) pode ser útil. Outra possibilidade: que tal se você simplesmente classificar o EventLog e mandar as informações para um DB? Depois, poderia usar técnicas de Data Mining para extrair informações interessantes sobre a sua rede... Ainda abstrato, mas mais palpável do que no início... Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From shonorio em terra.com.br Fri May 7 16:22:00 2004 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Mon Aug 2 21:27:02 2004 Subject: =?iso-8859-1?b?UmU6IFtDYXNjYXZlbC1wbV0gTWFpc191bWFfZPp2aWRhX2RlX1JFR0VY?= =?iso-8859-1?b?XyEhIQ==?= Message-ID: > Os "WHERE" podem trazer condições complexas. Que operadores lógicos > você pretende usar para concatenar suas condições? Apenas "E"? "E" e "OU"? Cara, eu estava pensando em algo 'simples' utilizando apenas o 'E' e 'OU'. > > > Bom, a minha dúvida é saber qual seria a melhor maneira de implementar > > este where, a príncio eu estava imaginando em colocar cada condição > > deste 'where' em um elemento de um array e depois aplicar a regra de > > condição para cada elemento !!! Você vislumbram algo mais inteligente > > para isto ? > > Bom, o fato de você não estar procurando nada específico não ajuda > muito. Mas acho que poderíamos treinar uma rede neural para identificar > entradas potencialmente perigosas no EventLog... que você acha disso? > AI::Neural::BackProp (acho que é este o nome do módulo) pode ser útil. Meu !!!!! Neural ? eu não consigo nem fazer uma expressão regular descente !!! Mesmo assim vou dar uma olhada para saber se o negócio é muita viajada !!! > > Outra possibilidade: que tal se você simplesmente classificar o > EventLog e mandar as informações para um DB? Depois, poderia usar > técnicas de Data Mining para extrair informações interessantes sobre a > sua rede... > Também pensei nesta possibilidade - é até ela existe, pois o log vai para uma base de dados para o administrador criar relatório - o problema é que eu gostaria de evitar a transferência de dados considerado indesejados pelo administrador para o servidor... e pode ser muito. Para isto eu gostaria de permitir ao mané dizer ao sistema, através de uma interface bonitinha - coisa de administrador de windows -, 'eu quero o eventid = 171 ou eventid = 666'. As palavras chaves na interfaces seriam 'é igual a', 'é diferente de', ´é maior do que', 'é maior ou igual a', 'é menor do que', 'é menor ou igual a', 'começa com', 'não começa com', 'termina com', 'não termina com', 'contém' e 'não contém'. Então eu iria criar, ou compilar, esta regra para o sistema. É nesta hora que eu não estou conseguindo pensar em algo mais inteligente do que colocar cada regra desta num array e fazer a verificação. Pessoal, leram... é pra lá de simples :-) !!! É como eu sempre digo para o meu pessoal, é complicado fazer as coisas ficarem simples !!!! De:cascavel-pm-bounces@mail.pm.org Para:"Cascavel Perl Mongers" cascavel-pm@mail.pm.org Cópia: Data:Fri, 07 May 2004 16:58:44 -0300 Assunto:Re: [Cascavel-pm] Mais_um_dúvida_de_REGEX_!!! > Solli Moreira Honorio wrote: > > O pessoal, > > > > Calma aí... vocês se esqueceram que eu trabalho com Windows e tem um > > virus novo no mercado, o tal de Sasser.... não que minha rede tenha tido > > problema, mas apesar do Antivirus estar Ok eu precisava aplicar o mais > > novo security path, e sem teste, em mais de 1.000, incluindo usuário > > remotos !! Ainda bem que escolhi Windows, assim eu garanto o Wiskies das > > criancinhas !!! > > Caraca, Solli! Se seus filhos já bebem whisky, eu fico imaginando o > que eles vão beber quando entrarem na "aborrecência", e quiserem provar > que são machos de verdade... :-) vai ser um tal de chegar no hospital > carregado e dizer ao médico "hoje foi etanol!" ou "terebentina... só uma > garrafa, doutor!" :-) > > > Vamos lá... > > > > O que vou implentar é uma interface para o administrador escolher o que > > ele quer pegar dos eventlog do Windows, desda maneira o cara poderá > > colocar condições para armazenar na base um evento, e eu não tenho > > limite para estas condições. Simplificando mais um pouco, imagine o > > eventlog do Windows como uma tabela e aí o cara vai fazer um 'select' > > com os 'where', certo ? > > Os "WHERE" podem trazer condições complexas. Que operadores lógicos > você pretende usar para concatenar suas condições? Apenas "E"? "E" e "OU"? > > > Bom, a minha dúvida é saber qual seria a melhor maneira de implementar > > este where, a príncio eu estava imaginando em colocar cada condição > > deste 'where' em um elemento de um array e depois aplicar a regra de > > condição para cada elemento !!! Você vislumbram algo mais inteligente > > para isto ? > > Bom, o fato de você não estar procurando nada específico não ajuda > muito. Mas acho que poderíamos treinar uma rede neural para identificar > entradas potencialmente perigosas no EventLog... que você acha disso? > AI::Neural::BackProp (acho que é este o nome do módulo) pode ser útil. > > Outra possibilidade: que tal se você simplesmente classificar o > EventLog e mandar as informações para um DB? Depois, poderia usar > técnicas de Data Mining para extrair informações interessantes sobre a > sua rede... > > Ainda abstrato, mas mais palpável do que no início... > Putamplexos! > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Cascavel-pm Moderator, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040507/c331da1c/attachment.htm From lechamps em terra.com.br Fri May 7 17:30:05 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] =?ISO-8859-1?Q?Mais=5Fuma=5Fd=FAvida=5Fde=5FRE?= =?ISO-8859-1?Q?GEX=5F!!!?= In-Reply-To: References: Message-ID: <409C0DED.4090308@terra.com.br> Solli Moreira Honorio wrote: > Para isto eu gostaria de permitir ao mané dizer ao sistema, através de > uma interface bonitinha - coisa de administrador de windows -, 'eu quero > o eventid = 171 ou eventid = 666'. As palavras chaves na interfaces > seriam 'é igual a', 'é diferente de', ´é maior do que', 'é maior ou > igual a', 'é menor do que', 'é menor ou igual a', 'começa com', 'não > começa com', 'termina com', 'não termina com', 'contém' e 'não contém'. Tente o Regexp::English http://search.cpan.org/~chromatic/Regexp-English-0.21/English.pm e veja também Regexp, uma interface orientada à objeto para as expressões regulares: http://search.cpan.org/~gbarr/Regexp-0.004/Regexp.pm > Então eu iria criar, ou compilar, esta regra para o sistema. É nesta > hora que eu não estou conseguindo pensar em algo mais inteligente do que > colocar cada regra desta num array e fazer a verificação. Você não pode tentar me dar um exemplo didático para eu saber o que fazer? Pode ser que eu tenha uma boa idéia... quem sabe, até construo um módulo... "Solli Children's Whisky Module"... :-) Putamplexos, que a mulé tá chamando prá jantar... e eu ainda tenho de atravessar a cidade. -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From mda em embratel.net.br Fri May 7 18:56:28 2004 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] =?ISO-8859-1?Q?Mais=5Fuma=5Fd=FAvida=5Fde=5FRE?= =?ISO-8859-1?Q?GEX=5F!!!?= In-Reply-To: References: Message-ID: <409C222C.6010302@embratel.net.br> Como diz o meu chefe... as soluções simples e rápidas costumam ser as mais caras... Rede neural... dizem que os resultados são maravilhosos, depois do treinamento feito... e isto demora... é verdade ? Tenho vontade, mas nunca tive tempo de estudar isto... Creio que eu entendi melhor o exemplo de seu código do que sua explicação até agora, mas para tendar deixar mais claro... @EventIDRules = qw (528 529 530 667); @StringRule = qw ('foi pro saco' '!amarelo'); foreach $IDRule ( @EventIDRules ) { if $EventID =~ m/$IDRule/ { faça qualquer coisa } } foreach $StrRule ( @StringRule ) { # Não tenho a menor idéia neste caso !!!! } <\code> Supondo que seu $EventID seja uma das informações estraidas, não é interessante usar expressão regular, pois isto demanda de tempo, e um EventID 528 será igual a 5281 e 1528 ... Eu faria diferente: Premissas: - vc terá um arquivo com os EventID's que deversão ser listado, e outro que deverão ser ignorados, ou mesmo marcação inicial da linha (recomendável). - O mesmo vale para strings ;) - os EventID's são exatos - as strings estão na caixa desejada (pode colocar um /i no no regex do contrário ) #!/usr/local/bin/perl -w use strict; my @EventIDRules = qw (528 529 530 667); my %EventID; #-> Acesso rápido map { $EventID{$_} = 0 } @EventIDRules; my @StringRule = ( 'foi pro saco', '!amarelo' ); my @Events = ( [ 1, 'A mensagem foi pro saco' ], [ 528, 'O carro amarelo' ], [ 2, 'Algo diferente' ], [ 529, 'Reuniao Perl Mongers chegando! Rio de Janeiro!' ], ); foreach my $Event ( @Events ) { if ( exists($EventID{$Event->[0]}) ) { print "Evento $Event->[0]: $Event->[1]\n"; # Caso deseje ignorar a expressão regular... next; } # } else { { foreach my $StrRule ( @StringRule ) { # print "DEBUG: '$StrRule' => '$Event->[1]'\n"; if ( $Event->[1] =~ m/($StrRule)/ ) { print "STR $1: @$Event\n"; } # Este é mais rápido que RE, porém vc deverá ter strings exatas if ( rindex($Event->[1], $StrRule) >= 0 ) { print "RI @$Event\n"; } } } } Viajei! Mas no meu entender é algo nesta linha que vc estava precisando ;) Sds, Marco Antonio Solli Moreira Honorio wrote: > > Os "WHERE" podem trazer condições complexas. Que operadores lógicos > > você pretende usar para concatenar suas condições? Apenas "E"? "E" e > "OU"? > Cara, eu estava pensando em algo 'simples' utilizando apenas o 'E' e 'OU'. > > > > > > Bom, a minha dúvida é saber qual seria a melhor maneira de > implementar > > > este where, a príncio eu estava imaginando em colocar cada condição > > > deste 'where' em um elemento de um array e depois aplicar a regra de > > > condição para cada elemento !!! Você vislumbram algo mais inteligente > > > para isto ? > > > > Bom, o fato de você não estar procurando nada específico não ajuda > > muito. Mas acho que poderíamos treinar uma rede neural para identificar > > entradas potencialmente perigosas no EventLog... que você acha disso? > > AI::Neural::BackProp (acho que é este o nome do módulo) pode ser útil. > Meu !!!!! Neural ? eu não consigo nem fazer uma expressão regular > descente !!! Mesmo assim vou dar uma olhada para saber se o negócio é > muita viajada !!! > > > > > Outra possibilidade: que tal se você simplesmente classificar o > > EventLog e mandar as informações para um DB? Depois, poderia usar > > técnicas de Data Mining para extrair informações interessantes sobre a > > sua rede... > > > Também pensei nesta possibilidade - é até ela existe, pois o log vai > para uma base de dados para o administrador criar relatório - o > problema é que eu gostaria de evitar a transferência de dados > considerado indesejados pelo administrador para o servidor... e pode > ser muito. > > Para isto eu gostaria de permitir ao mané dizer ao sistema, através de > uma interface bonitinha - coisa de administrador de windows -, 'eu > quero o eventid = 171 ou eventid = 666'. As palavras chaves na > interfaces seriam 'é igual a', 'é diferente de', ´é maior do que', 'é > maior ou igual a', 'é menor do que', 'é menor ou igual a', 'começa > com', 'não começa com', 'termina com', 'não termina com', 'contém' e > 'não contém'. > > Então eu iria criar, ou compilar, esta regra para o sistema. É nesta > hora que eu não estou conseguindo pensar em algo mais inteligente do > que colocar cada regra desta num array e fazer a verificação. > > Pessoal, leram... é pra lá de simples :-) !!! É como eu sempre digo > para o meu pessoal, é complicado fazer as coisas ficarem simples !!!! > > *De:* cascavel-pm-bounces@mail.pm.org > > *Para:* "Cascavel Perl Mongers" cascavel-pm@mail.pm.org > > *Cópia:* > > *Data:* Fri, 07 May 2004 16:58:44 -0300 > > *Assunto:* Re: [Cascavel-pm] Mais_um_dúvida_de_REGEX_!!! > > > > > Solli Moreira Honorio wrote: > > > O pessoal, > > > > > > Calma aí... vocês se esqueceram que eu trabalho com Windows e tem um > > > virus novo no mercado, o tal de Sasser.... não que minha rede > tenha tido > > > problema, mas apesar do Antivirus estar Ok eu precisava aplicar o > mais > > > novo security path, e sem teste, em mais de 1.000, incluindo usuário > > > remotos !! Ainda bem que escolhi Windows, assim eu garanto o > Wiskies das > > > criancinhas !!! > > > > Caraca, Solli! Se seus filhos já bebem whisky, eu fico imaginando o > > que eles vão beber quando entrarem na "aborrecência", e quiserem provar > > que são machos de verdade... :-) vai ser um tal de chegar no hospital > > carregado e dizer ao médico "hoje foi etanol!" ou "terebentina... só > uma > > garrafa, doutor!" :-) > > > > > Vamos lá... > > > > > > O que vou implentar é uma interface para o administrador escolher > o que > > > ele quer pegar dos eventlog do Windows, desda maneira o cara poderá > > > colocar condições para armazenar na base um evento, e eu não tenho > > > limite para estas condições. Simplificando mais um pouco, imagine o > > > eventlog do Windows como uma tabela e aí o cara vai fazer um 'select' > > > com os 'where', certo ? > > > > Os "WHERE" podem trazer condições complexas. Que operadores lógicos > > você pretende usar para concatenar suas condições? Apenas "E"? "E" e > "OU"? > > > > > Bom, a minha dúvida é saber qual seria a melhor maneira de > implementar > > > este where, a príncio eu estava imaginando em colocar cada condição > > > deste 'where' em um elemento de um array e depois aplicar a regra de > > > condição para cada elemento !!! Você vislumbram algo mais inteligente > > > para isto ? > > > > Bom, o fato de você não estar procurando nada específico não ajuda > > muito. Mas acho que poderíamos treinar uma rede neural para identificar > > entradas potencialmente perigosas no EventLog... que você acha disso? > > AI::Neural::BackProp (acho que é este o nome do módulo) pode ser útil. > > > > Outra possibilidade: que tal se você simplesmente classificar o > > EventLog e mandar as informações para um DB? Depois, poderia usar > > técnicas de Data Mining para extrair informações interessantes sobre a > > sua rede... > > > > Ainda abstrato, mas mais palpável do que no início... > > Putamplexos! > > -- > > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > Luis Campos de Carvalho is BSc in Comp Science, > > PerlMonk [SiteDocClan], Cascavel-pm Moderator, > > Unix Sys Admin && Certified Oracle DBA > > http://br.geocities.com/monsieur_champs/ > > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm@mail.pm.org > > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > >------------------------------------------------------------------------ > >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm@mail.pm.org >http://cascavel.pm.org/mailman/listinfo/cascavel-pm > From mda em embratel.net.br Fri May 7 19:23:43 2004 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] =?ISO-8859-1?Q?Mais=5Fuma=5Fd=FAvida=5Fde=5FRE?= =?ISO-8859-1?Q?GEX=5F!!!?= In-Reply-To: <409C222C.6010302@embratel.net.br> References: <409C222C.6010302@embratel.net.br> Message-ID: <409C288F.1030801@embratel.net.br> Marco A P D´Andrade wrote: > Como diz o meu chefe... as soluções simples e rápidas costumam ser as > mais caras... Complementando... rapidas na execução, e não de se fazer... simplificar algo complexo É o trabalho... > > Rede neural... dizem que os resultados são maravilhosos, depois do > treinamento feito... e isto demora... é verdade ? Tenho vontade, mas > nunca tive tempo de estudar isto... > > Creio que eu entendi melhor o exemplo de seu código do que sua > explicação até agora, mas para tendar deixar mais claro... > > > > @EventIDRules = qw (528 529 530 667); > @StringRule = qw ('foi pro saco' '!amarelo'); > > foreach $IDRule ( @EventIDRules ) > { > if $EventID =~ m/$IDRule/ { faça qualquer coisa } > } > > foreach $StrRule ( @StringRule ) > { > # Não tenho a menor idéia neste caso !!!! > } > > <\code> > > Supondo que seu $EventID seja uma das informações estraidas, não é > interessante usar expressão regular, pois isto demanda de tempo, e um > EventID 528 será igual a 5281 e 1528 ... > > Eu faria diferente: > > Premissas: > - vc terá um arquivo com os EventID's que deversão ser listado, e > outro que deverão ser ignorados, ou mesmo marcação inicial da linha > (recomendável). > - O mesmo vale para strings ;) > - os EventID's são exatos > - as strings estão na caixa desejada (pode colocar um /i no no > regex do contrário ) > > > > > #!/usr/local/bin/perl -w > > use strict; > > my @EventIDRules = qw (528 529 530 667); > > my %EventID; > #-> Acesso rápido > map { $EventID{$_} = 0 } @EventIDRules; > > my @StringRule = ( > 'foi pro saco', > '!amarelo' > ); > > my @Events = ( > [ 1, 'A mensagem foi pro saco' ], > [ 528, 'O carro amarelo' ], > [ 2, 'Algo diferente' ], > [ 529, 'Reuniao Perl Mongers chegando! Rio de Janeiro!' ], > ); > > foreach my $Event ( @Events ) { > if ( exists($EventID{$Event->[0]}) ) { > print "Evento $Event->[0]: $Event->[1]\n"; > # Caso deseje ignorar a expressão regular... > next; > } > # } else { > { > > foreach my $StrRule ( @StringRule ) { > # print "DEBUG: '$StrRule' => '$Event->[1]'\n"; > if ( $Event->[1] =~ m/($StrRule)/ ) { > print "STR $1: @$Event\n"; > } > > # Este é mais rápido que RE, porém vc deverá ter strings exatas > if ( rindex($Event->[1], $StrRule) >= 0 ) { > print "RI @$Event\n"; > } > > } > > } > > } > > > Viajei! Mas no meu entender é algo nesta linha que vc estava > precisando ;) > > Sds, > Marco Antonio > > > Solli Moreira Honorio wrote: > >> > Os "WHERE" podem trazer condições complexas. Que operadores lógicos >> > você pretende usar para concatenar suas condições? Apenas "E"? "E" >> e "OU"? >> Cara, eu estava pensando em algo 'simples' utilizando apenas o 'E' e >> 'OU'. >> >> > >> > > Bom, a minha dúvida é saber qual seria a melhor maneira de >> implementar >> > > este where, a príncio eu estava imaginando em colocar cada condição >> > > deste 'where' em um elemento de um array e depois aplicar a regra de >> > > condição para cada elemento !!! Você vislumbram algo mais >> inteligente >> > > para isto ? >> > >> > Bom, o fato de você não estar procurando nada específico não ajuda >> > muito. Mas acho que poderíamos treinar uma rede neural para >> identificar >> > entradas potencialmente perigosas no EventLog... que você acha disso? >> > AI::Neural::BackProp (acho que é este o nome do módulo) pode ser útil. >> Meu !!!!! Neural ? eu não consigo nem fazer uma expressão regular >> descente !!! Mesmo assim vou dar uma olhada para saber se o negócio é >> muita viajada !!! >> >> > >> > Outra possibilidade: que tal se você simplesmente classificar o >> > EventLog e mandar as informações para um DB? Depois, poderia usar >> > técnicas de Data Mining para extrair informações interessantes sobre a >> > sua rede... >> > >> Também pensei nesta possibilidade - é até ela existe, pois o log vai >> para uma base de dados para o administrador criar relatório - o >> problema é que eu gostaria de evitar a transferência de dados >> considerado indesejados pelo administrador para o servidor... e pode >> ser muito. >> >> Para isto eu gostaria de permitir ao mané dizer ao sistema, através >> de uma interface bonitinha - coisa de administrador de windows -, 'eu >> quero o eventid = 171 ou eventid = 666'. As palavras chaves na >> interfaces seriam 'é igual a', 'é diferente de', ´é maior do que', 'é >> maior ou igual a', 'é menor do que', 'é menor ou igual a', 'começa >> com', 'não começa com', 'termina com', 'não termina com', 'contém' e >> 'não contém'. >> >> Então eu iria criar, ou compilar, esta regra para o sistema. É nesta >> hora que eu não estou conseguindo pensar em algo mais inteligente do >> que colocar cada regra desta num array e fazer a verificação. >> >> Pessoal, leram... é pra lá de simples :-) !!! É como eu sempre digo >> para o meu pessoal, é complicado fazer as coisas ficarem simples !!!! >> >> *De:* cascavel-pm-bounces@mail.pm.org >> >> *Para:* "Cascavel Perl Mongers" cascavel-pm@mail.pm.org >> >> *Cópia:* >> >> *Data:* Fri, 07 May 2004 16:58:44 -0300 >> >> *Assunto:* Re: [Cascavel-pm] Mais_um_dúvida_de_REGEX_!!! >> >> >> > Solli Moreira Honorio wrote: >> > > O pessoal, >> > > >> > > Calma aí... vocês se esqueceram que eu trabalho com Windows e tem um >> > > virus novo no mercado, o tal de Sasser.... não que minha rede >> tenha tido >> > > problema, mas apesar do Antivirus estar Ok eu precisava aplicar o >> mais >> > > novo security path, e sem teste, em mais de 1.000, incluindo usuário >> > > remotos !! Ainda bem que escolhi Windows, assim eu garanto o >> Wiskies das >> > > criancinhas !!! >> > >> > Caraca, Solli! Se seus filhos já bebem whisky, eu fico imaginando o >> > que eles vão beber quando entrarem na "aborrecência", e quiserem >> provar >> > que são machos de verdade... :-) vai ser um tal de chegar no hospital >> > carregado e dizer ao médico "hoje foi etanol!" ou "terebentina... >> só uma >> > garrafa, doutor!" :-) >> > >> > > Vamos lá... >> > > >> > > O que vou implentar é uma interface para o administrador escolher >> o que >> > > ele quer pegar dos eventlog do Windows, desda maneira o cara poderá >> > > colocar condições para armazenar na base um evento, e eu não tenho >> > > limite para estas condições. Simplificando mais um pouco, imagine o >> > > eventlog do Windows como uma tabela e aí o cara vai fazer um >> 'select' >> > > com os 'where', certo ? >> > >> > Os "WHERE" podem trazer condições complexas. Que operadores lógicos >> > você pretende usar para concatenar suas condições? Apenas "E"? "E" >> e "OU"? >> > >> > > Bom, a minha dúvida é saber qual seria a melhor maneira de >> implementar >> > > este where, a príncio eu estava imaginando em colocar cada condição >> > > deste 'where' em um elemento de um array e depois aplicar a regra de >> > > condição para cada elemento !!! Você vislumbram algo mais >> inteligente >> > > para isto ? >> > >> > Bom, o fato de você não estar procurando nada específico não ajuda >> > muito. Mas acho que poderíamos treinar uma rede neural para >> identificar >> > entradas potencialmente perigosas no EventLog... que você acha disso? >> > AI::Neural::BackProp (acho que é este o nome do módulo) pode ser útil. >> > >> > Outra possibilidade: que tal se você simplesmente classificar o >> > EventLog e mandar as informações para um DB? Depois, poderia usar >> > técnicas de Data Mining para extrair informações interessantes sobre a >> > sua rede... >> > >> > Ainda abstrato, mas mais palpável do que no início... >> > Putamplexos! >> > -- >> > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= >> > Luis Campos de Carvalho is BSc in Comp Science, >> > PerlMonk [SiteDocClan], Cascavel-pm Moderator, >> > Unix Sys Admin && Certified Oracle DBA >> > http://br.geocities.com/monsieur_champs/ >> > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= >> > >> > _______________________________________________ >> > Cascavel-pm mailing list >> > Cascavel-pm@mail.pm.org >> > http://cascavel.pm.org/mailman/listinfo/cascavel-pm >> >> >> ------------------------------------------------------------------------ >> >> _______________________________________________ >> Cascavel-pm mailing list >> Cascavel-pm@mail.pm.org >> http://cascavel.pm.org/mailman/listinfo/cascavel-pm >> > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > From joaogabrielcas em ig.com.br Sat May 8 11:30:37 2004 From: joaogabrielcas em ig.com.br (=?iso-8859-1?Q?Jo=E3o_Gabriel?=) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] Usando o GD pra redimencionar imagens... Message-ID: <000a01c43519$cf00b0c0$3c6c08c9@joaogabr> Olá pessoal! Gostaria de saber como faço pra redimencionar imagens usando o modulo GD? Dei uma olhada rápida na ducomentação do modulo e não vi o que eu quero (vi criação de gráficos, inclusão de texto em imagens...), mas redimencionamento de imagens nada... Alguém pode me ajudar? Abraços, João Gabriel icq: 130469116 msn: jgcl@msn.com sites: www.cgiclube.net - www.showdebola.tk From glasswalk3r em yahoo.com.br Thu May 6 01:46:11 2004 From: glasswalk3r em yahoo.com.br (Alceu Rodrigues de Freitas Junior) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] =?ISO-8859-1?Q?Mais=5Fum=5Fd=FAvida=5Fde=5FREGE?= =?ISO-8859-1?Q?X=5F!!!?= In-Reply-To: <409B95D9.3010705@terra.com.br> References: <20040506201710.67471.qmail@web41606.mail.yahoo.com> <409B95D9.3010705@terra.com.br> Message-ID: <20040506034611.62cb161b@valhalla.localdomain> Olá monges, Gostei da idéia do Luis... se os casos de expressão regular começarem a mudar um pouco, o Solli vai ter que ficar dando manutenção no script. Eu não tive oportunidade de checar, mas existe algum módulo em Perl que trabalhe com o algorítmo "bayesian"? Se houver, acho que dá para matar isso rápido, você apenas vai ter que "treinar" o script no que é um positivo verdadeiro e o que é falso (como o "foi pro saco amarelo"). Se não houver, vou ser meio herético e sugerir que você dê uma olhada no Bogofilter ou qualquer outro aplicativo ainda. Mas se não houver mesmo e você Solli se sentir especialmente disposto em queimar alguns neurônios, você mesmo poderia escrever um módulo que faça isso. :-) []'s -- Alceu Rodrigues de Freitas Junior -- glasswalk3r@yahoo.com.br PGP public key at http://www.imortais.cjb.net/addgb.html --------------------------------------------------------------- "Procurando o paraíso em vida conheci a imundice que é viver. O desamparo da vida é como as flores que caem nas noites de primavera." Blade - a lâmina do Imortal O abominável monge das neves Luis Campos de Carvalho em Fri, 07 May 2004 10:57:45 -0300 escreveu: > Alexandre de Abreu wrote: > > Assumindo $_ > > > > if(/foi pro saco/ && !/amarelo/) { > > print "Boo"; > > } > > > > Se é jogo de adivinhas, a melhor forma de resolver é implementar > logo > um rule-based decision engine: > > use AI::Categorizer; > > # Do Manual: > # AI::Categorizer is a framework for automatic text categorization. > # It consists of a collection of Perl modules that implement common > # categorization tasks, and a set of defined relationships among > # those modules. The various details are flexible - for example, > # you can choose what categorization algorithm to use, what > # features (words or otherwise) of the documents should be > # used (or how to automatically choose these features), what > # format the documents are in, and so on. > __END__ > > Outra forma de resolver é assim: > > open REGEXP, "/path/to/rules.regexp" > or die; > foreach $r( ){ push @rules, qr/$r/; } > close REGEXP; > > # enquanto isso, num pedaço de código nas proximidades... > open D, '/path/to/data.bin' > or die; > local $_; > DATA: while( ){ > foreach $r ( @rules ){ > if( m/$r/ ){ > push @filtered_data, $_; > next DATA; > } > } > } > close D; > > > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Cascavel-pm Moderator, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From nferraz em phperl.com Sat May 8 19:40:05 2004 From: nferraz em phperl.com (Nelson Ferraz) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] Usando o GD pra redimencionar imagens... In-Reply-To: <000a01c43519$cf00b0c0$3c6c08c9@joaogabr> References: <000a01c43519$cf00b0c0$3c6c08c9@joaogabr> Message-ID: <409D7DE5.6070206@phperl.com> João Gabriel wrote: > Olá pessoal! Gostaria de saber como faço pra redimencionar imagens usando o > modulo GD? Dei uma olhada rápida na ducomentação do modulo e não vi o que eu > quero (vi criação de gráficos, inclusão de texto em imagens...), mas > redimencionamento de imagens nada... Dá uma olhada no PerlMagick: http://www.imagemagick.org/www/perl.html []s Nelson From lechamps em terra.com.br Sun May 9 16:53:43 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:02 2004 Subject: =?iso-8859-1?Q?Re:_=5BCascavel-pm=5D_Mais=5Fuma=5Fd=FAvida=5Fde=5FREGEX?= =?iso-8859-1?Q?=5F!!!?= References: <409C222C.6010302@embratel.net.br> Message-ID: <001101c43610$1acdfb60$8800a8c0@lafitt> ----- Original Message ----- From: "Marco A P D´Andrade" To: "Cascavel Perl Mongers" Sent: Friday, May 07, 2004 8:56 PM Subject: Re: [Cascavel-pm] Mais_uma_dúvida_de_REGEX_!!! > Como diz o meu chefe... as soluções simples e rápidas costumam ser as > mais caras... Nem sempre. Depende muito de como e porque você está sugerindo uma coisa simples e rápida. Meu autor favorito diz sempre "Não viole o princípio KISS". > Rede neural... dizem que os resultados são maravilhosos, depois do > treinamento feito... e isto demora... é verdade ? Tenho vontade, mas > nunca tive tempo de estudar isto... É simples, desde que você esteja disposto a usar um módulo ou biblioteca pronta (não existem apenas bibliotecas em perl). Sobre a demora, isso depende muito de como você treina a rede. Se você treinar a rede por algum processo semi-automático, ou automático, é bem mais rápido do que você pensa... Um causo: eu treinei uma pequena rede neural (9 neurônios) para um trabalho de AI na escola, que convergia para 98% de acertos em cerca de 45 minutos de treinamento automático. Claro, existiam alguns fatores simplificantes: A) meu problema era ridículo (eu escrevi cerca de 900 linhas em C para resover as operações booleanas "AND", "OR", e "XOR"); B) Eu estava usando minha própria implementação de Redes Neurais com Algorítimo de Back Propagation, com algumas simplificações sugeridas pelo meu orientador; C) Eu dispunha do conjunto completo de valores de entrada para treinar minha rede (isso é muito difícil); D) Eu tinha respostas definidas para todo o conjunto de valores de entrada possíveis (isso é perto do impossível). Ufa!! Meus neurônios estão cansados... -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho Computer Scientist Unix Sys Adm & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From joaogabrielcas em ig.com.br Sun May 9 16:54:13 2004 From: joaogabrielcas em ig.com.br (=?iso-8859-1?Q?Jo=E3o_Gabriel?=) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] Usando o GD pra redimencionar imagens... Message-ID: <000301c43610$2f8f17a0$7e29d9c8@joaogabr> Com a ajuda do DiogoAgra do canal #cgi da rede BRASnet.org consegui o código que usa o GD pra redimencionar uma imagem: #!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); use GD; $image = newFromJpeg GD::Image("imagem.jpg"); ($width,$height) = $image->getBounds(); $novoW = "50"; $novoH = "50"; my $im = new GD::Image($novoW,$novoH); $im->copyResized($image,0,0,0,0,$novoW,$novoH,$width,$height); print "Content-type: image/png\n\n"; binmode STDOUT; print $im->png; exit; []'s João Gabriel From vivan em dim.fm.usp.br Mon May 10 12:09:49 2004 From: vivan em dim.fm.usp.br (vivan@dim.fm.usp.br) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] Roteador In-Reply-To: References: Message-ID: <6815.200.179.66.230.1084208989.webmail-dim@dim.fm.usp.br> Oi, To fazendo um script pra entrar em um roteador e realizar alguns comandos simples. O script roda legal, mas me dah o erro "pattern match read eof" no final da execucao. Alguem sabe me dizer pq e como me livro deste erro? #!/usr/bin/perl use Net::Telnet (); ########## IP LOGIN E SENHA ############## $ip="10.10.10.10"; $login="teste"; $password="teste"; $enable = "teste"; ####################################### $t = new Net::Telnet (Timeout => 10, Input_log =>'./input.txt'); $t->open($ip); $t->print ($login); $t->print ($password); $t->print('ena'); $t->print($enable); $t->print('terminal length 0'); $t->print('sh conf'); $t->cmd('exit'); $t->close; -------------------------- Esta mensagem foi verificada pelo sistema de antivírus DIM e acredita-se estar livre de Virus. Virus data file v4358 created May 05 2004 From shonorio em terra.com.br Mon May 10 19:05:48 2004 From: shonorio em terra.com.br (Solli Moreria Honorio) Date: Mon Aug 2 21:27:02 2004 Subject: =?iso-8859-1?Q?RE:_=5BCascavel-pm=5D_Mais=5Fuma=5Fd=FAvida=5Fde=5FREGEX?= =?iso-8859-1?Q?=5F!!!?= In-Reply-To: <001101c43610$1acdfb60$8800a8c0@lafitt> Message-ID: <000001c436eb$b74b0ce0$32cbcfc8@eraser> Pessoal, obrigado pelo retorno sobre a minha questão... vou colocar isto num caldeirão junto com as informações que tenho em minha posse, misturar em fogo brando e ver no que vai dar... qualquer coisa procuro-os para dar aquela pitada de sal e pimenta !!! Abraços !!! Solli From sandro em webengines.com.br Tue May 11 11:12:28 2004 From: sandro em webengines.com.br (Sandro Vitenti) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] Usando o GD pra redimencionar imagens... In-Reply-To: <000a01c43519$cf00b0c0$3c6c08c9@joaogabr> References: <000a01c43519$cf00b0c0$3c6c08c9@joaogabr> Message-ID: <40A0FB6C.3000007@webengines.com.br> João Gabriel wrote: >Olá pessoal! Gostaria de saber como faço pra redimencionar imagens usando o >modulo GD? Dei uma olhada rápida na ducomentação do modulo e não vi o que eu >quero (vi criação de gráficos, inclusão de texto em imagens...), mas >redimencionamento de imagens nada... > >Alguém pode me ajudar? > >Abraços, >João Gabriel > > > Ola, eu uso o seguinte codigo, ele nao eh exatamente para resize, eu fiz para criar thumbnail mas da pra usar: use strict; #Sempre use GD; GD::Image->trueColor(1); # Coloca true color como padrao my $img = GD::Image->newFromJpegData($data) or die $!; # Ou qualquer metodo de abertura de imagem my ($w,$h) = $img->getBounds; # tamanho atual my ($nw,$nh); # novo width "largura", novo height "altura" # Se quizer algo proporcional, ao determinar a altura estara determinando a largura assim: $nh = XXX; # Nova altura $nw = int($nh*$w/$h); # Nova altura dividida pela altura antiga da a proporcao correta entao multiplica pela largura antiga # Se no caso quizer determinar a largura nova, mesma coisa: $nw = XXX; # Nova largura $nh = int($nw*$h/$w); # Nova largura dividida pela largura antiga da a proporcao correta entao multiplica pela algura antiga # Se quizer em qualquer tamanho eh so colocar o q quizer $nw = XXX; $nh = YYY; my $resized_img; my $resized_img = GD::Image->new($nw,$nh); $resized_img->trueColor(1); $resized_img->copyResized($img,0,0,0,0,$nw,$nh,$w,$h); # Aqui que importa, essa funcao copia um retangulo em outro, # Ela copia para $resized_img o a imagem de $img usando a seguinte logica, o retangulo q comeca no ponto # (0,0), quarto e quinto parametros, e termina no ponto ($w,$h), ultimos dois parametros, lembrando q dois ponto # determinam um retangulo, e copiado para o retangulo q comeca no (0,0), segundo e terceiro parametros e termina no ponto # ($nh,$nw) sexto e setimo parametros, esticando ou apertando onde for necessario # Espero nao ter deixado obscuro por tentar explicar demais Sandro Vitenti From alfspsp em hotmail.com Wed May 12 14:00:31 2004 From: alfspsp em hotmail.com (=?iso-8859-1?Q?Alex_E._J._Falc=E3o?=) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] Roteador Message-ID: Vivan, tenho um script que uso bastante para telnet em roteadores cisco. Acho que pode te ajudar. Não sou um expert em Perl, e sou novo na lista... Gostaria de redeber comentários sobre as funções. Utilizei o expect para verificar as respostas, mas estou implementando coisa melhor. #!/usr/bin/perl # # Versao : 1.0 # Arquivo: telnet.pl # # O formato para uso deste script e: # telnet.pl [Arquivo_Log] # <> - Obrigatorio # [] - Opcional # # o arquivo de host deve ser no seguinte formato: # IP | HOSTNAME | plataforma(7500, 2500 etc) # # os comandos devem estar um em cada linha, incluindo config terminal, end e tudo mais # # if ( $ARGV[0] eq "" ) { print < [opcoes] <> - Obrigatorio [] - Opcional As opcoes disponiveis sao: -log: -> gera um unico arquivo de log, conforme especificado no nome do arquivo. -logrouter: -> gera um arquivo de log para cada roteador, no formato _hostname.log no diretorio especificado. Se nao for especificado nenhum, sera gerado no diretorio corrente. o arquivo de host deve ser no seguinte formato: IP | HOSTNAME | plataforma(7500, 2500 etc) os comandos devem estar um em cada linha, incluindo config terminal, end e tudo mais ECHO exit(0); } use Net::Ping; use Term::ReadKey; # Lendo e processando os argumentos de execucao. # $HOSTS=$ARGV[0]; $CMDFILE=$ARGV[1]; for ($m=2;$m<10;$m++) { $n=$m-1; last if ($ARGV[$m] eq ""); $OPCAO=$OPCAO.$ARGV[$m]; } $n--; # Somente duas opcoes podem ser executadas simultaneamente. # if ($n > 2) { print <) { s/\s+$//g; #remove "branco" no final da linha por nada s/\s/ /g; #substitui "branco" por espaco s/\n//; #substitui por nada s/\s//g; #remove espacos entre os caracteres next if /^\s*\!/; #ignora linhas de comentarios next if /^\s*$/; #ignora linhas vazias $TARGET[$m] = $_; $m++; } close (F); print "O arquivo de alvos \"$HOSTS\" contem $m host(s).\n"; # Lendo o arquivo de comandos especificado pela variavel $CMDFILE. $n=0; open (F,"$CMDFILE") || die "Cade o arquivo $CMDFILE ?"; while () { s/\s+$//g; #remove "branco" no final da linha por nada s/\s/ /g; #substitui "branco" por espaco s/\n//; #substitui por nada next if /^\s*\!/; #ignora linhas de comentarios next if /^\s*$/; #ignora linhas vazias $COMANDOS[$n] = $_; $n++; } close (F); print "O arquivo de comandos \"$CMDFILE\" contem $n linhas de instrucoes(s).\n\n"; # Inicializando variaveis que necessitam de um valor inicial $TOTALCOMMMANDS=$m*$n; $TOTALERROS=0; $TOTALTIMEOUTS=0; # Gerando o cabecalho do log, se especificado. if ($LOG) { open (LOG,">>$DIR"); # Obtem data e hora do inicio da execucao. ($mon,$mday,$year,$hour,$min) = (localtime())[4,3,5,2,1]; $year=$year+1900; $mon++; print LOG "\n\n################################################################################\n\n" ."O arquivo de alvos \"$HOSTS\" contem $m host(s).\n" ."O arquivo de comandos \"$CMDFILE\" contem $n linhas de instrucoes(s).\n" ."Iniciando execucao em $mday/$mon/$year - $hour:$min\n\n"; close (LOG); } # Executando o TELNET aos hosts especificados no arquivo de alvos e executando os comandos # contidos no arquivo de comandos. foreach (@TARGET) { &EXECUTA($_); } # Gerando o rodape do log, se especificado. if ($LOG) { open (LOG,">>$DIR"); print LOG "\n\n################################################################################\n\n" ." SUMARIO DA EXECUCAO\n\n" ."Numero total de hosts: $m\n" ."Nomero de hosts que nao responderam: $TOTALTIMEOUTS\n\n" ."Numero de comandos executados: $TOTALCOMMMANDS\n" ."Numero de erros durante execucao: $TOTALERROS\n\n" ."Listagem de hosts que nao responderam:\n" ."$HOSTSTIMEOUT\n\n" ."Listagem de erros ocorridos em cada host\n"; for $HOST (sort keys (%LOGERROS)) { print LOG "- Ocorreram $QTDERROS{$HOST} em $HOST:\n\n" ."$LOGERROS{$HOST}\n\n"; } print LOG "\n\n################################################################################\n\n"; close (LOG); } # Sub-rotina de execucao condicional do TELNET a um host. Checa se o host esta respondendo a # ICMP ECHO (ping). sub EXECUTA { ($IP,$HOSTNAME,$PLATAFORM) = split (/\|/,$_[0],3); # Obtem data e hora da execucao para cada host. ($mon,$mday,$year,$hour,$min) = (localtime())[4,3,5,2,1]; $year=$year+1900; $mon++; # Gera o log da operacao, se especificado. if ($LOG) { open (LOG,">>$DIR"); print LOG "\n\nLote de comandos: $CMDFILE\nHost: $HOSTNAME ($IP)\nData: $mday/$mon/$year - $hour:$min\n\n"; close (LOG); } # Primeiro testa se a porta 23 esta aberta no dispositivo, enviando um pacote de 32 Bytes com 2 segundos # de timeout. $p = Net::Ping->new("tcp",10,32); $p->{port_num} = getservbyname("telnet", "tcp"); if ( $p->ping($IP, 2) ) { print "Executando os comandos em $HOSTNAME ($IP)\n";; &TELNET; } else { print "O host $IP nao esta respondendo.\n"; $TOTALTIMEOUTS++; $HOSTSTIMEOUT=$HOSTSTIMEOUT."- $HOSTNAME ($IP) : $mday/$mon/$year - $hour:$min\n"; # Gera o log da operacao, se especificado. if ($LOG) { open (LOG,">>$DIR"); print LOG "O Host nao responde.\n"; close (LOG); } } $p->close(); } # Sub-rotina para execucao do TELNET a um host, utilizando EXPECT. sub TELNET { open (F,">/tmp/telnet-router"); print F "#!/usr/bin/expect -f\n" ."spawn telnet $IP\n" ."expect \"Username: \"\n" ."send \"$username\\r\"\n" ."expect \"Password: \"\n" ."send \"$password\\r\"\n" ."expect \"*>\"\n" ."send \"enable\\r\"\n" ."expect \"Password: \"\n" ."send \"$enable\\r\"\n" ."expect \"*#\"\n" ."send \"term len 0\\r\"\n" ."expect \"*#\"\n"; foreach (@COMANDOS) { if ( $_ eq "" ) { print F "send \"\\r\\r\"\n" ."expect \"$HOSTNAME#\"\n"; } else { print F "send \"$_\\r\"\n" ."expect \"$HOSTNAME#\"\n"; } } print F "send \"exit\\r\"\n"; close (F); system("chmod 777 /tmp/telnet-router"); $cum=`/tmp/telnet-router > /tmp/lastlog`; # Alimentando o log unico. # if ($LOG) { system ("cat /tmp/lastlog >> $DIR"); } # Analisando os logs dos comandos executados no host em execucao. open (LOGTEMP,"/tmp/lastlog"); $o=0; while () { $DADOS[$o] = $_; if ( ($_ =~ "% Invalid input detected at") ) { $LOGERROS{$HOSTNAME} = $LOGERROS{$HOSTNAME}.$DADOS[$o-2]; $QTDERROS{$HOSTNAME}++; $TOTALERROS++; } $TOTALLINHAS++; $o++; } close (F); # Gerando o LOG individual de cada roteador. # if ($LOGROUTER) { $FILE=""; $FILE=$LOGDIR."/" if !($LOGDIR eq ""); $FILE=$FILE.$PLATAFORM."_".$HOSTNAME.".log"; system("cp /tmp/lastlog $FILE"); } unlink ("/tmp/telnet-router"); unlink ("/tmp/lastlog"); } -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040512/22531554/attachment.htm From alfspsp em hotmail.com Wed May 12 14:08:03 2004 From: alfspsp em hotmail.com (=?iso-8859-1?Q?Alex_E._J._Falc=E3o?=) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] Roteador Message-ID: caso queira utiliza o Net::Telnet utilize o print no lugar do cmd, tive varios problemas no roteador. $t->print('exit'); -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040512/015c1ff9/attachment.htm From fglock em pucrs.br Wed May 12 17:17:54 2004 From: fglock em pucrs.br (Flavio S. Glock) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] =?iso-8859-1?q?=22Seguran=E7a=22?= Message-ID: <40A2A292.5EB5@pucrs.br> Qual o procedimento para garantir que um programa em Perl é "seguro"? Eu tenho um programa que já está em uso, e preciso que alguém faça uma certificação/auditoria. Eu precisaria que isso fosse feito de forma oficial (provavelmente por alguma empresa da área de segurança). Alguém teria conhecimento de quem/como se faz isso? - Flavio S. Glock From joaogabrielcas em ig.com.br Wed May 12 18:42:24 2004 From: joaogabrielcas em ig.com.br (=?iso-8859-1?Q?Jo=E3o_Gabriel?=) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] Usando o GD pra redimencionar imagens... Message-ID: <000301c4387a$ca0f9180$0a0aa8c0@joaogabr> Valeu! > # Espero nao ter deixado obscuro por tentar explicar demais Ta massa o código! Bem explicado! Valeu mesmo! Um abraço, João Gabriel From glasswalk3r em yahoo.com.br Wed May 12 22:06:52 2004 From: glasswalk3r em yahoo.com.br (Alceu Rodrigues de Freitas Junior) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] Roteador In-Reply-To: References: Message-ID: <20040513000652.657dac9f@valhalla.localdomain> Bem vindo a lista Alex. Sugiro que dê uma olhada nos módulos Getopt::Std e Getopt::Long para processar as opções em linha de comando do seu script. Aos monges paulistanos, quando teremos um novo encontro por esses lados? O Alex também é de São Paulo e um bom bebedor de cerveja também. []'s -- Alceu Rodrigues de Freitas Junior -- glasswalk3r@yahoo.com.br PGP public key at http://www.imortais.cjb.net/addgb.html --------------------------------------------------------------- He who knows others is wise. He who knows himself is enlightened. -- Lao Tsu On Wed, 12 May 2004 16:00:31 -0300 "Alex E. J. Falcão" wrote: > Vivan, > > tenho um script que uso bastante para telnet em roteadores cisco. Acho > que pode te ajudar. Não sou um expert em Perl, e sou novo na lista... > Gostaria de redeber comentários sobre as funções. Utilizei o expect > para verificar as respostas, mas estou implementando coisa melhor. > > #!/usr/bin/perl > # > # Versao : 1.0 > # Arquivo: telnet.pl > # > # O formato para uso deste script e: > # telnet.pl [Arquivo_Log] > # <> - Obrigatorio > # [] - Opcional > # > # o arquivo de host deve ser no seguinte formato: > # IP | HOSTNAME | plataforma(7500, 2500 etc) > # > # os comandos devem estar um em cada linha, incluindo config terminal, > end e tudo mais# > # > > if ( $ARGV[0] eq "" ) { > print < O formato para uso deste script e: > telnet.pl [opcoes] > <> - Obrigatorio > [] - Opcional > > As opcoes disponiveis sao: > -log: -> gera um unico arquivo de log, conforme > especificado no nome do arquivo.-logrouter: -> gera um > arquivo de log para cada roteador, no formato > _hostname.log > no diretorio especificado. Se nao for > especificado nenhum, sera gerado no > diretorio corrente. > > o arquivo de host deve ser no seguinte formato: > IP | HOSTNAME | plataforma(7500, 2500 etc) > > os comandos devem estar um em cada linha, incluindo config terminal, > end e tudo mais > > ECHO > exit(0); > } > > use Net::Ping; > use Term::ReadKey; > > # Lendo e processando os argumentos de execucao. > # > $HOSTS=$ARGV[0]; > $CMDFILE=$ARGV[1]; > for ($m=2;$m<10;$m++) { > $n=$m-1; > last if ($ARGV[$m] eq ""); > $OPCAO=$OPCAO.$ARGV[$m]; > } > $n--; > > # Somente duas opcoes podem ser executadas simultaneamente. > # > if ($n > 2) { > print < Erro! Muitas opcoes foram especificadas. Especifique no maximo duas > opcoes. > > > ECHO > print "$n\n"; > exit(1); > } > > # Trantando os argumentos. > # > if ($OPCAO =~ "-log:") { > $LOG="1"; > ($cum,$DIR) = split (/\:/,$OPCAO,2); > } > > if ($OPCAO =~ "-logrouter") { > $LOGROUTER="1"; > ($cum,$LOGDIR) = split (/\:/,$OPCAO,2); > } > > print "$LOG - $DIR\n"; > print "$LOGROUTER - $LOGDIR\n"; > > #exit(0); > > # A primeira operacao a ser realizada e solicitar o USERNAME e > # o PASSWORD para acessar os equipamentos da rede. > > print "Enter your username: "; > ReadMode 'normal'; > $username = ReadLine(0); > chomp $username; > print "Enter your password: "; > ReadMode 'noecho'; > $password = ReadLine 0; > chomp $password; > print "\nEnable secret: "; > $enable = ReadLine 0; > chomp $enable; > ReadMode 'normal'; > > > # Lendo o arquivo de hosts especificado pela variavel $HOSTS. > $m=0; > open (F,"$HOSTS") || die "Cade o arquivo $HOSTS ?"; > while () { > s/\s+$//g; #remove "branco" no final da linha por nada > s/\s/ /g; #substitui "branco" por espaco > s/\n//; #substitui por nada > s/\s//g; #remove espacos entre os caracteres > next if /^\s*\!/; #ignora linhas de comentarios > next if /^\s*$/; #ignora linhas vazias > $TARGET[$m] = $_; > $m++; > } > close (F); > print "O arquivo de alvos \"$HOSTS\" contem $m host(s).\n"; > > > # Lendo o arquivo de comandos especificado pela variavel $CMDFILE. > $n=0; > open (F,"$CMDFILE") || die "Cade o arquivo $CMDFILE ?"; > while () { > s/\s+$//g; #remove "branco" no final da linha por nada > s/\s/ /g; #substitui "branco" por espaco > s/\n//; #substitui por nada > next if /^\s*\!/; #ignora linhas de comentarios > next if /^\s*$/; #ignora linhas vazias > $COMANDOS[$n] = $_; > $n++; > } > close (F); > print "O arquivo de comandos \"$CMDFILE\" contem $n linhas de > instrucoes(s).\n\n"; > > # Inicializando variaveis que necessitam de um valor inicial > $TOTALCOMMMANDS=$m*$n; > $TOTALERROS=0; > $TOTALTIMEOUTS=0; > > # Gerando o cabecalho do log, se especificado. > if ($LOG) { > open (LOG,">>$DIR"); > > # Obtem data e hora do inicio da execucao. > ($mon,$mday,$year,$hour,$min) = (localtime())[4,3,5,2,1]; > $year=$year+1900; > $mon++; > > print LOG > "\n\n################################################################ > ################\n\n" > ."O arquivo de alvos \"$HOSTS\" contem $m host(s).\n" > ."O arquivo de comandos \"$CMDFILE\" contem $n linhas de > instrucoes(s).\n"."Iniciando execucao em $mday/$mon/$year - > $hour:$min\n\n"; > close (LOG); > } > > # Executando o TELNET aos hosts especificados no arquivo de alvos e > executando os comandos# contidos no arquivo de comandos. > foreach (@TARGET) { > &EXECUTA($_); > } > > # Gerando o rodape do log, se especificado. > if ($LOG) { > open (LOG,">>$DIR"); > print LOG > "\n\n################################################################ > ################\n\n" > ." SUMARIO DA EXECUCAO\n\n" > ."Numero total de hosts: $m\n" > ."Nomero de hosts que nao responderam: $TOTALTIMEOUTS\n\n" > ."Numero de comandos executados: $TOTALCOMMMANDS\n" > ."Numero de erros durante execucao: $TOTALERROS\n\n" > ."Listagem de hosts que nao responderam:\n" > ."$HOSTSTIMEOUT\n\n" > ."Listagem de erros ocorridos em cada host\n"; > for $HOST (sort keys (%LOGERROS)) { > print LOG "- Ocorreram $QTDERROS{$HOST} em $HOST:\n\n" > ."$LOGERROS{$HOST}\n\n"; > } > print LOG > "\n\n################################################################ > ################\n\n"; close (LOG); > } > > > > # Sub-rotina de execucao condicional do TELNET a um host. Checa se o > host esta respondendo a# ICMP ECHO (ping). > sub EXECUTA { > ($IP,$HOSTNAME,$PLATAFORM) = split (/\|/,$_[0],3); > > # Obtem data e hora da execucao para cada host. > ($mon,$mday,$year,$hour,$min) = (localtime())[4,3,5,2,1]; > $year=$year+1900; > $mon++; > > # Gera o log da operacao, se especificado. > if ($LOG) { > open (LOG,">>$DIR"); > print LOG "\n\nLote de comandos: $CMDFILE\nHost: $HOSTNAME > ($IP)\nData: $mday/$mon/$year - $hour:$min\n\n"; close (LOG); > } > > # Primeiro testa se a porta 23 esta aberta no dispositivo, enviando um > pacote de 32 Bytes com 2 segundos# de timeout. > $p = Net::Ping->new("tcp",10,32); > $p->{port_num} = getservbyname("telnet", "tcp"); > if ( $p->ping($IP, 2) ) { > print "Executando os comandos em $HOSTNAME ($IP)\n";; > &TELNET; > } > else { > print "O host $IP nao esta respondendo.\n"; > $TOTALTIMEOUTS++; > $HOSTSTIMEOUT=$HOSTSTIMEOUT."- $HOSTNAME ($IP) : > $mday/$mon/$year - $hour:$min\n";# Gera o log da operacao, se > especificado. if ($LOG) { > open (LOG,">>$DIR"); > print LOG "O Host nao responde.\n"; > close (LOG); > } > } > $p->close(); > } > > > # Sub-rotina para execucao do TELNET a um host, utilizando EXPECT. > sub TELNET { > open (F,">/tmp/telnet-router"); > print F "#!/usr/bin/expect -f\n" > ."spawn telnet $IP\n" > ."expect \"Username: \"\n" > ."send \"$username\\r\"\n" > ."expect \"Password: \"\n" > ."send \"$password\\r\"\n" > ."expect \"*>\"\n" > ."send \"enable\\r\"\n" > ."expect \"Password: \"\n" > ."send \"$enable\\r\"\n" > ."expect \"*#\"\n" > ."send \"term len 0\\r\"\n" > ."expect \"*#\"\n"; > foreach (@COMANDOS) { > if ( $_ eq "" ) { > print F "send \"\\r\\r\"\n" > ."expect \"$HOSTNAME#\"\n"; > } > else { > print F "send \"$_\\r\"\n" > ."expect \"$HOSTNAME#\"\n"; > } > } > print F "send \"exit\\r\"\n"; > close (F); > system("chmod 777 /tmp/telnet-router"); > $cum=`/tmp/telnet-router > /tmp/lastlog`; > > # Alimentando o log unico. > # > if ($LOG) { > system ("cat /tmp/lastlog >> $DIR"); > } > > # Analisando os logs dos comandos executados no host em execucao. > open (LOGTEMP,"/tmp/lastlog"); > $o=0; > while () { > $DADOS[$o] = $_; > if ( ($_ =~ "% Invalid input detected at") ) { > $LOGERROS{$HOSTNAME} = > $LOGERROS{$HOSTNAME}.$DADOS[$o-2];$QTDERROS{$HOSTNAME > }++;$TOTALERROS++; > } > $TOTALLINHAS++; > $o++; > } > close (F); > > # Gerando o LOG individual de cada roteador. > # > if ($LOGROUTER) { > $FILE=""; > $FILE=$LOGDIR."/" if !($LOGDIR eq ""); > $FILE=$FILE.$PLATAFORM."_".$HOSTNAME.".log"; > system("cp /tmp/lastlog $FILE"); > } > > unlink ("/tmp/telnet-router"); > unlink ("/tmp/lastlog"); > } From lechamps em terra.com.br Thu May 13 07:37:20 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] Re: Sao-Paulo.pm.org Group ownership and responsability claiming In-Reply-To: References: Message-ID: <40A36C00.4030701@terra.com.br> Sergio Salvi wrote: > Hi Dave and Luis, Hi mr Salvi, mr Cross > On Thu, 8 Apr 2004, Luis Campos de Carvalho wrote: >> Hi Dave, Hi mr Sergio Salvi. >> >> Dave, I'm claiming the Sao-Paulo.pm.org Perl M[ou]ngers >>responsability for the folloing reasons: >> >> 1. There is no active responsible for the Sao-Paulo.pm.org facilities >>now. > Right. > > >>It seems that mr Salvi is not reacheable on this mailbox anymore. >>My last contact try go back to august, and not even a return receipt >>gets back. I'm CC'ing mr. Salvi as a faith gesture, only. No message >>ever returned. (: > > Wrong. I received an email from Luis on Aug 26 and replied it. On last > December 15, I received another one and also replied. So please don't make > things up. > So there are two missing messages. I tryied to contact mr Salvi at February 24, with no response (and no SMTP error message?!?) and tryied to invite mr Salvi for the first Sao Paulo Perl M[ou]ngers at March 15, (again with no response or SMTP error message). I apologise both mr Salvi and mr Cross for the mess. This is my fault. >> 2. There is no activity at all at the Sao-Paulo.pm.org website since >>last year, and no member from Sao-Paulo.pm.org at the First PM'ers >>meeting organized at São Paulo, on March 20. > > > Right. > > >> Sergio Salvi, this is your last chance. If you receive this, please >>answer me or Dave, and let us know about your interest on the ownership >>of the Sao-Paulo.pm.org Perl M[ou]ngers Group. > > > I definitely can't spend more time and effort in this group and totally > agree to transfer it to Luis or anyone else interested on it. I'd be happy > to see this group developed and with a huge community created. > > >> Dave, I hope this will sufice for "officially" claim the >>Sao-Paulo.pm.org responsability. Please let me know if I'm missing >>something. >> > > > I've copied Dave just to make sure he will see this message. > > []s, > Sergio Salvi. > I'm feeling an agresive accent on your words, mr Salvi. More important than reactivate the Sao Paulo PM Group is to keep a good relationship with the members of the PM Community. As far as I know, this includes you too. Maybe my attitudes are the cause of your anger. I would like to apologise if this is true. Maybe my anxiety and hurry on doing something for the group offended you personally. Maybe mr. Cross don't like something on my attitudes until now. Please forgive me too, mr Cross. My only intention is to get out of the innertia and start a great community at Sao Paulo, as I see at the London PM Group. Please don't take this personal. I will apologise for my faults in public if this helps to make peace. Thank you both, and best regards. -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From lechamps em terra.com.br Thu May 13 08:07:20 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] =?ISO-8859-1?Q?=22Seguran=E7a=22?= In-Reply-To: <40A2A292.5EB5@pucrs.br> References: <40A2A292.5EB5@pucrs.br> Message-ID: <40A37308.2020407@terra.com.br> Flavio S. Glock wrote: > Qual o procedimento para garantir que um programa > em Perl é "seguro"? Você pode tentar seguir todas as recomendações da manpage perlsec. > Eu tenho um programa que já está em uso, e preciso > que alguém faça uma certificação/auditoria. Hummm... não sei se isso pode ser feito assim. Podemos tentar descobrir pontos fracos e melhorar... mas acho muito difícil auditar um programa desta forma. > Eu precisaria que isso fosse feito de forma oficial > (provavelmente por alguma empresa da área de segurança). Nunca ouvi falar. Você já tentou o Google? []'z! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From alexjfalcao em hotmail.com Wed May 12 13:58:34 2004 From: alexjfalcao em hotmail.com (=?iso-8859-1?Q?Alex_E._J._Falc=E3o?=) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] Roteador Message-ID: Vivan, tenho um script que uso bastante para telnet em roteadores cisco. Acho que pode te ajudar. Não sou um expert em Perl, e sou novo na lista... Gostaria de receber comentários sobre as funções. Utilizei o expect para verificar as respostas, mas estou implementando coisa melhor. #!/usr/bin/perl # # Versao : 1.0 # Arquivo: telnet.pl # # O formato para uso deste script e: # telnet.pl [Arquivo_Log] # <> - Obrigatorio # [] - Opcional # # o arquivo de host deve ser no seguinte formato: # IP | HOSTNAME | plataforma(7500, 2500 etc) # # os comandos devem estar um em cada linha, incluindo config terminal, end e tudo mais # # if ( $ARGV[0] eq "" ) { print < [opcoes] <> - Obrigatorio [] - Opcional As opcoes disponiveis sao: -log: -> gera um unico arquivo de log, conforme especificado no nome do arquivo. -logrouter: -> gera um arquivo de log para cada roteador, no formato _hostname.log no diretorio especificado. Se nao for especificado nenhum, sera gerado no diretorio corrente. o arquivo de host deve ser no seguinte formato: IP | HOSTNAME | plataforma(7500, 2500 etc) os comandos devem estar um em cada linha, incluindo config terminal, end e tudo mais ECHO exit(0); } use Net::Ping; use Term::ReadKey; # Lendo e processando os argumentos de execucao. # $HOSTS=$ARGV[0]; $CMDFILE=$ARGV[1]; for ($m=2;$m<10;$m++) { $n=$m-1; last if ($ARGV[$m] eq ""); $OPCAO=$OPCAO.$ARGV[$m]; } $n--; # Somente duas opcoes podem ser executadas simultaneamente. # if ($n > 2) { print <) { s/\s+$//g; #remove "branco" no final da linha por nada s/\s/ /g; #substitui "branco" por espaco s/\n//; #substitui por nada s/\s//g; #remove espacos entre os caracteres next if /^\s*\!/; #ignora linhas de comentarios next if /^\s*$/; #ignora linhas vazias $TARGET[$m] = $_; $m++; } close (F); print "O arquivo de alvos \"$HOSTS\" contem $m host(s).\n"; # Lendo o arquivo de comandos especificado pela variavel $CMDFILE. $n=0; open (F,"$CMDFILE") || die "Cade o arquivo $CMDFILE ?"; while () { s/\s+$//g; #remove "branco" no final da linha por nada s/\s/ /g; #substitui "branco" por espaco s/\n//; #substitui por nada next if /^\s*\!/; #ignora linhas de comentarios next if /^\s*$/; #ignora linhas vazias $COMANDOS[$n] = $_; $n++; } close (F); print "O arquivo de comandos \"$CMDFILE\" contem $n linhas de instrucoes(s).\n\n"; # Inicializando variaveis que necessitam de um valor inicial $TOTALCOMMMANDS=$m*$n; $TOTALERROS=0; $TOTALTIMEOUTS=0; # Gerando o cabecalho do log, se especificado. if ($LOG) { open (LOG,">>$DIR"); # Obtem data e hora do inicio da execucao. ($mon,$mday,$year,$hour,$min) = (localtime())[4,3,5,2,1]; $year=$year+1900; $mon++; print LOG "\n\n################################################################################\n\n" ."O arquivo de alvos \"$HOSTS\" contem $m host(s).\n" ."O arquivo de comandos \"$CMDFILE\" contem $n linhas de instrucoes(s).\n" ."Iniciando execucao em $mday/$mon/$year - $hour:$min\n\n"; close (LOG); } # Executando o TELNET aos hosts especificados no arquivo de alvos e executando os comandos # contidos no arquivo de comandos. foreach (@TARGET) { &EXECUTA($_); } # Gerando o rodape do log, se especificado. if ($LOG) { open (LOG,">>$DIR"); print LOG "\n\n################################################################################\n\n" ." SUMARIO DA EXECUCAO\n\n" ."Numero total de hosts: $m\n" ."Nomero de hosts que nao responderam: $TOTALTIMEOUTS\n\n" ."Numero de comandos executados: $TOTALCOMMMANDS\n" ."Numero de erros durante execucao: $TOTALERROS\n\n" ."Listagem de hosts que nao responderam:\n" ."$HOSTSTIMEOUT\n\n" ."Listagem de erros ocorridos em cada host\n"; for $HOST (sort keys (%LOGERROS)) { print LOG "- Ocorreram $QTDERROS{$HOST} em $HOST:\n\n" ."$LOGERROS{$HOST}\n\n"; } print LOG "\n\n################################################################################\n\n"; close (LOG); } # Sub-rotina de execucao condicional do TELNET a um host. Checa se o host esta respondendo a # ICMP ECHO (ping). sub EXECUTA { ($IP,$HOSTNAME,$PLATAFORM) = split (/\|/,$_[0],3); # Obtem data e hora da execucao para cada host. ($mon,$mday,$year,$hour,$min) = (localtime())[4,3,5,2,1]; $year=$year+1900; $mon++; # Gera o log da operacao, se especificado. if ($LOG) { open (LOG,">>$DIR"); print LOG "\n\nLote de comandos: $CMDFILE\nHost: $HOSTNAME ($IP)\nData: $mday/$mon/$year - $hour:$min\n\n"; close (LOG); } # Primeiro testa se a porta 23 esta aberta no dispositivo, enviando um pacote de 32 Bytes com 2 segundos # de timeout. $p = Net::Ping->new("tcp",10,32); $p->{port_num} = getservbyname("telnet", "tcp"); if ( $p->ping($IP, 2) ) { print "Executando os comandos em $HOSTNAME ($IP)\n";; &TELNET; } else { print "O host $IP nao esta respondendo.\n"; $TOTALTIMEOUTS++; $HOSTSTIMEOUT=$HOSTSTIMEOUT."- $HOSTNAME ($IP) : $mday/$mon/$year - $hour:$min\n"; # Gera o log da operacao, se especificado. if ($LOG) { open (LOG,">>$DIR"); print LOG "O Host nao responde.\n"; close (LOG); } } $p->close(); } # Sub-rotina para execucao do TELNET a um host, utilizando EXPECT. sub TELNET { open (F,">/tmp/telnet-router"); print F "#!/usr/bin/expect -f\n" ."spawn telnet $IP\n" ."expect \"Username: \"\n" ."send \"$username\\r\"\n" ."expect \"Password: \"\n" ."send \"$password\\r\"\n" ."expect \"*>\"\n" ."send \"enable\\r\"\n" ."expect \"Password: \"\n" ."send \"$enable\\r\"\n" ."expect \"*#\"\n" ."send \"term len 0\\r\"\n" ."expect \"*#\"\n"; foreach (@COMANDOS) { if ( $_ eq "" ) { print F "send \"\\r\\r\"\n" ."expect \"$HOSTNAME#\"\n"; } else { print F "send \"$_\\r\"\n" ."expect \"$HOSTNAME#\"\n"; } } print F "send \"exit\\r\"\n"; close (F); system("chmod 777 /tmp/telnet-router"); $cum=`/tmp/telnet-router > /tmp/lastlog`; # Alimentando o log unico. # if ($LOG) { system ("cat /tmp/lastlog >> $DIR"); } # Analisando os logs dos comandos executados no host em execucao. open (LOGTEMP,"/tmp/lastlog"); $o=0; while () { $DADOS[$o] = $_; if ( ($_ =~ "% Invalid input detected at") ) { $LOGERROS{$HOSTNAME} = $LOGERROS{$HOSTNAME}.$DADOS[$o-2]; $QTDERROS{$HOSTNAME}++; $TOTALERROS++; } $TOTALLINHAS++; $o++; } close (F); # Gerando o LOG individual de cada roteador. # if ($LOGROUTER) { $FILE=""; $FILE=$LOGDIR."/" if !($LOGDIR eq ""); $FILE=$FILE.$PLATAFORM."_".$HOSTNAME.".log"; system("cp /tmp/lastlog $FILE"); } unlink ("/tmp/telnet-router"); unlink ("/tmp/lastlog"); } -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040512/1a79fa19/attachment.htm From lgonzaga em lncc.br Thu May 13 12:32:32 2004 From: lgonzaga em lncc.br (Luiz Gonzaga) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] Script CGI executando script em background Message-ID: <20040513143232.3ce7faf9.lgonzaga@lncc.br> Pessoal, Tenho que construir um script CGI, que de acordo com as opcoes do usuario, executara em background um outro script e avisara ao usuario que um outro script esta sendo executado. Devo usar o fork para isto, correto ? Alguem jah fez algo semelhante ? Abracos, Luiz. From mda em embratel.net.br Thu May 13 13:41:45 2004 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] Script CGI executando script em background In-Reply-To: <20040513143232.3ce7faf9.lgonzaga@lncc.br> References: <20040513143232.3ce7faf9.lgonzaga@lncc.br> Message-ID: <40A3C169.2070004@embratel.net.br> Luiz, Nunca cheguei a implementar algo neste sentido, mas recordo vagamente que em uma necessidade similar, o apache encerrava o processo iniciado em background. Possivelmente vc deverá desvincular tal processo forkeado de seu parent ( setsid ), os passos para isto estão descritos no módulo POSIX, em transformando em daemon. Para fazer o controle de processo ativo/inativo eu recomendo vc usar um pidfile e lock. Sds, Marco Antonio Luiz Gonzaga wrote: >Pessoal, > >Tenho que construir um script CGI, que de acordo com as opcoes do usuario, executara em background um outro script e avisara ao usuario que um outro script esta sendo executado. > >Devo usar o fork para isto, correto ? > >Alguem jah fez algo semelhante ? > >Abracos, Luiz. > > >------------------------------------------------------------------------ > >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm@mail.pm.org >http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > From saopaulo em mail.pm.org Fri May 14 00:41:06 2004 From: saopaulo em mail.pm.org (saopaulo@mail.pm.org) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] Re: Sao-Paulo.pm.org Group ownership and responsability claiming In-Reply-To: <40A36C00.4030701@terra.com.br> Message-ID: I meant what I meant. When I said that I would be happy to see this group growing, it's because I really do. That was something that I couldn't do and I hope others will. And I believe I'll not even be able to participate in this group because I'm living in Canada since Dec/2003, starting a new life here with my family. So, my best whishes for you all! []s, Sergio Salvi. On Thu, 13 May 2004, Luis Campos de Carvalho wrote: > Sergio Salvi wrote: > > Hi Dave and Luis, > > Hi mr Salvi, mr Cross > > > On Thu, 8 Apr 2004, Luis Campos de Carvalho wrote: > >> Hi Dave, Hi mr Sergio Salvi. > >> > >> Dave, I'm claiming the Sao-Paulo.pm.org Perl M[ou]ngers > >>responsability for the folloing reasons: > >> > >> 1. There is no active responsible for the Sao-Paulo.pm.org facilities > >>now. > > Right. > > > > > >>It seems that mr Salvi is not reacheable on this mailbox anymore. > >>My last contact try go back to august, and not even a return receipt > >>gets back. I'm CC'ing mr. Salvi as a faith gesture, only. No message > >>ever returned. (: > > > > Wrong. I received an email from Luis on Aug 26 and replied it. On last > > December 15, I received another one and also replied. So please don't make > > things up. > > > > So there are two missing messages. I tryied to contact mr Salvi at > February 24, with no response (and no SMTP error message?!?) and tryied > to invite mr Salvi for the first Sao Paulo Perl M[ou]ngers at March 15, > (again with no response or SMTP error message). > > I apologise both mr Salvi and mr Cross for the mess. This is my fault. > > >> 2. There is no activity at all at the Sao-Paulo.pm.org website since > >>last year, and no member from Sao-Paulo.pm.org at the First PM'ers > >>meeting organized at São Paulo, on March 20. > > > > > > Right. > > > > > >> Sergio Salvi, this is your last chance. If you receive this, please > >>answer me or Dave, and let us know about your interest on the ownership > >>of the Sao-Paulo.pm.org Perl M[ou]ngers Group. > > > > > > I definitely can't spend more time and effort in this group and totally > > agree to transfer it to Luis or anyone else interested on it. I'd be happy > > to see this group developed and with a huge community created. > > > > > >> Dave, I hope this will sufice for "officially" claim the > >>Sao-Paulo.pm.org responsability. Please let me know if I'm missing > >>something. > >> > > > > > > I've copied Dave just to make sure he will see this message. > > > > []s, > > Sergio Salvi. > > > > I'm feeling an agresive accent on your words, mr Salvi. > > More important than reactivate the Sao Paulo PM Group is to keep a > good relationship with the members of the PM Community. As far as I > know, this includes you too. > > Maybe my attitudes are the cause of your anger. I would like to > apologise if this is true. Maybe my anxiety and hurry on doing something > for the group offended you personally. > > Maybe mr. Cross don't like something on my attitudes until now. > Please forgive me too, mr Cross. My only intention is to get out of the > innertia and start a great community at Sao Paulo, as I see at the > London PM Group. > > Please don't take this personal. I will apologise for my faults in > public if this helps to make peace. > > Thank you both, and best regards. > From alfspsp em hotmail.com Fri May 14 08:43:54 2004 From: alfspsp em hotmail.com (=?iso-8859-1?Q?Alex_E._J._Falc=E3o?=) Date: Mon Aug 2 21:27:02 2004 Subject: [Cascavel-pm] Empresas que utilizam PERL Message-ID: Pessoal, a Telefonica utiliza perl para scripts de monitorção e gerencia de roteadores e servidores. Muitas páginas da intranet são escritas em perl. Alex Falcão Telefonica Empresas -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040514/14af2a00/attachment.htm From alexjfalcao em yahoo.com.br Fri May 14 08:42:50 2004 From: alexjfalcao em yahoo.com.br (=?iso-8859-1?Q?Alex_E._J._Falc=E3o?=) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Empresas que utilizam PERL Message-ID: <002501c439b9$68e3a960$ed111d0a@telesp.com.br> Pessoal, a Telefonica utiliza perl para scripts de monitorção e gerencia de roteadores e servidores. Muitas páginas da intranet são escritas em perl. Alex Falcão Telefonica Empresas -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040514/3dbfcd22/attachment.htm From lechamps em terra.com.br Fri May 14 12:01:55 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Empresas que utilizam PERL In-Reply-To: References: Message-ID: <40A4FB83.907@terra.com.br> Alex E. J. Falcão wrote: > Pessoal, > a Telefonica utiliza perl para scripts de monitorção > e gerencia de roteadores e servidores. Muitas páginas > da intranet são escritas em perl. > E seus usuários não reclamam por serem obrigados a ler páginas em Perl? Os meus reclamam... Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From sikora em inova.com.br Fri May 14 15:01:56 2004 From: sikora em inova.com.br (Rodolfo Sikora) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Empresas que utilizam PERL References: Message-ID: <20040514200002.28224.qmail@qmail-local.inova.com.br> Caros, A empresa em que trabalho, que fornece, inclusive, o serviço de emails para clientes grandes como o click21, utiliza em 80% de seus sistemas Perl. Em faculdades americas existem disciplinas onde perl é ensinado. Eu peguei muito trabalhinho de faculdade noo rentacoder a para fazer para o povo preguiçoso la. ================= >De:"Alex E. J. Falcão" >Para: >Assunto:[Cascavel-pm] Empresas que utilizam PERL > > > > > > > > > >Pessoal, > > a Telefonica utiliza perl para >scripts de monitorção e gerencia de roteadores e >servidores. Muitas páginas da >intranet são escritas em perl. > >Alex Falcão >Telefonica >Empresas________________________________________ >_______ >Cascavel-pm mailing list >Cascavel-pm@mail.pm.org >http://cascavel.pm.org/mailman/listinfo/cascavel >-pm Rodolfo Sikora - Desenvolvimento e Operação Departamento de Operações e Tecnologia Inova Tecnologias - http://www.inova.com.br **************************************************** *Velop* - administração, controle e monitoramento da sua comunicação na Internet. http://www.inova.com.br From vivan em dim.fm.usp.br Fri May 14 15:26:23 2004 From: vivan em dim.fm.usp.br (vivan@dim.fm.usp.br) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Duvida com grep In-Reply-To: References: Message-ID: <15370.200.179.66.230.1084566383.webmail-dim@dim.fm.usp.br> Gente, Eu tenho um arquivo que tem, entre outras informacoes, varios numeros de telefone, e quero encontrar um determinado. O problema eh q nesse arquivo, o numero do telefone pode estar "quebrado" ao final da linha. Ex: fljlfl lfjkç oeuooi nv,zvn. lllçafs (11)3333-3333 safadf vbvb lflf dfljaasfi hasdhf w (15)2222-2200 djasdfkçldf dfsajlkç ll laflçafdslç ldflçafsdçl (47)1234-5678 dsfafsdaasdf dff (97)25 87-0000 asdfpadf dsaf~çjasfdjl dsffçdçl dsf (33)3333-3333 ssf dfasffdasfdflasfldçlçadfjlçljkdfsljkçajlçkjklçafdsljkçasfdljk lkafsjjasdflkçfjjklfdsajlkçkjlfdsjklfasdjklfjklfsdaljksfljkas Como devo proceder, utilizando grep (em shell script e/ou em perl)? Tks, Adriano. -------------------------- Esta mensagem foi verificada pelo sistema de antivírus DIM e acredita-se estar livre de Virus. Virus data file v4360 created May 12 2004 From lechamps em terra.com.br Fri May 14 16:24:50 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Duvida com grep In-Reply-To: <15370.200.179.66.230.1084566383.webmail-dim@dim.fm.usp.br> References: <15370.200.179.66.230.1084566383.webmail-dim@dim.fm.usp.br> Message-ID: <40A53922.1040104@terra.com.br> vivan@dim.fm.usp.br wrote: > Gente, > > Eu tenho um arquivo que tem, entre outras informacoes, varios numeros de > telefone, e quero encontrar um determinado. O problema eh q nesse arquivo, > o numero do telefone pode estar "quebrado" ao final da linha. Ex: > > fljlfl lfjkç oeuooi nv,zvn. lllçafs (11)3333-3333 safadf vbvb > lflf dfljaasfi hasdhf w (15)2222-2200 djasdfkçldf dfsajlkç ll > laflçafdslç ldflçafsdçl (47)1234-5678 dsfafsdaasdf dff (97)25 > 87-0000 asdfpadf dsaf~çjasfdjl dsffçdçl dsf (33)3333-3333 ssf > dfasffdasfdflasfldçlçadfjlçljkdfsljkçajlçkjklçafdsljkçasfdljk > lkafsjjasdflkçfjjklfdsajlkçkjlfdsjklfasdjklfjklfsdaljksfljkas > > Como devo proceder, utilizando grep (em shell script e/ou em perl)? > grep para coisas multilinhas é meu Calcanhar-de-Aquiles... Acho que em perl fica mais simples... segue o programinha, não testei, claro. #!/usr/bin/perl -w local $/ = undef; open IN, shift or die "$!\n"; $data = ; close IN or die "$!\n"; $sep = qr/[\s\.\(\)\-]*/; # procuro por '55452600' $phone = qr/5 $sep 5 $sep 4 $sep 5 $sep 2 $sep 6 $sep 0 $sep 0/xm; my @phone = $data =~ m/($phone)/xmg; local $,=$\; print "@phone$\"; __END__ -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From joaogabrielcas em ig.com.br Sat May 15 08:01:59 2004 From: joaogabrielcas em ig.com.br (=?iso-8859-1?Q?Jo=E3o_Gabriel?=) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Duvida com grep Message-ID: <000301c43a7c$d247e7e0$0a0aa8c0@joaogabr> Ai, o que faz essa linha: local $/ = undef; ? []'s João Gabriel From nferraz em phperl.com Sat May 15 10:03:00 2004 From: nferraz em phperl.com (Nelson Ferraz) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Duvida com grep In-Reply-To: <000301c43a7c$d247e7e0$0a0aa8c0@joaogabr> References: <000301c43a7c$d247e7e0$0a0aa8c0@joaogabr> Message-ID: <40A63124.3070809@phperl.com> João Gabriel wrote: > Ai, o que faz essa linha: > > local $/ = undef; $/ contém o caractere que será usado como delimitador de quebra de linha quando você lê um arquivo. Seu valor é normalmente "\n", mas pode ser modificado: You may set it to a multi-character string to match a multi-character delimiter, or to undef to read to end of file. undef $/; $_ = ; # whole file now here s/\n[ \t]+/ /g; http://www.perl.com/doc/manual/html/pod/perlvar.html []s Nelson From joaogabrielcas em ig.com.br Sun May 16 06:37:03 2004 From: joaogabrielcas em ig.com.br (=?iso-8859-1?Q?Jo=E3o_Gabriel?=) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] =?iso-8859-1?q?Trocar_c=F3digo_por_conteudo_que_es?= =?iso-8859-1?q?t=E1_dentro_de_uma_=22sub=22=2E?= Message-ID: <000501c43b3a$1ea09980$0a0aa8c0@joaogabr> Olá pessoal. Estou fazendo um script e esse abre um arquivo que tem o seguinte conteudo: [title]Teste[/title] Teste teste teste teste teste Dai eu tentei usar isto para trocar o código [title] por uma palavra ou conteudo: #!/usr/bin/perl open (ARQ, "teste.txt"); @arq = ; close (ARQ); foreach $linha (@arq) { $linha =~ s/[title]/&codtitle/ig; } print "@arq"; sub codtitle { return qq~ Titulo ~; } Porem o script da erro... diz que tem erro na linha que faz a troca, e se eu tirar o [ e ] do "title" ele não troca por titulo e sim por "&codtitle". O que eu faço? []'s João Gabriel From nferraz em phperl.com Sun May 16 17:38:38 2004 From: nferraz em phperl.com (Nelson Ferraz) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Trocar =?ISO-8859-1?Q?c=F3digo_por_conteud?= =?ISO-8859-1?Q?o_que_est=E1_dentro_de_uma_=22sub=22=2E?= In-Reply-To: <000501c43b3a$1ea09980$0a0aa8c0@joaogabr> References: <000501c43b3a$1ea09980$0a0aa8c0@joaogabr> Message-ID: <40A7ED6E.7010603@phperl.com> João Gabriel wrote: > foreach $linha (@arq) { > $linha =~ s/[title]/&codtitle/ig; > } Em primeiro lugar, acho que você precisa escapar os colchetes, para que eles não sejam interpretados como caracteres especiais: $linha =~ s/\[title\]/&codtitle/ig; Quanto à segunda parte da substituição... você tem certeza de que precisa chamar uma sub de dentro da expressão regular? Se você não tiver outra opção, existe uma maneira de se fazer isso: você precisa indicar claramente o que código a ser executado, assim: (?{ ... }) Mas eu recomendo buscar alternativas. []s Nelson From lechamps em terra.com.br Sun May 16 20:15:36 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:03 2004 Subject: =?iso-8859-1?Q?Re:_=5BCascavel-pm=5D_Trocar_c=F3digo_por_conteudo_que_e?= =?iso-8859-1?Q?st=E1_dentro_de_uma_=22sub=22.?= References: <000501c43b3a$1ea09980$0a0aa8c0@joaogabr> <40A7ED6E.7010603@phperl.com> Message-ID: <009101c43bac$772d7ce0$8800a8c0@lafitt> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 > ----- Original Message ----- > From: "Nelson Ferraz" > Sent: Sunday, May 16, 2004 7:38 PM > > João Gabriel wrote: > > > > > foreach $linha (@arq) { > > > $linha =~ s/[title]/&codtitle/ig; > > > } > > > > Em primeiro lugar, acho que você precisa escapar os colchetes, para que > > eles não sejam interpretados como caracteres especiais: > > > > $linha =~ s/\[title\]/&codtitle/ig; > > > > Quanto à segunda parte da substituição... você tem certeza de que > > precisa chamar uma sub de dentro da expressão regular? > > > > Se você não tiver outra opção, existe uma maneira de se fazer isso: você > > precisa indicar claramente o que código a ser executado, assim: > > > > (?{ ... }) > > > > Mas eu recomendo buscar alternativas. > > Mandou bem, Nélson. Lembrando que, a pesar de os delimitadores serem diferentes, este tipo de problema NÃO DEVE ser resolvido com expressões regulares. Você está tentando executar parsing de uma estrutura de dados semelhante a XML usando expressões regulares. Use as bibliotecas XML::* para isso, você vai se dar melhor e vai fazer muito menos força. Putamplexos! - -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho Computer Scientist Unix Sys Adm & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.1 (MingW32) - WinPT 0.7.96rc1 iD8DBQFAqBItz+iwwpKRaDIRAtYpAKCpAN8gzlKWUoHvIqbH/22whPWlugCg4LLI PwfkwrLP60byd4VDWAFLu0E= =lqH3 -----END PGP SIGNATURE----- From nferraz em gnubis.com.br Sun May 16 12:20:20 2004 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] III Encontro dos Perl Mongers de =?iso-8859-1?q?S=E3o_Paulo?= Message-ID: <40A7A2D4.2020407@gnubis.com.br> Pessoal, Quando vai ser o III Encontro dos Perl Mongers de São Paulo? Sugestão de local: Finnegan's Pub (http://www.finnegans.com.br/) []s Nelson From lechamps em terra.com.br Mon May 17 08:36:26 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:03 2004 Subject: =?ISO-8859-1?Q?Re=3A_=5BCascavel-pm=5D_III_Encontro_dos_?= =?ISO-8859-1?Q?Perl_Mongers_de_S=E3o_Paulo?= In-Reply-To: <40A7A2D4.2020407@gnubis.com.br> References: <40A7A2D4.2020407@gnubis.com.br> Message-ID: <40A8BFDA.5020908@terra.com.br> Nelson Ferraz wrote: > Pessoal, > Quando vai ser o III Encontro dos Perl Mongers de São Paulo? > Sugestão de local: Finnegan's Pub (http://www.finnegans.com.br/) Caros, devido à exigências de forças superiores, eu não tenho o próximo final de semana disponível. Quinta, dia 20, é meu aniversário e a minha namorada exigiu que eu largasse tudo e fosse viajar com ela. Isso quer dizer que vocês não podem contar com minha presença. Por conta disso, eu sugiro que o III Social Meeting dos Sao Paulo Perl M[ou]ngers realize-se (como já aconteceu em 50% dos encontros) no quarto (ou último?) sábado do mês. Sobre o Finnegan's Pub: Eu acho o lugar interessante. O website precisa de uma reformulação *urgentemente*. :-) O cardápio inclui Guinness, uma das cervejas tipo dark ale mais saborosas do mundo. Eu não consegui determinar como é o acesso ao Pub. Algém conhece a região e sabe dar as coordenadas? Nélson, se o acesso não for muito complicado, quais as nossas possibilidades de conseguir algum patrocínio para estabelecer uma "sede social" para nossos encontros? Alguém pode dizer quanto é a média de gastos por cabeça neste local? Acho esta informação interessante para todos os monges. Acredito que poderemos anunciar oficialmente a reativação do Sao-Paulo.pm.org neste encontro. Precisamos de voluntários para construir o website. (Eu particularmente, tenho algumas idéias que gostaria que vocês considerassem). No aguardo dos votos e informações dos monges, Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From alfspsp em hotmail.com Mon May 17 08:39:48 2004 From: alfspsp em hotmail.com (=?iso-8859-1?Q?Alex_E._J._Falc=E3o?=) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Duvida com grep References: <15370.200.179.66.230.1084566383.webmail-dim@dim.fm.usp.br> Message-ID: Se os dados não forem muito grandes, voce poderia tantar isto aqui: #!/usr/bin/perl use strict; # Une os dados de entrada em uma so linha $_ = join ("", <>); s/\n//g; # dados para localizar my $ddd = "47"; my $fone = "1234-5678"; #localiza os dados s/(.+\s)(\($ddd\)$fone)(\s.+)/$2/g; print "\n\nTelefone $_ encontrado\n\n" if ("($ddd)$fone" eq $_); __END__ Abraço Alex Falcão ----- Original Message ----- From: To: "Cascavel Perl Mongers" Sent: Friday, May 14, 2004 5:26 PM Subject: [Cascavel-pm] Duvida com grep > Gente, > > Eu tenho um arquivo que tem, entre outras informacoes, varios numeros de > telefone, e quero encontrar um determinado. O problema eh q nesse arquivo, > o numero do telefone pode estar "quebrado" ao final da linha. Ex: > > fljlfl lfjkç oeuooi nv,zvn. lllçafs (11)3333-3333 safadf vbvb > lflf dfljaasfi hasdhf w (15)2222-2200 djasdfkçldf dfsajlkç ll > laflçafdslç ldflçafsdçl (47)1234-5678 dsfafsdaasdf dff (97)25 > 87-0000 asdfpadf dsaf~çjasfdjl dsffçdçl dsf (33)3333-3333 ssf > dfasffdasfdflasfldçlçadfjlçljkdfsljkçajlçkjklçafdsljkçasfdljk > lkafsjjasdflkçfjjklfdsajlkçkjlfdsjklfasdjklfjklfsdaljksfljkas > > Como devo proceder, utilizando grep (em shell script e/ou em perl)? > > Tks, > Adriano. > > -------------------------- > Esta mensagem foi verificada > pelo sistema de antivírus DIM e > acredita-se estar livre de Virus. > Virus data file v4360 created May 12 2004 > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > From lechamps em terra.com.br Mon May 17 08:44:35 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:03 2004 Subject: =?ISO-8859-1?Q?Re=3A_=5BCascavel-pm=5D_III_Encontro_dos_?= =?ISO-8859-1?Q?Perl_Mongers_de_S=E3o_Paulo?= In-Reply-To: <40A8BFDA.5020908@terra.com.br> References: <40A7A2D4.2020407@gnubis.com.br> <40A8BFDA.5020908@terra.com.br> Message-ID: <40A8C1C3.8070809@terra.com.br> Luis Campos de Carvalho wrote: > Nelson Ferraz wrote: > >> Pessoal, >> Quando vai ser o III Encontro dos Perl Mongers de São Paulo? >> Sugestão de local: Finnegan's Pub (http://www.finnegans.com.br/) > > > Caros, devido à exigências de forças superiores, eu não tenho o > próximo final de semana disponível. Quinta, dia 20, é meu aniversário e > a minha namorada exigiu que eu largasse tudo e fosse viajar com ela. > Isso quer dizer que vocês não podem contar com minha presença. > > Por conta disso, eu sugiro que o III Social Meeting dos Sao Paulo Perl > M[ou]ngers realize-se (como já aconteceu em 50% dos encontros) no quarto > (ou último?) sábado do mês. > > Sobre o Finnegan's Pub: Eu acho o lugar interessante. O website > precisa de uma reformulação *urgentemente*. :-) O cardápio inclui > Guinness, uma das cervejas tipo dark ale mais saborosas do mundo. > > Eu não consegui determinar como é o acesso ao Pub. Algém conhece a > região e sabe dar as coordenadas? > > Nélson, se o acesso não for muito complicado, quais as nossas > possibilidades de conseguir algum patrocínio para estabelecer uma "sede > social" para nossos encontros? > > Alguém pode dizer quanto é a média de gastos por cabeça neste local? > Acho esta informação interessante para todos os monges. > > Acredito que poderemos anunciar oficialmente a reativação do > Sao-Paulo.pm.org neste encontro. Precisamos de voluntários para > construir o website. (Eu particularmente, tenho algumas idéias que > gostaria que vocês considerassem). > > No aguardo dos votos e informações dos monges, Putamplexos! Claro, o babaca que escreveu esta mensagem esqueceu de mencionar que também se espera a presença e participação de todos os Perl M[ou]ngers e simpatizantes. Isso inclui mas não obriga o pessoal da empresa do centro de São Paulo que possivelmente cederá espaço para os nossos encontros técnicos, que podem ter início a partir do mês que vem... E também poderia ter sido mais gentil e educado, pedindo a todos os que se interessam pela comunidade Perl em São Paulo a comparecerem, prometendo e se comprometendo a escrever e enviar formalmente um convite para as reuniões em breve, solicitando também que todos enviem sugestões para a "pauta" (vale de tudo, desde que se possa estabelecer uma relação com os assutos tratados na lista, mesmo que vaga e apenas conceitual). Por favor perdôem o autor original. Quem mais seria estúpido o suficiente para responder à própria mensagem na lista? Putamplexos a todos. -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From nferraz em phperl.com Mon May 17 10:52:21 2004 From: nferraz em phperl.com (Nelson Ferraz) Date: Mon Aug 2 21:27:03 2004 Subject: =?ISO-8859-1?Q?Re=3A_=5BCascavel-pm=5D_III_Encontro_dos_?= =?ISO-8859-1?Q?Perl_Mongers_de_S=E3o_Paulo?= In-Reply-To: <40A8BFDA.5020908@terra.com.br> References: <40A7A2D4.2020407@gnubis.com.br> <40A8BFDA.5020908@terra.com.br> Message-ID: <40A8DFB5.9010507@phperl.com> Luis Campos de Carvalho wrote: > Por conta disso, eu sugiro que o III Social Meeting dos Sao Paulo Perl > M[ou]ngers realize-se (como já aconteceu em 50% dos encontros) no quarto > (ou último?) sábado do mês. Beleza! > Eu não consegui determinar como é o acesso ao Pub. Algém conhece a > região e sabe dar as coordenadas? O Finnegan's fica na Rua Cristiano Vianna, 358, em Pinheiros. (A Cristiano Vianna é uma travessa da Avenida Rebouças.) > Nélson, se o acesso não for muito complicado, quais as nossas > possibilidades de conseguir algum patrocínio para estabelecer uma "sede > social" para nossos encontros? Que tipo de patrocínio? > Alguém pode dizer quanto é a média de gastos por cabeça neste local? > Acho esta informação interessante para todos os monges. Couvert: R$ 6,00 Brahma ou Antarctica: R$ 3,00. Guiness: não tem preço. Ou melhor, tem: R$ 14,00 o "pint". (1 pint = 473 mL) Ugh!!! > Acredito que poderemos anunciar oficialmente a reativação do > Sao-Paulo.pm.org neste encontro. Precisamos de voluntários para > construir o website. (Eu particularmente, tenho algumas idéias que > gostaria que vocês considerassem). Eu também tenho uma sugestão: usar uma ferramenta colaborativa em Perl, que permita a edição de conteúdo online, com algum sistema de autenticação e controle de versões. []s Nelson From alat23 em yahoo.com Mon May 17 11:10:36 2004 From: alat23 em yahoo.com (Alexandre de Abreu) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] III Encontro dos Perl Mongers de São_Paulo In-Reply-To: <40A7A2D4.2020407@gnubis.com.br> Message-ID: <20040517161036.8254.qmail@web41601.mail.yahoo.com> --- Nelson Ferraz wrote: > Pessoal, > > Quando vai ser o III Encontro dos Perl Mongers de > São Paulo? > > Sugestão de local: Finnegan's Pub > (http://www.finnegans.com.br/) Concordo Nelson, lá tem uma máquina de jogo de dardos, dependendo da data estou dentro. Falow ===== Alexandre de Abreu RHCE, LPIC-2, CCNA Proteus Security Systems __________________________________ Do you Yahoo!? SBC Yahoo! - Internet access at a great low price. http://promo.yahoo.com/sbc/ From spooker em spooker.com.br Mon May 17 12:17:47 2004 From: spooker em spooker.com.br (Sp0oKeR Labs) Date: Mon Aug 2 21:27:03 2004 Subject: =?iso-8859-1?Q?Re:_=5BCascavel-pm=5D_III_Encontro_dos_Perl_Mongers_de?= =?iso-8859-1?Q?_S=E3o=5FPaulo?= References: <20040517161036.8254.qmail@web41601.mail.yahoo.com> Message-ID: <008801c43c32$e31b1210$3cffa8c0@Sp0oKeR> Dependendo da data tbm estou dentro. Dos dias 22 maio a 6 de junho estarei em Porto Alegre ( Debconf / FISL2004 ). Atenciosamente, =================== Sp0oKeR Labs spooker@spooker.com.br RHCE / LPIC-1 http://www.spooker.com.br =================== ----- Original Message ----- From: "Alexandre de Abreu" To: "Cascavel Perl Mongers" Sent: Monday, May 17, 2004 12:10 PM Subject: Re: [Cascavel-pm] III Encontro dos Perl Mongers de São_Paulo --- Nelson Ferraz wrote: > Pessoal, > > Quando vai ser o III Encontro dos Perl Mongers de > São Paulo? > > Sugestão de local: Finnegan's Pub > (http://www.finnegans.com.br/) Concordo Nelson, lá tem uma máquina de jogo de dardos, dependendo da data estou dentro. Falow ===== Alexandre de Abreu RHCE, LPIC-2, CCNA Proteus Security Systems __________________________________ Do you Yahoo!? SBC Yahoo! - Internet access at a great low price. http://promo.yahoo.com/sbc/ ---------------------------------------------------------------------------- ---- _______________________________________________ Cascavel-pm mailing list Cascavel-pm@mail.pm.org http://cascavel.pm.org/mailman/listinfo/cascavel-pm --- Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.687 / Virus Database: 448 - Release Date: 5/16/2004 From lechamps em terra.com.br Mon May 17 12:31:12 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:03 2004 Subject: =?ISO-8859-1?Q?Re=3A_=5BCascavel-pm=5D_III_Encontro_dos_?= =?ISO-8859-1?Q?Perl_Mongers_de_S=E3o_Paulo?= In-Reply-To: <40A8DFB5.9010507@phperl.com> References: <40A7A2D4.2020407@gnubis.com.br> <40A8BFDA.5020908@terra.com.br> <40A8DFB5.9010507@phperl.com> Message-ID: <40A8F6E0.2080609@terra.com.br> Nelson Ferraz wrote: > Luis Campos de Carvalho wrote: >> Nélson, se o acesso não for muito complicado, quais as nossas >> possibilidades de conseguir algum patrocínio para estabelecer uma >> "sede social" para nossos encontros? > > Que tipo de patrocínio? *Qualquer* tipo. > Couvert: R$ 6,00 > Brahma ou Antarctica: R$ 3,00. > Guiness: não tem preço. > > Ou melhor, tem: R$ 14,00 o "pint". (1 pint = 473 mL) > > Ugh!!! Oras, também não precisa fazer tanta careta... Acho que os preços estão mais ou menos na média dos lugares "badalados". >> Acredito que poderemos anunciar oficialmente a reativação do >> Sao-Paulo.pm.org neste encontro. Precisamos de voluntários para >> construir o website. (Eu particularmente, tenho algumas idéias que >> gostaria que vocês considerassem). > > > Eu também tenho uma sugestão: usar uma ferramenta colaborativa em Perl, > que permita a edição de conteúdo online, com algum sistema de > autenticação e controle de versões. > Lamento, mas "usar TWiki" é a minha primeira sugestão... :-) Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From joaogabrielcas em ig.com.br Mon May 17 14:51:29 2004 From: joaogabrielcas em ig.com.br (=?iso-8859-1?Q?Jo=E3o_Gabriel?=) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] =?iso-8859-1?q?RE=3A_Trocar_c=F3digo_por_conteudo_?= =?iso-8859-1?q?que_est=E1_dentro_de_uma_=22sub=22=2E?= Message-ID: <000301c43c48$5cf9c080$b76c08c9@joaogabr> Nuss... quanta complicação... achei o que eu queria (ou melhor me enviaram uma resposta), no grupo de suporte a perl do yahoo (perlbr): open (ARQ, "teste.txt"); @arq = ; close (ARQ); foreach $linha (@arq) { $linha =~ s/\[title\]/&codtitle/ige; } print "@arq"; sub codtitle { return qq~ Hahahahah ~; } No caso a linha salvadora é $linha =~ s/\[title\]/&codtitle/ige; Obrigado a todos que tentaram me ajudar e em especial Omar Alves Ferreira que me ajudou com a "linha salvadora". []'s João Gabriel From nferraz em phperl.com Mon May 17 16:53:21 2004 From: nferraz em phperl.com (Nelson Ferraz) Date: Mon Aug 2 21:27:03 2004 Subject: =?ISO-8859-1?Q?Re=3A_=5BCascavel-pm=5D_III_Encontro_dos_?= =?ISO-8859-1?Q?Perl_Mongers_de_S=E3o_Paulo?= In-Reply-To: <40A8F6E0.2080609@terra.com.br> References: <40A7A2D4.2020407@gnubis.com.br> <40A8BFDA.5020908@terra.com.br> <40A8DFB5.9010507@phperl.com> <40A8F6E0.2080609@terra.com.br> Message-ID: <40A93451.3070100@phperl.com> Luis Campos de Carvalho wrote: >>> Nélson, se o acesso não for muito complicado, quais as nossas >>> possibilidades de conseguir algum patrocínio para estabelecer uma >>> "sede social" para nossos encontros? >> >> Que tipo de patrocínio? > > *Qualquer* tipo. Se for um local para sediar os encontros, pode ser no escritório da GNU BIS... >>> Acredito que poderemos anunciar oficialmente a reativação do >>> Sao-Paulo.pm.org neste encontro. Precisamos de voluntários para >>> construir o website. (Eu particularmente, tenho algumas idéias que >>> gostaria que vocês considerassem). >> >> Eu também tenho uma sugestão: usar uma ferramenta colaborativa em >> Perl, que permita a edição de conteúdo online, com algum sistema de >> autenticação e controle de versões. > > Lamento, mas "usar TWiki" é a minha primeira sugestão... :-) Era o que eu estava pensando! :) []s Nelson From lechamps em terra.com.br Wed May 19 13:38:37 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Idioma muito legal!! Message-ID: <40ABA9AD.2080804@terra.com.br> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Gente, eu peguei isso na lista de discussão dos London Perl Mongers, e fiquei maravilhado com a beleza da solução! - ---- Begin Message ---- >>>>>>>>>> "Andy" == Andy Armstrong writes: Andy> I'm just playing around with some simple Markov Andy> models so I started to write a script that would Andy> build arbitrarily deep models. Here it is: Two thoughts which may both be wrong: (1) you can't use $a->{3} both as a count and as a deeper hash pointer. Pick one or the other. (2) you don't need eval to walk the structure! Just walk it! This increments $top->{a}{b}{c}{d}{e}{count} $x = $top; $x = $x->{$_} ||= {} for qw(a b c d e); $x->{count}++; - -- Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095 Perl/Unix/security consulting, Technical writing, Comedy, etc. etc. See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training! - -----End Message ------- Percebam como o sr. Schwartz percorre um hash de hashes SEM usar EVAL (operação demorada e complicada) para incrementar o conteúdo do escalar $top->{a}{b}{c}{d}{e}{count}: $x = $top; $x = $x->{$_} ||= {} for qw(a b c d e); $x->{count}++; Gente, eu fiquei pensando nas possibilidades, e acabo de chegar à conclusão que ainda tenho muito o que aprender sobre Perl... Putamplexos! - -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (GNU/Linux) iD8DBQFAq6l+z+iwwpKRaDIRAvP5AJ4/uF1n16rXfnMi9Kt18vmzkMaR1ACgi65M twIJeF1wKquGfynOilVhFK4= =ISjo -----END PGP SIGNATURE----- From nferraz em phperl.com Wed May 19 17:48:06 2004 From: nferraz em phperl.com (Nelson Ferraz) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Idioma muito legal!! In-Reply-To: <40ABA9AD.2080804@terra.com.br> References: <40ABA9AD.2080804@terra.com.br> Message-ID: <40ABE426.5090105@phperl.com> Luis Campos de Carvalho wrote: > Percebam como o sr. Schwartz percorre um hash de hashes SEM usar EVAL > (operação demorada e complicada) para incrementar o conteúdo do escalar > $top->{a}{b}{c}{d}{e}{count}: > > $x = $top; > $x = $x->{$_} ||= {} for qw(a b c d e); > $x->{count}++; Calma aí... do jeito como está, a estrutura $top->{a}{b}{c}{d}{e}{count} não chega a ser criada... Além disso, me parece que ele incrementou $x->{count}, e não $top->{a}{b}{c}{d}{e}{count} . Não é isso? Finalmente... como você faria para obter este mesmo resultado, antes de ler a dica do Schwartz? []s Nelson From shonorio em terra.com.br Wed May 19 18:42:25 2004 From: shonorio em terra.com.br (Solli Moreria Honorio) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Idioma muito legal!! In-Reply-To: <40ABE426.5090105@phperl.com> Message-ID: <00a901c43dfa$f0c46e60$32cbcfc8@eraser> Caro Luis, O Nelson tem razão, no final a estrutura não é criada como eu acreditava ser o objetivo, ou não ? Solli -----Original Message----- From: cascavel-pm-bounces@mail.pm.org [mailto:cascavel-pm-bounces@mail.pm.org] On Behalf Of Nelson Ferraz Sent: quarta-feira, 19 de maio de 2004 19:48 To: Cascavel Perl Mongers Subject: Re: [Cascavel-pm] Idioma muito legal!! Luis Campos de Carvalho wrote: > Percebam como o sr. Schwartz percorre um hash de hashes SEM usar EVAL > (operação demorada e complicada) para incrementar o conteúdo do escalar > $top->{a}{b}{c}{d}{e}{count}: > > $x = $top; > $x = $x->{$_} ||= {} for qw(a b c d e); > $x->{count}++; Calma aí... do jeito como está, a estrutura $top->{a}{b}{c}{d}{e}{count} não chega a ser criada... Além disso, me parece que ele incrementou $x->{count}, e não $top->{a}{b}{c}{d}{e}{count} . Não é isso? Finalmente... como você faria para obter este mesmo resultado, antes de ler a dica do Schwartz? []s Nelson _______________________________________________ Cascavel-pm mailing list Cascavel-pm@mail.pm.org http://cascavel.pm.org/mailman/listinfo/cascavel-pm From lechamps em terra.com.br Wed May 19 21:45:05 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Idioma muito legal!! References: <40ABA9AD.2080804@terra.com.br> <40ABE426.5090105@phperl.com> Message-ID: <006301c43e14$7752ce40$8800a8c0@lafitt> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 From: "Nelson Ferraz" To: "Cascavel Perl Mongers" Sent: Wednesday, May 19, 2004 7:48 PM Subject: Re: [Cascavel-pm] Idioma muito legal!! > Luis Campos de Carvalho wrote: > > Percebam como o sr. Schwartz percorre um hash de hashes SEM usar EVAL > > (operação demorada e complicada) para incrementar o conteúdo do escalar > > $top->{a}{b}{c}{d}{e}{count}: > > > > $x = $top; > > $x = $x->{$_} ||= {} for qw(a b c d e); > > $x->{count}++; > > Calma aí... do jeito como está, a estrutura $top->{a}{b}{c}{d}{e}{count} > não chega a ser criada... > > Além disso, me parece que ele incrementou $x->{count}, e não > $top->{a}{b}{c}{d}{e}{count} . Não é isso? > > Finalmente... como você faria para obter este mesmo resultado, antes de > ler a dica do Schwartz? Nélson e Solli: Lamento informar, mas estão ambos errados. :-) Esta sugestão é do Randal Schwartz, e ele raramente erra um hack, ainda mais um bonito como este. Reparem bem na expressão. Vejam a linha do meio: $x = $x->{$_} ||= {} for qw(a b c d e); $x recebe a referência da expressão "$x->{$_} ||= {}", que pode inicializar automaticamente $x->{$_} para uma referência para um hash anônimo "{}" ou retornar o valor atual desta variável. Como $_ percorre o array 'a'..'e', isso automaticamente cria todos os valores indefinidos encontrados e é muito melhor que o monte de eval's que eu usava para resolver a mesma expressão anteriormente... Posso reescrever a expressão assim: # $x recebe a raiz da árvore $x = $top; # Percorre a árvore, top-down, escolhendo automaticamente # por quais "ramos" seguir. Cria todos os "ramos" # inexistentes até a folha procurada. foreach $letter ( qw ( a b c d e f ) ){ my $aux = exists $x->{$_} ? $x->{$_} : {}; $x = $aux; } # Incrementa um atributo da folha procurada. $x->{count}++; # Neste ponto, $x não contém uma referência para # a árvore de hash tables contida em $top, mas apenas # uma referência para um dos hashes que compõem a # estrutura representada (total ou parcialmente) por $top. Fica como exercício para os queridos leitores demonstrar que a minha versão verborrágica do código faz a mesma coisa que a versão enxuta do Randal. Ainda estou babando neste hack... Tenho vontade de usar árvores n-árias e cadeias de Markov para resolver todos os problemas do universo... eheh... Putamplexos a todos! - -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho Computer Scientist Unix Sys Adm & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.1 (MingW32) - WinPT 0.7.96rc1 iD8DBQFArBukz+iwwpKRaDIRAoJmAJ9Qg0XYrhU33qaVG+Vmt02FWF9zUACfQv3w NmLcLOTGJQhyteQz5XfQxVU= =ZnDf -----END PGP SIGNATURE----- From nferraz em phperl.com Thu May 20 15:26:51 2004 From: nferraz em phperl.com (Nelson Ferraz) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Idioma muito legal!! In-Reply-To: <006301c43e14$7752ce40$8800a8c0@lafitt> References: <40ABA9AD.2080804@terra.com.br> <40ABE426.5090105@phperl.com> <006301c43e14$7752ce40$8800a8c0@lafitt> Message-ID: <40AD148B.6000401@phperl.com> Luis Campos de Carvalho wrote: > Lamento informar, mas estão ambos errados. :-) > Esta sugestão é do Randal Schwartz, e ele raramente erra um hack, > ainda mais um bonito como este. Então me responda o que o código a seguir deveria imprimir? $x = $top; $x = $x->{$_} ||= {} for qw(a b c d e); use Data::Dumper; print Dumper $x; Dica: para obter este resultado, eu tenho um hack mais genial ainda: $x = {}; :) []s Nelson From lechamps em terra.com.br Thu May 20 15:37:35 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Idioma muito legal!! In-Reply-To: <40AD148B.6000401@phperl.com> References: <40ABA9AD.2080804@terra.com.br> <40ABE426.5090105@phperl.com> <006301c43e14$7752ce40$8800a8c0@lafitt> <40AD148B.6000401@phperl.com> Message-ID: <40AD170F.2030702@terra.com.br> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Nelson, Solli e colegas irmaos-no-perl... Acho que o problema todo aqui eh falta de contexto. Lembrem-se de que eu estou estudando cadeias de Markov e contando coisas de maneira organizada. Dentro desta filosofia, ter uma "arvore" que retenha a contagem de cada objeto eh conveniente e interessante. Daí surgiu o problema todo. O snippet que eu enviei prezume que $top (a raiz da arvore) eh previamente inicializada com uma referencia para um hash table. Segue exemplo: #!/usr/bin/perl # $top eh a raiz da minha "arvore" n-aria... $top = {count => 0}; $x = $top; $x = $x->{$_} ||= {} for qw(a b c d e); use Data::Dumper; print Dumper $x; print Dumper $top; __END__ Que resulta em $VAR1 = {}; $VAR1 = { 'count' => 0, 'a' => { 'b' => { 'c' => { 'd' => { 'e' => {} } } } } }; CQD, meus caros... :-) - -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (GNU/Linux) iD8DBQFArRayz+iwwpKRaDIRAphjAJ9ts/QZw7SCOXvzyfjwoayyVSMRggCgnTwg dcXZLn35XxFxwwJCxUuTgx8= =Pbsy -----END PGP SIGNATURE----- From nferraz em phperl.com Thu May 20 16:23:27 2004 From: nferraz em phperl.com (Nelson Ferraz) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Idioma muito legal!! In-Reply-To: <40AD170F.2030702@terra.com.br> References: <40ABA9AD.2080804@terra.com.br> <40ABE426.5090105@phperl.com> <006301c43e14$7752ce40$8800a8c0@lafitt> <40AD148B.6000401@phperl.com> <40AD170F.2030702@terra.com.br> Message-ID: <40AD21CF.7080706@phperl.com> Luis Campos de Carvalho wrote: > #!/usr/bin/perl > # $top eh a raiz da minha "arvore" n-aria... > $top = {count => 0}; > $x = $top; > $x = $x->{$_} ||= {} for qw(a b c d e); > > use Data::Dumper; > print Dumper $x; > print Dumper $top; Wow! :) From gabriel em webclube.com Thu May 20 16:56:14 2004 From: gabriel em webclube.com (Gabriel Vieira) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Idioma muito legal!! References: <40ABA9AD.2080804@terra.com.br> <40ABE426.5090105@phperl.com> <006301c43e14$7752ce40$8800a8c0@lafitt> <40AD148B.6000401@phperl.com><40AD170F.2030702@terra.com.br> <40AD21CF.7080706@phperl.com> Message-ID: <003b01c43eb5$8257a080$ad57a8c0@fortalnet.com.br> Tomô?! (rs) Muito bom isso.. eu, assim como os amigos Nelson e Solli, tb estava com um pé atrás.. mas agora... :) Isso é quase uma revolução pra mim.. abre mts 'janelas'. Será que existe alguma referência pra esse tipo de construção?! Ou o rapaz (Andy) é fuçador nato? :) Abraços, Gabriel Vieira ----- Original Message ----- From: "Nelson Ferraz" To: "Cascavel Perl Mongers" Sent: Thursday, May 20, 2004 6:23 PM Subject: Re: [Cascavel-pm] Idioma muito legal!! > Luis Campos de Carvalho wrote: > > #!/usr/bin/perl > > # $top eh a raiz da minha "arvore" n-aria... > > $top = {count => 0}; > > $x = $top; > > $x = $x->{$_} ||= {} for qw(a b c d e); > > > > use Data::Dumper; > > print Dumper $x; > > print Dumper $top; > > Wow! :) > ---------------------------------------------------------------------------- ---- _______________________________________________ Cascavel-pm mailing list Cascavel-pm@mail.pm.org http://cascavel.pm.org/mailman/listinfo/cascavel-pm From mda em embratel.net.br Fri May 21 07:30:11 2004 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Idioma muito legal!! In-Reply-To: <003b01c43eb5$8257a080$ad57a8c0@fortalnet.com.br> References: <40ABA9AD.2080804@terra.com.br> <40ABE426.5090105@phperl.com> <006301c43e14$7752ce40$8800a8c0@lafitt> <40AD148B.6000401@phperl.com><40AD170F.2030702@terra.com.br> <40AD21CF.7080706@phperl.com> <003b01c43eb5$8257a080$ad57a8c0@fortalnet.com.br> Message-ID: <40ADF653.3070803@embratel.net.br> Pessoal, Para quem teve oportunidade de ler "Effective Perl Programming" esta visão fica um pouco mais fácil, ou mesmo algumas partes dentro do "Advanced Programming Perl"... A parte dificil é lembrar bem destes detalhes posteriormente ... Para tornar-se mais ilustrativo o exemplo, que tal alterar um pouco, como fiz ontem para tirar a prova... #!/usr/local/bin/perl -w use Data::Dumper; use strict; my ( $top, $x ); $top->{a}->{b}->{c}->{d}->{e}->{Count} = 0; $x = $top; my ( $Debug ); # Para depurar printf " > %s %s\n", 'a', $top->{a}; printf " > %s %s\n", 'b', $top->{a}->{b}; printf " > %s %s\n", 'c', $top->{a}->{b}->{c}; printf " > %s %s\n", 'd', $top->{a}->{b}->{c}->{d}; printf " > %s %s\n", 'e', $top->{a}->{b}->{c}->{d}->{e}; # Para complicar, sem entrar no laco exemplificado $Debug->{a}->{top} = $top->{a}; $Debug->{b}->{top} = $top->{a}->{b}; $Debug->{c}->{top} = $top->{a}->{b}->{c}; $Debug->{d}->{top} = $top->{a}->{b}->{c}->{d}; $Debug->{e}->{top} = $top->{a}->{b}->{c}->{d}->{e}; foreach ( qw( a b c d e ) ) { $x = $x->{$_}; $Debug->{$_}->{x} = $x; printf " %s => %s\n", $_, $x; } print "Enderecos:\n"; map { printf " %s : %s = %s\n", $_, $Debug->{$_}->{top}, $Debug->{$_}->{x} } sort keys %$Debug; <>; print "Referencias:\n", Data::Dumper->Dump( [$Debug] , [qw( Debug )] ), '-'x40, "\n"; exit 0; PS: Para quem não recorda, ou não sabe, verifiquem na Amazon quem é o autor do livro citado ;) Sds, Marco Antonio Gabriel Vieira wrote: >Tomô?! (rs) > >Muito bom isso.. eu, assim como os amigos Nelson e Solli, tb estava com um >pé atrás.. mas agora... :) >Isso é quase uma revolução pra mim.. abre mts 'janelas'. > >Será que existe alguma referência pra esse tipo de construção?! Ou o rapaz >(Andy) é fuçador nato? :) > >Abraços, > >Gabriel Vieira > >----- Original Message ----- >From: "Nelson Ferraz" >To: "Cascavel Perl Mongers" >Sent: Thursday, May 20, 2004 6:23 PM >Subject: Re: [Cascavel-pm] Idioma muito legal!! > > > >>Luis Campos de Carvalho wrote: >> >>>#!/usr/bin/perl >>># $top eh a raiz da minha "arvore" n-aria... >>>$top = {count => 0}; >>>$x = $top; >>>$x = $x->{$_} ||= {} for qw(a b c d e); >>> >>>use Data::Dumper; >>>print Dumper $x; >>>print Dumper $top; >>> >>Wow! :) >> >> > > >---------------------------------------------------------------------------- >---- > > >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm@mail.pm.org >http://cascavel.pm.org/mailman/listinfo/cascavel-pm > >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm@mail.pm.org >http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > > From alfspsp em hotmail.com Fri May 21 07:55:09 2004 From: alfspsp em hotmail.com (=?iso-8859-1?Q?Alex_E._J._Falc=E3o?=) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] CGI::ProgressBar Message-ID: Hi folks..... achei muito interessante a discussão sobre a cadeia de Markov..... Não havia entendido bem, mas finalmente ficou claro.... rs... gostaria de uma ajuda. Tenho um CGI no apache chamando um script externo. Tenho que aguardar este script terminar antes de prosseguir, estou tentando fazer uma forma de mostrar que tem algo em progresso,mas não rola.... Estou usando o seguinte. $|=1; use CGI::ProgressBar qw/:standard/; my $steps = 10; progress_bar( -from=>1, -to=>$steps, -blocks=>$steps ); system("/var/www/cgi-bin/ip_sniffer.pl"); print hide_progress_bar; From vivan em dim.fm.usp.br Fri May 21 07:58:07 2004 From: vivan em dim.fm.usp.br (vivan@dim.fm.usp.br) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Telecom In-Reply-To: References: <15370.200.179.66.230.1084566383.webmail-dim@dim.fm.usp.br> Message-ID: <2843.200.179.66.230.1085144287.webmail-dim@dim.fm.usp.br> Ae, Alguem aki entende de telecom? Eu estou com um probleminha. Preciso monitorar traps e mibs de roteadores e switches (cisco, na maioria), para visualizacao em plataforma Ericsson. Existe algum modulo da Perl que use o SNMP e essas facilidades pra me ajudar a tratar esses dados? Alguem jah se deparou com algo parecido e possa me dar algumas dicas? Tks. -------------------------- Esta mensagem foi verificada pelo sistema de antivírus DIM e acredita-se estar livre de Virus. Virus data file v4362 created May 19 2004 From lechamps em terra.com.br Fri May 21 12:11:46 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Idioma muito legal!! In-Reply-To: <003b01c43eb5$8257a080$ad57a8c0@fortalnet.com.br> References: <40ABA9AD.2080804@terra.com.br> <40ABE426.5090105@phperl.com> <006301c43e14$7752ce40$8800a8c0@lafitt> <40AD148B.6000401@phperl.com><40AD170F.2030702@terra.com.br> <40AD21CF.7080706@phperl.com> <003b01c43eb5$8257a080$ad57a8c0@fortalnet.com.br> Message-ID: <40AE3852.9000405@terra.com.br> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Gabriel Vieira wrote: > Tomô?! (rs) > > Muito bom isso.. eu, assim como os amigos Nelson e Solli, tb estava com um > pé atrás.. mas agora... :) > Isso é quase uma revolução pra mim.. abre mts 'janelas'. Nem me fale em "janelas". :-P > Será que existe alguma referência pra esse tipo de construção?! Ou o rapaz > (Andy) é fuçador nato? :) Bom, isso não é coisa do Andy, isso é coisa do sr. Randal Schwartz, proprietário da Stonehenge Consulting Inc e segundo homem da hierarquia de poder do Perl (sucedendo automaticamente o Larry Wall). - -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (GNU/Linux) iD8DBQFArjhAz+iwwpKRaDIRAhebAKDWLcSrBcXkSnbTo/JDoJ++0BPbhACfVjxE am5xlEpoa1jOzLy0t+XhU4w= =FxuF -----END PGP SIGNATURE----- From lechamps em terra.com.br Fri May 21 12:21:24 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] CGI::ProgressBar In-Reply-To: References: Message-ID: <40AE3A94.1050606@terra.com.br> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Alex E. J. Falcão wrote: > Hi folks..... > > achei muito interessante a discussão sobre a cadeia de Markov..... Não > havia entendido bem, mas finalmente ficou claro.... rs... :-) Que bom que você gostou... > gostaria de uma ajuda. Tenho um CGI no apache chamando um script > externo. Tenho que aguardar este script terminar antes de prosseguir, estou > tentando fazer uma forma de mostrar que tem algo em progresso,mas não > rola.... Estou usando o seguinte. > > $|=1; > > > use CGI::ProgressBar qw/:standard/; > my $steps = 10; > progress_bar( -from=>1, -to=>$steps, -blocks=>$steps ); > system("/var/www/cgi-bin/ip_sniffer.pl"); > print hide_progress_bar; > > > Eu particularmente nunca usei o CGI::ProgressBar antes. Mas parece que você precisa de mais código do que apenas o que você está usando... Do manual: use CGI::ProgressBar qw/:standard/; $| = 1; # Do not buffer output my $steps = 10; print header, start_html('A Simple Example'), h1('A Simple Example'), p('This example will fill the screen with nonsense between updates to a progress bar.'), progress_bar( -from=>1, -to=>$steps, -blocks=>$steps ); for (1..$steps){ print update_progress_bar; # Simulate being busy/sleep 2; print rand>0.5 ? chr 47 : chr 92 for 0 .. 100000; } print hide_progress_bar; __END__ Bom acho que a primeira coisa que eu preciso recomendar a você é "Leia o manual". http://search.cpan.org/~lgoddard/CGI-ProgressBar-0.02/ProgressBar.pm Depois, verifique se todas as dependências que você precisa são corretamente satisfeitas. Parece que é necessário usar Javascript, entre outras coisas. Verifique erros de JS no seu browser. Se depois de ajeitar o fonte de acordo, você ainda tiver dificuldades, por favor poste aqui novamente. Terei prazer em ajudar. Boa sorte e saudações. - -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (GNU/Linux) iD8DBQFArjqBz+iwwpKRaDIRAiFIAJ9HKnZYtWuS9upvuKgEpzEuMGqxxwCgurEu zbsfUcgCKXePd/eW/NxJUR8= =+Zvz -----END PGP SIGNATURE----- From lechamps em terra.com.br Fri May 21 12:49:55 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Telecom In-Reply-To: <2843.200.179.66.230.1085144287.webmail-dim@dim.fm.usp.br> References: <15370.200.179.66.230.1084566383.webmail-dim@dim.fm.usp.br> <2843.200.179.66.230.1085144287.webmail-dim@dim.fm.usp.br> Message-ID: <40AE4143.5090903@terra.com.br> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 vivan@dim.fm.usp.br wrote: > Ae, Ea! :-) > Alguem aki entende de telecom? Lamento, nadica de nada. > Eu estou com um probleminha. Preciso > monitorar traps e mibs de roteadores e switches (cisco, na maioria), para > visualizacao em plataforma Ericsson. Existe algum modulo da Perl que use o > SNMP e essas facilidades pra me ajudar a tratar esses dados? Alguem jah se > deparou com algo parecido e possa me dar algumas dicas? Nunquinha. Mas você pode tentar olhar os módulos listados em http://search.cpan.org/search?query=SNMP+cisco&mode=all O http://Search.CPAN.org é o website de módulos Perl que a comunidade usa, endossa e recomenda. :-) Pode servir para você também! Espero que algum dos módulos valha à pena e resolva seu problema Prá que ficar reinventando a roda? ;-) Boa sorte, e putamplexos! - -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (GNU/Linux) iD8DBQFArkEvz+iwwpKRaDIRAvwTAKD4bUgnDXtg17b0ysfW11wm15g9FACfR25+ ZlxecbKbsTZ0xc15BzEuyxk= =bUqr -----END PGP SIGNATURE----- From alfspsp em hotmail.com Fri May 21 13:39:56 2004 From: alfspsp em hotmail.com (=?iso-8859-1?Q?Alex_E._J._Falc=E3o?=) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Telecom References: <15370.200.179.66.230.1084566383.webmail-dim@dim.fm.usp.br> <2843.200.179.66.230.1085144287.webmail-dim@dim.fm.usp.br> <40AE4143.5090903@terra.com.br> Message-ID: Vivan vai ai um esquema. Achei isso no Cisco Auditing Tool, um exploit para roteadores Cisco Abraço Alex Falcão use Net::SNMP my $ip = "10.0.0.1"; my $community = "community"; my $port = 161; my ($session, $error) = Net::SNMP->session( Hostname => $hostname, Community => $community, Port => $port ); my $uptime='1.3.6.1.2.1.1.3.0'; $session->timeout(2); $session->retries(2); my $response=''; if (!defined($response = $session->get_request($uptime))) { $session->close; return 0; } $session->close; From alfspsp em hotmail.com Fri May 21 13:45:52 2004 From: alfspsp em hotmail.com (=?iso-8859-1?Q?Alex_E._J._Falc=E3o?=) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] CGI::ProgressBar References: <40AE3A94.1050606@terra.com.br> Message-ID: Luis, Desde já agradeço a colaboração.... Eu montei o meu código baseado no manual, peguei as informações lá.... quando uso o exemplo do for, citado no manual, funciona numa boa.... o problema é quando chamo o script externo, acho que ele da um freeze e não permite a progress ou qq outro tipo de informação passar. Tentei usar um fork, mas o processo morre. Vou pesquisar mais um pouco. Novamente agradeço. Alex Falcão ----- Original Message ----- From: "Luis Campos de Carvalho" To: "Cascavel Perl Mongers" Sent: Friday, May 21, 2004 2:21 PM Subject: Re: [Cascavel-pm] CGI::ProgressBar > -----BEGIN PGP SIGNED MESSAGE----- > Hash: SHA1 > > Alex E. J. Falcão wrote: > > Hi folks..... > > > > achei muito interessante a discussão sobre a cadeia de > Markov..... Não > > havia entendido bem, mas finalmente ficou claro.... rs... > > :-) Que bom que você gostou... > > > gostaria de uma ajuda. Tenho um CGI no apache chamando um script > > externo. Tenho que aguardar este script terminar antes de prosseguir, > estou > > tentando fazer uma forma de mostrar que tem algo em progresso,mas não > > rola.... Estou usando o seguinte. > > > > $|=1; > > > > > > use CGI::ProgressBar qw/:standard/; > > my $steps = 10; > > progress_bar( -from=>1, -to=>$steps, -blocks=>$steps ); > > system("/var/www/cgi-bin/ip_sniffer.pl"); > > print hide_progress_bar; > > > > > > > > Eu particularmente nunca usei o CGI::ProgressBar antes. > Mas parece que você precisa de mais código do que apenas o que você > está usando... > > Do manual: > > use CGI::ProgressBar qw/:standard/; > $| = 1; # Do not buffer output > > my $steps = 10; > > print header, > start_html('A Simple Example'), > h1('A Simple Example'), > p('This example will fill the screen with nonsense > between updates to a progress bar.'), > progress_bar( -from=>1, -to=>$steps, -blocks=>$steps ); > > for (1..$steps){ > print update_progress_bar; > # Simulate being busy/sleep 2; > print rand>0.5 ? chr 47 : chr 92 for 0 .. 100000; > } > print hide_progress_bar; > __END__ > > Bom acho que a primeira coisa que eu preciso recomendar a você é > "Leia o manual". > > http://search.cpan.org/~lgoddard/CGI-ProgressBar-0.02/ProgressBar.pm > > Depois, verifique se todas as dependências que você precisa são > corretamente satisfeitas. Parece que é necessário usar Javascript, entre > outras coisas. Verifique erros de JS no seu browser. > > Se depois de ajeitar o fonte de acordo, você ainda tiver > dificuldades, por favor poste aqui novamente. Terei prazer em ajudar. > > Boa sorte e saudações. > - -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Cascavel-pm Moderator, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > -----BEGIN PGP SIGNATURE----- > Version: GnuPG v1.2.4 (GNU/Linux) > > iD8DBQFArjqBz+iwwpKRaDIRAiFIAJ9HKnZYtWuS9upvuKgEpzEuMGqxxwCgurEu > zbsfUcgCKXePd/eW/NxJUR8= > =+Zvz > -----END PGP SIGNATURE----- > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > From lechamps em terra.com.br Mon May 24 06:42:17 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] CGI::ProgressBar In-Reply-To: References: <40AE3A94.1050606@terra.com.br> Message-ID: <40B1DF99.1030300@terra.com.br> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Alex E. J. Falcão wrote: > Luis, > > Desde já agradeço a colaboração.... :-) É o mínimo que eu poderia fazer a um "irmão-no-perl"... > Eu montei o meu código baseado no manual, peguei as informações lá.... > quando uso o exemplo do for, citado no manual, funciona numa boa.... > > o problema é quando chamo o script externo, acho que ele da um freeze e > não permite a progress ou qq outro tipo de informação passar. Tentei usar um > fork, mas o processo morre. > > Vou pesquisar mais um pouco. > Novamente agradeço. Mande seu código para a lista. Possivelmente, seu deadlock está relacionado com a algum detalhe tão óbvio que você não consegue enxergar (acontece comigo quase todo dia)... O resto do pessoal sempre pode dar uma mãozinha, também. Fica muito mais simples para ajudar se você enviar seu fonte... Putamplexos! - -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (GNU/Linux) iD8DBQFAsd+Ez+iwwpKRaDIRAhXGAKCmtEw52MN8fHr0XFTLgEK9lvSkrgCeNvKM E/65O5AwuuAnsnXg9WqSFcQ= =X7vM -----END PGP SIGNATURE----- From lechamps em terra.com.br Mon May 24 12:38:51 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Quarto Encontro Social dos =?iso-8859-1?q?S=E3o_Paulo_Perl_M=5Bou?= =?iso-8859-1?q?=5Dngers?= Message-ID: <40B2332B.8010107@terra.com.br> Nélson, a minha mulher vai querer me matar! :-) Eu acabo de telefonar para o Finnegan's Pub, escolhido por decurso de prazo para sediar o quarto encontro e descobri que o pessoal abre apenas à noite... isso quer dizer problemas com o time feminino... :-) Eu não sei o que fazer, por isso escrevi. Não terei condições de aparecer caso este seja o local e horário escolhido pelos monges. Lamento, rapazes, mas ser casado requer abrir mão de certas coisas. :-) Acho que o Solli concorda comigo. Rapazes, precisamos decidir onde será o próximo encontro logo. Tenho de publicar o local do encontro até quarta, no máximo. Putamplexos a todos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From shonorio em terra.com.br Mon May 24 17:31:57 2004 From: shonorio em terra.com.br (Solli Moreria Honorio) Date: Mon Aug 2 21:27:03 2004 Subject: =?iso-8859-1?Q?RE:_=5BCascavel-pm=5D_Quarto_Encontro_Social_dos_S=E3o_Pau?= =?iso-8859-1?Q?lo_Perl_M=5Bou=5Dngers?= In-Reply-To: <40B2332B.8010107@terra.com.br> Message-ID: <000001c441de$ec70d820$32cbcfc8@eraser> Porque não na choperia do shopping Sta Cruz, achei o lugar bom para este tipo.... e como o objetivo é discutir cerveja !!? Solli -----Original Message----- From: cascavel-pm-bounces@mail.pm.org [mailto:cascavel-pm-bounces@mail.pm.org] On Behalf Of Luis Campos de Carvalho Sent: segunda-feira, 24 de maio de 2004 14:39 To: Cascavel Perl Mongers Subject: [Cascavel-pm] Quarto Encontro Social dos São Paulo Perl M[ou]ngers Nélson, a minha mulher vai querer me matar! :-) Eu acabo de telefonar para o Finnegan's Pub, escolhido por decurso de prazo para sediar o quarto encontro e descobri que o pessoal abre apenas à noite... isso quer dizer problemas com o time feminino... :-) Eu não sei o que fazer, por isso escrevi. Não terei condições de aparecer caso este seja o local e horário escolhido pelos monges. Lamento, rapazes, mas ser casado requer abrir mão de certas coisas. :-) Acho que o Solli concorda comigo. Rapazes, precisamos decidir onde será o próximo encontro logo. Tenho de publicar o local do encontro até quarta, no máximo. Putamplexos a todos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= _______________________________________________ Cascavel-pm mailing list Cascavel-pm@mail.pm.org http://cascavel.pm.org/mailman/listinfo/cascavel-pm From shonorio em terra.com.br Mon May 24 17:39:17 2004 From: shonorio em terra.com.br (Solli Moreria Honorio) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Idioma muito legal!! In-Reply-To: <40AE3852.9000405@terra.com.br> Message-ID: <000101c441df$f2a77630$32cbcfc8@eraser> > Bom, isso não é coisa do Andy, isso é coisa do sr. Randal Schwartz, >proprietário da Stonehenge Consulting Inc e segundo homem da hierarquia >de poder do Perl (sucedendo automaticamente o Larry Wall). Eu acho que conheceço este "mané"... é o tal do merlyn ??? Ele andou trocando algumas idéias comigo no Perl Monks !!! Deve ser o sotaque do meu inglês? From shonorio em terra.com.br Mon May 24 18:07:48 2004 From: shonorio em terra.com.br (Solli Moreria Honorio) Date: Mon Aug 2 21:27:03 2004 Subject: [Cascavel-pm] Idioma muito legal!! In-Reply-To: <40AD170F.2030702@terra.com.br> Message-ID: <000001c441e3$f03da550$32cbcfc8@eraser> Putz, Vocês estão falando difícil de mais... até ressusitaram o russo Andrei Markov que está sepultado em alguma das minhas gavetas. Estou até pensando em usar este exemplo para demonstrar o meu grau de conhecimento em Perl :-) !! Solli -----Original Message----- From: cascavel-pm-bounces@mail.pm.org [mailto:cascavel-pm-bounces@mail.pm.org] On Behalf Of Luis Campos de Carvalho Sent: quinta-feira, 20 de maio de 2004 17:38 To: Cascavel Perl Mongers Subject: Re: [Cascavel-pm] Idioma muito legal!! -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Nelson, Solli e colegas irmaos-no-perl... Acho que o problema todo aqui eh falta de contexto. Lembrem-se de que eu estou estudando cadeias de Markov e contando coisas de maneira organizada. Dentro desta filosofia, ter uma "arvore" que retenha a contagem de cada objeto eh conveniente e interessante. Daí surgiu o problema todo. O snippet que eu enviei prezume que $top (a raiz da arvore) eh previamente inicializada com uma referencia para um hash table. Segue exemplo: #!/usr/bin/perl # $top eh a raiz da minha "arvore" n-aria... $top = {count => 0}; $x = $top; $x = $x->{$_} ||= {} for qw(a b c d e); use Data::Dumper; print Dumper $x; print Dumper $top; __END__ Que resulta em $VAR1 = {}; $VAR1 = { 'count' => 0, 'a' => { 'b' => { 'c' => { 'd' => { 'e' => {} } } } } }; CQD, meus caros... :-) - -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (GNU/Linux) iD8DBQFArRayz+iwwpKRaDIRAphjAJ9ts/QZw7SCOXvzyfjwoayyVSMRggCgnTwg dcXZLn35XxFxwwJCxUuTgx8= =Pbsy -----END PGP SIGNATURE----- _______________________________________________ Cascavel-pm mailing list Cascavel-pm@mail.pm.org http://cascavel.pm.org/mailman/listinfo/cascavel-pm From nferraz em phperl.com Mon May 24 19:06:15 2004 From: nferraz em phperl.com (Nelson Ferraz) Date: Mon Aug 2 21:27:03 2004 Subject: =?ISO-8859-1?Q?Re=3A_=5BCascavel-pm=5D_Quarto_Encontro_S?= =?ISO-8859-1?Q?ocial_dos_S=E3o_Paulo_Perl_M=5Bou=5Dngers?= In-Reply-To: <40B2332B.8010107@terra.com.br> References: <40B2332B.8010107@terra.com.br> Message-ID: <40B28DF7.5030604@phperl.com> Luis Campos de Carvalho wrote: > Eu acabo de telefonar para o Finnegan's Pub, escolhido por decurso de > prazo para sediar o quarto encontro e descobri que o pessoal abre apenas > à noite... isso quer dizer problemas com o time feminino... :-) Sem problemas! Podemos marcar em um outro lugar. Que tal o Outback, no shopping Eldorado? (Esta é apenas uma idéia, mandem suas sugestões!) []s Nelson From shonorio em terra.com.br Mon May 24 19:27:52 2004 From: shonorio em terra.com.br (Solli Moreria Honorio) Date: Mon Aug 2 21:27:03 2004 Subject: =?iso-8859-1?Q?RE:_=5BCascavel-pm=5D_Quarto_Encontro_Social_dos_S=E3o_Pau?= =?iso-8859-1?Q?lo_Perl_M=5Bou=5Dngers?= In-Reply-To: <40B28DF7.5030604@phperl.com> Message-ID: <000001c441ef$1e580290$32cbcfc8@eraser> Legal... que pena que eles não tenham carne de canguru :-) !! À que horas ? Poderia ser as 14:00 ?! -----Original Message----- From: cascavel-pm-bounces@mail.pm.org [mailto:cascavel-pm-bounces@mail.pm.org] On Behalf Of Nelson Ferraz Sent: segunda-feira, 24 de maio de 2004 21:06 To: Cascavel Perl Mongers Subject: Re: [Cascavel-pm] Quarto Encontro Social dos São Paulo Perl M[ou]ngers Luis Campos de Carvalho wrote: > Eu acabo de telefonar para o Finnegan's Pub, escolhido por decurso de > prazo para sediar o quarto encontro e descobri que o pessoal abre apenas > à noite... isso quer dizer problemas com o time feminino... :-) Sem problemas! Podemos marcar em um outro lugar. Que tal o Outback, no shopping Eldorado? (Esta é apenas uma idéia, mandem suas sugestões!) []s Nelson _______________________________________________ Cascavel-pm mailing list Cascavel-pm@mail.pm.org http://cascavel.pm.org/mailman/listinfo/cascavel-pm From lechamps em terra.com.br Mon May 24 20:02:56 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:03 2004 Subject: =?iso-8859-1?Q?Re:_=5BCascavel-pm=5D_Quarto_Encontro_Social_dos_S=E3o_Pau?= =?iso-8859-1?Q?lo_Perl_M=5Bou=5Dngers?= References: <000001c441de$ec70d820$32cbcfc8@eraser> Message-ID: <011f01c441f4$042cff60$8800a8c0@lafitt> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 - ----- Original Message ----- From: "Solli Moreria Honorio" > Porque não na choperia do shopping Sta Cruz, achei o lugar bom para este > tipo.... e como o objetivo é discutir cerveja !!? > > Solli > Simples: porque a cerveja é simplesmente hor-ri-pi-lan-te! Por isso não dá para voltar naquele muquifo! ;-) - -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho Computer Scientist Unix Sys Adm & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.1 (MingW32) - WinPT 0.7.96rc1 iD8DBQFAsps8z+iwwpKRaDIRAmtpAKCRSNRH99LOf4+3LABiUp95m/SWZQCgtv7i 4ZoQ/znFfqPJBPtTY9lUk5A= =QY8u -----END PGP SIGNATURE----- From gabriel em webclube.com Mon May 24 21:33:25 2004 From: gabriel em webclube.com (Gabriel Vieira) Date: Mon Aug 2 21:27:03 2004 Subject: =?iso-8859-1?Q?Re:_=5BCascavel-pm=5D_Quarto_Encontro_Social_dos_S=E3o_Pau?= =?iso-8859-1?Q?lo_Perl_M=5Bou=5Dngers?= References: <000001c441de$ec70d820$32cbcfc8@eraser> <011f01c441f4$042cff60$8800a8c0@lafitt> Message-ID: <003201c44200$aa143220$ad57a8c0@fortalnet.com.br> Levem suas esposas!!! Quem sabe elas os compreendam um pouco mais, ou até mesmo fiquem conversando entre si... sei lá.. :~~ Ou então liberem uma boa quantia pra elas brincarem de compras no shopping... :D Espero que um dia está reunião passe umas férias por aqui em Fortaleza. Enquanto isso, boa meditação aos monges! Abraços ;) Gabriel Vieira ----- Original Message ----- From: "Luis Campos de Carvalho" To: "Cascavel Perl Mongers" Sent: Monday, May 24, 2004 10:02 PM Subject: Re: [Cascavel-pm] Quarto Encontro Social dos São Paulo Perl M[ou]ngers > -----BEGIN PGP SIGNED MESSAGE----- > Hash: SHA1 > > - ----- Original Message ----- > From: "Solli Moreria Honorio" > > Porque não na choperia do shopping Sta Cruz, achei o lugar bom para este > > tipo.... e como o objetivo é discutir cerveja !!? > > > > Solli > > > > Simples: porque a cerveja é simplesmente hor-ri-pi-lan-te! > Por isso não dá para voltar naquele muquifo! ;-) > - -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho > Computer Scientist > Unix Sys Adm & OCP/DBA Oracle > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > -----BEGIN PGP SIGNATURE----- > Version: GnuPG v1.2.1 (MingW32) - WinPT 0.7.96rc1 > > iD8DBQFAsps8z+iwwpKRaDIRAmtpAKCRSNRH99LOf4+3LABiUp95m/SWZQCgtv7i > 4ZoQ/znFfqPJBPtTY9lUk5A= > =QY8u > -----END PGP SIGNATURE----- > > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > From gabriel em webclube.com Mon May 24 21:35:59 2004 From: gabriel em webclube.com (Gabriel Vieira) Date: Mon Aug 2 21:27:03 2004 Subject: =?iso-8859-1?Q?Re:_=5BCascavel-pm=5D_Quarto_Encontro_Social_dos_S=E3o_Pau?= =?iso-8859-1?Q?lo_Perl_M=5Bou=5Dngers?= References: <000001c441ef$1e580290$32cbcfc8@eraser> Message-ID: <003801c44201$03840240$ad57a8c0@fortalnet.com.br> ... e descobri que o pessoal abre apenas à noite... :D []s, Gabriel Vieira ----- Original Message ----- From: "Solli Moreria Honorio" To: "'Cascavel Perl Mongers'" Sent: Monday, May 24, 2004 9:27 PM Subject: RE: [Cascavel-pm] Quarto Encontro Social dos São Paulo Perl M[ou]ngers > Legal... que pena que eles não tenham carne de canguru :-) !! À que > horas ? Poderia ser as 14:00 ?! > > -----Original Message----- > From: cascavel-pm-bounces@mail.pm.org > [mailto:cascavel-pm-bounces@mail.pm.org] On Behalf Of Nelson Ferraz > Sent: segunda-feira, 24 de maio de 2004 21:06 > To: Cascavel Perl Mongers > Subject: Re: [Cascavel-pm] Quarto Encontro Social dos São Paulo Perl > M[ou]ngers > > Luis Campos de Carvalho wrote: > > Eu acabo de telefonar para o Finnegan's Pub, escolhido por decurso > de > > prazo para sediar o quarto encontro e descobri que o pessoal abre > apenas > > à noite... isso quer dizer problemas com o time feminino... :-) > > Sem problemas! Podemos marcar em um outro lugar. > > Que tal o Outback, no shopping Eldorado? (Esta é apenas uma idéia, > mandem suas sugestões!) > > []s > > Nelson > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > From lechamps em terra.com.br Mon May 24 21:35:09 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:04 2004 Subject: =?iso-8859-1?Q?Re:_=5BCascavel-pm=5D_Quarto_Encontro_Social_dos_S=E3o_Pau?= =?iso-8859-1?Q?lo_Perl_M=5Bou=5Dngers?= References: <40B2332B.8010107@terra.com.br> <40B28DF7.5030604@phperl.com> Message-ID: <012b01c44200$e636c9c0$8800a8c0@lafitt> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 > Nelson Ferraz wrote: > > Luis Campos de Carvalho wrote: > > Eu acabo de telefonar para o Finnegan's Pub, escolhido por decurso de > > prazo para sediar o quarto encontro e descobri que o pessoal abre apenas > > à noite... isso quer dizer problemas com o time feminino... :-) > > Sem problemas! Podemos marcar em um outro lugar. Obrigado!!! Obrigado!!! > Que tal o Outback, no shopping Eldorado? (Esta é apenas uma idéia, > mandem suas sugestões!) A idéia parece interessante. Mas há basicamente dois problemas: 1. Lá é (sem dúvida) um lugar financeiramente restritivo. Não queremos que os SP-PM'ers deixem de ir a um encontro por que o lugar é caro. A média por cabeça sai perto de R$80 por cabeça, lá... 2. Eu não sei como é a zona oeste da cidade em termos de transporte para os outros SP-PM'ers. Eu, particularmente, acho o local (shopping Eldorado) fantástico. É muito perto da minha casa... Aqui tem as minhas sugestões: A) Bilhar no Dona Mathilde http://www.guiamais.com.br/viewMore.do?addressId=700046016&clientId=0&guideId=2&localeMarketId=5&localeUfId=SP&localeCityId=SAO%20PAULO B) Bar do Léo http://www.guiamais.com.br/viewMore.do?addressId=700045902&clientId=0&guideId=2&localeMarketId=5&localeUfId=SP&localeCityId=SAO%20PAULO Eu acho que são duas ótimas opções. Claro, isto é uma democracia e a maioria vence. Vamos votar? Mandem seus votos para o meu email, assim não congestionamos a lista. Claro, quem quiser comentar sinta-se à vontade. Putamplexos a todos! - -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho Computer Scientist Unix Sys Adm & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.1 (MingW32) - WinPT 0.7.96rc1 iD8DBQFAsrDZz+iwwpKRaDIRAq0ZAKC3d/7ijf8q7Wb6bthwxfgv88V7lwCeKP55 6g+diwdN5mvM+uberozzqKQ= =grNB -----END PGP SIGNATURE----- From glasswalk3r em yahoo.com.br Mon May 24 00:46:44 2004 From: glasswalk3r em yahoo.com.br (Alceu Rodrigues de Freitas Junior) Date: Mon Aug 2 21:27:04 2004 Subject: [Cascavel-pm] Quarto Encontro Social dos =?ISO-8859-1?Q?S=E3o?= Paulo Perl M[ou]ngers In-Reply-To: <012b01c44200$e636c9c0$8800a8c0@lafitt> References: <40B2332B.8010107@terra.com.br> <40B28DF7.5030604@phperl.com> <012b01c44200$e636c9c0$8800a8c0@lafitt> Message-ID: <20040524024644.074c1b59@valhalla.localdomain> On Mon, 24 May 2004 23:35:09 -0300 "Luis Campos de Carvalho" wrote: > 1. Lá é (sem dúvida) um lugar financeiramente restritivo. Não > queremos que os SP-PM'ers deixem de ir a um encontro por que o lugar > é caro. A média por cabeça sai perto de R$80 por cabeça, lá... Pois é, o Outback é bom... principalmente a cebola frita/empanada (sei lá como fazem, sei que é BÃO!)... mas a brincadeira sai cara. Podíamos ir no Hooters, aonde tem umas garçonetes com saias pequeninas e GRANDES decotes servindo cerveja []'s -- Alceu Rodrigues de Freitas Junior -- glasswalk3r@yahoo.com.br PGP public key at http://www.imortais.cjb.net/addgb.html --------------------------------------------------------------- He who knows others is wise. He who knows himself is enlightened. -- Lao Tsu From glasswalk3r em yahoo.com.br Mon May 24 00:09:56 2004 From: glasswalk3r em yahoo.com.br (Alceu Rodrigues de Freitas Junior) Date: Mon Aug 2 21:27:04 2004 Subject: [Cascavel-pm] Quarto Encontro Social dos =?ISO-8859-1?Q?S=E3o?= Paulo Perl M[ou]ngers In-Reply-To: <011f01c441f4$042cff60$8800a8c0@lafitt> References: <000001c441de$ec70d820$32cbcfc8@eraser> <011f01c441f4$042cff60$8800a8c0@lafitt> Message-ID: <20040524020956.152ea878@valhalla.localdomain> On Mon, 24 May 2004 22:02:56 -0300 "Luis Campos de Carvalho" wrote: > > Simples: porque a cerveja é simplesmente hor-ri-pi-lan-te! > Por isso não dá para voltar naquele muquifo! ;-) Apoiado. Chá de erva cidreira é mais encorpado que o chopp de lá. Vou checar as sugestões do Le Champs... mas gostaria de deixar minha sugestão para fazer o encontro no O'Malleys... fica próximo a Av. Paulista, perto do metro Consolação. Rock Bar Café... alguém gosta de rock aí? []'s -- Alceu Rodrigues de Freitas Junior -- glasswalk3r@yahoo.com.br PGP public key at http://www.imortais.cjb.net/addgb.html --------------------------------------------------------------- He who knows others is wise. He who knows himself is enlightened. -- Lao Tsu From glasswalk3r em yahoo.com.br Mon May 24 00:13:25 2004 From: glasswalk3r em yahoo.com.br (Alceu Rodrigues de Freitas Junior) Date: Mon Aug 2 21:27:04 2004 Subject: [Cascavel-pm] Planejamento =?iso-8859-1?q?Estrat=E9gico?= - =?iso-8859-1?q?Princ=EDpio=2C?= Meio e Fim Message-ID: <20040524021325.7ccfd6c9@valhalla.localdomain> Desculpe senhores, não resisti... completamente off-topic, mas aposto que alguns de vocês já viram algo parecido... --- -Planejamento Estratégico - Princípio, Meio e Fim No início, existia um Plano... E então vieram as Premissas... E as Premissas não tinham forma... E o Plano não tinha substância... E a escuridão cobriu a face dos Funcionários. Entao eles disseram entre si: "- É um balde de merda, e ele fede." E os Funcionários foram aos seus Supervisores e disseram: "- É um pote de excremento animal, e não podemos viver com o cheiro." E os Supervisores foram aos seus Gerentes dizendo: "- É uma caixa de adubo, e ele é muito forte, de forma que não podemos suportá-lo." E os Gerentes foram aos seus Diretores dizendo: "- É um recipiente de fertilizante, e não podemos resistir a sua força." E os Diretores comentaram entre si: "- Ele contém aquilo que ajuda as plantas a crescerem, e é muito forte." E os Diretores foram aos Vice-Presidentes dizendo a eles: "- Ele promove crescimento, e é muito poderoso." E os Vice-Presidentes foram ao Presidente dizendo a ele: "- Esse novo plano irá ativamente promover crescimento e vigor para a Empresa, com efeitos muito poderosos." O Presidente olhou para o plano, e disse que ele era muito bom... E o plano virou Política da Empresa. E é assim que a merda acontece. -- []'s -- Alceu Rodrigues de Freitas Junior -- glasswalk3r@yahoo.com.br PGP public key at http://www.imortais.cjb.net/addgb.html --------------------------------------------------------------- He who knows others is wise. He who knows himself is enlightened. -- Lao Tsu -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040524/efb87250/attachment.htm From shonorio em terra.com.br Tue May 25 08:13:34 2004 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Mon Aug 2 21:27:04 2004 Subject: =?iso-8859-1?b?UmU6IFtDYXNjYXZlbC1wbV0gUXVhcnRvIEVuY29udHJvIFNvY2lhbCBk?= =?iso-8859-1?b?b3MgU+NvIFBhdWxvIFBlcmwgTVtvdV1uZ2Vycw==?= Message-ID: Que exagero !! Ainda mais chamar de muquifo !!! De:cascavel-pm-bounces@mail.pm.org Para:"Cascavel Perl Mongers" cascavel-pm@mail.pm.org Cópia: Data:Mon, 24 May 2004 22:02:56 -0300 Assunto:Re: [Cascavel-pm] Quarto Encontro Social dos São Paulo Perl M[ou]ngers > -----BEGIN PGP SIGNED MESSAGE----- > Hash: SHA1 > > - ----- Original Message ----- > From: "Solli Moreria Honorio" > > Porque não na choperia do shopping Sta Cruz, achei o lugar bom para este > > tipo.... e como o objetivo é discutir cerveja !!? > > > > Solli > > > > Simples: porque a cerveja é simplesmente hor-ri-pi-lan-te! > Por isso não dá para voltar naquele muquifo! ;-) > - -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho > Computer Scientist > Unix Sys Adm & OCP/DBA Oracle > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > -----BEGIN PGP SIGNATURE----- > Version: GnuPG v1.2.1 (MingW32) - WinPT 0.7.96rc1 > > iD8DBQFAsps8z+iwwpKRaDIRAmtpAKCRSNRH99LOf4+3LABiUp95m/SWZQCgtv7i > 4ZoQ/znFfqPJBPtTY9lUk5A= > =QY8u > -----END PGP SIGNATURE----- > > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040525/ba8e73da/attachment.htm From lechamps em terra.com.br Tue May 25 11:54:21 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:04 2004 Subject: [Cascavel-pm] [IV Encontro dos SPPM'ers]: Batendo o Martelo... Message-ID: <40B37A3D.8000900@terra.com.br> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Gente, parece que a sugestão do Alceu está na medida do bolso de todo mundo (R$30/pessoa, dependendo de quanto se bebe), e também atende nossas exigências de horário (14:00, ou TeaTime/GMT), faz reservas e tem boa localização (ninguém pode reclamar de ir até a Av. Paulista, é super-simples de chegar -- Exceto, talvez, para o pessoal do Rio Grande do Sul e cia ltda... ). Vou aguardar pelas manifestações contrárias até as 17:30 BRT, e depois vou fazer reservas e publicar nosso convite mensal para todos os que desejarem aparecer. O'Malleys Pub São Paulo's favourite Irish bar & gringo hangout Open daily, noon 'til dawn! West 46°, 39' 55.5" - South 23°, 33' 29.6" Alameda Itú 1529, Jardins, São Paulo, Brazil Telephone: +55 11 3086 0780 R$30,00/cabeça http://www.omalleysbar.net/ map $_->Putamplexos(), ORG::PM::Cascavel->retrieve_all(); - -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (GNU/Linux) iD8DBQFAs3ofz+iwwpKRaDIRAn/mAJ92xBf4LPxiQak1hT0JodUVaJTFXwCfacKy sXvu/ZWPzoUyzxs4rEMNQAk= =UfbC -----END PGP SIGNATURE----- From lechamps em terra.com.br Thu May 27 15:25:08 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:04 2004 Subject: [Cascavel-pm] IV Encontro do =?iso-8859-1?q?S=E3o_Paulo_Perl_Mongers?= Message-ID: <40B64EA4.1000205@terra.com.br> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 ================================================== Quarto Encontro dos Monges Perl Paulistanos Os monges paulistanos têm a honra de convidá-lo para nosso quarto encontro social, que se realiza tradicionalmente no último sábado de cada mês. Desta vez, acontecerá no dia 29 de maio de 2004, a partir das 14:00 BRT, no O'Malleys Pub, no Bairro de Pinheiros, na Cidade de São Paulo. Como sempre, eu fiz reserva para umas 12 pessoas (sim, eu sei que nunca vão tantas, mas se o lugar agradar a você pode aparecer... ;-) São Paulo's favourite Irish bar & gringo hangout Alameda Itú 1529, Jardins, São Paulo, Brazil West 46°, 39' 55.5" - South 23°, 33' 29.6" Telephone: +55 11 3086 0780 http://www.omalleysbar.net/ Gastos na média de R$30,00/cabeça Eu fiz reserva no nome dos São Paulo Perl Mongers, basta chegar e perguntar pela mesa. Todos estão convidados. Apareçam! Isso é exatamente daqui a três dias, se você estiver lendo esta mensagem no mesmo dia em que eu a enviei. ================================================== Quem tiver problemas, pode me telefonar no (11)9297 4646. Putamplexos, e vejo vocês no sábado! - -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (GNU/Linux) iD8DBQFAtPCOz+iwwpKRaDIRAr8KAKCH6/R+KLk2k2zH4xrvEeM8ACYnaACdE247 SBe1wIaKq+Bs2ybQX4hJIPQ= =JsyH -----END PGP SIGNATURE----- From lechamps em terra.com.br Wed May 26 14:32:08 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:27:04 2004 Subject: [Cascavel-pm] IV Encontro do =?iso-8859-1?q?S=E3o_Paulo_Perl_Mongers?= Message-ID: <40B4F0B8.2000503@terra.com.br> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 ================================================== Quarto Encontro dos Monges Perl Paulistanos Os monges paulistanos têm a honra de convidá-lo para nosso quarto encontro social, que se realiza tradicionalmente no último sábado de cada mês. Desta vez, acontecerá no dia 29 de maio de 2004, a partir das 14:00 BRT, no O'Malleys Pub, no Bairro de Pinheiros, na Cidade de São Paulo. Como sempre, eu fiz reserva para umas 12 pessoas (sim, eu sei que nunca vão tantas, mas se o lugar agradar a você pode aparecer... ;-) São Paulo's favourite Irish bar & gringo hangout Alameda Itú 1529, Jardins, São Paulo, Brazil West 46°, 39' 55.5" - South 23°, 33' 29.6" Telephone: +55 11 3086 0780 http://www.omalleysbar.net/ Gastos na média de R$30,00/cabeça Eu fiz reserva no nome dos São Paulo Perl Mongers, basta chegar e perguntar pela mesa. Todos estão convidados. Apareçam! Isso é exatamente daqui a três dias, se você estiver lendo esta mensagem no mesmo dia em que eu a enviei. ================================================== Quem tiver problemas, pode me telefonar no (11)9297 4646. Putamplexos, e vejo vocês no sábado! - -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (GNU/Linux) iD8DBQFAtPCOz+iwwpKRaDIRAr8KAKCH6/R+KLk2k2zH4xrvEeM8ACYnaACdE247 SBe1wIaKq+Bs2ybQX4hJIPQ= =JsyH -----END PGP SIGNATURE----- From shonorio em terra.com.br Sat May 29 12:11:31 2004 From: shonorio em terra.com.br (Solli Moreria Honorio) Date: Mon Aug 2 21:27:04 2004 Subject: [Cascavel-pm] The Great Win32 Computer Language Shootout !!! Message-ID: <000001c4459f$fd635a80$32cbcfc8@eraser> Pessoal, Achei este site interessante, o cara fez vários teste de performance entre diversas linguagem para a plataforma Win32, e está mostrando o resultado. http://dada.perl.it/shootout/ Dêem uma olhada. Solli -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040529/b4923861/attachment.htm From glasswalk3r em yahoo.com.br Sun May 30 01:09:10 2004 From: glasswalk3r em yahoo.com.br (Alceu Rodrigues de Freitas Junior) Date: Mon Aug 2 21:27:04 2004 Subject: [Cascavel-pm] Fw: Thank you for making pVoice's new release possible! Message-ID: <20040530030910.35bd93b6@valhalla.localdomain> Olá monges, Se alguém tiver interesse em codificar Perl com GUI para Windows, aí está uma oportunidade interessante. pVoice é uma programa para deficientes físicos possam "falar". A algum tempo atrás eu ajudei traduzindo as mensagens para o português. Achei muito bacana o trabalho do Jouke e resolvi dar uma força. Valeu lembrar que o programa está sobre licença GPL. Que achou interessante pode ver mais detalhes em http://www.pvoice.org. Segue mais abaixo uma mensagem que recebi recentemente dele. []'s -- Alceu Rodrigues de Freitas Junior -- glasswalk3r@yahoo.com.br PGP public key at http://www.imortais.cjb.net/addgb.html --------------------------------------------------------------- He who knows others is wise. He who knows himself is enlightened. -- Lao Tsu Begin forwarded message: Date: Mon, 31 May 2004 08:42:20 +0200 From: Jouke Visser To: Alceu Rodrigues de Freitas Junior Subject: Re: Thank you for making pVoice's new release possible! Hi Alceu, Alceu Rodrigues de Freitas Junior wrote: > I'm happy to know that everything is running OK with pVoice! And I'm > glad to had given some piece of help to such program! Glad to hear that! > I'm a member of the Sao Paulo Perl Mongers, maybe we could help you > with pVoice doing some code and/or translations! Well, I'll certainly inform you when new translations are needed, because the development keeps going. I have a number of ideas (on the coding side) that need to be implemented, and although I want to keep control of what is actually being developed for pVoice, I could certainly need some help with it. So if you and/or other Sao Paulo PM-ers are willing to help with the coding, please let me know and I'll give you a list of things that need to be written... Kind regards, -- Jouke Visser +--------------------------------------------------------------------+ | Speaking at the 2004 O'Reilly | http://www.pvoice.org | | Open Source Convention about pVoice | http://jouke.pvoice.org | | http://conferences.oreilly.com/oscon | jouke@pvoice.org | +--------------------------------------------------------------------+