From shonorio em terra.com.br Tue Mar 1 16:51:15 2005 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Tue Mar 1 16:51:28 2005 Subject: =?iso-8859-1?b?UmU6W0Nhc2NhdmVsLXBtXSBQZWRpZG8gZGUgc3VnZXN09Q==?= =?iso-8859-1?b?ZXMvY3LtdGljYXM=?= Message-ID: Nilson, Muito interessante, eu estou fazendo algumas coisa com Perl e .NET e estava sentido muita faulta de algo parecido com o Expection do .NET. Vou começar a alterar os meus script para utilizar este módulo, ao invéz dos famosos 'return error_cod' e aí trocamos algumas idéias. Até mais, Solli M. Honorio De:cascavel-pm-bounces@pm.org Para:"Cascavel Perl Mongers" cascavel-pm@pm.org Cópia: Data:Mon, 28 Feb 2005 16:25:03 -0300 Assunto:[Cascavel-pm] Pedido de sugestões/críticas > Olá, > > Nesse fim de semana, após tentar 2 outros nomes que não haviam sido > aprovados para constar na module-list oficial, finalmente coloquei > mais um módulo meu na CPAN. > > Quem é familiar com tratamento de exceções em Perl utilizando uma > filosofia OO, com classes de exceções, etc, certamente já ouviu falar > no módulo "Error". Contudo, quem costuma ler bastante o PerlMonks, > talvez já tenha ouvido falar dos problemas relacionados a esse módulo > que vão desde pequenas nuancias (como não poder retornar de dentro de > um bloco) até memory leaks. > > Apesar disso tudo, eu ainda acho a interface do módulo Error a melhor > existente, em comparação com os outros módulos de tratamento de > exceções. Assim sendo, resolvi fazer uma implementação da mesma > interface, porém usando source filter. Com isso, os problemas > relativos ao uso do módulo Error são eliminados, mas sua interface bem > conveniente permanece. Além disso, como após a filtragem o código se > torna "nativo" (só baseado em eval{} if ($@)) ele se torna um pouco > mais rápido. > > No mais, além de talvez ser útil para outras pessoas, foi um > exercício para mim sobre como utilizar o módulo Parse::RecDescent. > > Bom, basta de conversa. O módulo está na CPAN, seu nome aprovado foi: > Error::TryCatch (bem sugestivo). > http://search.cpan.org/~nilsonsfj/Error-TryCatch-0.03/ > > Gostaria que, se possível, me fizessem sugestões/comentários/críticas > e possíveis bug reports, caso cheguem a utilizá-lo. > > -Nilson Santos F. Jr. > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050301/1f64eb56/attachment.htm From jamorreu em gmail.com Wed Mar 2 12:10:53 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Wed Mar 2 12:11:02 2005 Subject: [Cascavel-pm] Fazer apache ler script perl compilado (.exe) Message-ID: <8ff2963a050302121060f6d473@mail.gmail.com> Olá pessoal, chuchu-beleza? Algum querido monge sabe como fazer o apache interpretar (e não mandar eu fazer download) de um script perl compilado (.exe) ?? tenho que associar o (.exe) ao interpretador perl ou algo do tipo? -- Um abraço, João Gabriel / JGCL vitoria.pm.org "Somente quando a última árvore for derrubada, o último peixe morto e o último rio envenenado, que o homem irá perceber que dinheiro não se come." From lgonzaga em lncc.br Wed Mar 2 12:56:48 2005 From: lgonzaga em lncc.br (Luiz Gonzaga) Date: Wed Mar 2 12:56:58 2005 Subject: [Cascavel-pm] Fazer apache ler script perl compilado (.exe) In-Reply-To: <8ff2963a050302121060f6d473@mail.gmail.com> References: <8ff2963a050302121060f6d473@mail.gmail.com> Message-ID: <20050302175648.6aabf980.lgonzaga@lncc.br> Joao, O arquivo esta em um diretorio identificado por um ScriptAlias na configuracao do Apache ? Abracos, Luiz. On Wed, 2 Mar 2005 17:10:53 -0300 João Gabriel wrote: > Olá pessoal, chuchu-beleza? > > Algum querido monge sabe como fazer o apache interpretar (e não mandar > eu fazer download) de um script perl compilado (.exe) ?? > > tenho que associar o (.exe) ao interpretador perl ou algo do tipo? > > -- > Um abraço, > João Gabriel / JGCL > vitoria.pm.org > > "Somente quando a última árvore for derrubada, o último peixe morto > e o último rio envenenado, que o homem irá perceber que dinheiro não > se come." > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > From fglock em pucrs.br Wed Mar 2 13:04:10 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Wed Mar 2 13:05:36 2005 Subject: [Cascavel-pm] Fazer apache ler script perl compilado (.exe) Message-ID: <200503022105.j22L5M2e050261@rigel.pucrs.br> > Algum querido monge sabe como fazer o apache interpretar (e não mandar > eu fazer download) de um script perl compilado (.exe) ?? > Procure uma linha no arquivo httpd.conf que se pareça com: AddHandler cgi-script .cgi Acrescente o tipo ".exe": AddHandler cgi-script .cgi .exe - Flavio From monsieur_champs em yahoo.com.br Wed Mar 2 13:27:07 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Mar 2 13:27:42 2005 Subject: [Cascavel-pm] Fazer apache ler script perl compilado (.exe) In-Reply-To: <8ff2963a050302121060f6d473@mail.gmail.com> References: <8ff2963a050302121060f6d473@mail.gmail.com> Message-ID: <42262FAB.90507@yahoo.com.br> João Gabriel wrote: > Olá pessoal, chuchu-beleza? > > Algum querido monge sabe como fazer o apache interpretar (e não mandar > eu fazer download) de um script perl compilado (.exe) ?? > > tenho que associar o (.exe) ao interpretador perl ou algo do tipo? > Existem diretivas (ScriptAlias) para tornar um diretório o local de rodar CGI's (e tudo o que estiver dentro do diretório será considerado programa) e para tornar um tipo de arquivo CGI, baseado na extensão do arquivo (SetHandler). Para saber mais, leia o manual do Apache, http://httpd.apache.org/ Putamplexos e boa sorte. -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From acid06 em gmail.com Wed Mar 2 13:46:14 2005 From: acid06 em gmail.com (Nilson Santos) Date: Wed Mar 2 13:46:41 2005 Subject: [Cascavel-pm] Fazer apache ler script perl compilado (.exe) In-Reply-To: <8ff2963a050302121060f6d473@mail.gmail.com> References: <8ff2963a050302121060f6d473@mail.gmail.com> Message-ID: <9a08c9b405030213466451338e@mail.gmail.com> On Wed, 2 Mar 2005 17:10:53 -0300, João Gabriel wrote: > Algum querido monge sabe como fazer o apache interpretar (e não mandar > eu fazer download) de um script perl compilado (.exe) ?? > > tenho que associar o (.exe) ao interpretador perl ou algo do tipo? Só por curiosidade... porque você quer usar um executável no apache ao invés do próprio .pl? para esconder o código fonte? porque na verdade... não tem nada de compilado... você usando o módulo B::Bytecode estará "compilando" muito mais verdadeiramente do que usando perlapp ou perl2exe, esses executáveis na verdade são mais lentos para carregar que um script comum. -Nilson Santos F. Jr. From glasswalk3r em yahoo.com.br Wed Mar 2 13:54:14 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Wed Mar 2 13:54:33 2005 Subject: [Cascavel-pm] Fazer apache ler script perl compilado (.exe) In-Reply-To: <9a08c9b405030213466451338e@mail.gmail.com> Message-ID: <20050302215414.96992.qmail@web20224.mail.yahoo.com> --- Nilson Santos escreveu: > Só por curiosidade... porque você quer usar um > executável no apache ao > invés do próprio .pl? para esconder o código fonte? > > porque na verdade... não tem nada de compilado... > você usando o módulo > B::Bytecode estará "compilando" muito mais > verdadeiramente do que > usando perlapp ou perl2exe, esses executáveis na > verdade são mais > lentos para carregar que um script comum. Nilson, esses programas que você citou... fazem parte do pacote comercial do Active Perl? Porque livre, pra gerar executáveis a partir de Perl, eu só conheço o módulo PAR. []'s ===== Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 _______________________________________________________ Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis From acid06 em gmail.com Wed Mar 2 14:04:43 2005 From: acid06 em gmail.com (Nilson Santos) Date: Wed Mar 2 14:04:51 2005 Subject: [Cascavel-pm] Fazer apache ler script perl compilado (.exe) In-Reply-To: <20050302215414.96992.qmail@web20224.mail.yahoo.com> References: <9a08c9b405030213466451338e@mail.gmail.com> <20050302215414.96992.qmail@web20224.mail.yahoo.com> Message-ID: <9a08c9b4050302140466c28279@mail.gmail.com> On Wed, 2 Mar 2005 18:54:14 -0300 (ART), Alceu R. de Freitas Jr. wrote: > Nilson, esses programas que você citou... fazem parte > do pacote comercial do Active Perl? > > Porque livre, pra gerar executáveis a partir de Perl, > eu só conheço o módulo PAR. Ah. Mas a situação também se aplica ao PAR. O PerlApp é do pacote comercial da ActiveState e o Perl2Exe é de uma outra empresa, IndigoStar. É porque eu acho que fui meio às avessas... conheci primeiro o Perl2Exe, depois o PerlApp e só depois fui conhecer PAR, por isso acabo pensando neles primeiro. -Nilson Santos F. Jr. From jamorreu em gmail.com Wed Mar 2 15:02:31 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Wed Mar 2 15:02:42 2005 Subject: [Cascavel-pm] Fazer apache ler script perl compilado (.exe) Message-ID: <8ff2963a05030215026adb1686@mail.gmail.com> Nilson Santos F. Jr.... > Só por curiosidade... porque você quer usar um executável no apache ao > invés do próprio .pl? para esconder o código fonte? não foi eu quem compilei o script... foi um amigo... > porque na verdade... não tem nada de compilado... porque não? o código fonte tá totalmente ilegivel cheio de caracteres especiais... nada que lembre o perl.. -=-=-= deu erro aqui... alguém sabe o que pode ser? "couldn't create child process: 720005: script.exe" Grato pela ajuda desde já. -- Um abraço, João Gabriel / JGCL vitoria.pm.org From monsieur_champs em yahoo.com.br Wed Mar 2 16:43:27 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Mar 2 16:44:47 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? Message-ID: <42265DAF.3070708@yahoo.com.br> Caros Ontem, conversando com um professor da pós-graduação sobre Perl, me perguntou o seguinte: "Quem usa Perl intensivamente no Brasil?". O mais perto que eu consegui chegar de uma resposta foi "administradores de sistemas, a Alpargatas e a Solutia". Claro, não devem ser apenas estes interessados. Eu gostaria muito de saber quem são as empresas que usam Perl no Brasil, e em que ramo de atividade elas atuam. Isso vai ajudar a responder perguntas pendentes, como "quem são as pessoas interessadas em Perl no Brasil?" -- claro, não apenas as pessaos que trabalham para estas empresas, mas também estas pessoas. E vocês, o que pensam? Eu estou interessado em todo o tipo de empresa, de Bancos a Metalúrgicas, passando por hotéis e comércio varejista/atacadista. Que empresas vocês conhecem que podem ser chamadas "usuárias de Perl"? Putamplexos curiosos... -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From glasswalk3r em yahoo.com.br Wed Mar 2 16:47:39 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Wed Mar 2 16:47:49 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? In-Reply-To: <42265DAF.3070708@yahoo.com.br> Message-ID: <20050303004739.54282.qmail@web20227.mail.yahoo.com> Luis, A Unilever é um exemplo bom de empresa grande que usa Perl. Eles usam Perl em todas as estações de trabalho como ferramenta de automatização. Na época que eu estava lá era uma versão pra lá de arcaica (versão 5.0.3 se não estou enganado), mas fica registrado o uso. []'s Alceu --- Luis Campos de Carvalho escreveu: > Caros > > Ontem, conversando com um professor da > pós-graduação sobre Perl, me > perguntou o seguinte: "Quem usa Perl intensivamente > no Brasil?". O mais > perto que eu consegui chegar de uma resposta foi > "administradores de > sistemas, a Alpargatas e a Solutia". Claro, não > devem ser apenas estes > interessados. > > Eu gostaria muito de saber quem são as empresas > que usam Perl no > Brasil, e em que ramo de atividade elas atuam. Isso > vai ajudar a > responder perguntas pendentes, como "quem são as > pessoas interessadas em > Perl no Brasil?" -- claro, não apenas as pessaos > que trabalham para > estas empresas, mas também estas pessoas. > > E vocês, o que pensam? Eu estou interessado em > todo o tipo de > empresa, de Bancos a Metalúrgicas, passando por > hotéis e comércio > varejista/atacadista. > > Que empresas vocês conhecem que podem ser > chamadas "usuárias de Perl"? > > Putamplexos curiosos... > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > _______________________________________________________ Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis From carlos.f em motorola.com Wed Mar 2 16:51:22 2005 From: carlos.f em motorola.com (Guarnieri Carlos-EMF003) Date: Wed Mar 2 16:51:36 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? Message-ID: <49A1A42B43C2D41192CB00508BDF19120E49A0A6@zbr05exm03.jag.br.mot.com> Na Motorola usa-se a Perl em interfaces que leem e tratam textos (o pessoal de fora usa muito pra isso) entre sistemas; A gente aqui alem de usar ela pra isso tambem usa para interfaces graficas e relatorios na web (apache+mod_perl+svg ou GD); r34d0nl1 -----Original Message----- From: cascavel-pm-bounces@pm.org [mailto:cascavel-pm-bounces@pm.org] On Behalf Of Alceu R. de Freitas Jr. Sent: Wednesday, March 02, 2005 9:48 PM To: Cascavel Perl Mongers Subject: Re: [Cascavel-pm] Heavy Users Nacionais de Perl ? Luis, A Unilever é um exemplo bom de empresa grande que usa Perl. Eles usam Perl em todas as estações de trabalho como ferramenta de automatização. Na época que eu estava lá era uma versão pra lá de arcaica (versão 5.0.3 se não estou enganado), mas fica registrado o uso. []'s Alceu --- Luis Campos de Carvalho escreveu: > Caros > > Ontem, conversando com um professor da > pós-graduação sobre Perl, me > perguntou o seguinte: "Quem usa Perl intensivamente > no Brasil?". O mais > perto que eu consegui chegar de uma resposta foi > "administradores de > sistemas, a Alpargatas e a Solutia". Claro, não > devem ser apenas estes > interessados. > > Eu gostaria muito de saber quem são as empresas > que usam Perl no > Brasil, e em que ramo de atividade elas atuam. Isso > vai ajudar a > responder perguntas pendentes, como "quem são as > pessoas interessadas em > Perl no Brasil?" -- claro, não apenas as pessaos > que trabalham para > estas empresas, mas também estas pessoas. > > E vocês, o que pensam? Eu estou interessado em > todo o tipo de > empresa, de Bancos a Metalúrgicas, passando por > hotéis e comércio > varejista/atacadista. > > Que empresas vocês conhecem que podem ser > chamadas "usuárias de Perl"? > > Putamplexos curiosos... > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm > _______________________________________________________ Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis _______________________________________________ Cascavel-pm mailing list Cascavel-pm@pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm From monsieur_champs em yahoo.com.br Wed Mar 2 17:00:38 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Mar 2 17:01:53 2005 Subject: [Cascavel-pm] Fazer apache ler script perl compilado (.exe) In-Reply-To: <8ff2963a05030215026adb1686@mail.gmail.com> References: <8ff2963a05030215026adb1686@mail.gmail.com> Message-ID: <422661B6.4060807@yahoo.com.br> João Gabriel wrote: > Nilson Santos F. Jr.... >>porque na verdade... não tem nada de compilado... > > porque não? o código fonte tá totalmente ilegivel cheio de caracteres > especiais... nada que lembre o perl.. Ilegível? Cheio de caracteres especiais? Assim, ó? #!/usr/bin/perl -i.bak -wlpe "m:(\d{2}/\d{2}/\d{4}):$|++&&print;" Pensando em um jeito de escrever Perl sem caracteres especiais... Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From jamorreu em gmail.com Wed Mar 2 19:24:53 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Wed Mar 2 19:25:00 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? Message-ID: <8ff2963a050302192428b5357d@mail.gmail.com> O portal Terra sua Perl em algumas de suas páginas... Se eu não me engano o sistema de envio de torpedos do site dá Claro é em Perl também... -- Um abraço, João Gabriel / JGCL From jamorreu em gmail.com Wed Mar 2 19:29:09 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Wed Mar 2 19:29:19 2005 Subject: [Cascavel-pm] Fazer apache ler script perl compilado (.exe) Message-ID: <8ff2963a05030219293026747f@mail.gmail.com> Luis Campos de Carvalho... > Ilegível? Cheio de caracteres especiais? > Assim, ó? > > #!/usr/bin/perl -i.bak -wlpe "m:(\d{2}/\d{2}/\d{4}):$|++&&print;" eu falei Ilegivel... com "200" caracteres especiais do tipo: quadrados, "y", dentre outros... (depois posto um exemplo aqui porque os editores do linux travam ao tentar abrir aplicativos .exe) -- Um abraço, João Gabriel / JGCL From joenio em gmail.com Thu Mar 3 03:43:34 2005 From: joenio em gmail.com (Joenio Marques) Date: Thu Mar 3 03:44:06 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? In-Reply-To: <8ff2963a050302192428b5357d@mail.gmail.com> References: <8ff2963a050302192428b5357d@mail.gmail.com> Message-ID: <65934b4505030303431c919b3b@mail.gmail.com> Existe uma empresa aqui em Salvador-Bahia que utiliza Perl. A Jacotei.com utiliza spiders em Perl (acho que é esse o termo) para popular o seu banco de dados com preços de produtos retirados de vários fontes na internet. []'s Joenio Marques On Thu, 3 Mar 2005 00:24:53 -0300, João Gabriel wrote: > O portal Terra sua Perl em algumas de suas páginas... > > Se eu não me engano o sistema de envio de torpedos do site dá Claro é > em Perl também... > > -- > Um abraço, > João Gabriel / JGCL > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > From fglock em pucrs.br Thu Mar 3 03:56:36 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Thu Mar 3 03:58:00 2005 Subject: [Cascavel-pm] Fazer apache ler script perl compilado (.exe) Message-ID: <200503031157.j23Bvo2e012117@rigel.pucrs.br> Gabriel falou: > > deu erro aqui... alguém sabe o que pode ser? > "couldn't create child process: 720005: script.exe" O script deve ser compilado no mesmo sistema operacional que vai rodar. Você não pode rodar no Unix um programa que foi compilado no Windows (na verdade pode, mas dá um pouco mais de trabalho). - Flavio From lgonzaga em lncc.br Thu Mar 3 04:21:57 2005 From: lgonzaga em lncc.br (Luiz Gonzaga) Date: Thu Mar 3 04:22:10 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? In-Reply-To: <42265DAF.3070708@yahoo.com.br> References: <42265DAF.3070708@yahoo.com.br> Message-ID: <20050303092157.1fed7769.lgonzaga@lncc.br> Luis, soh serve empresas ? Trabalho em uma instituicao de pesquisa - LNCC (Laboratorio Nacional de Computacao Cientifica) e no Laboratorio em que estou lotado - Laboratorio de Bioinformatica, com excecao de algumas poucas aplicacoes escritas em C, o restante, e nao eh pouco, eh todo escrito em Perl. Abracos, Luiz. On Wed, 02 Mar 2005 21:43:27 -0300 Luis Campos de Carvalho wrote: > Caros > > Ontem, conversando com um professor da pós-graduação sobre Perl, me > perguntou o seguinte: "Quem usa Perl intensivamente no Brasil?". O mais > perto que eu consegui chegar de uma resposta foi "administradores de > sistemas, a Alpargatas e a Solutia". Claro, não devem ser apenas estes > interessados. > > Eu gostaria muito de saber quem são as empresas que usam Perl no > Brasil, e em que ramo de atividade elas atuam. Isso vai ajudar a > responder perguntas pendentes, como "quem são as pessoas interessadas em > Perl no Brasil?" -- claro, não apenas as pessaos que trabalham para > estas empresas, mas também estas pessoas. > > E vocês, o que pensam? Eu estou interessado em todo o tipo de > empresa, de Bancos a Metalúrgicas, passando por hotéis e comércio > varejista/atacadista. > > Que empresas vocês conhecem que podem ser chamadas "usuárias de Perl"? > > Putamplexos curiosos... > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm From monsieur_champs em yahoo.com.br Thu Mar 3 04:57:47 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Thu Mar 3 04:58:31 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? In-Reply-To: <8ff2963a050302192428b5357d@mail.gmail.com> References: <8ff2963a050302192428b5357d@mail.gmail.com> Message-ID: <422709CB.2090709@yahoo.com.br> João Gabriel wrote: > O portal Terra sua Perl em algumas de suas páginas... "Transpira" você quer dizer... obrigado, JG. Este eu consigo verificar. > Se eu não me engano o sistema de envio de torpedos do site dá Claro é > em Perl também... Este eu gostaria de ter provas de que funciona assim. Você pode me ofercer alguma? Valem afirmações simples, como "conheço um cara que programou Perl lá". Desta forma, posso acrescentar isto ao trabalho que eu estou desenvolvendo... Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From monsieur_champs em yahoo.com.br Thu Mar 3 04:59:49 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Thu Mar 3 05:00:19 2005 Subject: [Cascavel-pm] Fazer apache ler script perl compilado (.exe) In-Reply-To: <8ff2963a05030219293026747f@mail.gmail.com> References: <8ff2963a05030219293026747f@mail.gmail.com> Message-ID: <42270A45.5040703@yahoo.com.br> João Gabriel wrote: > Luis Campos de Carvalho... > >> Ilegível? Cheio de caracteres especiais? >> Assim, ó? >> >> #!/usr/bin/perl -i.bak -wlpe "m:(\d{2}/\d{2}/\d{4}):$|++&&print;" > > > eu falei Ilegivel... com "200" caracteres especiais do tipo: > quadrados, "y", dentre outros... (depois posto um exemplo aqui porque > os editores do linux travam ao tentar abrir aplicativos .exe) > Se algum editor do Linux efetivamente "travar", como você está dizendo, a coisa vai de mal a pior... :-) Eu quis apenas fazer uma piada. Perl tem fama de "ilegível". Mas, explicando, fica completamente sem-graça. Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From monsieur_champs em yahoo.com.br Thu Mar 3 05:11:35 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Thu Mar 3 05:12:05 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? In-Reply-To: <20050303092157.1fed7769.lgonzaga@lncc.br> References: <42265DAF.3070708@yahoo.com.br> <20050303092157.1fed7769.lgonzaga@lncc.br> Message-ID: <42270D07.4020707@yahoo.com.br> Luiz Gonzaga wrote: > Luis, soh serve empresas ? Claro que não! Qualquer instituição respeitável que use Perl no Brasil é boa referência. > Trabalho em uma instituicao de pesquisa - LNCC (Laboratorio Nacional de > Computacao Cientifica) e no Laboratorio em que estou lotado - Laboratorio de > Bioinformatica, com excecao de algumas poucas aplicacoes escritas em C, o > restante, e nao eh pouco, eh todo escrito em Perl. Ótima referência. O LNCC é super-respeitado e bem-cotado. Obrigado, Luiz. Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From monsieur_champs em yahoo.com.br Thu Mar 3 05:24:33 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Thu Mar 3 05:25:05 2005 Subject: [Cascavel-pm] Fazer apache ler script perl compilado (.exe) In-Reply-To: <200503031157.j23Bvo2e012117@rigel.pucrs.br> References: <200503031157.j23Bvo2e012117@rigel.pucrs.br> Message-ID: <42271011.10209@yahoo.com.br> fglock@pucrs.br wrote: > Gabriel falou: >>deu erro aqui... alguém sabe o que pode ser? >>"couldn't create child process: 720005: script.exe" > > O script deve ser compilado no mesmo sistema > operacional que vai rodar. Você não pode rodar no > Unix um programa que foi compilado no Windows (na > verdade pode, mas dá um pouco mais de trabalho). > São Glock!!! Vai dar nó na cabeça do JG!!! A possibilidade de estar rodando um script compilado para outra arquitetura é muito grande, JG. Mas não é a única coisa que pode causar erros assim. Se sua máquina estiver até a tampa de processos, um fork() (interno do Apache, usado para disparar o CGI indicado) pode falhar (e o erro é o mesmo). Acho que você precisa verificar as duas coisas. Se bem que a proposta do Flávio parece mais provável... ;-) Putamplexos e boa sorte. -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From peterdirichlet2003 em yahoo.com.br Thu Mar 3 04:36:36 2005 From: peterdirichlet2003 em yahoo.com.br (Johann Peter Gustav Lejeune Dirichlet) Date: Thu Mar 3 05:26:16 2005 Subject: [Cascavel-pm] Fazer apache ler script perl compilado (.exe) In-Reply-To: <8ff2963a05030219293026747f@mail.gmail.com> Message-ID: <20050303123636.96563.qmail@web53408.mail.yahoo.com> So se for o seu editor, porque o VIm e o Emacs nao travam no meu Slackware... --- João Gabriel escreveu: > Luis Campos de Carvalho... > > Ilegível? Cheio de caracteres especiais? > > Assim, ó? > > > > #!/usr/bin/perl -i.bak -wlpe > "m:(\d{2}/\d{2}/\d{4}):$|++&&print;" Depois de uns 4 anos, isto e ate natural... Ah, este e meu primeiro semestre em Perl... > > eu falei Ilegivel... com "200" caracteres especiais > do tipo: > quadrados, "y", dentre outros... (depois posto um > exemplo aqui porque > os editores do linux travam ao tentar abrir > aplicativos .exe) > > -- > Um abraço, > João Gabriel / JGCL > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ From peterdirichlet2003 em yahoo.com.br Thu Mar 3 04:40:59 2005 From: peterdirichlet2003 em yahoo.com.br (Johann Peter Gustav Lejeune Dirichlet) Date: Thu Mar 3 05:26:17 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? In-Reply-To: <20050303092157.1fed7769.lgonzaga@lncc.br> Message-ID: <20050303124059.4017.qmail@web53406.mail.yahoo.com> Um amigo meu disse que os computeiros da Unicamp fizeram algo como um superbanco de dados para o pessoal da Biologia num projeto 100% Perl. Os implementadores escolheram Perl porque era bastante portavel e por baratear os custos (em linguagem C por exemplo, estimou-se o dobro do tempo que eles tiveram!). --- Luiz Gonzaga escreveu: > Luis, soh serve empresas ? > > Trabalho em uma instituicao de pesquisa - LNCC > (Laboratorio Nacional de > Computacao Cientifica) e no Laboratorio em que estou > lotado - Laboratorio de > Bioinformatica, com excecao de algumas poucas > aplicacoes escritas em C, o > restante, e nao eh pouco, eh todo escrito em Perl. > > Abracos, Luiz. > > On Wed, 02 Mar 2005 21:43:27 -0300 > Luis Campos de Carvalho > wrote: > > > Caros > > > > Ontem, conversando com um professor da > pós-graduação sobre Perl, me > > perguntou o seguinte: "Quem usa Perl > intensivamente no Brasil?". O mais > > perto que eu consegui chegar de uma resposta foi > "administradores de > > sistemas, a Alpargatas e a Solutia". Claro, não > devem ser apenas estes > > interessados. > > > > Eu gostaria muito de saber quem são as empresas > que usam Perl no > > Brasil, e em que ramo de atividade elas atuam. > Isso vai ajudar a > > responder perguntas pendentes, como "quem são as > pessoas interessadas em > > Perl no Brasil?" -- claro, não apenas as pessaos > que trabalham para > > estas empresas, mas também estas pessoas. > > > > E vocês, o que pensam? Eu estou interessado em > todo o tipo de > > empresa, de Bancos a Metalúrgicas, passando por > hotéis e comércio > > varejista/atacadista. > > > > Que empresas vocês conhecem que podem ser > chamadas "usuárias de Perl"? > > > > Putamplexos curiosos... > > -- > > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > Luis Campos de Carvalho is BSc in Comp Science, > > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > > Unix Sys Admin && Certified Oracle DBA > > http://br.geocities.com/monsieur_champs/ > > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm@pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > _______________________________________________________ Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis From glasswalk3r em yahoo.com.br Thu Mar 3 05:39:12 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Thu Mar 3 05:39:22 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? In-Reply-To: <42270D07.4020707@yahoo.com.br> Message-ID: <20050303133912.99366.qmail@web20226.mail.yahoo.com> Luis, Eu lembrei que o antigo firewall da NAI (agora foi comprado pela Secure Computing - http://www.theregister.co.uk/2002/02/14/nai_sells_firewall_business/) usava Perl para gerar relatórios à partir dos logs. Não sei se é válido, mas é um uso interessante (e pouco documentado) sobre uso de SL em produtos comerciais. Em tempo, a Orbitall (operadora de cartões de crédito como Credicard) utiliza Perl no seu sistema próprio de controle de versões. Luis, você pretende publicar seu trabalho depois de pronto? Pode ser que algumas empresas simplesmente se queixem por ter sua estrutura de TI publicada por aí. []'s Alceu --- Luis Campos de Carvalho escreveu: > Luiz Gonzaga wrote: > > Luis, soh serve empresas ? > > Claro que não! Qualquer instituição respeitável > que use Perl no > Brasil é boa referência. > > > Trabalho em uma instituicao de pesquisa - LNCC > (Laboratorio Nacional de > > Computacao Cientifica) e no Laboratorio em que > estou lotado - Laboratorio de > > Bioinformatica, com excecao de algumas poucas > aplicacoes escritas em C, o > > restante, e nao eh pouco, eh todo escrito em Perl. > > Ótima referência. O LNCC é super-respeitado e > bem-cotado. _______________________________________________________ Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis From lgonzaga em lncc.br Thu Mar 3 05:40:44 2005 From: lgonzaga em lncc.br (Luiz Gonzaga) Date: Thu Mar 3 05:40:52 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? In-Reply-To: <20050303124059.4017.qmail@web53406.mail.yahoo.com> References: <20050303092157.1fed7769.lgonzaga@lncc.br> <20050303124059.4017.qmail@web53406.mail.yahoo.com> Message-ID: <20050303104044.4ddb1a03.lgonzaga@lncc.br> Nao posso responder por eles, e nem escrever sobre algo generico como "superbanco banco de dados ...", porem posso assegurar que alguns dos projetos do LBI (Laboratorio de BioInformatica) do Instituto de Computacao da Unicamp sao suportados por aplicacoes escritas em Perl. Os projetos de Bioinformatica, de uma maneira geral, pelo menos aqui no Brasil, sao suportados pela trinca Apache/MySQL/Perl. Abracos, Luiz. On Thu, 3 Mar 2005 09:40:59 -0300 (ART) Johann Peter Gustav Lejeune Dirichlet wrote: > Um amigo meu disse que os computeiros da Unicamp > fizeram algo como um superbanco de dados para o > pessoal da Biologia num projeto 100% Perl. > Os implementadores escolheram Perl porque era bastante > portavel e por baratear os custos (em linguagem C por > exemplo, estimou-se o dobro do tempo que eles > tiveram!). > > From monsieur_champs em yahoo.com.br Thu Mar 3 06:00:28 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Thu Mar 3 06:01:11 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? In-Reply-To: <20050303124059.4017.qmail@web53406.mail.yahoo.com> References: <20050303124059.4017.qmail@web53406.mail.yahoo.com> Message-ID: <4227187C.4010403@yahoo.com.br> Johann Peter Gustav Lejeune Dirichlet wrote: > Um amigo meu disse que os computeiros da Unicamp > fizeram algo como um superbanco de dados para o > pessoal da Biologia num projeto 100% Perl. > Os implementadores escolheram Perl porque era bastante > portavel e por baratear os custos (em linguagem C por > exemplo, estimou-se o dobro do tempo que eles > tiveram!). Eu gostaria de saber mais. Será que o projeto tem website? Obrigado! Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From lgonzaga em lncc.br Thu Mar 3 06:14:16 2005 From: lgonzaga em lncc.br (Luiz Gonzaga) Date: Thu Mar 3 06:14:22 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? In-Reply-To: <4227187C.4010403@yahoo.com.br> References: <20050303124059.4017.qmail@web53406.mail.yahoo.com> <4227187C.4010403@yahoo.com.br> Message-ID: <20050303111416.5e91cb01.lgonzaga@lncc.br> Luis, O site do LBI estah no link http://www.lbi.ic.unicamp.br/ Voce pode ver em http://www.brgene.lncc.br/cviolaceum um dos nossos projetos, cujos dados jah sao publicos. Abracos, Luiz. On Thu, 03 Mar 2005 11:00:28 -0300 Luis Campos de Carvalho wrote: > Johann Peter Gustav Lejeune Dirichlet wrote: > > Um amigo meu disse que os computeiros da Unicamp > > fizeram algo como um superbanco de dados para o > > pessoal da Biologia num projeto 100% Perl. > > Os implementadores escolheram Perl porque era bastante > > portavel e por baratear os custos (em linguagem C por > > exemplo, estimou-se o dobro do tempo que eles > > tiveram!). > > Eu gostaria de saber mais. > Será que o projeto tem website? > > Obrigado! Putamplexos! > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > From fglock em pucrs.br Thu Mar 3 06:36:31 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Thu Mar 3 06:37:56 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? Message-ID: <200503031437.j23Ebj2e053232@rigel.pucrs.br> Aqui na PUCRS eu uso Perl no sistema de imagens de documentos. Os documentos são escaneados e enviados para o servidor por uma interface web. A base de dados de texto é Oracle, e a segurança é baseada em GPG (e SSL). Temos por volta de meio milhão de documentos, com previsão de estabilizar em 1 a 2 milhões de documentos. Temos um sistema de banco de dados seguro, utilizado pelo Comitê de Ética em Pesquisa, para armazenamento de dados de amostras de DNA humano. Este sistema é todo em Perl. Os dados são armazenados em XML e encriptados com GPG. Temos várias publicações em CD-ROM e web que dependem exclusivamente de Perl. São coleções completas de revistas antigas - todo o processamento de imagem, organização do banco de dados, formatação de html, backups, controle do projeto, etc são em Perl. Este sistema tem uns 100 mil documentos. http://www.ipct.pucrs.br/cgi-bin/letras/searchglobo.cgi?catalogo=globo Usamos Perl também para o tratamento de arquivos de dados de pesquisa, no Laboratório de Microgravidade. No ano passado eu também trabalhei com a geração de modelos em 3D em Perl, através do POV-Ray. Temos também um cluster (4 servidores, 1,5 TB) para o projeto de Telemedicina que é administrado totalmente com scripts em Perl (e shell, claro) - eu inscrevi este trabalho para apresentar no FISL/YAPC::Brasil::2005. - Flavio S. Glock From marco.lima em e-via.com.br Thu Mar 3 06:47:40 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Thu Mar 3 06:47:58 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? Message-ID: Salve Monges ! Como é de conhecimento de muitos, eu trabalho com desenvolvimento de sistemas para empresas de telecomunicações já faz algum tempo e essa é uma das áreas que utiliza bastante a Perl. Empresas com Claro, Vésper, Embratel, Telemar, Oi, TIM, Brasil Telecom, GVT, VIVO têm utilizado em Perl nas mais diversas aplicações como na Engenharia e Mediação (administração da rede de telefonia, filtros, coversores e tratamento de arquivos de CDRs, fluxo de processos entre sistemas, carga de informações entre diversas aplicações e banco de dados, relatórios para Anatel ...), Fraude e Investigação, Billing, DW (como ferramenta de ETL), Sistemas de Vendas. Como a Perl não conta com uma empresa como a SUN que investe malas de dinheiro em marketing para vender a sua linguagem, não temos muitos "cases" de sucesso relatados, o único instrumento de propaganda que contamos é o próprio técnico que conhece os benefícios da linguagem. No Brasil isso ainda é pior, porque não temos muitos téncnicos que se comprometem com o desenvolvimento da linguagem, e isso não é apenas criar novos módulos para o CPAN, é preciso desenvolver um trabalho de evangelização. Temos muito trabalho para fazer, mas com o pouco que já foi feito estamos conseguindo bons resultados, mas ainda têm muito trabalho pela frente. Evangelizar o pessoal técnico é relativamente fácil, porque eles percebem logo os benefícios em utilizar a Perl. Mas é preciso desenvolver uma trabalho diferenciado com os Gerentes e Diretores, pois são eles que vão decidir que ferramenta utilizar, e o que eles procuram são reaultados, por isso é importante realizar um trabalho de documentação dos projetos desenvolvidos e seus resultados, e publicar este trabalho em sites e revistas especializadas. Para constar na lista temos outras empresas com Motorola, Embrapa, PRODERJ, Unisys, IBM, HP, SUN, WE DO, Lucent, CSG, Petrobrás ... [ ]'s > Caros > > Ontem, conversando com um professor da pós-graduação sobre Perl, me > perguntou o seguinte: "Quem usa Perl intensivamente no Brasil?". O mais > perto que eu consegui chegar de uma resposta foi "administradores de > sistemas, a Alpargatas e a Solutia". Claro, não devem ser apenas estes > interessados. > > Eu gostaria muito de saber quem são as empresas que usam Perl no > Brasil, e em que ramo de atividade elas atuam. Isso vai ajudar a > responder perguntas pendentes, como "quem são as pessoas interessadas em > Perl no Brasil?" -- claro, não apenas as pessaos que trabalham para > estas empresas, mas também estas pessoas. > > E vocês, o que pensam? Eu estou interessado em todo o tipo de > empresa, de Bancos a Metalúrgicas, passando por hotéis e comércio > varejista/atacadista. > > Que empresas vocês conhecem que podem ser chamadas "usuárias de Perl"? > > Putamplexos curiosos... > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > Marco Lima marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Perl Monk Brasil Perl Monger Líder do Rio de Janeiro Perl Mongers http://www.perlmonk.org http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From mda em embratel.net.br Thu Mar 3 06:50:23 2005 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Thu Mar 3 06:50:35 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? In-Reply-To: <42265DAF.3070708@yahoo.com.br> References: <42265DAF.3070708@yahoo.com.br> Message-ID: <4227242F.5090804@embratel.net.br> O depto de ensino do Exercito estave recrutando programadores em Perl (http://www.dep.ensino.eb.br/), para sua aplicação de EaD. Na Embratel sistemas de gerencia de rede são na sua maioria feitos em Perl, tendo sido o motivo pelo qual me transferi de Curitiba para o Rio. Desenvolvi para o Click21 uma ferramenta de aprovisionamento 100% Perl, usada para efetivar todas as configurações de acesso discado e webmail. Quase todas as ferramentas de gerencia também são desenvolvidas em Perl. A Microsoft rendeu-se ao uso de Perl e enfatisou sua sintaxe para automação de tarefas administrativas sobre ADSI (Active Directory Services Interface): http://www.microsoft.com/resources/documentation/WindowsServ/2003/standard/proddocs/en-us/Default.asp?url=/resources/documentation/WindowsServ/2003/standard/proddocs/en-us/prog_use_using.asp http://www.microsoft.com/resources/documentation/WindowsServ/2003/standard/proddocs/en-us/Default.asp?url=/resources/documentation/WindowsServ/2003/standard/proddocs/en-us/ref_mb_codeexamples.asp Sei que na Vesper também existe muita coisa sendo feita em Perl, mas outra pessoa poderá falar mais sobre isso. Sds, Marco Antonio Luis Campos de Carvalho wrote: > Caros > > Ontem, conversando com um professor da pós-graduação sobre Perl, me > perguntou o seguinte: "Quem usa Perl intensivamente no Brasil?". O > mais perto que eu consegui chegar de uma resposta foi "administradores > de sistemas, a Alpargatas e a Solutia". Claro, não devem ser apenas > estes interessados. > > Eu gostaria muito de saber quem são as empresas que usam Perl no > Brasil, e em que ramo de atividade elas atuam. Isso vai ajudar a > responder perguntas pendentes, como "quem são as pessoas interessadas > em Perl no Brasil?" -- claro, não apenas as pessaos que trabalham > para estas empresas, mas também estas pessoas. > > E vocês, o que pensam? Eu estou interessado em todo o tipo de > empresa, de Bancos a Metalúrgicas, passando por hotéis e comércio > varejista/atacadista. > > Que empresas vocês conhecem que podem ser chamadas "usuárias de Perl"? > > Putamplexos curiosos... From fglock em pucrs.br Thu Mar 3 07:04:30 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Thu Mar 3 07:05:54 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? Message-ID: <200503031505.j23F5i2e058842@rigel.pucrs.br> Marco Antonio falou: > > A Microsoft rendeu-se ao uso de Perl e enfatisou sua > sintaxe para automação de tarefas administrativas > sobre ADSI (Active Directory Services Interface): Mais um link: http://search.microsoft.com/search/results.aspx?st=b&na=88&View=en-us&qu=perl - Flavio S. Glock From gsmachado em gmail.com Thu Mar 3 07:28:16 2005 From: gsmachado em gmail.com (Guilherme Sperb Machado) Date: Thu Mar 3 07:28:26 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? In-Reply-To: <200503031437.j23Ebj2e053232@rigel.pucrs.br> References: <200503031437.j23Ebj2e053232@rigel.pucrs.br> Message-ID: <90cbfd8050303072873f702e5@mail.gmail.com> Trabalho aqui na PUCRS em um laborátorio em parceria com a HP. Ou seja, realizamos pesquisa para a HP (o financiamento também é da empresa, só o pessoal que é da PUCRS). Aqui trabalho com um projeto em segurança de sistemas embarcados, e muita coisa já fiz em Perl. Tools, pré-exploits, test-programs, MIB-mapping, MIB-agents, etc. Existe também um projeto de Mobilidade que também desenvolvem algumas ferramentas em Perl, como serviço próprio de autenticação para o gerenciamento de PDAs, gerenciamento do Firewall de acordo com as necessidades, etc. Não posso entrar em muitos detalhes sobre os projetos, mas pra ajudar tentei descrever o que utilizamos de Perl para ajudar na pesquisa aí. hehe. Espero ter ajudado. Guilherme Sperb Machado On Thu, 3 Mar 2005 14:36:31 GMT, fglock@pucrs.br wrote: > Aqui na PUCRS eu uso Perl no sistema de imagens de > documentos. Os documentos são escaneados e enviados > para o servidor por uma interface web. A base de > dados de texto é Oracle, e a segurança é baseada em > GPG (e SSL). > Temos por volta de meio milhão de documentos, com > previsão de estabilizar em 1 a 2 milhões de documentos. > > Temos um sistema de banco de dados seguro, utilizado > pelo Comitê de Ética em Pesquisa, para armazenamento > de dados de amostras de DNA humano. Este sistema é > todo em Perl. Os dados são armazenados em XML e > encriptados com GPG. > > Temos várias publicações em CD-ROM e web que dependem > exclusivamente de Perl. São coleções completas de > revistas antigas - todo o processamento de imagem, > organização do banco de dados, formatação de html, > backups, controle do projeto, etc são em Perl. Este > sistema tem uns 100 mil documentos. > http://www.ipct.pucrs.br/cgi-bin/letras/searchglobo.cgi?catalogo=globo > > Usamos Perl também para o tratamento de arquivos de > dados de pesquisa, no Laboratório de Microgravidade. > No ano passado eu também trabalhei com a geração de > modelos em 3D em Perl, através do POV-Ray. > > Temos também um cluster (4 servidores, 1,5 TB) para o > projeto de Telemedicina que é administrado totalmente > com scripts em Perl (e shell, claro) - eu inscrevi > este trabalho para apresentar no FISL/YAPC::Brasil::2005. > > - Flavio S. Glock > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > From acid06 em gmail.com Thu Mar 3 08:21:22 2005 From: acid06 em gmail.com (Nilson Santos) Date: Thu Mar 3 08:21:43 2005 Subject: [Cascavel-pm] Fazer apache ler script perl compilado (.exe) In-Reply-To: <8ff2963a05030215026adb1686@mail.gmail.com> References: <8ff2963a05030215026adb1686@mail.gmail.com> Message-ID: <9a08c9b40503030821226b10f1@mail.gmail.com> On Wed, 2 Mar 2005 20:02:31 -0300, João Gabriel wrote: > porque não? o código fonte tá totalmente ilegivel cheio de caracteres > especiais... nada que lembre o perl.. Bom, nem tudo que seja um bando de caracteres especiais é algo compilado. ;) O que acontece é que esses programas (PAR, PerlApp, Perl2Exe) compactam e codificam (longe de ser criptografia) o source e colocam dentro do executável... como se fosse um arquivo self-extracting do winzip. Compilar é um processo que envolve converter um código de alguma linguagem de programação, que é como se fosse uma camada de abstração, para uma forma nativa de uma determinada arquitetura. Quando você compila algo em C ou C++ por exemplo, o código é compilado para instruções que um processador pode entender. Quando você compila Java, é compilada para instruções que a máquina virtual de Java entende. Em Perl, a compilação precede a execução, normalmente, não sendo executada antes disso e é feita para instruções que a máquina virtual do Perl consegue entender. Portanto, só quando você roda o script (ou o executável, no caso) que ocorre a compilação propriamente dita. Usando o módulo B::Bytecode você pode fazer essa compilação anteriormente e o código em Perl se torna algo parecido com Java, aonde ocorre precompilação porém não é para a arquitetura nativa e sim para a VM da linguagem. Existe um conversor de Perl pra C, de onde você pode compilar algo nativo do seu pc (perlcc, se não me engano) porém, da última vez que testei, nem um "Hello World" eu consegui fazer funcionar. -Nilson Santos F. Jr. From acid06 em gmail.com Thu Mar 3 08:43:39 2005 From: acid06 em gmail.com (Nilson Santos) Date: Thu Mar 3 08:43:49 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? In-Reply-To: <42265DAF.3070708@yahoo.com.br> References: <42265DAF.3070708@yahoo.com.br> Message-ID: <9a08c9b4050303084369cd7841@mail.gmail.com> Eu trabalho numa empresa que desenvolve alguns sistemas B2B para, principalmente, a CocaCola (agora tem entrado algumas outras empresas) também. O sistema em si não tem a ver com Perl porém, desde que entrei aqui, vou colocando em uso várias ferramentas feitas em Perl de auxílio ao desenvolvimento. Foram feitas ferramentas de manutenção de código automatizadas, de auxílio ao desenvolvimento (ex: mostrar aonde no sistema que tal função de tal componente é chamada), várias ferramentas de auxílio na administração do sistema (que é via web). Acho que o maior uso é do Perl aqui é o "auto-compilador", que é uma ferramenta que automatiza a preparação do ambiente de testes de desenvolvimento que usamos, pois tem uma rotina bem chatinha para se compilar: deve-se parar serviços, parar e des-registrar componentes COM+ e re-registrar após a compilação... O uso aqui é relativamente pequeno, mas aos poucos eu tendo "introduzir" Perl o máximo que posso. Mas o pessoal por aqui ainda tem muito a cabeça fechada. Sempre fico pensando o quanto o sistema seria melhor se fosse em Perl, mas... fazer o que... a Microsoft tem melhores marketeiros que o Perl. ;) -Nilson Santos F. Jr. On Wed, 02 Mar 2005 21:43:27 -0300, Luis Campos de Carvalho wrote: > Que empresas vocês conhecem que podem ser chamadas "usuárias de Perl"? From joenio em gmail.com Thu Mar 3 09:45:02 2005 From: joenio em gmail.com (Joenio Marques) Date: Thu Mar 3 09:45:39 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?Gera=E7=E3o_de_modelos_3D?= In-Reply-To: <200503031437.j23Ebj2e053232@rigel.pucrs.br> References: <200503031437.j23Ebj2e053232@rigel.pucrs.br> Message-ID: <65934b4505030309454c175b06@mail.gmail.com> Olá Flavio S., Estou atualmente cursando a matéria de computação gráfica na faculdade, e dentre as ferramentas utilizadas nessa disciplina uma é o POV-Ray. Fiquei curioso pra saber mais a respeito do que você disse: 'Modelos 3D em Perl...'. Você teria alguma referencia sobre o assunto? Grato, Joenio Marques On Thu, 3 Mar 2005 14:36:31 GMT, fglock@pucrs.br wrote: > Aqui na PUCRS eu uso Perl no sistema de imagens de > documentos. Os documentos são escaneados e enviados > para o servidor por uma interface web. A base de > dados de texto é Oracle, e a segurança é baseada em > GPG (e SSL). > Temos por volta de meio milhão de documentos, com > previsão de estabilizar em 1 a 2 milhões de documentos. > > Temos um sistema de banco de dados seguro, utilizado > pelo Comitê de Ética em Pesquisa, para armazenamento > de dados de amostras de DNA humano. Este sistema é > todo em Perl. Os dados são armazenados em XML e > encriptados com GPG. > > Temos várias publicações em CD-ROM e web que dependem > exclusivamente de Perl. São coleções completas de > revistas antigas - todo o processamento de imagem, > organização do banco de dados, formatação de html, > backups, controle do projeto, etc são em Perl. Este > sistema tem uns 100 mil documentos. > http://www.ipct.pucrs.br/cgi-bin/letras/searchglobo.cgi?catalogo=globo > > Usamos Perl também para o tratamento de arquivos de > dados de pesquisa, no Laboratório de Microgravidade. > No ano passado eu também trabalhei com a geração de > modelos em 3D em Perl, através do POV-Ray. > > Temos também um cluster (4 servidores, 1,5 TB) para o > projeto de Telemedicina que é administrado totalmente > com scripts em Perl (e shell, claro) - eu inscrevi > este trabalho para apresentar no FISL/YAPC::Brasil::2005. > > - Flavio S. Glock > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > From glasswalk3r em yahoo.com.br Thu Mar 3 09:52:47 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Thu Mar 3 09:52:54 2005 Subject: =?iso-8859-1?q?Re:=20[Cascavel-pm]=20Gera=E7=E3o=20de=20modelos=203D?= In-Reply-To: <65934b4505030309454c175b06@mail.gmail.com> Message-ID: <20050303175247.56369.qmail@web20225.mail.yahoo.com> Joenio, Tem alguma coisa sobre modelagem 3D com Perl em: http://www.perl.com []'s Alceu --- Joenio Marques escreveu: > Olá Flavio S., > > Estou atualmente cursando a matéria de computação > gráfica na faculdade, e dentre as ferramentas > utilizadas > nessa disciplina uma é o POV-Ray. > Fiquei curioso pra saber mais a respeito do que você > disse: 'Modelos 3D em Perl...'. > Você teria alguma referencia sobre o assunto? > > Grato, > Joenio Marques > > On Thu, 3 Mar 2005 14:36:31 GMT, fglock@pucrs.br > wrote: > > Aqui na PUCRS eu uso Perl no sistema de imagens de > > documentos. Os documentos são escaneados e > enviados > > para o servidor por uma interface web. A base de > > dados de texto é Oracle, e a segurança é baseada > em > > GPG (e SSL). > > Temos por volta de meio milhão de documentos, com > > previsão de estabilizar em 1 a 2 milhões de > documentos. > > > > Temos um sistema de banco de dados seguro, > utilizado > > pelo Comitê de Ética em Pesquisa, para > armazenamento > > de dados de amostras de DNA humano. Este sistema é > > todo em Perl. Os dados são armazenados em XML e > > encriptados com GPG. > > > > Temos várias publicações em CD-ROM e web que > dependem > > exclusivamente de Perl. São coleções completas de > > revistas antigas - todo o processamento de imagem, > > organização do banco de dados, formatação de html, > > backups, controle do projeto, etc são em Perl. > Este > > sistema tem uns 100 mil documentos. > > > http://www.ipct.pucrs.br/cgi-bin/letras/searchglobo.cgi?catalogo=globo > > > > Usamos Perl também para o tratamento de arquivos > de > > dados de pesquisa, no Laboratório de > Microgravidade. > > No ano passado eu também trabalhei com a geração > de > > modelos em 3D em Perl, através do POV-Ray. > > > > Temos também um cluster (4 servidores, 1,5 TB) > para o > > projeto de Telemedicina que é administrado > totalmente > > com scripts em Perl (e shell, claro) - eu inscrevi > > este trabalho para apresentar no > FISL/YAPC::Brasil::2005. > > > > - Flavio S. Glock > > > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm@pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > _______________________________________________________ Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis From fglock em pucrs.br Thu Mar 3 09:52:42 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Thu Mar 3 09:54:07 2005 Subject: [Cascavel-pm] Geração de modelos 3D Message-ID: <200503031753.j23Hrt2e089848@rigel.pucrs.br> Joenio Marques falou: > > Estou atualmente cursando a matéria de computação > gráfica na faculdade, e dentre as ferramentas utilizadas > nessa disciplina uma é o POV-Ray. > Fiquei curioso pra saber mais a respeito do que você > disse: 'Modelos 3D em Perl...'. > Você teria alguma referencia sobre o assunto? > Joenio: O POV-Ray usa arquivos de texto para armazenar os objetos. Por isso fica fácil fazer a interface com Perl. Nós fizemos uma interface com Tk, que pergunta os dados do objeto (estávamos modelando um olho humano). Quando o usuário está satisfeito, o programa grava um arquivo (.pov) e chama o renderizador, que mostra o resultado em 3D. Referência: Dario F. G. de Azevedo, Flavio S. Glock, Fernando C.C. De Castro and Paulo R. G. Franco, "Eye Movement Simulation", 2nd European Medical and Biological Engineering Conference, pp. 1214-1215, Vienna, Austria, December 2002. - Flavio S. Glock From jamorreu em gmail.com Thu Mar 3 11:01:54 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Thu Mar 3 11:02:02 2005 Subject: [Cascavel-pm] Armazenamento de imagens em banco de dados. Message-ID: <8ff2963a050303110172cff9ea@mail.gmail.com> Salve mongers!! Algum monge pode me dizer se vale a pena, para sites que tenham muitas imagens, armazena-las em um banco de dados (PostGreeSQL, MySQL...) e depois "restauralas" com Perl ?? vale a pena? -- Um abraço, João Gabriel / JGCL vitoria.pm.org From lgonzaga em lncc.br Thu Mar 3 11:07:36 2005 From: lgonzaga em lncc.br (Luiz Gonzaga) Date: Thu Mar 3 11:07:43 2005 Subject: [Cascavel-pm] Armazenamento de imagens em banco de dados. In-Reply-To: <8ff2963a050303110172cff9ea@mail.gmail.com> References: <8ff2963a050303110172cff9ea@mail.gmail.com> Message-ID: <20050303160736.772d0e69.lgonzaga@lncc.br> Apesar de estar longe de ser um monge... Acho que nao. O tempo de recuperacao destas imagens em um bd serah que recupera-las de diretorios. Abracos, Luiz. On Thu, 3 Mar 2005 16:01:54 -0300 João Gabriel wrote: > Salve mongers!! > > Algum monge pode me dizer se vale a pena, para sites que tenham muitas > imagens, armazena-las em um banco de dados (PostGreeSQL, MySQL...) e > depois "restauralas" com Perl ?? > > vale a pena? > > -- > Um abraço, > João Gabriel / JGCL > vitoria.pm.org > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > From daniel em ruoso.com Thu Mar 3 11:25:43 2005 From: daniel em ruoso.com (Daniel Ruoso) Date: Thu Mar 3 11:26:04 2005 Subject: [Cascavel-pm] Armazenamento de imagens em banco de dados. In-Reply-To: <20050303160736.772d0e69.lgonzaga@lncc.br> References: <8ff2963a050303110172cff9ea@mail.gmail.com> <20050303160736.772d0e69.lgonzaga@lncc.br> Message-ID: <1109877943.1411.1.camel@cedro> Em Qui, 2005-03-03 às 16:07, Luiz Gonzaga escreveu: > Acho que nao. O tempo de recuperacao destas imagens em um bd serah que > recupera-las de diretorios. Por outro lado, o gerenciamento dessas imagens vai ser muito simplificado se vc armazenar em BD... Se elas vão ser constantemente alteradas, e principalmente, se vão ser alteradas através de um CGI, eu recomendo o uso do BD, pois, apesar de perder um pouco em performance, ajuda em uma porção de outras coisas... daniel From fglock em pucrs.br Thu Mar 3 11:53:06 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Thu Mar 3 11:54:30 2005 Subject: [Cascavel-pm] Armazenamento de imagens em banco de dados. Message-ID: <200503031954.j23JsJ2e018884@rigel.pucrs.br> > Salve mongers!! > > Algum monge pode me dizer se vale a pena, para > sites que tenham muitas > imagens, armazena-las em um banco de dados > (PostGreeSQL, MySQL...) e > depois "restauralas" com Perl ?? Depende. - Se as imagens são estáticas, todo o sistema (servidores, proxies, browsers) é otimizado para tratar arquivos individuais - então o desempenho é melhor do que no banco de dados. - Se o banco de dados tem replicação, backup, balanceamento de carga, controle de acesso - você pode querer utilizar tudo isso. - Se por algum motivo as imagens precisam passar por um cgi antes de serem enviadas, não fará muita diferença se elas vêm do sistema de arquivos ou do banco de dados. - Flavio S. Glock From spooker em spooker.com.br Thu Mar 3 08:25:14 2005 From: spooker em spooker.com.br (Sp0oKeR Labs) Date: Thu Mar 3 11:55:21 2005 Subject: [Cascavel-pm] Problemas perlcc Message-ID: <1109867114.2735.50.camel@spookerlabs.brc.com.br> Galera, estou com o seguinte erro abaixo: # perlcc -B Object.pm -o Object.pmc /usr/bin/perlcc: Will not create a shared library for bytecode Saberiam me indicar uma saida, leitura ou solucao? =))!! []z! Sp0oKeR! -- ============================ Sp0oKeR Labs Team RHCE / LPIC-I BRMAlinux Developer spooker@br.kernelnewbies.org ============================= From fglock em pucrs.br Thu Mar 3 12:05:45 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Thu Mar 3 12:07:10 2005 Subject: [Cascavel-pm] Problemas perlcc Message-ID: <200503032006.j23K6w2e022037@rigel.pucrs.br> > Galera, estou com o seguinte erro abaixo: > > # perlcc -B Object.pm -o Object.pmc > /usr/bin/perlcc: Will not create a shared library for bytecode > > Saberiam me indicar uma saida, leitura ou solucao? =))!! > Aparentemente você não pode compilar um arquivo "pm" com "-B". Módulos somente pode ser compilados com "--shared". A referência é o próprio programa fonte: # DWIM modules. This is bad but necessary. $Options->{shared}++ if $Input =~ /\.pm\z/; ... # Check the consistency of options if -B is selected. # To wit, (-B|-O) ==> no -shared, no -S, no -c - Flavio S. Glock From fglock em pucrs.br Thu Mar 3 12:09:14 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Thu Mar 3 12:10:41 2005 Subject: [Cascavel-pm] Problemas perlcc Message-ID: <200503032010.j23KAR2e022947@rigel.pucrs.br> Flavio falou: > > Módulos somente pode ser compilados com "--shared". > Na verdade, a compilação de módulos nem está implementada: ------- sub compile_module { die "$0: Compiling to shared libraries is currently disabled\n"; } ------- - Flavio S. Glock From spooker em spooker.com.br Thu Mar 3 09:17:17 2005 From: spooker em spooker.com.br (Sp0oKeR Labs) Date: Thu Mar 3 12:18:25 2005 Subject: [Cascavel-pm] Problemas perlcc In-Reply-To: <200503032010.j23KAR2e022947@rigel.pucrs.br> References: <200503032010.j23KAR2e022947@rigel.pucrs.br> Message-ID: <1109870237.2735.52.camel@spookerlabs.brc.com.br> Hehehe....vi a mensagem de erro quando tentamos. Entao nao tem como fazer o que quero? []z e Obrigado! Em Qui, 2005-03-03 às 20:09, fglock@pucrs.br escreveu: > Flavio falou: > > > > Módulos somente pode ser compilados com "--shared". > > > > Na verdade, a compilação de módulos nem está > implementada: > > ------- > sub compile_module { > die "$0: Compiling to shared libraries is > currently disabled\n"; > } > ------- > > - Flavio S. Glock > > > > ______________________________________________________________________ > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm -- ============================ Sp0oKeR Labs Team RHCE / LPIC-I BRMAlinux Developer spooker@br.kernelnewbies.org ============================= From fglock em pucrs.br Thu Mar 3 12:27:38 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Thu Mar 3 12:29:01 2005 Subject: [Cascavel-pm] Problemas perlcc Message-ID: <200503032028.j23KSp2e029329@rigel.pucrs.br> > Hehehe....vi a mensagem de erro quando tentamos. > > Entao nao tem como fazer o que quero? Depende do que você quer :) O PAR permite o processamento de módulos, mas ele simplesmente "zipa" o arquivo... - Flavio S. Glock From alfspsp em hotmail.com Fri Mar 4 06:39:44 2005 From: alfspsp em hotmail.com (Alex Falcao) Date: Fri Mar 4 06:40:08 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?D=FAvida_sobre_multiprocessamento?= Message-ID: Salve senhores, Preciso de uma ajuda para fazer um script que gere varias threads, uma para cada arquivo, desta forma, ou algo que funcione (rs), já que desta forma não rola... hehehe my @ARQUIVOS = ("file1.txt", "file2.txt", "file3.txt"); foreach (@FILES) { # executar arquivo sub_system.pl system ("sub_system.pl", $_); } Para cada FILE, gerar um thread. Muito obrigado pela ajuda Alex Falcão From glasswalk3r em yahoo.com.br Fri Mar 4 06:47:56 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Fri Mar 4 06:48:25 2005 Subject: =?iso-8859-1?q?Re:=20[Cascavel-pm]=20D=FAvida=20sobre=20multiprocessament?= o?= In-Reply-To: Message-ID: <20050304144756.21916.qmail@web31510.mail.mud.yahoo.com> Salve Alex, Eu não sei usar threads em Perl, mas da forma que você que você está fazendo abaixo, o script está fazendo fork e criando processos filhos. Existe alguma razão técnica pra você criar threads? A algum tempo atrás eu li que a performance deles não é necessariamente boa, e dá muito trabalho pra usar. []'s Alceu --- Alex Falcao escreveu: > Salve senhores, > > > Preciso de uma ajuda para fazer um script > que gere varias threads, > uma para cada arquivo, desta forma, ou algo que > funcione (rs), já que desta > forma não rola... hehehe > > my @ARQUIVOS = ("file1.txt", "file2.txt", > "file3.txt"); > > foreach (@FILES) { > # executar arquivo sub_system.pl > system ("sub_system.pl", $_); > } > > Para cada FILE, gerar um thread. > > Muito obrigado pela ajuda > > Alex Falcão > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ From monsieur_champs em yahoo.com.br Fri Mar 4 06:48:45 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Fri Mar 4 06:49:21 2005 Subject: [Cascavel-pm] Armazenamento de imagens em banco de dados. In-Reply-To: <1109877943.1411.1.camel@cedro> References: <8ff2963a050303110172cff9ea@mail.gmail.com> <20050303160736.772d0e69.lgonzaga@lncc.br> <1109877943.1411.1.camel@cedro> Message-ID: <4228754D.5050100@yahoo.com.br> Daniel Ruoso wrote: > Em Qui, 2005-03-03 às 16:07, Luiz Gonzaga escreveu: > >>Acho que nao. O tempo de recuperacao destas imagens em um bd serah que >>recupera-las de diretorios. > > > Por outro lado, o gerenciamento dessas imagens vai ser muito > simplificado se vc armazenar em BD... Se elas vão ser constantemente > alteradas, e principalmente, se vão ser alteradas através de um CGI, eu > recomendo o uso do BD, pois, apesar de perder um pouco em performance, > ajuda em uma porção de outras coisas... > Como o que, por exemplo? -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From monsieur_champs em yahoo.com.br Fri Mar 4 07:11:16 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Fri Mar 4 07:11:50 2005 Subject: [Cascavel-pm] =?ISO-8859-1?Q?D=FAvida_sobre_multiprocess?= =?ISO-8859-1?Q?ament_o=3F=3D?= In-Reply-To: <20050304144756.21916.qmail@web31510.mail.mud.yahoo.com> References: <20050304144756.21916.qmail@web31510.mail.mud.yahoo.com> Message-ID: <42287A94.6080803@yahoo.com.br> Alceu R. de Freitas Jr. wrote: > Salve Alex, > > Eu não sei usar threads em Perl, mas da forma que você > que você está fazendo abaixo, o script está fazendo > fork e criando processos filhos. > > Existe alguma razão técnica pra você criar threads? A > algum tempo atrás eu li que a performance deles não é > necessariamente boa, e dá muito trabalho pra usar. Bom, e a portabilidade do seu script vai sofrer um pouco, além de tudo o que o Alceu listou. Penso que você pode usar fork() para fazer o trabalho sujo, assim: # Isto aqui ajuda a reclamar recursos # dos processos filhos, conforme eles terminem. local $SIG{CHILD} = sub{ wait; }; foreach( @FILES ){ my $parent = fork(); if( $parent ){ # sou o processo filho # Execute processamento específico aqui }else{ # sou o processo pai # nao faz nada, apenas gera o proximo loop. } } -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From lgonzaga em lncc.br Fri Mar 4 07:34:53 2005 From: lgonzaga em lncc.br (Luiz Gonzaga) Date: Fri Mar 4 07:35:00 2005 Subject: [Cascavel-pm] =?ISO-8859-1?B?RPp2aWRh?= sobre multiprocessamento In-Reply-To: References: Message-ID: <20050304123453.7e3d3f14.lgonzaga@lncc.br> Alex, A minha experiencia como uso de threads com Perl nao foi muito boa. A perfomance foi muito ruim. Abracos, Luiz. On Fri, 04 Mar 2005 14:39:44 +0000 "Alex Falcao" wrote: > Salve senhores, > > > Preciso de uma ajuda para fazer um script que gere varias threads, > uma para cada arquivo, desta forma, ou algo que funcione (rs), já que desta > forma não rola... hehehe > > my @ARQUIVOS = ("file1.txt", "file2.txt", "file3.txt"); > > foreach (@FILES) { > # executar arquivo sub_system.pl > system ("sub_system.pl", $_); > } > > Para cada FILE, gerar um thread. > > Muito obrigado pela ajuda > > Alex Falcão > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > From daniel em ruoso.com Fri Mar 4 09:05:32 2005 From: daniel em ruoso.com (Daniel Ruoso) Date: Fri Mar 4 09:05:45 2005 Subject: [Cascavel-pm] Armazenamento de imagens em banco de dados. In-Reply-To: <4228754D.5050100@yahoo.com.br> References: <8ff2963a050303110172cff9ea@mail.gmail.com> <20050303160736.772d0e69.lgonzaga@lncc.br> <1109877943.1411.1.camel@cedro> <4228754D.5050100@yahoo.com.br> Message-ID: <1109955932.1411.3.camel@cedro> Em Sex, 2005-03-04 às 11:48, Luis Campos de Carvalho escreveu: > Daniel Ruoso wrote: > > Por outro lado, o gerenciamento dessas imagens vai ser muito > > simplificado se vc armazenar em BD... Se elas vão ser constantemente > > alteradas, e principalmente, se vão ser alteradas através de um CGI, eu > > recomendo o uso do BD, pois, apesar de perder um pouco em performance, > > ajuda em uma porção de outras coisas... > Como o que, por exemplo? Gerenciamento. Se, por exemplo, o sistema permite que vários usuários manipulem várias imagens, fica muito mais simples fazer as operações no banco do que manter uma estrutura de diretórios e arquivos que você terá que manipular na unha... daniel From monsieur_champs em yahoo.com.br Fri Mar 4 09:28:48 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Fri Mar 4 09:29:24 2005 Subject: [Cascavel-pm] Armazenamento de imagens em banco de dados. In-Reply-To: <1109955932.1411.3.camel@cedro> References: <8ff2963a050303110172cff9ea@mail.gmail.com> <20050303160736.772d0e69.lgonzaga@lncc.br> <1109877943.1411.1.camel@cedro> <4228754D.5050100@yahoo.com.br> <1109955932.1411.3.camel@cedro> Message-ID: <42289AD0.1010203@yahoo.com.br> Daniel Ruoso wrote: > Em Sex, 2005-03-04 às 11:48, Luis Campos de Carvalho escreveu: > >>Daniel Ruoso wrote: >> >>>Por outro lado, o gerenciamento dessas imagens vai ser muito >>>simplificado se vc armazenar em BD... Se elas vão ser constantemente >>>alteradas, e principalmente, se vão ser alteradas através de um CGI, eu >>>recomendo o uso do BD, pois, apesar de perder um pouco em performance, >>>ajuda em uma porção de outras coisas... >> >> Como o que, por exemplo? > > > Gerenciamento. Se, por exemplo, o sistema permite que vários usuários > manipulem várias imagens, fica muito mais simples fazer as operações no > banco do que manter uma estrutura de diretórios e arquivos que você terá > que manipular na unha... > Hum. Tenho certeza de que ambas as estruturas podem ser manipuladas pelo mesmo conjunto abstrato de comandos. Pelo menos, no mundo *nix. Tenho certeza de que um sistema de gerenciamento de imagens pode ser criado baseado tanto em armazenamento direto no disco quanto em armazenamento indexado, no banco de dados. A única vantagem que eu consigo perceber para usar o Banco de Dados é indexação. Se as imagens possuem características indexáveis, pode ser que exista alguma vantagem. Mas em 99% dos casos de web, isso não existe. Peça ao seu designer para indicar como é feito o gerenciamento de imagens e subprodutos de peças de campanha publicitária não baseados em web... você certamente vai acabar de frente para um armário ou gaveteiro de aço, com uma listinha muito bem escrita na porta... se o cara for organizado. Aí tem meus dois centavos de contribuição. Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From daniel em ruoso.com Fri Mar 4 09:33:47 2005 From: daniel em ruoso.com (Daniel Ruoso) Date: Fri Mar 4 09:34:06 2005 Subject: [Cascavel-pm] Armazenamento de imagens em banco de dados. In-Reply-To: <42289AD0.1010203@yahoo.com.br> References: <8ff2963a050303110172cff9ea@mail.gmail.com> <20050303160736.772d0e69.lgonzaga@lncc.br> <1109877943.1411.1.camel@cedro> <4228754D.5050100@yahoo.com.br> <1109955932.1411.3.camel@cedro> <42289AD0.1010203@yahoo.com.br> Message-ID: <1109957627.1458.2.camel@cedro> Em Sex, 2005-03-04 às 14:28, Luis Campos de Carvalho escreveu: > A única vantagem que eu consigo perceber para usar o Banco de Dados é > indexação. Se as imagens possuem características indexáveis, pode ser > que exista alguma vantagem. Mas em 99% dos casos de web, isso não existe. Bem, em 100% dos casos web que eu trabalhei, as imagens tinham sim características de indexação. daniel From alfspsp em hotmail.com Fri Mar 4 11:20:05 2005 From: alfspsp em hotmail.com (Alex Falcao) Date: Fri Mar 4 11:21:11 2005 Subject: =?iso-8859-1?B?UmU6IFtDYXNjYXZlbC1wbV0gRPp2aWRhIHNvYnJlIG11bHRpcHJvY2Vz?= =?iso-8859-1?B?c2FtZW50bw==?= In-Reply-To: <20050304123453.7e3d3f14.lgonzaga@lncc.br> Message-ID: Salve Alceu, a questão é a seguinte. Tenho uma SUN E480 com 2 processadores. Tenho que processar 50 arquivos de NetFLow com 50M a cada 5 minutos. O que imaginei seria criar várias threads para separar o processamento entre os processadores, uma vez que ele coloca cada processo um uma CPU aleatória. Salve Luis e Luiz, obrigado pelo exemplo. Não seu se o uso de threads seria a melhor opção para isso, mas foi a primeira coisa que veio na minha cabeça. Abraço a todos >From: Luiz Gonzaga >Reply-To: Cascavel Perl Mongers >To: Cascavel Perl Mongers >Subject: Re: [Cascavel-pm] Dúvida sobre multiprocessamento >Date: Fri, 4 Mar 2005 12:34:53 -0300 > >Alex, > >A minha experiencia como uso de threads com Perl nao foi muito boa. A >perfomance foi muito ruim. > >Abracos, Luiz. > >On Fri, 04 Mar 2005 14:39:44 +0000 >"Alex Falcao" wrote: > > > Salve senhores, > > > > > > Preciso de uma ajuda para fazer um script que gere varias >threads, > > uma para cada arquivo, desta forma, ou algo que funcione (rs), já que >desta > > forma não rola... hehehe > > > > my @ARQUIVOS = ("file1.txt", "file2.txt", "file3.txt"); > > > > foreach (@FILES) { > > # executar arquivo sub_system.pl > > system ("sub_system.pl", $_); > > } > > > > Para cada FILE, gerar um thread. > > > > Muito obrigado pela ajuda > > > > Alex Falcão > > > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm@pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm@pm.org >http://mail.pm.org/mailman/listinfo/cascavel-pm From alfspsp em hotmail.com Fri Mar 4 11:49:32 2005 From: alfspsp em hotmail.com (Alex Falcao) Date: Fri Mar 4 11:50:08 2005 Subject: =?iso-8859-1?B?UmU6IFtDYXNjYXZlbC1wbV0gRPp2aWRhIHNvYnJlIG11bHRpcHJvY2Vz?= =?iso-8859-1?B?c2FtZW50IG8/PQ==?= In-Reply-To: <42287A94.6080803@yahoo.com.br> Message-ID: Luis, o exemplo esta quase perfeito, o problema é que ele esta executando o último arquivo 2 vezes... :-( Não entendi o porque disso. se puder me ajudar. abraço >From: Luis Campos de Carvalho >Reply-To: Cascavel Perl Mongers >To: Cascavel Perl Mongers >Subject: Re: [Cascavel-pm] Dúvida sobre multiprocessament o?= >Date: Fri, 04 Mar 2005 12:11:16 -0300 > >Alceu R. de Freitas Jr. wrote: >>Salve Alex, >> >>Eu não sei usar threads em Perl, mas da forma que você >>que você está fazendo abaixo, o script está fazendo >>fork e criando processos filhos. >> >>Existe alguma razão técnica pra você criar threads? A >>algum tempo atrás eu li que a performance deles não é >>necessariamente boa, e dá muito trabalho pra usar. > > Bom, e a portabilidade do seu script vai sofrer um pouco, além de tudo o >que o Alceu listou. > > Penso que você pode usar fork() para fazer o trabalho sujo, assim: > > # Isto aqui ajuda a reclamar recursos > # dos processos filhos, conforme eles terminem. > local $SIG{CHILD} = sub{ wait; }; > > foreach( @FILES ){ > my $parent = fork(); > if( $parent ){ # sou o processo filho > # Execute processamento específico aqui > }else{ # sou o processo pai > # nao faz nada, apenas gera o proximo loop. > } > } > >-- >=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ >=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm@pm.org >http://mail.pm.org/mailman/listinfo/cascavel-pm From fglock em pucrs.br Fri Mar 4 12:08:06 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Fri Mar 4 12:09:31 2005 Subject: [Cascavel-pm] Dúvida sobre multiproces Message-ID: <200503042009.j24K9K2e001280@rigel.pucrs.br> > o exemplo esta quase perfeito, o problema é que ele esta executando o > último arquivo 2 vezes... :-( > Vai aí uma pequena correção: foreach( @FILES ){ my $parent = fork(); if( $parent == 0 ){ # sou o processo filho # Execute processamento específico aqui exit; }else{ # sou o processo pai # nao faz nada, apenas gera o proximo loop. } } - Flavio S. Glock From shonorio em terra.com.br Fri Mar 4 17:36:52 2005 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Fri Mar 4 17:37:02 2005 Subject: [Cascavel-pm] Heavy Users Nacionais de Perl ? Message-ID: Bom, como o meu nome já foi citado, vou dar mais informações. O Perl me ajuda em : * Monitorar informações tolas, mas que enchem o saco, tais como espaço em disco e taxa de crescimento em tempo real de aproximadamente 90 servidores Windows NT 4.0; * Monitora em tempo real aproximadamente uns 500 serviços do Windows, sendo alguns de suma importância, tais como se o banco de dados e o servidor de email está no ar, e tenta colocar os desgraçados no ar novamente; * Centraliza alguns Gigas de 'EventLog' do Windows dos 90 servidores, processa e me indica quais máquinas estão prestes a ir para o saco, ou se tem alguma atividade estranha; * Informações muito interessante com relação aos bancos de dados, tais como o tamanho e a taxa de crescimento dos bancos (uns 200 ou mais), das tabelas, dos índices, a taxa de fragementação, alterações nas configurações, alterações nos esquemas de banco de dados, monitoramento dos 'error logs' dos 90 MS SQL, e verificar os planos de 'execução das store procedures' (Não estou contando aqui mais uns 30 MS SQL que devem entrar na histório daqui uns 3 meses); * Desenvolvimento via web de uma ferramenta que permite o gerenciamento descentralizado dos usuários Windows NT 4.0, já que o NT não possue serviço de diretório antes ou eu dava o direito de administrador para todo mundo ou somente eu faria a manutenção (destravar usário, recetar senha, etc) dos usuários; * A auditoria dos sistemas pagos que deveriam funcionar 'sem problema', tais como os serviços de antivírus e do SMS em aproximadamente (por enquanto) 1.000 máquinas; * E por último, porém não menos importante. Eu utilizo o Perl para mostrar os ditos programadores que me circundam que o sistema deles estão com problema, como ? Refazendo a mesma rotina que eles estão fazendo mais rápido ;-) Bom, deve ter esquecido alguma coisa, mas já tem uma sinalização. Solli M. Honorio -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050304/373aae5b/attachment.htm From monsieur_champs em yahoo.com.br Fri Mar 4 19:00:34 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Fri Mar 4 19:01:07 2005 Subject: [Cascavel-pm] =?ISO-8859-1?Q?D=FAvida_sobre_multiprocess?= =?ISO-8859-1?Q?amento?= In-Reply-To: References: Message-ID: <422920D2.7040100@yahoo.com.br> Alex Falcao wrote: > a questão é a seguinte. Tenho uma SUN E480 com 2 processadores. Mamãe, é o emprego que eu sempre quis!!! :-D~~~ > Tenho > que processar 50 arquivos de NetFLow com 50M a cada 5 minutos. O que > imaginei seria criar várias threads para separar o processamento entre > os processadores, uma vez que ele coloca cada processo um uma CPU > aleatória. E o Solaris honra este compromisso apenas com _processos_, ou com _threads_ tabém? Não me parece uma coisa trivial _separar_ _threads_ _para_ _rodar_ _em_ _processadores_ _diferentes_. Já processos podem mais facilmente ser separados, já que não existe tantas informações partilhadas entre processos, pelo menos não tantas quanto threads. Sua solução é a melhor. Mas isso depende muito do que você chama de "processar". Isso é assim tão intensivo em CPU que justifique esta monstruosidade? Ou apenas uma CPU poderia cuidar do assunto, e as outras poderiam ser alocadas para as ocorrências seguintes, conforme o tempo fosse escoando? Estou sugerindo que você use apenas um processador para tratar cada lote, e que deixe que o lote ocupe mais tempo do que você dispõe (se for possível). Isto vai deixar a próxima CPU responsável pelo próximo lote (e teremos lotes processando em paralelo, muito mais simples de implementar). Imagino que isso seria o bastante, desde que o processamento que você precise fazer em cada arquivo seja otimizado o suficiente para permitir que o processamento termine em menos de 10 minutos. Espero ter dado outra abordagem para o problema. Putamplexos e boa sorte! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From monsieur_champs em yahoo.com.br Fri Mar 4 19:03:15 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Fri Mar 4 19:03:47 2005 Subject: [Cascavel-pm] =?ISO-8859-1?Q?D=FAvida_sobre_multiprocess?= =?ISO-8859-1?Q?ament_o=3F=3D?= In-Reply-To: References: Message-ID: <42292173.1040102@yahoo.com.br> Alex Falcao wrote: > Luis, > > o exemplo esta quase perfeito, o problema é que ele esta executando o > último arquivo 2 vezes... :-( > > Não entendi o porque disso. se puder me ajudar. > Champs wrote: >> Penso que você pode usar fork() para fazer o trabalho sujo, assim: >> >> # Isto aqui ajuda a reclamar recursos >> # dos processos filhos, conforme eles terminem. >> local $SIG{CHILD} = sub{ wait; }; >> >> foreach( @FILES ){ >> my $parent = fork(); >> if( $parent ){ # sou o processo filho >> # Execute processamento específico aqui >> }else{ # sou o processo pai >> # nao faz nada, apenas gera o proximo loop. >> } >> } Alex, existem duas possibilidades de um arquivo ser processado duas vezes, pelo que eu entendi: 1. A lista @FILES tem duas ocorrências do mesmo arquivo (confira!!) 2. Você implementou alguma coisa no block ELSE (entry-point do processo-pai), onde nenhum processamento deveria acontecer. Confira estas duas possibilidades, e me diga o que você encontrou. Putamplexos. -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From monsieur_champs em yahoo.com.br Fri Mar 4 19:05:44 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Fri Mar 4 19:06:15 2005 Subject: [Cascavel-pm] =?ISO-8859-1?Q?D=FAvida_sobre_multiproces?= In-Reply-To: <200503042009.j24K9K2e001280@rigel.pucrs.br> References: <200503042009.j24K9K2e001280@rigel.pucrs.br> Message-ID: <42292208.9060901@yahoo.com.br> fglock@pucrs.br wrote: > Vai aí uma pequena correção: > > foreach( @FILES ){ > my $parent = fork(); > if( $parent == 0 ){ # sou o processo filho > # Execute processamento específico aqui > exit; > }else{ # sou o processo pai > # nao faz nada, apenas gera o proximo loop. > } > } Flávio, eu não entendi. Qual é a diferença entre perguntar se $parent é zero ou falso, neste caso? Caso o fork() falhe, acho que teremos um problema tão maior com o S.O., que o Perl não vai ter qualquer chance de expressar uma condição de erro... Compreendi a "boa prática", mas não consegui enxergar seu propósito ou a situação onde ela poderia ser útil... me ajude? Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From donatoaz em gmail.com Sat Mar 5 11:47:30 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Sat Mar 5 11:47:41 2005 Subject: [Cascavel-pm] Lista das running applications Message-ID: <1746e3e3050305114779503dee@mail.gmail.com> Olá pessoal, Gostaria de saber se alguem tem alguma ideia de como eu posso obter uma lista das aplicações que estão sendo executadas (como as que se ve quando se aperta ctrl+alt+del). eu uso win98 SE obrigado! -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* From pmpoa em galvao.eti.br Sat Mar 5 12:14:45 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Sat Mar 5 12:14:45 2005 Subject: [Cascavel-pm] Lista das running applications In-Reply-To: <1746e3e3050305114779503dee@mail.gmail.com> References: <1746e3e3050305114779503dee@mail.gmail.com> Message-ID: <422A1335.4000307@galvao.eti.br> Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050305/56855d24/attachment.htm From nferraz em gnubis.com.br Sat Mar 5 12:18:05 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Sat Mar 5 12:18:42 2005 Subject: [Cascavel-pm] Lista das running applications In-Reply-To: <1746e3e3050305114779503dee@mail.gmail.com> References: <1746e3e3050305114779503dee@mail.gmail.com> Message-ID: <20050305201805.7067.qmail@hm101.locaweb.com.br> > Gostaria de saber se alguem tem alguma ideia de como eu posso obter > uma lista das aplicações que estão sendo executadas (como as que se ve > quando se aperta ctrl+alt+del). Tente o módulo Win32::Process::Info http://search.cpan.org/dist/Win32-Process-Info/Info.pm Nota do autor: "This package covers a multitude of sins - as many as Microsoft has invented ways to get process info and I have resources and gumption to code. The key to this mess is the 'variant' argument to the 'new' method" From scvalmei em graaph.arq.br Sat Mar 5 09:31:06 2005 From: scvalmei em graaph.arq.br (Silvio Almeida) Date: Sat Mar 5 15:31:13 2005 Subject: [Cascavel-pm] =?ISO-8859-1?Q?D=FAvida_sobre_multiprocess?= =?ISO-8859-1?Q?amento?= In-Reply-To: References: Message-ID: <4229ECDA.4040701@graaph.arq.br> Alex, Programar threads pode ser bem simples, veja o exemplo abaixo. O modelo de threads do 5.8, chamado ithreads, tem por padrão não compartilhar dados, então é certo que os dois processsadores estarão trabalhando em paralelo. Por este mesmo motivo, a performance pode não ser tão boa, mas certamente ainda será melhor que com fork() - é o que eu acho, não fiz a comparação... use threads; my @arquivos = (1..20); my %thrs; # um hash com referências para as threads # disparando uma thread para cada arquivo foreach my $arq (@arquivos) { $thrs{$arq} = threads->create('sub_system', $arq); } # o programa precisa esperar que todas as threds acabem map { $thrs{$_}->join; } keys %thrs; sub sub_system { my $arq = shift; # faça aqui o que seu script sub_system.pl faria; # eu estou esperando até 10 segundos e imprimindo sleep rand(10); print "arquivo $arq\n"; } Para usar o módulo 'threads' você precisa do perl-5.8 compilado com suporte a ithreads; verifique com perl -V se já é o seu caso. Silvio Alex Falcao escreveu: > Salve senhores, > > > Preciso de uma ajuda para fazer um script que gere varias > threads, uma para cada arquivo, desta forma, ou algo que funcione (rs), > já que desta forma não rola... hehehe > > my @ARQUIVOS = ("file1.txt", "file2.txt", "file3.txt"); > > foreach (@FILES) { > # executar arquivo sub_system.pl > system ("sub_system.pl", $_); > } > > Para cada FILE, gerar um thread. > > Muito obrigado pela ajuda > > Alex Falcão > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm From jamorreu em gmail.com Sun Mar 6 12:05:18 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Sun Mar 6 12:05:27 2005 Subject: [Cascavel-pm] Converter data "humana" para "timestamp", como? Message-ID: <8ff2963a05030612055ecd3202@mail.gmail.com> Olá pessoal, tranquilidade? (aqui no ES tá uma merda... só chuva!) Vamos ao que interessa... como converto uma data "humana" (por exemplo, data do meu aniversário: 12/03/2005) para "timestamp"?? eu tava indo bem com minhas multiplicações (passando tudo para segundos), até chegar no mês... :( alguém pode me dar uma luz? -- Um abraço, João Gabriel / JGCL vitoria.pm.org From nferraz em gnubis.com.br Sun Mar 6 13:16:14 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Sun Mar 6 13:16:48 2005 Subject: [Cascavel-pm] Converter data In-Reply-To: <8ff2963a05030612055ecd3202@mail.gmail.com> References: <8ff2963a05030612055ecd3202@mail.gmail.com> Message-ID: <20050306211614.32204.qmail@hm101.locaweb.com.br> > como converto uma data "humana" (por exemplo, data do meu aniversário: > 12/03/2005) para "timestamp"?? > > eu tava indo bem com minhas multiplicações (passando tudo para > segundos), até chegar no mês... :( use Time::Local; $time = timegm($seconds, $minutes, $hours, $day, $month-1, $year-1900); # $day is day in month (1-31) # $month is month in year (1-12) # $year is four-digit year e.g., 1967 # $hours, $minutes and $seconds represent UTC time []s Nelson From fglock em pucrs.br Mon Mar 7 04:59:44 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Mon Mar 7 05:01:12 2005 Subject: [Cascavel-pm] Dúvida sobre multiproces Message-ID: <200503071301.j27D112e031790@rigel.pucrs.br> Luis falou: > Qual é a diferença entre perguntar se $parent é > zero ou falso, neste caso? Da forma como estava antes: > foreach( @FILES ){ > my $parent = fork(); se der erro, $parent é undef > if( $parent ){ # sou o processo filho não - este é o processo pai > # Execute processamento específico aqui vai continuar processando @FILES e vai continuar gerando processos netos, bisnetos, e tataranetos > }else{ # sou o processo pai este é o processo filho > # nao faz nada, apenas gera o proximo loop. > } > } Veja: perldoc -f fork perldoc perlfork - Flavio S. Glock From rodzadra em yahoo.com Mon Mar 7 05:22:58 2005 From: rodzadra em yahoo.com (Rod Za) Date: Mon Mar 7 05:23:11 2005 Subject: [Cascavel-pm] Dúvida sobre multiproces In-Reply-To: 6667 Message-ID: <20050307132259.68530.qmail@web50206.mail.yahoo.com> Oi Gente, Dentro de um cluster - utilizando o openMosix, por exemplo - a utilizacao do fork() funciona do mesmo modo do funcionamento de uma maquina bi-processada? muito obrigado, Rodrigo --- fglock@pucrs.br wrote: > Luis falou: > > Qual é a diferença entre perguntar se $parent é > > zero ou falso, neste caso? > > Da forma como estava antes: > > > foreach( @FILES ){ > > my $parent = fork(); > > se der erro, $parent é undef > > > if( $parent ){ # sou o processo filho > > não - este é o processo pai > > > # Execute processamento específico aqui > > vai continuar processando @FILES > e vai continuar gerando processos netos, > bisnetos, e tataranetos > > > }else{ # sou o processo pai > > este é o processo filho > > > # nao faz nada, apenas gera o proximo loop. > > } > > } > > Veja: > perldoc -f fork > perldoc perlfork > > - Flavio S. Glock > > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm __________________________________ Celebrate Yahoo!'s 10th Birthday! Yahoo! Netrospective: 100 Moments of the Web http://birthday.yahoo.com/netrospective/ From fglock em pucrs.br Mon Mar 7 05:41:18 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Mon Mar 7 05:42:45 2005 Subject: [Cascavel-pm] Dúvida sobre multiproces Message-ID: <200503071342.j27DgZ2e040275@rigel.pucrs.br> Rodrigo falou: > > Dentro de um cluster - utilizando o openMosix, > por exemplo - a utilizacao do fork() > funciona do mesmo modo do funcionamento de uma > maquina bi-processada? Sim: http://www.mosix.org "In a MOSIX cluster there is no need to modify or to link applications with any library, or even to assign processes to different nodes, MOSIX does it automatically - just fork and forget, like in an SMP." - Flavio S. Glock From alfspsp em hotmail.com Mon Mar 7 07:27:08 2005 From: alfspsp em hotmail.com (Alex Falcao) Date: Mon Mar 7 07:27:19 2005 Subject: =?iso-8859-1?B?UmU6IFtDYXNjYXZlbC1wbV0gRPp2aWRhIHNvYnJlIG11bHRpcHJvY2Vz?= =?iso-8859-1?B?c2FtZW50bw==?= In-Reply-To: <422920D2.7040100@yahoo.com.br> Message-ID: Luis, >From: Luis Campos de Carvalho >Reply-To: Cascavel Perl Mongers >To: Cascavel Perl Mongers >Subject: Re: [Cascavel-pm] Dúvida sobre multiprocessamento >Date: Sat, 05 Mar 2005 00:00:34 -0300 > >Alex Falcao wrote: >> a questão é a seguinte. Tenho uma SUN E480 com 2 processadores. > > Mamãe, é o emprego que eu sempre quis!!! :-D~~~ a maquina é bem legal mesmo... =:-) > > > Tenho >>que processar 50 arquivos de NetFLow com 50M a cada 5 minutos. O que >>imaginei seria criar várias threads para separar o processamento entre os >>processadores, uma vez que ele coloca cada processo um uma CPU aleatória. > > E o Solaris honra este compromisso apenas com _processos_, ou com >_threads_ tabém? Não me parece uma coisa trivial _separar_ _threads_ _para_ >_rodar_ _em_ _processadores_ _diferentes_. Já processos podem mais >facilmente ser separados, já que não existe tantas informações partilhadas >entre processos, pelo menos não tantas quanto threads. > > Sua solução é a melhor. > Mas isso depende muito do que você chama de "processar". Isso é assim >tão intensivo em CPU que justifique esta monstruosidade? Ou apenas uma CPU >poderia cuidar do assunto, e as outras poderiam ser alocadas para as >ocorrências seguintes, conforme o tempo fosse escoando? > > Estou sugerindo que você use apenas um processador para tratar cada >lote, e que deixe que o lote ocupe mais tempo do que você dispõe (se for >possível). Isto vai deixar a próxima CPU responsável pelo próximo lote (e >teremos lotes processando em paralelo, muito mais simples de implementar). > > Imagino que isso seria o bastante, desde que o processamento que você >precise fazer em cada arquivo seja otimizado o suficiente para permitir que >o processamento termine em menos de 10 minutos. O problema de esperar é o seguinte: eu faço uma análise de variação de tráfego com o objetivo de detectar ataques. Se este processamento demorar muito, o ataque pode ter acabado ou o endereço IP de spoofing já ter trocado, esse é o principal motivo de eu precisar rodar muito rápido esta análise. Mas valeu pelas dicas. > > Espero ter dado outra abordagem para o problema. > Putamplexos e boa sorte! >-- >=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ >=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm@pm.org >http://mail.pm.org/mailman/listinfo/cascavel-pm From jamorreu em gmail.com Mon Mar 7 11:50:06 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Mon Mar 7 11:50:15 2005 Subject: [Cascavel-pm] Converter data Message-ID: <8ff2963a05030711501b88b725@mail.gmail.com> Nelson... > use Time::Local; > $time = timegm($seconds, $minutes, $hours, $day, $month-1, $year-1900); > > # $day is day in month (1-31) > # $month is month in year (1-12) > # $year is four-digit year e.g., 1967 > # $hours, $minutes and $seconds represent UTC time Data gerada pelo banco de dados MySQL (timestamp): 20050308161850 Data gerada pelo Time::Local: 1110213969 Se os dois são timestamp, porque números diferentes para datas iguais? -- Um abraço, João Gabriel / JGCL From glasswalk3r em yahoo.com.br Mon Mar 7 12:03:32 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Mon Mar 7 12:03:44 2005 Subject: [Cascavel-pm] Converter data In-Reply-To: <8ff2963a05030711501b88b725@mail.gmail.com> Message-ID: <20050307200332.88455.qmail@web31505.mail.mud.yahoo.com> --- João Gabriel escreveu: > Nelson... > > use Time::Local; > > $time = timegm($seconds, $minutes, $hours, $day, > $month-1, $year-1900); > > > > # $day is day in month (1-31) > > # $month is month in year (1-12) > > # $year is four-digit year e.g., 1967 > > # $hours, $minutes and $seconds represent UTC time > > > Data gerada pelo banco de dados MySQL (timestamp): > 20050308161850 > > Data gerada pelo Time::Local: > 1110213969 > > Se os dois são timestamp, porque números diferentes > para datas iguais? Oi João, Uma lida na documentação ajuda bastante. Leia! perldoc -f time Só isso já responderia sua pergunta. A data que vc tem no banco é uma string no formato AAAAMMDDHHMM. Internamente eu duvido que o banco guarde neste formato, a menos que o campo seja do tipo VARCHAR. Isso "1110213969" é o "epoch time" (ou qq coisa assim), que é a quantidade de segundos contados desde 1972 (tb não tenho certeza se é isso mesmo). Execute o perldoc e veja você mesmo. []'s ===== Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 _______________________________________________________ Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis From jamorreu em gmail.com Mon Mar 7 13:08:16 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Mon Mar 7 13:08:24 2005 Subject: [Cascavel-pm] Converter data Message-ID: <8ff2963a050307130819d66fa8@mail.gmail.com> Alceu Rodrigues de Freitas Junior.... > Oi João, opa > > Uma lida na documentação ajuda bastante. Leia! > > perldoc -f time > > Só isso já responderia sua pergunta. A data que vc tem > no banco é uma string no formato AAAAMMDDHHMM. > Internamente eu duvido que o banco guarde neste > formato, a menos que o campo seja do tipo VARCHAR. > > Isso "1110213969" é o "epoch time" (ou qq coisa > assim), que é a quantidade de segundos contados desde > 1972 (tb não tenho certeza se é isso mesmo). Execute o > perldoc e veja você mesmo. Se o número gerado pelo Time::Local é "opoch time", o Nelson me passou errado a resposta da minha dúvida, porque eu pedi "timestamp" e não "epoch time"... qual é melhor usar? a do Time::Local ou a gerada pelo banco de dados? -- Um abraço, João Gabriel / JGCL From glasswalk3r em yahoo.com.br Mon Mar 7 13:19:29 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Mon Mar 7 13:19:39 2005 Subject: [Cascavel-pm] Converter data In-Reply-To: <8ff2963a050307130819d66fa8@mail.gmail.com> Message-ID: <20050307211929.47193.qmail@web31507.mail.mud.yahoo.com> --- João Gabriel escreveu: > Se o número gerado pelo Time::Local é "opoch time", > o Nelson me passou > errado a resposta da minha dúvida, porque eu pedi > "timestamp" e não > "epoch time"... > > qual é melhor usar? a do Time::Local ou a gerada > pelo banco de dados? Depende. O que você quer fazer? Alguns bancos de dados tem uma própria representação pra dados númericos. Normalmente eles também retornam dados no format "epoch time", se você requisitar assim. []'s ===== Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 _______________________________________________________ Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis From mda em embratel.net.br Mon Mar 7 13:21:12 2005 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Mon Mar 7 13:21:25 2005 Subject: [Cascavel-pm] Converter data In-Reply-To: <8ff2963a050307130819d66fa8@mail.gmail.com> References: <8ff2963a050307130819d66fa8@mail.gmail.com> Message-ID: <422CC5C8.7050509@embratel.net.br> Joao Gabriel, Sem entrar no merito de resposta certa/errada ou manual... A questão timestamp leva a crer imediatamente em "unix timestamp", sendo que no mysql existem as funcoes "from_unixtime()" e "unix_timestamp()". Você é que deve decidir qual o melhor caso para sua questão, de acordo com suas proprias necessidades. Em tempo, caso necessite de qualquer operação com datas, será mais simples utilizar timestamp em epoch time, pois terá funcoes como localtime e Time::Local::timegm. Sds, Marco Antonio João Gabriel wrote: >Alceu Rodrigues de Freitas Junior.... > > >>Oi João, >> >> > >opa > > > >>Uma lida na documentação ajuda bastante. Leia! >> >>perldoc -f time >> >>Só isso já responderia sua pergunta. A data que vc tem >>no banco é uma string no formato AAAAMMDDHHMM. >>Internamente eu duvido que o banco guarde neste >>formato, a menos que o campo seja do tipo VARCHAR. >> >>Isso "1110213969" é o "epoch time" (ou qq coisa >>assim), que é a quantidade de segundos contados desde >>1972 (tb não tenho certeza se é isso mesmo). Execute o >>perldoc e veja você mesmo. >> >> > >Se o número gerado pelo Time::Local é "opoch time", o Nelson me passou >errado a resposta da minha dúvida, porque eu pedi "timestamp" e não >"epoch time"... > >qual é melhor usar? a do Time::Local ou a gerada pelo banco de dados? > > > From monsieur_champs em yahoo.com.br Mon Mar 7 15:11:52 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Mon Mar 7 15:12:24 2005 Subject: [Cascavel-pm] =?ISO-8859-1?Q?D=FAvida_sobre_multiproces?= In-Reply-To: <20050307132259.68530.qmail@web50206.mail.yahoo.com> References: <20050307132259.68530.qmail@web50206.mail.yahoo.com> Message-ID: <422CDFB8.3060207@yahoo.com.br> Rod Za wrote: > Oi Gente, > > Dentro de um cluster - utilizando o openMosix, por exemplo - a utilizacao do fork() funciona do > mesmo modo do funcionamento de uma maquina bi-processada? > > muito obrigado, Rodrigo, como funciona o OpenMosix, exatamente? Em outras palavras, o que o OpenMosix pode e o que não pode fazer com processos inciados pelo $ENV{SHELL}? Se a função do OM for a de gerenciar múltiplos processadores, permitindo que diferentes processos rodem em diferentes máquinas transparentemente, eu acho que tudo acontece como se um novo processo tivesse sido criado. Por outro lado, se o OM precisa de algum suporte especial para criar processos "partilháveis", talvez isto não fucnione da forma como você está esperando, já que o processo criado pelo fork() não estará subordinado (direta ou indiretamente) ao OM. Ao invés de nos perguntar isso, você poderia responder... ;-) Putamplexos curiosos pela resposta! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From monsieur_champs em yahoo.com.br Mon Mar 7 15:42:22 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Mon Mar 7 15:42:53 2005 Subject: [Cascavel-pm] Converter data In-Reply-To: <20050307200332.88455.qmail@web31505.mail.mud.yahoo.com> References: <20050307200332.88455.qmail@web31505.mail.mud.yahoo.com> Message-ID: <422CE6DE.4090102@yahoo.com.br> Alceu R. de Freitas Jr. wrote: > --- João Gabriel escreveu: > >>Nelson... >> >>>use Time::Local; >>>$time = timegm($seconds, $minutes, $hours, $day, >> >>$month-1, $year-1900); >> >>># $day is day in month (1-31) >>># $month is month in year (1-12) >>># $year is four-digit year e.g., 1967 >>># $hours, $minutes and $seconds represent UTC time >> >> >>Data gerada pelo banco de dados MySQL (timestamp): >>20050308161850 >> >>Data gerada pelo Time::Local: >>1110213969 >> >>Se os dois são timestamp, porque números diferentes >>para datas iguais? > > > Oi João, > > Uma lida na documentação ajuda bastante. Leia! > > perldoc -f time > > Só isso já responderia sua pergunta. A data que vc tem > no banco é uma string no formato AAAAMMDDHHMM. > Internamente eu duvido que o banco guarde neste > formato, a menos que o campo seja do tipo VARCHAR. > > Isso "1110213969" é o "epoch time" (ou qq coisa > assim), que é a quantidade de segundos contados desde > 1972 (tb não tenho certeza se é isso mesmo). Execute o > perldoc e veja você mesmo. O "Epoch" é o instante assinalado por 00:00:00 de primeiro de janeiro de 1970. Quando os alienígenas arqueólogos que estudarem nossa civilização toparem com nossos bancos de dados primitivos, ficarão certamente muito intrigados com o motivo de escolha desta data... ;-) -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From fglock em pucrs.br Tue Mar 8 04:59:50 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Tue Mar 8 05:01:18 2005 Subject: [Cascavel-pm] Converter data Message-ID: <200503081301.j28D172e028702@rigel.pucrs.br> Exemplo usando o "DateTime": # >>Data gerada pelo banco de dados MySQL # (timestamp): # >>20050308161850 use DateTime::Format::MySQL; my $dt = DateTime::Format::MySQL->parse_timestamp( '20050308161850' ); $dt->add( months => 1 ); print DateTime::Format::MySQL->format_datetime( $dt ); print "\n"; # resultado: 2005-04-08 16:18:50 # >>Data gerada pelo Time::Local: # >>1110213969 use DateTime::Format::Epoch::Unix; my $dt = DateTime::Format::Epoch::Unix->parse_datetime( '1110213969' ); $dt->add( months => 1 ); print DateTime::Format::Epoch::Unix->format_datetime( $dt ); print "\n"; # resultado: 1112892369 - Flavio S. Glock From rodzadra em yahoo.com Tue Mar 8 05:21:27 2005 From: rodzadra em yahoo.com (Rod Za) Date: Tue Mar 8 05:21:41 2005 Subject: [Cascavel-pm] Dúvida sobre multiproces In-Reply-To: 6667 Message-ID: <20050308132127.75202.qmail@web50209.mail.yahoo.com> Ola Luis, O OpenMosix é uma extensão do kernel para criaćão de clusters SSI (Single-System Image). Com o OpenMosix pode-se transformar uma rede com vários computadores em um Super-Computador:) As vantagens do OpenMosix são muitas: GPL, o gerenciamento de nós é transparente (automática), é muito rápido, etc, etc. Na verdade o OpenMosix era baseado no Mosix (que a partir de certa data passou a ser proprietário) e depois ele foi re-escrito utilizando novos algoritmos que simulam "principios economicos" convertendo o uso total de recursos - memóra, cpu, etc - em "custos". Sendo assim os "jobs" são atribuídos ao computador que cobre menos para fazer o servico!:) É realmente muito interessante. Quando configurado ele simula um único computador como se fosse um computador com "N" processadores (SMPs) e não existe a relacão de mestre/escravo entre os nós, e cada nó pode trabalhar como um sistema autônomo. E realmente minha pergunta foi feita de forma precipitada! O fork funciona sim com o OpenMosix de forma transparente, diferentemente dos clusters tipo Parallel Computer Emulation (beowulf) - os quais são emulados via software e que necessitam de mudanćas nas aplicaćões. De qualquer forma, acho q valeu para algumas pessoas conhecerem - mesmo fora de tópico, a propósito existe uma distribuićão linux que já vem com o OpenMosix prontinho para funcionar - dynebolic (http://dynebolic.dyne.org/)- é só dar boot via CD em cada uma das máquinas da rede para se ter um "supercomputador". um grande abraćo, Rodrigo --- Luis Campos de Carvalho wrote: > Rod Za wrote: > > Oi Gente, > > > > Dentro de um cluster - utilizando o openMosix, por exemplo - a utilizacao do fork() funciona > do > > mesmo modo do funcionamento de uma maquina bi-processada? > > > > muito obrigado, > > Rodrigo, como funciona o OpenMosix, exatamente? > > Em outras palavras, o que o OpenMosix pode e o que não pode fazer com > processos inciados pelo $ENV{SHELL}? > > > Se a função do OM for a de gerenciar múltiplos processadores, > permitindo que diferentes processos rodem em diferentes máquinas > transparentemente, eu acho que tudo acontece como se um novo processo > tivesse sido criado. > > Por outro lado, se o OM precisa de algum suporte especial para criar > processos "partilháveis", talvez isto não fucnione da forma como você > está esperando, já que o processo criado pelo fork() não estará > subordinado (direta ou indiretamente) ao OM. > > Ao invés de nos perguntar isso, você poderia responder... ;-) > > Putamplexos curiosos pela resposta! > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > __________________________________ Celebrate Yahoo!'s 10th Birthday! Yahoo! Netrospective: 100 Moments of the Web http://birthday.yahoo.com/netrospective/ From jamorreu em gmail.com Tue Mar 8 09:27:23 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Tue Mar 8 09:27:42 2005 Subject: [Cascavel-pm] Converter data Message-ID: <8ff2963a05030809271d2230d8@mail.gmail.com> Pessoal, valeu pelas explicações mas... Flavio S. Glock... > # >>Data gerada pelo Time::Local: > # >>1110213969 > > use DateTime::Format::Epoch::Unix; > my $dt = DateTime::Format::Epoch::Unix->parse_datetime( > '1110213969' ); > $dt->add( months => 1 ); > print DateTime::Format::Epoch::Unix->format_datetime( > $dt ); > print "\n"; > > # resultado: 1112892369 O que é isso? ele transformou em "timestamp" ou "epcoch" para linux? Tem diferenças? Explica isso porque eu não entendi bulhunfas... No meu caso, eu preciso de um sistema de data completo para pesquisa por iténs em banco de dados por tempo. Exemplo: localizar iténs que foram incrementados entres os dias X e X. (isso é fácil) Exemplo 2: listar produtos cadastrados em um mesmo dia. (com o timestamp do mysql, eu consegui, já com o timestamp do Time::Local eu já não consegui). Algum monge pode me dar um help? Marco Antonio... > A questão timestamp leva a crer imediatamente em "unix timestamp", sendo > que no mysql existem as funcoes "from_unixtime()" e > "unix_timestamp()". Vo dar uma estudada nessas funções do mysql. vlw :D -- Um abraço, João Gabriel / JGCL From marco.lima em e-via.com.br Tue Mar 8 09:40:40 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Tue Mar 8 09:41:00 2005 Subject: [Cascavel-pm] [OT] Analista Programador Message-ID: Salve Monges ! Quem estiver interessado em trabalhar com Perl, tenho uma oportunidade para Analista Programador na região de Campinas. Os interessados podem me enviar o CV. [ ]'ção Marco Lima marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Perl Monk Brasil Perl Monger Líder do Rio de Janeiro Perl Mongers http://www.perlmonk.org http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From rodzadra em yahoo.com Tue Mar 8 09:42:03 2005 From: rodzadra em yahoo.com (Rod Za) Date: Tue Mar 8 09:42:20 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?Duvidas_em_passar_o_valor_0_=28zero?= =?iso-8859-1?q?=29_para_uma_fun=E7=E3o=2E?= Message-ID: <20050308174204.18933.qmail@web50206.mail.yahoo.com> Olá todos, Estou com uma dúvida cruel! Quando passo o valor 0 (zero) para uma função que grava este num banco de dados, a minha função dá sempre erro! Como posso contornar isto? _CODIGO_ sub teste{ my $valor = shift; my $query = "INSERT INTO banco_de_dados (valor) VALUES ('$valor')"; if($dbh->do($query)){ $dbh->commit; } } _FIM_CODIGO_ ex: teste(0); ou teste(´0´); ou my $a=0; teste($a); dá sempre o mesmo erro, como se o valor 0 (zero) nao fosse passado! muito obrigado, Rodrigo __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com From lgonzaga em lncc.br Tue Mar 8 09:48:47 2005 From: lgonzaga em lncc.br (Luiz Gonzaga) Date: Tue Mar 8 09:48:45 2005 Subject: [Cascavel-pm] Duvidas em passar o valor 0 (zero) para uma =?ISO-8859-1?B?ZnVu5+NvLg==?= In-Reply-To: <20050308174204.18933.qmail@web50206.mail.yahoo.com> References: <20050308174204.18933.qmail@web50206.mail.yahoo.com> Message-ID: <20050308144847.6f703b35.lgonzaga@lncc.br> Rodrigo, Qual eh o exatamente a mensagem de erro que voce esta recebendo ? Luiz. On Tue, 8 Mar 2005 09:42:03 -0800 (PST) Rod Za wrote: > Ol_ todos, > > Estou com uma d_vida cruel! Quando passo o valor 0 (zero) para uma fun__o que grava este num banco > de dados, a minha fun__o d_ sempre erro! Como posso contornar isto? > > _CODIGO_ > sub teste{ > my $valor = shift; > my $query = "INSERT INTO banco_de_dados (valor) VALUES ('$valor')"; > if($dbh->do($query)){ > $dbh->commit; > } > } > _FIM_CODIGO_ > > ex: teste(0); ou teste(_0_); ou my $a=0; teste($a); > > d_ sempre o mesmo erro, como se o valor 0 (zero) nao fosse passado! > > muito obrigado, > > Rodrigo > > __________________________________________________ > Do You Yahoo!? > Tired of spam? Yahoo! Mail has the best spam protection around > http://mail.yahoo.com > From marco.lima em e-via.com.br Tue Mar 8 09:59:00 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Tue Mar 8 09:59:19 2005 Subject: [Cascavel-pm] Duvidas em passar o valor 0 (zero) para uma função. Message-ID: FYA sub teste{ my $valor = shift; my $query = "INSERT INTO banco_de_dados " . " (valor) " . " VALUES ('" . $valor . "')"; if($dbh->do($query)) { $dbh->commit; } } > > Olá todos, > > Estou com uma dúvida cruel! Quando passo o valor 0 (zero) para uma função que grava este num banco > de dados, a minha função dá sempre erro! Como posso contornar isto? > > _CODIGO_ > sub teste{ > my $valor = shift; > my $query = "INSERT INTO banco_de_dados (valor) VALUES ('$valor')"; > if($dbh->do($query)){ > $dbh->commit; > } > } > _FIM_CODIGO_ > > ex: teste(0); ou teste(´0´); ou my $a=0; teste($a); > > dá sempre o mesmo erro, como se o valor 0 (zero) nao fosse passado! > > muito obrigado, > > Rodrigo > > __________________________________________________ > Do You Yahoo!? > Tired of spam? Yahoo! Mail has the best spam protection around > http://mail.yahoo.com > > Marco Lima marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Perl Monk Brasil Perl Monger Líder do Rio de Janeiro Perl Mongers http://www.perlmonk.org http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From glasswalk3r em yahoo.com.br Tue Mar 8 10:12:57 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Tue Mar 8 10:13:07 2005 Subject: =?iso-8859-1?q?Re:=20[Cascavel-pm]=20Duvidas=20em=20passar=20o=20valor=20?= =?iso-8859-1?q?0=20(zero)=20para=20uma=20fun=E7=E3o.?= In-Reply-To: 6667 Message-ID: <20050308181257.87604.qmail@web31512.mail.mud.yahoo.com> Marco, O correto não seria isso? sub teste{ my $valor = shift; my $query = "INSERT INTO banco_de_dados " . " (valor) " . " VALUES ('"' . $valor . '"')"; if($dbh->do($query)) { $dbh->commit; } } Eu não testei, mas sem as aspas simples que adicionei não daria problema? []'s Alceu --- Marco Lima wrote: > FYA > > > > sub teste{ > my $valor = shift; > my $query = "INSERT INTO banco_de_dados " . > " (valor) " . > " VALUES ('" . $valor . "')"; > if($dbh->do($query)) { $dbh->commit; } > } > > > > > > > Olá todos, > > > > Estou com uma dúvida cruel! Quando passo o valor 0 > (zero) para uma > função que grava este num banco > > de dados, a minha função dá sempre erro! Como > posso contornar isto? > > > > _CODIGO_ > > sub teste{ > > my $valor = shift; > > my $query = "INSERT INTO banco_de_dados (valor) > VALUES ('$valor')"; > > if($dbh->do($query)){ > > $dbh->commit; > > } > > } > > _FIM_CODIGO_ > > > > ex: teste(0); ou teste(´0´); ou my $a=0; > teste($a); > > > > dá sempre o mesmo erro, como se o valor 0 (zero) > nao fosse passado! > > > > muito obrigado, > > > > Rodrigo > > > > __________________________________________________ > > Do You Yahoo!? > > Tired of spam? Yahoo! Mail has the best spam > protection around > > http://mail.yahoo.com > > > > > > > > Marco Lima > marco.lima@e-via.com.br > mago@rio.pm.org > > +55 19 96 56 06 46 > > > Perl Monk > Brasil Perl Monger > Líder do Rio de Janeiro Perl Mongers > > http://www.perlmonk.org > http://brasil.pm.org > > Register Linux User #355235 > Slackware Linux, for the subgenius > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > _______________________________________________________ Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis From lgonzaga em lncc.br Tue Mar 8 10:20:41 2005 From: lgonzaga em lncc.br (Luiz Gonzaga) Date: Tue Mar 8 10:20:38 2005 Subject: [Cascavel-pm] Duvidas em passar o valor 0 (zero) para uma =?ISO-8859-1?B?ZnVu5+NvLg==?= In-Reply-To: <20050308181257.87604.qmail@web31512.mail.mud.yahoo.com> References: <20050308181257.87604.qmail@web31512.mail.mud.yahoo.com> Message-ID: <20050308152041.777499a0.lgonzaga@lncc.br> Se entendi a solucao proposta tanto pelo Marco quanto pelo Alceu, nao seria melhor usar? " VALUES (". $dbh->quote($valor) .") "; Acho que isto resolve o problema do Rodrigo, mas insisto na questao da mensagem de erro, que perguntei anteriormente, pois com a mensagem, alem de darmos a solucao, ajudamos a entender o que estah acontencendo. Abracos, Luiz. On Tue, 8 Mar 2005 15:12:57 -0300 (ART) "Alceu R. de Freitas Jr." wrote: > Marco, > > O correto não seria isso? > > > > sub teste{ > my $valor = shift; > my $query = "INSERT INTO banco_de_dados " . > " (valor) " . > " VALUES ('"' . $valor . '"')"; > if($dbh->do($query)) { $dbh->commit; } > } > > > Eu não testei, mas sem as aspas simples que adicionei > não daria problema? > > []'s > Alceu > > --- Marco Lima wrote: > > FYA > > > > > > > > sub teste{ > > my $valor = shift; > > my $query = "INSERT INTO banco_de_dados " . > > " (valor) " . > > " VALUES ('" . $valor . "')"; > > if($dbh->do($query)) { $dbh->commit; } > > } > > > > > > > > > > > > Olá todos, > > > > > > Estou com uma dúvida cruel! Quando passo o valor 0 > > (zero) para uma > > função que grava este num banco > > > de dados, a minha função dá sempre erro! Como > > posso contornar isto? > > > > > > _CODIGO_ > > > sub teste{ > > > my $valor = shift; > > > my $query = "INSERT INTO banco_de_dados (valor) > > VALUES ('$valor')"; > > > if($dbh->do($query)){ > > > $dbh->commit; > > > } > > > } > > > _FIM_CODIGO_ > > > > > > ex: teste(0); ou teste(´0´); ou my $a=0; > > teste($a); > > > > > > dá sempre o mesmo erro, como se o valor 0 (zero) > > nao fosse passado! > > > > > > muito obrigado, > > > > > > Rodrigo > > > > > > __________________________________________________ > > > Do You Yahoo!? > > > Tired of spam? Yahoo! Mail has the best spam > > protection around > > > http://mail.yahoo.com > > > > > > > > > > > > > > Marco Lima > > marco.lima@e-via.com.br > > mago@rio.pm.org > > > > +55 19 96 56 06 46 > > > > > > Perl Monk > > Brasil Perl Monger > > Líder do Rio de Janeiro Perl Mongers > > > > http://www.perlmonk.org > > http://brasil.pm.org > > > > Register Linux User #355235 > > Slackware Linux, for the subgenius > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm@pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > _______________________________________________________ > Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > From marco.lima em e-via.com.br Tue Mar 8 10:27:34 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Tue Mar 8 10:27:55 2005 Subject: [Cascavel-pm] Duvidas em passar o valor 0 (zero) para uma função. Message-ID: Salve Alceu ! Vc têm razão !! [copy and paste] Ps. $query =~ s/banco_de_dados/tabela/; [ ]'s > Marco, > > O correto não seria isso? > > > > sub teste{ > my $valor = shift; > my $query = "INSERT INTO banco_de_dados " . > " (valor) " . > " VALUES ('"' . $valor . '"')"; > if($dbh->do($query)) { $dbh->commit; } > } > > > Eu não testei, mas sem as aspas simples que adicionei > não daria problema? > > []'s > Alceu > > --- Marco Lima wrote: > > FYA > > > > > > > > sub teste{ > > my $valor = shift; > > my $query = "INSERT INTO banco_de_dados " . > > " (valor) " . > > " VALUES ('" . $valor . "')"; > > if($dbh->do($query)) { $dbh->commit; } > > } > > > > > > > > > > > > Olá todos, > > > > > > Estou com uma dúvida cruel! Quando passo o valor 0 > > (zero) para uma > > função que grava este num banco > > > de dados, a minha função dá sempre erro! Como > > posso contornar isto? > > > > > > _CODIGO_ > > > sub teste{ > > > my $valor = shift; > > > my $query = "INSERT INTO banco_de_dados (valor) > > VALUES ('$valor')"; > > > if($dbh->do($query)){ > > > $dbh->commit; > > > } > > > } > > > _FIM_CODIGO_ > > > > > > ex: teste(0); ou teste(´0´); ou my $a=0; > > teste($a); > > > > > > dá sempre o mesmo erro, como se o valor 0 (zero) > > nao fosse passado! > > > > > > muito obrigado, > > > > > > Rodrigo > > > > > > __________________________________________________ > > > Do You Yahoo!? > > > Tired of spam? Yahoo! Mail has the best spam > > protection around > > > http://mail.yahoo.com > > > > > > > > > > > > > > Marco Lima > > marco.lima@e-via.com.br > > mago@rio.pm.org > > > > +55 19 96 56 06 46 > > > > > > Perl Monk > > Brasil Perl Monger > > Líder do Rio de Janeiro Perl Mongers > > > > http://www.perlmonk.org > > http://brasil.pm.org > > > > Register Linux User #355235 > > Slackware Linux, for the subgenius > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm@pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > _______________________________________________________ > Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > Marco Lima marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Perl Monk Brasil Perl Monger Líder do Rio de Janeiro Perl Mongers http://www.perlmonk.org http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From nferraz em gnubis.com.br Tue Mar 8 12:26:01 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Tue Mar 8 12:24:32 2005 Subject: [Cascavel-pm] Converter data In-Reply-To: <8ff2963a05030809271d2230d8@mail.gmail.com> References: <8ff2963a05030809271d2230d8@mail.gmail.com> Message-ID: <422E0A59.3090306@gnubis.com.br> João Gabriel wrote: > Pessoal, valeu pelas explicações mas... > O que é isso? ele transformou em "timestamp" ou "epcoch" para linux? > Tem diferenças? Explica isso porque eu não entendi bulhunfas... "Epoch" é apenas uma data arbitrária a partir da qual medimos o tempo. Por exemplo: 2005 anos depois de cristo; não sei quantos milhões de anos depois do big bang; e por aí vai. A data escolhida pelos criadores do Unix, como bem explicou o Luis, foi às 00:00 de 01/01/1970. O timestamp do MySQL é uma outra coisa. > Exemplo 2: listar produtos cadastrados em um mesmo dia. (com o > timestamp do mysql, eu consegui, já com o timestamp do Time::Local eu > já não consegui). O MySQL pode lhe dar o resultado pronto: "SELECT ... FROM ... WHERE DATE(date1) = DATE(date2)" http://dev.mysql.com/doc/mysql/en/date-and-time-functions.html From fglock em pucrs.br Tue Mar 8 14:28:31 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Tue Mar 8 14:29:59 2005 Subject: [Cascavel-pm] Consulta CEP Message-ID: <200503082229.j28MTl2e050210@rigel.pucrs.br> Há algum tempo atrás alguém perguntou como se consulta CEP no site dos Correios (acho que foi o Er Galvão Abbot). Depois de muita pesquisa eu achei esta documentação da Microsoft: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnofftalk/html/office11062003.asp O meu programa está em: http://www.perlmonks.org/?node_id=437742 Para usar: consulta_cep.pl 91751-000 O programa tem saída em XML. - Flavio From jamorreu em gmail.com Tue Mar 8 15:55:29 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Tue Mar 8 15:55:38 2005 Subject: [Cascavel-pm] Consulta CEP Message-ID: <8ff2963a0503081555398de419@mail.gmail.com> Flavio... > Depois de muita pesquisa eu achei esta documentação da Microsoft: > http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnofftalk/html/office11062003.asp Hum... a um bom tempo já colocaram um tutorial (diferente do seu script) de como fazer isso no fórum do wmonline... http://forum.wmonline.com.br/index.php?showtopic=95499 (tem um exemplo de código ai) Basta pegar o valor entre-tags do endereço com seu CEP: http://www.correios.com.br/servicos/cep/xml_logradouro.cfm?cep=SEU CEP AQUI&pag=1 Tá ai a complementação. -- Um abraço, João Gabriel / JGCL From jamorreu em gmail.com Tue Mar 8 16:08:12 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Tue Mar 8 16:08:25 2005 Subject: [Cascavel-pm] Converter data Message-ID: <8ff2963a050308160818089be5@mail.gmail.com> Eu... > Exemplo 2: listar produtos cadastrados em um mesmo dia. (com o > timestamp do mysql, eu consegui, já com o timestamp do Time::Local eu > já não consegui). Ops! isso eu sei fazer... espliquei errado... Com o timestamp do mysql eu consigo "ver" o dia que possui mais iténs e ver quantos iténs tem. Já com o timestamp do perl eu não consegui ter esse resultado. Nelson Ferraz... > http://dev.mysql.com/doc/mysql/en/date-and-time-functions.html hum... olhei o manual em português (http://dev.mysql.com/doc/mysql/pt/index.html)... cheguei a função "timestamp(6)" na qual preciso descobrir como aplica ela em uma coluna... qualquer ajuda será bem vinda :D boa noite -- Um abraço, João Gabriel / JGCL From monsieur_champs em yahoo.com.br Tue Mar 8 16:22:14 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Tue Mar 8 16:22:47 2005 Subject: [Cascavel-pm] Converter data In-Reply-To: <8ff2963a05030809271d2230d8@mail.gmail.com> References: <8ff2963a05030809271d2230d8@mail.gmail.com> Message-ID: <422E41B6.3040407@yahoo.com.br> João Gabriel wrote: > No meu caso, eu preciso de um sistema de data completo para pesquisa > por iténs em banco de dados por tempo. > Exemplo: localizar iténs que foram incrementados entres os dias X e X. > (isso é fácil) > > Exemplo 2: listar produtos cadastrados em um mesmo dia. (com o > timestamp do mysql, eu consegui, já com o timestamp do Time::Local eu > já não consegui). > > Algum monge pode me dar um help? > O que você precisa não são timestamps, nem unix nem MySQL. O que você precisa são DATETIMEs, um tipo de dados específico do MySQL. Ele permite que você selecione diretamente do banco de dados apenas as linhas que te interessam, baseados nos critérios que me apresentou. Todos os outros métodos de executar isso tomam mais tempo de processador e cérebro do programador que o mínimo estritamente necessário. JG, reveja suas estratégias. E mantenha a gente informado sobre a solução que você adotou. Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From monsieur_champs em yahoo.com.br Tue Mar 8 16:28:32 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Tue Mar 8 16:29:14 2005 Subject: =?ISO-8859-1?Q?Re=3A_=5BCascavel-pm=5D_Duvidas_em_passar?= =?ISO-8859-1?Q?_o_valor_0_=28zero=29_para_uma_fun=E7=E3o=2E?= In-Reply-To: <20050308174204.18933.qmail@web50206.mail.yahoo.com> References: <20050308174204.18933.qmail@web50206.mail.yahoo.com> Message-ID: <422E4330.5050407@yahoo.com.br> Rod Za wrote: > Olá todos, > > Estou com uma dúvida cruel! Quando passo o valor 0 (zero) para uma função que grava este num banco > de dados, a minha função dá sempre erro! Como posso contornar isto? > > _CODIGO_ > sub teste{ > my $valor = shift; > my $query = "INSERT INTO banco_de_dados (valor) VALUES ('$valor')"; > if($dbh->do($query)){ > $dbh->commit; > } > } > _FIM_CODIGO_ > > ex: teste(0); ou teste(´0´); ou my $a=0; teste($a); > > dá sempre o mesmo erro, como se o valor 0 (zero) nao fosse passado! > > muito obrigado, > O correto é usar PlaceHolders, uma técnica de passagem de dados implementada por quase todos os drivers DBD:: que existem. __PERL__ # Eu uso tratamento de erros por exceptions. $dbh->PrintError( 0 ); $dbh->RaiseError( 1 ); # Para usar placeholders, é preciso construir um query SQL assim: $sql = 'INSERT INTO banco_de_dados (valor) VALUES ( ? )'; # e executá-lo normalmente, passando, é claro, o valor # que se deseja inserir, assim: my $sth = eval{ $dbh->prepare( $sql ); }; if( $@ ){ &handle_error(); } eval{ $sth->execute( 0 ); }; if( $@ ){ &handle_error(); } __END__ Captou, Rod? Espero ter ajudado. Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From monsieur_champs em yahoo.com.br Tue Mar 8 16:35:00 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Tue Mar 8 16:35:33 2005 Subject: [Cascavel-pm] Converter data In-Reply-To: <8ff2963a050308160818089be5@mail.gmail.com> References: <8ff2963a050308160818089be5@mail.gmail.com> Message-ID: <422E44B4.8060508@yahoo.com.br> João Gabriel wrote: > Com o timestamp do mysql eu consigo "ver" o dia que possui mais iténs > e ver quantos iténs tem. Já com o timestamp do perl eu não consegui > ter esse resultado. JG, timestamps unix são definidos como "o número de segundos decorridos desde 00:00:00 de 01/01/1970". Para saber em que dia você está, precisa "apenas" fazer umas pequenas mágicas... ;-) ou usar as magníficas bibliotecas de manipulação de tempo do Perl... Eu ainda recomendo que você reveja suas estratégias... use DATETIME para armazenar suas informações de timestamp e esqueça tudo isso... é mais simples e eficiente... Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From nferraz em gnubis.com.br Tue Mar 8 17:16:25 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Tue Mar 8 17:20:08 2005 Subject: [Cascavel-pm] Converter data In-Reply-To: <8ff2963a050308160818089be5@mail.gmail.com> References: <8ff2963a050308160818089be5@mail.gmail.com> Message-ID: <20050309011625.7939.qmail@hm101.locaweb.com.br> > > Exemplo 2: listar produtos cadastrados em um mesmo dia. (com o > > timestamp do mysql, eu consegui, já com o timestamp do Time::Local eu > > já não consegui). > > Ops! isso eu sei fazer... espliquei errado... > Com o timestamp do mysql eu consigo "ver" o dia que possui mais iténs > e ver quantos iténs tem. Já com o timestamp do perl eu não consegui > ter esse resultado. Então... qual é a dificuldade? Assim como o Luis falou, acho que você resolveria melhor o problema usando campos DATETIME. A função DATE() e um GROUP BY também podem ser úteis. []s Nelson From marco.lima em e-via.com.br Wed Mar 9 05:11:01 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Mar 9 05:11:18 2005 Subject: [Cascavel-pm] Duvidas em passar o valor 0 (zero) para uma função. Message-ID: Existe mais de uma maneira de fazer isso !!! $sql = 'INSERT INTO (valor) VALUES ( ? )'; my $sth = $dbh->prepare( $sql ); $sth->bind_param(1, 0); $sth->execute(); > Rod Za wrote: > > Olá todos, > > > > Estou com uma dúvida cruel! Quando passo o valor 0 (zero) para uma função que grava este num banco > > de dados, a minha função dá sempre erro! Como posso contornar isto? > > > > _CODIGO_ > > sub teste{ > > my $valor = shift; > > my $query = "INSERT INTO banco_de_dados (valor) VALUES ('$valor')"; > > if($dbh->do($query)){ > > $dbh->commit; > > } > > } > > _FIM_CODIGO_ > > > > ex: teste(0); ou teste(´0´); ou my $a=0; teste($a); > > > > dá sempre o mesmo erro, como se o valor 0 (zero) nao fosse passado! > > > > muito obrigado, > > > > O correto é usar PlaceHolders, uma técnica de passagem de dados > implementada por quase todos os drivers DBD:: que existem. > > __PERL__ > # Eu uso tratamento de erros por exceptions. > $dbh->PrintError( 0 ); > $dbh->RaiseError( 1 ); > # Para usar placeholders, é preciso construir um query SQL assim: > $sql = 'INSERT INTO banco_de_dados (valor) VALUES ( ? )'; > # e executá-lo normalmente, passando, é claro, o valor > # que se deseja inserir, assim: > my $sth = eval{ $dbh->prepare( $sql ); }; > if( $@ ){ &handle_error(); } > eval{ $sth->execute( 0 ); }; > if( $@ ){ &handle_error(); } > __END__ > > Captou, Rod? > Espero ter ajudado. > Putamplexos! > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > Marco Lima marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Perl Monk Brasil Perl Monger Líder do Rio de Janeiro Perl Mongers http://www.perlmonk.org http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From rodzadra em yahoo.com Wed Mar 9 05:33:55 2005 From: rodzadra em yahoo.com (Rod Za) Date: Wed Mar 9 05:34:03 2005 Subject: [Cascavel-pm] Duvidas em passar o valor 0 (zero) para uma função. In-Reply-To: 6667 Message-ID: <20050309133355.12714.qmail@web50206.mail.yahoo.com> Galera, muito obrigado pela ajuda. As mensagem de erro que o MySQL me passa é a seguinte: ERROR 1048: Column 'valor' cannot be null e o meu banco de dados exemplo: CREATE TABLE `banco_de_dados` ( `valor` varchar(15) NOT NULL, ) TYPE=MyISAM Eu não sei, sempre me confundo como o Perl interpreta o valor 0 (zero)! Me parece q na funcão q eu descrevi o valor passado, quando zero, é sempre interpretado como se fosse FALSE (ou mesmo NULL) e não como o número 0 (zero)!. Qualquer outro valor !=0 é interpretado perfeitamente. Luiz quando ao uso de PlaceHolders, a minha verdadeira funcão não é tão simples quanto a q eu apresentei anteriormente, só fiz deste modo para melhor ilustrar o tipo de erro q vem acontecendo. A verdadeira funcão faz parte de uma classe e é a seguinte: sub user_update($%){ my $self = shift; my %update = @_; my @keyArray = keys %update; my @valueArray; my $return; foreach(@keyArray){ push @valueArray, $self->{dbh}->quote($update{$_}) if defined($update{$_}); } my $sql = "INSERT INTO history (`".join('`,`',@keyArray)."`) VALUES (".join(',',@valueArray).")"; $self->commit if($self->{dbh}->do($sql)); } e meu banco de dados: CREATE TABLE `history` ( `id_history` int(11) NOT NULL auto_increment, `id_user` int(11) default NULL, `id_group` int(11) NOT NULL default '0', `id_printer` int(11) NOT NULL default '0', `deb_cred` enum('d','c','i','G','U') NOT NULL default 'd', `valueDoc` float NOT NULL default '0', `dateJob` datetime NOT NULL default '0000-00-00 00:00:00', `fromGroup` enum('0','1') NOT NULL default '0', `n_pages` int(11) NOT NULL default '0', `jobFileName` varchar(255) NOT NULL default '', `doc_name` varchar(255) NOT NULL default '', `ip_ws` varchar(15) NOT NULL default '', `ws` varchar(30) NOT NULL default '', `id_status` int(11) NOT NULL default '0', PRIMARY KEY (`id_history`), KEY `id_usuario` (`id_user`,`id_group`,`id_printer`) ) TYPE=MyISAM Muito obrigado, Rodrigo --- Luis Campos de Carvalho wrote: > Rod Za wrote: > > Olá todos, > > > > Estou com uma dúvida cruel! Quando passo o valor 0 (zero) para uma função que grava este num > banco > > de dados, a minha função dá sempre erro! Como posso contornar isto? > > > > _CODIGO_ > > sub teste{ > > my $valor = shift; > > my $query = "INSERT INTO banco_de_dados (valor) VALUES ('$valor')"; > > if($dbh->do($query)){ > > $dbh->commit; > > } > > } > > _FIM_CODIGO_ > > > > ex: teste(0); ou teste(´0´); ou my $a=0; teste($a); > > > > dá sempre o mesmo erro, como se o valor 0 (zero) nao fosse passado! > > > > muito obrigado, > > > > O correto é usar PlaceHolders, uma técnica de passagem de dados > implementada por quase todos os drivers DBD:: que existem. > > __PERL__ > # Eu uso tratamento de erros por exceptions. > $dbh->PrintError( 0 ); > $dbh->RaiseError( 1 ); > # Para usar placeholders, é preciso construir um query SQL assim: > $sql = 'INSERT INTO banco_de_dados (valor) VALUES ( ? )'; > # e executá-lo normalmente, passando, é claro, o valor > # que se deseja inserir, assim: > my $sth = eval{ $dbh->prepare( $sql ); }; > if( $@ ){ &handle_error(); } > eval{ $sth->execute( 0 ); }; > if( $@ ){ &handle_error(); } > __END__ > > Captou, Rod? > Espero ter ajudado. > Putamplexos! > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > __________________________________ Celebrate Yahoo!'s 10th Birthday! Yahoo! Netrospective: 100 Moments of the Web http://birthday.yahoo.com/netrospective/ From mda em embratel.net.br Wed Mar 9 05:51:20 2005 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Wed Mar 9 05:51:32 2005 Subject: [Cascavel-pm] Re: In-Reply-To: <20050309133355.12714.qmail@web50206.mail.yahoo.com> References: <20050309133355.12714.qmail@web50206.mail.yahoo.com> Message-ID: <422EFF58.9020607@embratel.net.br> Rodrigo, Mesmo em sua função cabe o uso de placeholders, e suas vantagens, dentre elas o fato de não ser mais necessario se preocupar com o "quote" dos valores... Existe uma função similar à sua dentro do DBIx::SearchBuilder: sub Insert { my($self, $table, @pairs) = @_; my(@cols, @vals, @bind); # my %seen; #only the *first* value is used - allows drivers to specify default while ( my $key = shift @pairs ) { my $value = shift @pairs; # next if $seen{$key}++; push @cols, $key; push @vals, '?'; push @bind, $value; } my $QueryString = "INSERT INTO $table (". join(", ", @cols). ") VALUES ". "(". join(", ", @vals). ")"; warn $QueryString if $DEBUG; my $sth = $self->SimpleQuery($QueryString, @bind); return ($sth); } A proposito... zero e undef são tratados como FALSE somente em operações lógicas, não quando utilizado em argumentos! Sds, Marco Antonio Rod Za wrote: >Galera, muito obrigado pela ajuda. > >As mensagem de erro que o MySQL me passa é a seguinte: > >ERROR 1048: Column 'valor' cannot be null > >e o meu banco de dados exemplo: > >CREATE TABLE `banco_de_dados` ( > `valor` varchar(15) NOT NULL, >) TYPE=MyISAM > >Eu não sei, sempre me confundo como o Perl interpreta o valor 0 (zero)! Me parece q na funcão q eu >descrevi o valor passado, quando zero, é sempre interpretado como se fosse FALSE (ou mesmo NULL) e >não como o número 0 (zero)!. > >Qualquer outro valor !=0 é interpretado perfeitamente. > >Luiz quando ao uso de PlaceHolders, a minha verdadeira funcão não é tão simples quanto a q eu >apresentei anteriormente, só fiz deste modo para melhor ilustrar o tipo de erro q vem acontecendo. >A verdadeira funcão faz parte de uma classe e é a seguinte: > > >sub user_update($%){ > my $self = shift; > my %update = @_; > my @keyArray = keys %update; > my @valueArray; > my $return; > foreach(@keyArray){ > push @valueArray, $self->{dbh}->quote($update{$_}) if defined($update{$_}); > } > my $sql = "INSERT INTO history (`".join('`,`',@keyArray)."`) VALUES >(".join(',',@valueArray).")"; > $self->commit if($self->{dbh}->do($sql)); >} > > >e meu banco de dados: > >CREATE TABLE `history` ( > `id_history` int(11) NOT NULL auto_increment, > `id_user` int(11) default NULL, > `id_group` int(11) NOT NULL default '0', > `id_printer` int(11) NOT NULL default '0', > `deb_cred` enum('d','c','i','G','U') NOT NULL default 'd', > `valueDoc` float NOT NULL default '0', > `dateJob` datetime NOT NULL default '0000-00-00 00:00:00', > `fromGroup` enum('0','1') NOT NULL default '0', > `n_pages` int(11) NOT NULL default '0', > `jobFileName` varchar(255) NOT NULL default '', > `doc_name` varchar(255) NOT NULL default '', > `ip_ws` varchar(15) NOT NULL default '', > `ws` varchar(30) NOT NULL default '', > `id_status` int(11) NOT NULL default '0', > PRIMARY KEY (`id_history`), > KEY `id_usuario` (`id_user`,`id_group`,`id_printer`) >) TYPE=MyISAM > > >Muito obrigado, > >Rodrigo > > >--- Luis Campos de Carvalho wrote: > >>Rod Za wrote: >> >>>Olá todos, >>> >>>Estou com uma dúvida cruel! Quando passo o valor 0 (zero) para uma função que grava este num >>> >>banco >> >>>de dados, a minha função dá sempre erro! Como posso contornar isto? >>> >>>_CODIGO_ >>>sub teste{ >>> my $valor = shift; >>> my $query = "INSERT INTO banco_de_dados (valor) VALUES ('$valor')"; >>> if($dbh->do($query)){ >>> $dbh->commit; >>> } >>>} >>>_FIM_CODIGO_ >>> >>>ex: teste(0); ou teste(´0´); ou my $a=0; teste($a); >>> >>>dá sempre o mesmo erro, como se o valor 0 (zero) nao fosse passado! >>> >>>muito obrigado, >>> >>> >> O correto é usar PlaceHolders, uma técnica de passagem de dados >>implementada por quase todos os drivers DBD:: que existem. >> >> __PERL__ >> # Eu uso tratamento de erros por exceptions. >> $dbh->PrintError( 0 ); >> $dbh->RaiseError( 1 ); >> # Para usar placeholders, é preciso construir um query SQL assim: >> $sql = 'INSERT INTO banco_de_dados (valor) VALUES ( ? )'; >> # e executá-lo normalmente, passando, é claro, o valor >> # que se deseja inserir, assim: >> my $sth = eval{ $dbh->prepare( $sql ); }; >> if( $@ ){ &handle_error(); } >> eval{ $sth->execute( 0 ); }; >> if( $@ ){ &handle_error(); } >> __END__ >> >> Captou, Rod? >> Espero ter ajudado. >> Putamplexos! >>-- >>=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= >> Luis Campos de Carvalho is BSc in Comp Science, >> PerlMonk [SiteDocClan], Sao Paulo PM Leader, >> Unix Sys Admin && Certified Oracle DBA >> http://br.geocities.com/monsieur_champs/ >>=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= >> >>_______________________________________________ >>Cascavel-pm mailing list >>Cascavel-pm@pm.org >>http://mail.pm.org/mailman/listinfo/cascavel-pm >> >> > > > > >__________________________________ >Celebrate Yahoo!'s 10th Birthday! >Yahoo! Netrospective: 100 Moments of the Web >http://birthday.yahoo.com/netrospective/ > > >------------------------------------------------------------------------ > >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm@pm.org >http://mail.pm.org/mailman/listinfo/cascavel-pm > From rodzadra em yahoo.com Wed Mar 9 06:54:32 2005 From: rodzadra em yahoo.com (Rod Za) Date: Wed Mar 9 06:54:44 2005 Subject: [Cascavel-pm] Duvidas em passar o valor 0 (zero) para uma função. In-Reply-To: <422EFF58.9020607@embratel.net.br> Message-ID: <20050309145432.13170.qmail@web50207.mail.yahoo.com> Marco, muitissimo obrigado (a vc e a todos da lista) pela ajuda. Vou dar uma verificada nestas dicas/aulas que vcs me passaram. Rodrigo. --- Marco A P D´Andrade wrote: > Rodrigo, > > Mesmo em sua função cabe o uso de placeholders, e suas vantagens, dentre > elas o fato de não ser mais necessario se preocupar com o "quote" dos > valores... > > Existe uma função similar à sua dentro do DBIx::SearchBuilder: > > sub Insert { > my($self, $table, @pairs) = @_; > my(@cols, @vals, @bind); > > > > # my %seen; #only the *first* value is used - allows drivers to specify > default > while ( my $key = shift @pairs ) { > my $value = shift @pairs; > # next if $seen{$key}++; > push @cols, $key; > push @vals, '?'; > push @bind, $value; > } > > > > my $QueryString = > "INSERT INTO $table (". join(", ", @cols). ") VALUES ". > "(". join(", ", @vals). ")"; > warn $QueryString if $DEBUG; > > > > my $sth = $self->SimpleQuery($QueryString, @bind); > return ($sth); > } > > > A proposito... zero e undef são tratados como FALSE somente em operações > lógicas, não quando utilizado em argumentos! > > Sds, > Marco Antonio > > > Rod Za wrote: > > >Galera, muito obrigado pela ajuda. > > > >As mensagem de erro que o MySQL me passa é a seguinte: > > > >ERROR 1048: Column 'valor' cannot be null > > > >e o meu banco de dados exemplo: > > > >CREATE TABLE `banco_de_dados` ( > > `valor` varchar(15) NOT NULL, > >) TYPE=MyISAM > > > >Eu não sei, sempre me confundo como o Perl interpreta o valor 0 (zero)! Me parece q na funcão q > eu > >descrevi o valor passado, quando zero, é sempre interpretado como se fosse FALSE (ou mesmo > NULL) e > >não como o número 0 (zero)!. > > > >Qualquer outro valor !=0 é interpretado perfeitamente. > > > >Luiz quando ao uso de PlaceHolders, a minha verdadeira funcão não é tão simples quanto a q eu > >apresentei anteriormente, só fiz deste modo para melhor ilustrar o tipo de erro q vem > acontecendo. > >A verdadeira funcão faz parte de uma classe e é a seguinte: > > > > > >sub user_update($%){ > > my $self = shift; > > my %update = @_; > > my @keyArray = keys %update; > > my @valueArray; > > my $return; > > foreach(@keyArray){ > > push @valueArray, $self->{dbh}->quote($update{$_}) if defined($update{$_}); > > } > > my $sql = "INSERT INTO history (`".join('`,`',@keyArray)."`) VALUES > >(".join(',',@valueArray).")"; > > $self->commit if($self->{dbh}->do($sql)); > >} > > > > > >e meu banco de dados: > > > >CREATE TABLE `history` ( > > `id_history` int(11) NOT NULL auto_increment, > > `id_user` int(11) default NULL, > > `id_group` int(11) NOT NULL default '0', > > `id_printer` int(11) NOT NULL default '0', > > `deb_cred` enum('d','c','i','G','U') NOT NULL default 'd', > > `valueDoc` float NOT NULL default '0', > > `dateJob` datetime NOT NULL default '0000-00-00 00:00:00', > > `fromGroup` enum('0','1') NOT NULL default '0', > > `n_pages` int(11) NOT NULL default '0', > > `jobFileName` varchar(255) NOT NULL default '', > > `doc_name` varchar(255) NOT NULL default '', > > `ip_ws` varchar(15) NOT NULL default '', > > `ws` varchar(30) NOT NULL default '', > > `id_status` int(11) NOT NULL default '0', > > PRIMARY KEY (`id_history`), > > KEY `id_usuario` (`id_user`,`id_group`,`id_printer`) > >) TYPE=MyISAM > > > > > >Muito obrigado, > > > >Rodrigo > > > > > >--- Luis Campos de Carvalho wrote: > > > >>Rod Za wrote: > >> > >>>Olá todos, > >>> > >>>Estou com uma dúvida cruel! Quando passo o valor 0 (zero) para uma função que grava este num > >>> > >>banco > >> > >>>de dados, a minha função dá sempre erro! Como posso contornar isto? > >>> > >>>_CODIGO_ > >>>sub teste{ > >>> my $valor = shift; > >>> my $query = "INSERT INTO banco_de_dados (valor) VALUES ('$valor')"; > >>> if($dbh->do($query)){ > >>> $dbh->commit; > >>> } > >>>} > >>>_FIM_CODIGO_ > >>> > >>>ex: teste(0); ou teste(´0´); ou my $a=0; teste($a); > >>> > >>>dá sempre o mesmo erro, como se o valor 0 (zero) nao fosse passado! > >>> > >>>muito obrigado, > >>> > >>> > >> O correto é usar PlaceHolders, uma técnica de passagem de dados > >>implementada por quase todos os drivers DBD:: que existem. > >> > >> __PERL__ > >> # Eu uso tratamento de erros por exceptions. > >> $dbh->PrintError( 0 ); > >> $dbh->RaiseError( 1 ); > >> # Para usar placeholders, é preciso construir um query SQL assim: > >> $sql = 'INSERT INTO banco_de_dados (valor) VALUES ( ? )'; > >> # e executá-lo normalmente, passando, é claro, o valor > >> # que se deseja inserir, assim: > >> my $sth = eval{ $dbh->prepare( $sql ); }; > >> if( $@ ){ &handle_error(); } > >> eval{ $sth->execute( 0 ); }; > >> if( $@ ){ &handle_error(); } > >> __END__ > >> > >> Captou, Rod? > >> Espero ter ajudado. > >> Putamplexos! > >>-- > >>=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > >> Luis Campos de Carvalho is BSc in Comp Science, > >> PerlMonk [SiteDocClan], Sao Paulo PM Leader, > >> Unix Sys Admin && Certified Oracle DBA > >> http://br.geocities.com/monsieur_champs/ > >>=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > >> > >>_______________________________________________ > >>Cascavel-pm mailing list > >>Cascavel-pm@pm.org > >>http://mail.pm.org/mailman/listinfo/cascavel-pm > >> > >> > > > > > > > > > >__________________________________ > >Celebrate Yahoo!'s 10th Birthday! > >Yahoo! Netrospective: 100 Moments of the Web > >http://birthday.yahoo.com/netrospective/ > > > > > >------------------------------------------------------------------------ > > > >_______________________________________________ > >Cascavel-pm mailing list > >Cascavel-pm@pm.org > >http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > === message truncated === __________________________________ Celebrate Yahoo!'s 10th Birthday! Yahoo! Netrospective: 100 Moments of the Web http://birthday.yahoo.com/netrospective/ From jamorreu em gmail.com Wed Mar 9 09:01:20 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Wed Mar 9 09:01:28 2005 Subject: [Cascavel-pm] Converter data Message-ID: <8ff2963a05030909017c9412f5@mail.gmail.com> Nelson... > Assim como o Luis falou, acho que você resolveria melhor o problema usando campos > > DATETIME. > A função DATE() e um GROUP BY também podem ser úteis. Eu usava o datetime, mas fui pro "timestamp" por me falarem que ele era melhor. Bom, pelo menos essa complicação toda teve um lado bom: atualizei a versão do meu banco de dados, e aprendi mais sobre timestamp (o que não me ajudou muito mas...) :D Minha solução: separar dia da hora em campos diferentes, para poder pegar o dia com mais iténs e usar um "count" para saber o número de iténs que o mesmo tem. Outra solução: usar um campo char() com o padrão (pra dias): 00/00/0000 -- Um abraço, João Gabriel / JGCL From monsieur_champs em yahoo.com.br Wed Mar 9 17:51:20 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Mar 9 17:51:50 2005 Subject: =?ISO-8859-1?Q?Re=3A_=5BCascavel-pm=5D_Duvidas_em_passar?= =?ISO-8859-1?Q?_o_valor_0_=28zero=29_para_uma_fun=E7=E3o=2E?= In-Reply-To: <20050309133355.12714.qmail@web50206.mail.yahoo.com> References: <20050309133355.12714.qmail@web50206.mail.yahoo.com> Message-ID: <422FA818.9000509@yahoo.com.br> Rod Za wrote: > Eu não sei, sempre me confundo como o Perl interpreta o valor 0 (zero)! Me parece q na funcão q eu > descrevi o valor passado, quando zero, é sempre interpretado como se fosse FALSE (ou mesmo NULL) e > não como o número 0 (zero)!. É simples de entender: depois de qualquer interpolação, a string '0' se torna indistinguível de undef(), automagicamente. Isto é um erro comum mesmo entre os experts... ;-) Se você precisa mesmo interpolar uma string contendo o valor zero, o melhor meio de fazer é escrever um zero que, ao ser interpretado, se torne "verdadeiro". Assim, por exemplo: "0E0". Ou "0, but true". Ambos serão automagicamente tratados como zero em contextos numéricos, mas serão "verdadeiro" em contextos de string. Claro, isso não pode ser usado na interpolação de comandos SQL por razões muito mais que óbvias... ;-P > Luiz quando ao uso de PlaceHolders, a minha verdadeira funcão não é tão simples quanto a q eu > apresentei anteriormente, só fiz deste modo para melhor ilustrar o tipo de erro q vem acontecendo. > A verdadeira funcão faz parte de uma classe e é a seguinte: > > > sub user_update($%){ > my $self = shift; > my %update = @_; > my @keyArray = keys %update; > my @valueArray; > my $return; > foreach(@keyArray){ > push @valueArray, $self->{dbh}->quote($update{$_}) if defined($update{$_}); > } > my $sql = "INSERT INTO history (`".join('`,`',@keyArray)."`) VALUES > (".join(',',@valueArray).")"; > $self->commit if($self->{dbh}->do($sql)); > } > Bom, isso é simples de reescrever. :-) Você está fazendo a segunda coisa mais comum quando se programa DBs com perl: está construindo queries dinamicamente, com quantidade variável de parâmetros. Para resolver o problema, deve construir o query com a quantidade correta de placeholders, ao invés de passar os valores para serem interpolados diretamente no SQL. Depois, pode passar o array de valores a serem inseridos/modificados para o método DBD::execute() apropriado. Assim: __PERL__ sub user_update($%){ my $self = shift; my %update = @_; my @keyArray = keys %update; my @valueArray; my $return; # # Não precisa mais usar DBI::quote() contra os valores. # O mecanismo de placeholders se encarrega disso. # my $sql = 'INSERT INTO history ( '. join(', ', @keyArray ) .' ) VALUES ( ' . join( ',', '?'x@valueArray ) .')'; my $sth = $self->{dbh}->prepare( $sql ); my $result = $sth->execute( @valueArray ); $self->commit if $result; } __END__ Carinha, eu *não* *testei* este código, em absoluto. *Certamente* existem pequenas correções que você precisa fazer para que ele execute corretamente (sintaxe, talvez alguma lógica). Ah! Uma última coisa: você paga a cerveja no próximo encontro nacional, tá? ;-) Putamplexos, e bom divertimento! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From monsieur_champs em yahoo.com.br Wed Mar 9 17:56:13 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Mar 9 17:56:43 2005 Subject: [Cascavel-pm] Converter data In-Reply-To: <8ff2963a05030909017c9412f5@mail.gmail.com> References: <8ff2963a05030909017c9412f5@mail.gmail.com> Message-ID: <422FA93D.2070803@yahoo.com.br> João Gabriel wrote: > Nelson... > >>Assim como o Luis falou, acho que você resolveria melhor o problema usando campos > > DATETIME. > > >>A função DATE() e um GROUP BY também podem ser úteis. > > > Eu usava o datetime, mas fui pro "timestamp" por me falarem que ele era melhor. > > Bom, pelo menos essa complicação toda teve um lado bom: atualizei a > versão do meu banco de dados, e aprendi mais sobre timestamp (o que > não me ajudou muito mas...) :D > > Minha solução: separar dia da hora em campos diferentes, para poder > pegar o dia com mais iténs e usar um "count" para saber o número de > iténs que o mesmo tem. > > Outra solução: usar um campo char() com o padrão (pra dias): 00/00/0000 > E, claro, a solução que você deveria usar: Ler o manual do MySQL e descobrir um monte de funções SQL próprias para separar data e hora de um campo DATETIME, e outro tanto para ajudar você a selecionar apenas o dia, o ano, o mês, a hora, o minuto e os segundos desejados, conforme o que você desejar. Larga de frescura, para de tentar dar nó em pingo d'água e estuda, JG!!! O que você está pedindo o pessoal do MySQL já resolveu faz muito tempo!! Para de tentar reinventar a roda, e usa o que existe!!!! Como sempre, não me leve a mal. Estou tentando ajudar... E lembre-se: a 'breja do próximo encontro nacional é por sua conta, e do Rod Za. ;-) Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From rodzadra em yahoo.com Thu Mar 10 04:52:22 2005 From: rodzadra em yahoo.com (Rod Za) Date: Thu Mar 10 04:52:36 2005 Subject: [Cascavel-pm] Duvidas em passar o valor 0 (zero) para uma função. In-Reply-To: 6667 Message-ID: <20050310125222.82632.qmail@web50209.mail.yahoo.com> Luis, valeu meu irmão. O "0E0" e o "0, but true" são a mesma coisa que o numero 0 (zero) *como valor e string?? E quando seria mais indicado se utilizar essa conotacão? Vou testar (re-escrever) o código e posto aqui o resultado. Quanto a 'breja', cara eu sou louco para ir em um encontro nacional. O problema é que é sempre fora de mão para mim - eu estou trabalhando ou tenho que trabalhar! :( Que tal se os encontros nacionais comecassem a ir para cidades menores (tipo Uberlândia, onde eu moro atualmente??? :) seria um prazer pagar algumas (ou várias:) 'brejas'. --- Luis Campos de Carvalho wrote: > Rod Za wrote: > > Eu não sei, sempre me confundo como o Perl interpreta o valor 0 (zero)! Me parece q na funcão > q eu > > descrevi o valor passado, quando zero, é sempre interpretado como se fosse FALSE (ou mesmo > NULL) e > > não como o número 0 (zero)!. > > É simples de entender: depois de qualquer interpolação, a string '0' > se torna indistinguível de undef(), automagicamente. Isto é um erro > comum mesmo entre os experts... ;-) > > Se você precisa mesmo interpolar uma string contendo o valor zero, o > melhor meio de fazer é escrever um zero que, ao ser interpretado, se > torne "verdadeiro". Assim, por exemplo: "0E0". Ou "0, but true". Ambos > serão automagicamente tratados como zero em contextos numéricos, mas > serão "verdadeiro" em contextos de string. > > Claro, isso não pode ser usado na interpolação de comandos SQL por > razões muito mais que óbvias... ;-P > > > Luiz quando ao uso de PlaceHolders, a minha verdadeira funcão não é tão simples quanto a q eu > > apresentei anteriormente, só fiz deste modo para melhor ilustrar o tipo de erro q vem > acontecendo. > > A verdadeira funcão faz parte de uma classe e é a seguinte: > > > > > > sub user_update($%){ > > my $self = shift; > > my %update = @_; > > my @keyArray = keys %update; > > my @valueArray; > > my $return; > > foreach(@keyArray){ > > push @valueArray, $self->{dbh}->quote($update{$_}) if defined($update{$_}); > > } > > my $sql = "INSERT INTO history (`".join('`,`',@keyArray)."`) VALUES > > (".join(',',@valueArray).")"; > > $self->commit if($self->{dbh}->do($sql)); > > } > > > > Bom, isso é simples de reescrever. :-) > > Você está fazendo a segunda coisa mais comum quando se programa DBs > com perl: está construindo queries dinamicamente, com quantidade > variável de parâmetros. > > Para resolver o problema, deve construir o query com a quantidade > correta de placeholders, ao invés de passar os valores para serem > interpolados diretamente no SQL. Depois, pode passar o array de valores > a serem inseridos/modificados para o método DBD::execute() apropriado. > Assim: > > __PERL__ > sub user_update($%){ > my $self = shift; > my %update = @_; > my @keyArray = keys %update; > my @valueArray; > my $return; > # > # Não precisa mais usar DBI::quote() contra os valores. > # O mecanismo de placeholders se encarrega disso. > # > my $sql = 'INSERT INTO history ( '. join(', ', @keyArray ) > .' ) VALUES ( ' . join( ',', '?'x@valueArray ) .')'; > my $sth = $self->{dbh}->prepare( $sql ); > my $result = $sth->execute( @valueArray ); > $self->commit if $result; > } > __END__ > > Carinha, eu *não* *testei* este código, em absoluto. > *Certamente* existem pequenas correções que você precisa fazer para > que ele execute corretamente (sintaxe, talvez alguma lógica). > > Ah! Uma última coisa: você paga a cerveja no próximo encontro > nacional, tá? ;-) > > Putamplexos, e bom divertimento! > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > __________________________________ Do you Yahoo!? Yahoo! Small Business - Try our new resources site! http://smallbusiness.yahoo.com/resources/ From monsieur_champs em yahoo.com.br Thu Mar 10 05:10:06 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Thu Mar 10 05:10:42 2005 Subject: =?ISO-8859-1?Q?Re=3A_=5BCascavel-pm=5D_Duvidas_em_passar?= =?ISO-8859-1?Q?_o_valor_0_=28zero=29_para_uma_fun=E7=E3o=2E?= In-Reply-To: <20050310125222.82632.qmail@web50209.mail.yahoo.com> References: <20050310125222.82632.qmail@web50209.mail.yahoo.com> Message-ID: <4230472E.8000007@yahoo.com.br> Rod Za wrote: > Luis, valeu meu irmão. :-) às ordens. > O "0E0" e o "0, but true" são a mesma coisa que o numero 0 (zero) *como valor e string?? E quando > seria mais indicado se utilizar essa conotacão? Não. As anomalias se comportam como zero apenas em contexto numérico. Em contexto boolean, se comportam como "true" (são as duas únicas formas de escrever zero, mas obter valor boolean true). Em contexto de string, as anomalias se comportam tais como você as enxerga: como strings, do jeito que você está vendo. :-) > Vou testar (re-escrever) o código e posto aqui o resultado. Vai ser divertido. :-) > Quanto a 'breja', cara eu sou louco para ir em um encontro nacional. Uai? Então, aparece! > O problema é que é sempre fora de mão para mim - eu estou trabalhando > ou tenho que trabalhar! :( Que tal se os encontros nacionais > comecassem a ir para cidades menores (tipo Uberlândia, > onde eu moro atualmente??? :) Acho que isso pode ser arranjado. O nosso maior problema é que os encontros nacionais acontecem sempre associados a algum evento relacionado com o Perl em nível nacional. Os eventos nacionais relacionados ao Perl ainda não são completamente independentes, e precisamos de ajuda de outras fontes, como os encontros de software livre, que graciosamente abrigaram o encontro nacional de Perl no ano passado... > seria um prazer pagar algumas (ou várias:) 'brejas'. > Não se preocupe. :-) Vamos ter algumas (muitas) oportunidades. Eu recomendo a você se programar e aparecer nos encontros. Tem muita coisa interessante para ver, e a gente acaba conversando com muita gente interessante, e fazendo ótimos contatos. É social e profissionalmente importante para sua carreira. :-) Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From nferraz em gnubis.com.br Thu Mar 10 06:27:53 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Thu Mar 10 06:28:26 2005 Subject: [Cascavel-pm] Atitude Hacker (era: Converter data) In-Reply-To: <422FA93D.2070803@yahoo.com.br> References: <422FA93D.2070803@yahoo.com.br> Message-ID: <20050310142753.16293.qmail@hm101.locaweb.com.br> > Larga de frescura, para de tentar dar nó em pingo d'água e estuda, JG!!! > O que você está pedindo o pessoal do MySQL já resolveu faz muito > tempo!! Para de tentar reinventar a roda, e usa o que existe!!!! > > Como sempre, não me leve a mal. > Estou tentando ajudar... Colocando de uma outra forma... "Hackers resolvem problemas e constróem coisas, e acreditam na liberdade e na ajuda mútua voluntária. Para ser aceito como um hacker, você tem que se comportar de acordo com essa atitude. E para se comportar de acordo com essa atitude, você tem que realmente acreditar nessa atitude. Mas se você acha que cultivar a atitude hacker é somente um meio para ganhar aceitação na cultura, está enganado. Tornar-se o tipo de pessoa que acredita nessas coisas é importante para você -- para ajudá-lo a aprender e manter-se motivado. Assim como em todas as artes criativas, o modo mais efetivo para se tornar um mestre é imitar a mentalidade dos mestres -- não só intelectualmente como emocionalmente também. Então, se você quer ser um hacker, repita as seguinte coisas até que você acredite nelas: 1. O mundo está repleto de problemas fascinantes esperando para serem resolvidos. Ser hacker é muito divertido, mas é um tipo de diversão que necessita de muito esforço. Para haver esforço é necessário motivação. Atletas de sucesso retiram sua motivação de uma espécie de prazer físico em trabalhar seus corpos, em tentar ultrapassar seus próprios limites físicos. Analogamente, para ser um hacker você precisa ter uma emoção básica em resolver problemas, afiar suas habilidades e exercitar sua inteligência. Se você não é o tipo de pessoa que se sente assim naturalmente, você precisará se tornar uma para ser um hacker. Senão, você verá sua energia para "hackear" sendo esvaída por distrações como sexo, dinheiro e aprovação social. (Você também tem que desenvolver uma espécie de fé na sua própria capacidade de aprendizado -- crer que, mesmo que você não saiba tudo o que precisa para resolver um problema, se souber uma parte e aprender a partir disso, conseguirá aprender o suficiente para resolver a próxima parte -- e assim por diante, até que você termine.) 2. Não se deve resolver o mesmo problema duas vezes. Mentes criativas são um recurso valioso e limitado. Não devem ser desperdiçadas reinventando a roda quando há tantos problemas novos e fascinantes por aí. Para se comportar como um hacker, você tem que acreditar que o tempo de pensamento dos outros hackers é precioso -- tanto que é quase um dever moral compartilhar informação, resolver problemas e depois dar as soluções, para que outros hackers possam resolver novos problemas ao invés de ter que se preocupar com os antigos indefinidamente. (Você não tem que acreditar que é obrigado a dar toda a sua produção criativa, ainda que hackers que o fazem sejam os mais respeitados pelos outros hackers. Não é inconsistente com os valores do hacker vender o suficiente da sua produção para mantê-lo alimentado e pagar o aluguel e computadores. Não é inconsistente usar suas habilidades de hacker para sustentar a família ou mesmo ficar rico, contanto que você não esqueça que é um hacker.) 3. Tédio e trabalho repetitivo são nocivos. Hackers (e pessoas criativas em geral) não podem ficar entediadas ou ter que fazer trabalho repetitivo, porque quando isso acontece significa que eles não estão fazendo o que apenas eles podem fazer -- resolver novos problemas. Esse desperdício prejudica a todos. Portanto, tédio e trabalho repetitivo não são apenas desagradáveis, mas nocivos também. Para se comportar como um hacker, você tem que acreditar nisso de modo a automatizar as partes chatas tanto quanto possível, não apenas para você como para as outras pessoas (principalmente outros hackers). (Há uma exceção aparente a isso. Às vezes, hackers fazem coisas que podem parecer repetitivas ou tediosas para um observador, como um exercício de "limpeza mental", ou para adquirir uma habilidade ou ter uma espécie particular de experiência que não seria possível de outro modo. Mas isso é por opção -- ninguém que consiga pensar deve ser forçado ao tédio. 4. Liberdade é uma coisa boa. Hacker são naturalmente anti-autoritários. Qualquer pessoa que lhe dê ordens pode impedi-lo de resolver qualquer que seja o problema pelo qual você está fascinado -- e, dado o modo em que a mente autoritária funciona, geralmente arranjará alguma desculpa espantosamente idiota isso. Então, a atitude autoritária deve ser combatida onde quer que você a encontre, para que não sufoque a você e a outros hackers. (Isso não é a mesma coisa que combater toda e qualquer autoridade. Crianças precisam ser orientadas, e criminosos, detidos. Um hacker pode aceitar alguns tipos de autoridade a fim de obter algo que ele quer mais que o tempo que ele gasta seguindo ordens. Mas isso é uma barganha restrita e consciente; não é o tipo de sujeição pessoal que os autoritários querem.) Pessoas autoritárias prosperam na censura e no segredo. E desconfiam de cooperação voluntária e compartilhamento de informação -- só gostam de "cooperação" que eles possam controlar. Então, para se comportar como um hacker, você tem que desenvolver uma hostilidade instintiva à censura, ao segredo, e ao uso da força ou mentira para compelir adultos responsáveis. E você tem que estar disposto a agir de acordo com esta crença. 5. Atitude não substitui competência. Para ser um hacker, você tem que desenvolver algumas dessas atitudes. Mas apenas ter uma atitude não fará de você um hacker, assim como não o fará um atleta campeão ou uma estrela de rock. Para se tornar um hacker é necessário inteligência, prática, dedicação, e trabalho duro. Portanto, você tem que aprender a desconfiar de atitude e respeitar todo tipo de competência. Hackers não deixam posers gastar seu tempo, mas eles idolatram competência -- especialmente competência em "hackear", mas competência em qualquer coisa é boa. A competência em habilidades que poucos conseguem dominar é especialmente boa, e competência em habilidades que involvem agudeza mental, perícia e concentração é a melhor. Se você reverenciar competência, gostará de desenvolvê-la em si mesmo -- o trabalho duro e dedicação se tornará uma espécie de um intenso jogo, ao invés de trabalho repetitivo. E isso é vital para se tornar um hacker." Fonte: Como se tornar um Hacker (Eric Raymond) http://www.linux.ime.usp.br/~rcaetano/docs/hacker-howto-pt.html Leia também: http://geocities.yahoo.com.br/cesarakg/smart-questions-pt_BR.html []s Nelson From acid06 em gmail.com Thu Mar 10 08:34:29 2005 From: acid06 em gmail.com (Nilson Santos) Date: Thu Mar 10 08:34:42 2005 Subject: =?ISO-8859-1?Q?Re:_[Cascavel-pm]_Duvidas_em_passa?= =?ISO-8859-1?Q?r_o_valor_0_(zero)_para_uma_fun=E7=E3o.?= In-Reply-To: <422FA818.9000509@yahoo.com.br> References: <20050309133355.12714.qmail@web50206.mail.yahoo.com> <422FA818.9000509@yahoo.com.br> Message-ID: <9a08c9b405031008342177ebe0@mail.gmail.com> On Wed, 09 Mar 2005 22:51:20 -0300, Luis Campos de Carvalho wrote: > É simples de entender: depois de qualquer interpolação, a string '0' > se torna indistinguível de undef(), automagicamente. Isto é um erro > comum mesmo entre os experts... ;-) Você podia elaborar mais nisso? Porque, testando... $var = '0'; print "$var"; print defined $var?1:0; Dá "01" na saída, como esperado. Até onde eu sei, *em contexto booleano* undef, '' (string vazia), 0 ou "0" são a mesma coisa. Porém, dá pra se distingüir facilmente "0" de undef (como foi feito no exemplo acima). -Nilson Santos F. Jr. From acid06 em gmail.com Thu Mar 10 08:41:40 2005 From: acid06 em gmail.com (Nilson Santos) Date: Thu Mar 10 08:42:00 2005 Subject: [Cascavel-pm] Atitude Hacker (era: Converter data) In-Reply-To: <20050310142753.16293.qmail@hm101.locaweb.com.br> References: <422FA93D.2070803@yahoo.com.br> <20050310142753.16293.qmail@hm101.locaweb.com.br> Message-ID: <9a08c9b405031008412a30f850@mail.gmail.com> Nossa. Apenas um post comtemplativo, mas... Eu me sinto como se esse texto fosse uma transcrição dos meus pensamentos em relação a como "enfrentar" a vida e seus problemas e como viver, propriamente dito. Sempre acho engraçado quando vejo textos que traduzem razoavelmente bem minha forma de pensar... -Nilson Santos F. Jr. On Thu, 10 Mar 2005 11:27:53 -0300, Nelson Ferraz wrote: > Colocando de uma outra forma... > > "Hackers resolvem problemas e constróem coisas, e acreditam na liberdade e na ajuda mútua voluntária. Para ser aceito como um hacker, você tem que se comportar de acordo com essa atitude. E para se comportar de acordo com essa atitude, você tem que realmente acreditar nessa atitude. > > Mas se você acha que cultivar a atitude hacker é somente um meio para ganhar aceitação na cultura, está enganado. Tornar-se o tipo de pessoa que acredita nessas coisas é importante para você -- para ajudá-lo a aprender e manter-se motivado. Assim como em todas as artes criativas, o modo mais efetivo para se tornar um mestre é imitar a mentalidade dos mestres -- não só intelectualmente como emocionalmente também. > > Então, se você quer ser um hacker, repita as seguinte coisas até que você acredite nelas: > > 1. O mundo está repleto de problemas fascinantes esperando para serem resolvidos. > > Ser hacker é muito divertido, mas é um tipo de diversão que necessita de muito esforço. Para haver esforço é necessário motivação. Atletas de sucesso retiram sua motivação de uma espécie de prazer físico em trabalhar seus corpos, em tentar ultrapassar seus próprios limites físicos. Analogamente, para ser um hacker você precisa ter uma emoção básica em resolver problemas, afiar suas habilidades e exercitar sua inteligência. > > Se você não é o tipo de pessoa que se sente assim naturalmente, você precisará se tornar uma para ser um hacker. Senão, você verá sua energia para "hackear" sendo esvaída por distrações como sexo, dinheiro e aprovação social. > > (Você também tem que desenvolver uma espécie de fé na sua própria capacidade de aprendizado -- crer que, mesmo que você não saiba tudo o que precisa para resolver um problema, se souber uma parte e aprender a partir disso, conseguirá aprender o suficiente para resolver a próxima parte -- e assim por diante, até que você termine.) > > 2. Não se deve resolver o mesmo problema duas vezes. > > Mentes criativas são um recurso valioso e limitado. Não devem ser desperdiçadas reinventando a roda quando há tantos problemas novos e fascinantes por aí. > > Para se comportar como um hacker, você tem que acreditar que o tempo de pensamento dos outros hackers é precioso -- tanto que é quase um dever moral compartilhar informação, resolver problemas e depois dar as soluções, para que outros hackers possam resolver novos problemas ao invés de ter que se preocupar com os antigos indefinidamente. (Você não tem que acreditar que é obrigado a dar toda a sua produção criativa, ainda que hackers que o fazem sejam os mais respeitados pelos outros hackers. Não é inconsistente com os valores do hacker vender o suficiente da sua produção para mantê-lo alimentado e pagar o aluguel e computadores. Não é inconsistente usar suas habilidades de hacker para sustentar a família ou mesmo ficar rico, contanto que você não esqueça que é um hacker.) > > 3. Tédio e trabalho repetitivo são nocivos. > > Hackers (e pessoas criativas em geral) não podem ficar entediadas ou ter que fazer trabalho repetitivo, porque quando isso acontece significa que eles não estão fazendo o que apenas eles podem fazer -- resolver novos problemas. Esse desperdício prejudica a todos. Portanto, tédio e trabalho repetitivo não são apenas desagradáveis, mas nocivos também. > > Para se comportar como um hacker, você tem que acreditar nisso de modo a automatizar as partes chatas tanto quanto possível, não apenas para você como para as outras pessoas (principalmente outros hackers). > > (Há uma exceção aparente a isso. Às vezes, hackers fazem coisas que podem parecer repetitivas ou tediosas para um observador, como um exercício de "limpeza mental", ou para adquirir uma habilidade ou ter uma espécie particular de experiência que não seria possível de outro modo. Mas isso é por opção -- ninguém que consiga pensar deve ser forçado ao tédio. > > 4. Liberdade é uma coisa boa. > > Hacker são naturalmente anti-autoritários. Qualquer pessoa que lhe dê ordens pode impedi-lo de resolver qualquer que seja o problema pelo qual você está fascinado -- e, dado o modo em que a mente autoritária funciona, geralmente arranjará alguma desculpa espantosamente idiota isso. Então, a atitude autoritária deve ser combatida onde quer que você a encontre, para que não sufoque a você e a outros hackers. > > (Isso não é a mesma coisa que combater toda e qualquer autoridade. Crianças precisam ser orientadas, e criminosos, detidos. Um hacker pode aceitar alguns tipos de autoridade a fim de obter algo que ele quer mais que o tempo que ele gasta seguindo ordens. Mas isso é uma barganha restrita e consciente; não é o tipo de sujeição pessoal que os autoritários querem.) > > Pessoas autoritárias prosperam na censura e no segredo. E desconfiam de cooperação voluntária e compartilhamento de informação -- só gostam de "cooperação" que eles possam controlar. Então, para se comportar como um hacker, você tem que desenvolver uma hostilidade instintiva à censura, ao segredo, e ao uso da força ou mentira para compelir adultos responsáveis. E você tem que estar disposto a agir de acordo com esta crença. > > 5. Atitude não substitui competência. > > Para ser um hacker, você tem que desenvolver algumas dessas atitudes. Mas apenas ter uma atitude não fará de você um hacker, assim como não o fará um atleta campeão ou uma estrela de rock. Para se tornar um hacker é necessário inteligência, prática, dedicação, e trabalho duro. > > Portanto, você tem que aprender a desconfiar de atitude e respeitar todo tipo de competência. Hackers não deixam posers gastar seu tempo, mas eles idolatram competência -- especialmente competência em "hackear", mas competência em qualquer coisa é boa. A competência em habilidades que poucos conseguem dominar é especialmente boa, e competência em habilidades que involvem agudeza mental, perícia e concentração é a melhor. > > Se você reverenciar competência, gostará de desenvolvê-la em si mesmo -- o trabalho duro e dedicação se tornará uma espécie de um intenso jogo, ao invés de trabalho repetitivo. E isso é vital para se tornar um hacker." > > Fonte: Como se tornar um Hacker (Eric Raymond) > http://www.linux.ime.usp.br/~rcaetano/docs/hacker-howto-pt.html > > Leia também: > > http://geocities.yahoo.com.br/cesarakg/smart-questions-pt_BR.html > > []s > > Nelson > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > From donatoaz em gmail.com Thu Mar 10 12:58:10 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Thu Mar 10 12:58:22 2005 Subject: [Cascavel-pm] Mongers de BH Message-ID: <1746e3e305031012583ee61400@mail.gmail.com> Gostaria de saber se tem alguem da lista de Belo Horizonte. Já que o pessoal das outras cidades vivem falando em sair e tomar uma as vezes a gente tambem sai pra fazê algum trem qualquer... -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* From monsieur_champs em yahoo.com.br Thu Mar 10 19:03:25 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Thu Mar 10 19:03:56 2005 Subject: [Cascavel-pm] Atitude Hacker (era: Converter data) In-Reply-To: <20050310142753.16293.qmail@hm101.locaweb.com.br> References: <422FA93D.2070803@yahoo.com.br> <20050310142753.16293.qmail@hm101.locaweb.com.br> Message-ID: <42310A7D.5020204@yahoo.com.br> Nelson Ferraz wrote: >> Larga de frescura, para de tentar dar nó em pingo d'água e estuda, JG!!! >> O que você está pedindo o pessoal do MySQL já resolveu faz muito >>tempo!! Para de tentar reinventar a roda, e usa o que existe!!!! >> >> Como sempre, não me leve a mal. >> Estou tentando ajudar... > > > Colocando de uma outra forma... [putatextochatoelongocortadofora] Você escreveu isso para mim ou para o JG? E porque não postou apenas o link? Era o bastante... o JG tem banda de sobra para pegar o texto e ler o que ele precisa... e eu tenho internet rápida (rápida?) em casa, também... ;-) Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From marco.lima em e-via.com.br Thu Mar 10 19:45:14 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Thu Mar 10 19:45:28 2005 Subject: [Cascavel-pm] Atitude Hacker (era: Converter data) Message-ID: A verdadeira razão de ser é não ser !!! por isso sempre será !!! > Nelson Ferraz wrote: > >> Larga de frescura, para de tentar dar nó em pingo d'água e estuda, JG!!! > >> O que você está pedindo o pessoal do MySQL já resolveu faz muito > >>tempo!! Para de tentar reinventar a roda, e usa o que existe!!!! > >> > >> Como sempre, não me leve a mal. > >> Estou tentando ajudar... > > > > > > Colocando de uma outra forma... > [putatextochatoelongocortadofora] > > Você escreveu isso para mim ou para o JG? > E porque não postou apenas o link? Era o bastante... o JG tem banda > de sobra para pegar o texto e ler o que ele precisa... e eu tenho > internet rápida (rápida?) em casa, também... ;-) > > Putamplexos! > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > Marco Lima marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Perl Monk Brasil Perl Monger Líder do Rio de Janeiro Perl Mongers http://www.perlmonk.org http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From monsieur_champs em yahoo.com.br Thu Mar 10 19:53:59 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Thu Mar 10 19:54:30 2005 Subject: [Cascavel-pm] Mongers de BH In-Reply-To: <1746e3e305031012583ee61400@mail.gmail.com> References: <1746e3e305031012583ee61400@mail.gmail.com> Message-ID: <42311657.4040905@yahoo.com.br> Donato Azevedo wrote: > Gostaria de saber se tem alguem da lista de Belo Horizonte. > Já que o pessoal das outras cidades vivem falando em sair e tomar uma > as vezes a gente tambem sai pra fazê algum trem qualquer... > Consulte a lista de grupos no http://www.pm.org/groups/south_america.html pelo que eu vi, não existe grupo em BH. Poderia ser interessante ter um... Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From monsieur_champs em yahoo.com.br Thu Mar 10 19:55:10 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Thu Mar 10 19:55:42 2005 Subject: [Cascavel-pm] =?ISO-8859-1?Q?Ser=E1!!!_=5BWas=3A_Atitude?= =?ISO-8859-1?Q?_Hacker=5D?= In-Reply-To: References: Message-ID: <4231169E.10604@yahoo.com.br> Marco Lima wrote: > A verdadeira razão de ser é não ser !!! por isso sempre será !!! > Será!!! Será!!! Será!!! Será!!! Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From marco.lima em e-via.com.br Thu Mar 10 21:24:59 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Thu Mar 10 21:25:14 2005 Subject: [Cascavel-pm] [OT] Textos Chatos e Longos !! Message-ID: SERÁ !!! "Nada temos a dizer de novo. A propaganda não é, e não pode ser, senão a repetição contínua, incansável, dos princípios que devem nos servir de guia na conduta que devemos seguir nas diferentes circunstâncias da vida." ... "A sociedade atual é o resultado das lutas seculares que os homens empreenderam entre si. Desconheceram as vantagens que podiam resultar para todos da cooperação e da solidariedade. Viram em cada um de seus semelhantes (exceto, no máximo, os membros de sua família) um concorrente e um inimigo. E procuraram açambarcar, cada um por si, a maior quantidade de prazeres possível, sem se preocuparem com os interesses alheios. Nesta luta, é óbvio, os mais fortes e os mais afortunados deviam vencer, e, de diferentes maneiras, explorar e oprimir os vencidos." ... "Queremos mudar radicalmente tal estado de coisas. E visto que todos estes males derivam da busca do bem-estar perseguido por cada um por si e contra todos, queremos dar-lhe uma solução, substituindo o ódio pelo amor, a concorrência pela solidariedade, a busca exclusiva do bem-estar pela cooperação, a opressão pela liberdade, a mentira religiosa e pseudocientífica pela verdade." ... "Mas não basta desejar uma coisa: se se quer obtê-la, é preciso, sem dúvida, empregar os meios adaptativos à sua realização. E esses meios não são arbitrários: derivam necessariamente dos fins a que nos propomos e das circunstâncias nas quais lutamos. Enganando-nos na escolha dos meios, não alcançamos o objetivo contemplado, mas, ao contrário, afastamo-nos dele rumo a realidades freqüentes opostas, e que são a conseqüência natural e necessária aos métodos que empregamos. Quem se opõe a caminho e se engana de estrada, não vai aonde quer, mas aonde o conduz o caminho tomado." ... "Nosso ideal não é daqueles cuja plena realização depende do indivíduo considerado de modo isolado. Trata-se de mudar o modo de viver em sociedade: estabelecer entre os homens relações de amor e solidariedade, realizar a plenitude do desenvolvimento material, moral e intelectual, não para o indivíduo isolado, não para os membros de certa classe ou de certo partido, mas para todos os seres humanos. Esta transformação não é medida que se possa impor pela força; deve surgir da consciência esclarecida de cada um, para se manifestar, de fato, pelo livre consentimento de todos." ... "Seria – já o dissemos – absurdo e em contradição com nosso objetivo querer impor a liberdade, o amor entre os homens, o desenvolvimento integral de todas as faculdades humanas pela força. É preciso contar com a livre vontade dos outros, e a única coisa que podemos fazer é provocar a formação e a manifestação desta vontade. Mas seria da mesma forma absurdo e em contradição com nosso objetivo admitir que aqueles que não pensam como nós impedem-nos de realizar nossa vontade, visto que não os privamos do direito a uma liberdade igual à nossa." ... "Liberdade, portanto, para todos, de propagar e experimentar suas próprias idéias, sem outros limites senão os que resultam naturalmente da igual liberdade de todos." ... "O progresso deve caminhar simultânea e paralelamente entre os indivíduos e no meio social. Devemos aproveitar todos os meios, todas as possibilidades, todas as ocasiões que o meio atual nos deixa para agir sobre os homens e desenvolver sua consciência e suas aspirações. Devemos utilizar todos os progressos realizados na consciência dos homens para levá-los a reclamar e a impor as maiores transformações sociais hoje possíveis, ou aquelas que melhor servirão para abrir caminho a progressos posteriores." ... "Para isso, estimamos necessário que os meios de produção estejam à disposição de todos e que nenhum homem, ou grupo de homens, possa obrigar outros a obedecerem à sua vontade, nem exercer sua influência de outra forma senão pela argumentação e pelo exemplo." ... Errico Malatesta (1853 - 1932) Just Another Social Hacker ! Ele seria um excelente desenvolvedor de Software Livre. [ ]'S Marco Lima marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Perl Monk Brasil Perl Monger Líder do Rio de Janeiro Perl Mongers http://www.perlmonk.org http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From rodzadra em yahoo.com Fri Mar 11 04:02:44 2005 From: rodzadra em yahoo.com (Rod Za) Date: Fri Mar 11 04:02:58 2005 Subject: [Cascavel-pm] Mongers de BH In-Reply-To: 6667 Message-ID: <20050311120244.84405.qmail@web50208.mail.yahoo.com> Ei Donato, Eu morava em BH e nunca encontrei uma lista de BH! Frequentemente estou indo a BH e quem sabe numa dessas a gente não se reune? Vai ser bom conhecer gente de BH que programe em Perl, eu não conheci ninguém dai que trabalhasse com Perl, eu mesmo já programei em várias linguagens e só ha 1 ano e meio conheci o Perl. t+ Rodrigo --- Donato Azevedo wrote: > Gostaria de saber se tem alguem da lista de Belo Horizonte. > Já que o pessoal das outras cidades vivem falando em sair e tomar uma > as vezes a gente tambem sai pra fazê algum trem qualquer... > > -- > ******************************************* > Donato Azevedo > Engenharia de Controle e Automação > UFMG > ******************************************* > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > __________________________________ Do you Yahoo!? Yahoo! Small Business - Try our new resources site! http://smallbusiness.yahoo.com/resources/ From glasswalk3r em yahoo.com.br Fri Mar 11 04:52:32 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Fri Mar 11 04:52:42 2005 Subject: [Cascavel-pm] (off-topic) encontros sociais dos monges: uma desculpa a menos Message-ID: <20050311125232.33123.qmail@web31513.mail.mud.yahoo.com> Olá Monges, Agora os monges que não vão aos encontros sociais tem uma desculpa a menos: "Those of us who like a few pints already know that beer fights cancer (http://www.theregister.co.uk/2005/01/20/beer_fights_cancer/) and is an absolute life-saver (http://www.theregister.co.uk/2005/01/31/avalanche_escape/) in an avalanche emergency situation, but what about the apparently proven effect of ale on the old waistline, eh? After all, anyone who has ever been on a package holiday to the Spanish costas can attest to the terrifying expansion of the British male's belly in response to a few hundred gallons of San Miguel... Or maybe not. A new campaign by the British Beer and Pub Association (BBPA), as reported on the BBC (http://news.bbc.co.uk/1/hi/magazine/4329323.stm), highlights the most satisfying fact that beer in reality has less calories than wine, milk or orange juice - 41, 77, 64 and 42 per cent per 100ml, respectively. What actually causes the beer belly is the overwhelming desire to partake of an enormous kebab or plate of curry after a particularly robust session, the BBPA says. This is true, although the BBPA is not taking in account something else all beer-drinkers know: that doner kebabs combat male pattern baldness and curry increases attractiveness to the opposite sex. Which is why people who prefer wine are invariably bald and single - despite having a waistline like Calista Flockhart. US brewer adds caffeine to beer (http://www.theregister.co.uk/2005/02/07/caffeine_beer/) Man urinates his way out of avalanche (http://www.theregister.co.uk/2005/01/31/avalanche_escape/) Beer fights cancer: official (http://www.theregister.co.uk/2005/01/20/beer_fights_cancer/)" Artigo original em: http://www.theregister.co.uk/2005/03/09/beer_not_fattening/print.html []'s Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ From acid06 em gmail.com Fri Mar 11 08:10:01 2005 From: acid06 em gmail.com (Nilson Santos) Date: Fri Mar 11 08:10:14 2005 Subject: [Cascavel-pm] Mongers de BH In-Reply-To: <1746e3e305031012583ee61400@mail.gmail.com> References: <1746e3e305031012583ee61400@mail.gmail.com> Message-ID: <9a08c9b405031108105f7fdeb2@mail.gmail.com> Donato, Temos que ver se colocamos pra frente o negócio do BH.PM Quem sabe assim não aparecem outros programadores em Perl? Se animarmos muito, podemos tentar fazer alguma divulgação lá na UFMG... -Nilson Santos F. Jr. On Thu, 10 Mar 2005 17:58:10 -0300, Donato Azevedo wrote: > Gostaria de saber se tem alguem da lista de Belo Horizonte. > Já que o pessoal das outras cidades vivem falando em sair e tomar uma > as vezes a gente tambem sai pra fazê algum trem qualquer... > > -- > ******************************************* > Donato Azevedo > Engenharia de Controle e Automação > UFMG > ******************************************* > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > From nferraz em gnubis.com.br Fri Mar 11 08:56:39 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Fri Mar 11 08:57:55 2005 Subject: [Cascavel-pm] Atitude Hacker (era: Converter data) In-Reply-To: <42310A7D.5020204@yahoo.com.br> References: <42310A7D.5020204@yahoo.com.br> Message-ID: <20050311165639.9505.qmail@hm101.locaweb.com.br> > Você escreveu isso para mim ou para o JG? Escrevi para a lista. : ) Só quis mostrar que "não reinventar a roda" é uma das características da Atitude Hacker. > E porque não postou apenas o link? Era o bastante... Por que eu queria destacar um trecho. O texto completo é ainda maior. []s Nelson From donatoaz em gmail.com Fri Mar 11 09:15:50 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Fri Mar 11 09:16:01 2005 Subject: [Cascavel-pm] Mongers de BH In-Reply-To: <9a08c9b405031108105f7fdeb2@mail.gmail.com> References: <1746e3e305031012583ee61400@mail.gmail.com> <9a08c9b405031108105f7fdeb2@mail.gmail.com> Message-ID: <1746e3e30503110915247931af@mail.gmail.com> On Fri, 11 Mar 2005 13:10:01 -0300, Nilson Santos wrote: > Donato, > > Temos que ver se colocamos pra frente o negócio do BH.PM Vamos agilizar entao... > Quem sabe assim não aparecem outros programadores em Perl? Aquela velha história: ´´If you build it, they will come" Field of Dreams > > Se animarmos muito, podemos tentar fazer alguma divulgação lá na UFMG... Voce quer dizer evangelização... > > -Nilson Santos F. Jr. > > > On Thu, 10 Mar 2005 17:58:10 -0300, Donato Azevedo wrote: > > Gostaria de saber se tem alguem da lista de Belo Horizonte. > > Já que o pessoal das outras cidades vivem falando em sair e tomar uma > > as vezes a gente tambem sai pra fazê algum trem qualquer... > > > > -- > > ******************************************* > > Donato Azevedo > > Engenharia de Controle e Automação > > UFMG > > ******************************************* > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm@pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* From donatoaz em gmail.com Fri Mar 11 20:54:21 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Fri Mar 11 20:54:38 2005 Subject: [Cascavel-pm] Ajuda Anonymous Subroutines Message-ID: <1746e3e3050311205418c59ea0@mail.gmail.com> Olá pessoal! Eu preciso de uma ajudinha: Estou fazendo um script usando win32::GUI pra gerar Tray Icons pra janelas existentes (ele pega uma janela, bota um icone na tray bar pra ela e remove o antigo da barra de tarefas). O win32::GUI::NotifyIcon funciona assim: voce cria um icone: my $icon = new ... Icon; dai associa esse icone a uma posicao na tray bar: my $tray = new ... NotifyIcon dai quando voce clica nele ele tem um evento associado que responde pela subrotina: sub Nome_Do_$tray_Click {} mas como eu tou gerando a subrotina run time eu faço assim: sub btn3_Click { my $num = $main->lsb1->SelectedItem() + 1; my $window_name = $main->lsb1->GetString($main->lsb1->SelectedItem()); if ($tray->{$window_name}) { $main->txf1->Text("it already exists"); return 1; } $icon->{$window_name} = new Win32::GUI::Icon($main->txf2->Text()); $tray->{$window_name} = $main->AddNotifyIcon(-name => $window_name, -id => $num, -icon => $icon->{$window_name}, -tip => $window_name); eval qq( sub main::${window_name}_Click { $main->->txf1->Text("donato"); } ); 1; } mas quando eu clico no icone na tray bar ele da um erro: Undefined Subroutine &main::nome_do_tray_Click called at line 23. A linha 23 tem a chamada pro win32::GUI::Dialog(); Obrigado pela atençao... -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* From monsieur_champs em yahoo.com.br Sat Mar 12 04:46:40 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Sat Mar 12 04:47:22 2005 Subject: [Cascavel-pm] Ajuda Anonymous Subroutines In-Reply-To: <1746e3e3050311205418c59ea0@mail.gmail.com> References: <1746e3e3050311205418c59ea0@mail.gmail.com> Message-ID: <4232E4B0.9000503@yahoo.com.br> Donato Azevedo wrote: > Olá pessoal! > Eu preciso de uma ajudinha: > Estou fazendo um script usando win32::GUI pra gerar Tray Icons pra > janelas existentes (ele pega uma janela, bota um icone na tray bar pra > ela e remove o antigo da barra de tarefas). O win32::GUI::NotifyIcon > funciona assim: > voce cria um icone: > my $icon = new ... Icon; > dai associa esse icone a uma posicao na tray bar: > my $tray = new ... NotifyIcon > > dai quando voce clica nele ele tem um evento associado que responde > pela subrotina: > sub Nome_Do_$tray_Click {} > mas como eu tou gerando a subrotina run time eu faço assim: > sub btn3_Click { > my $num = $main->lsb1->SelectedItem() + 1; > my $window_name = $main->lsb1->GetString($main->lsb1->SelectedItem()); > if ($tray->{$window_name}) { > $main->txf1->Text("it already exists"); > return 1; > } > $icon->{$window_name} = new Win32::GUI::Icon($main->txf2->Text()); > $tray->{$window_name} = $main->AddNotifyIcon(-name => $window_name, > -id => $num, > -icon => $icon->{$window_name}, -tip => $window_name); > eval qq( > sub main::${window_name}_Click { > $main->->txf1->Text("donato"); } > ); > 1; > } > > mas quando eu clico no icone na tray bar ele da um erro: > Undefined Subroutine &main::nome_do_tray_Click called at line 23. > A linha 23 tem a chamada pro win32::GUI::Dialog(); Você parece ter cortado e colado a última rotina diretamente do seu código, ao contrário do resto. Digo isso por que os nomes parecem reais neste trecho, mas não no resto. Notei que você não verifica o resultado do eval, quando da geração da subrotina. Pode ser que não tenha nada a ver, mas eu acho que você precisa acrescentar uma linha "die $@ if $@;" depois do eval() e antes do "1;". Me conte se isso ajudou você a mudar a mensagem de erro, tá? Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From acid06 em gmail.com Sat Mar 12 08:29:05 2005 From: acid06 em gmail.com (Nilson Santos) Date: Sat Mar 12 08:29:18 2005 Subject: [Cascavel-pm] Ajuda Anonymous Subroutines In-Reply-To: <1746e3e3050311205418c59ea0@mail.gmail.com> References: <1746e3e3050311205418c59ea0@mail.gmail.com> Message-ID: <9a08c9b40503120829141acaaf@mail.gmail.com> Donato, Eu fui olhar a documentação do NotifyIcon, você pode especificar a sub que deseja ser chamada nos eventos, observe esse exemplo que eu fiz: use warnings; use strict; use Win32::GUI; my $mw = new Win32::GUI::Window( -text => "NotifyIcon Test", -size => [400, 300], -pos => [200, 200] ); for my $icon ("ICON1", "ICON2") { my $notify = $mw->AddNotifyIcon( -icon => Win32::GUI::Icon->new("${icon}.ico"), -name => "Notify$icon", -tip => "$icon", -onClick => sub { ¬ify_click }, # ou, passando como string o nome da função # -onClick => 'notify_click' ); } $mw->Show; Win32::GUI::Dialog(); sub notify_click { my ($window, $icon) = @_; print "notify_click => window: $window, icon: $icon\n"; } Isso é do Win32::GUI 1.0 Acho que nas versões antigas não tinha essa opção disponível... -Nilson Santos F. Jr. On Sat, 12 Mar 2005 01:54:21 -0300, Donato Azevedo wrote: > Olá pessoal! > Eu preciso de uma ajudinha: > Estou fazendo um script usando win32::GUI pra gerar Tray Icons pra > janelas existentes (ele pega uma janela, bota um icone na tray bar pra > ela e remove o antigo da barra de tarefas). O win32::GUI::NotifyIcon > funciona assim: > voce cria um icone: > my $icon = new ... Icon; > dai associa esse icone a uma posicao na tray bar: > my $tray = new ... NotifyIcon > > dai quando voce clica nele ele tem um evento associado que responde > pela subrotina: > sub Nome_Do_$tray_Click {} > mas como eu tou gerando a subrotina run time eu faço assim: > sub btn3_Click { > my $num = $main->lsb1->SelectedItem() + 1; > my $window_name = $main->lsb1->GetString($main->lsb1->SelectedItem()); > if ($tray->{$window_name}) { > $main->txf1->Text("it already exists"); > return 1; > } > $icon->{$window_name} = new Win32::GUI::Icon($main->txf2->Text()); > $tray->{$window_name} = $main->AddNotifyIcon(-name => $window_name, > -id => $num, > -icon => $icon->{$window_name}, -tip => $window_name); > eval qq( > sub main::${window_name}_Click { > $main->->txf1->Text("donato"); } > ); > 1; > } > > mas quando eu clico no icone na tray bar ele da um erro: > Undefined Subroutine &main::nome_do_tray_Click called at line 23. > A linha 23 tem a chamada pro win32::GUI::Dialog(); > > Obrigado pela atençao... > -- > ******************************************* > Donato Azevedo > Engenharia de Controle e Automação > UFMG > ******************************************* > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > From donatoaz em gmail.com Sat Mar 12 09:23:33 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Sat Mar 12 10:23:45 2005 Subject: [Cascavel-pm] Ajuda Anonymous Subroutines In-Reply-To: <9a08c9b40503120829141acaaf@mail.gmail.com> References: <1746e3e3050311205418c59ea0@mail.gmail.com> <9a08c9b40503120829141acaaf@mail.gmail.com> Message-ID: <1746e3e305031209236d03b08d@mail.gmail.com> Okay, vou pegar o 1.0 (pra falar a verdade só não peguei até hoje por teimosia...) Eu avaliava o eval sim, mas tirei essa parte do codigo. Obrigado aos dois On Sat, 12 Mar 2005 13:29:05 -0300, Nilson Santos wrote: > Donato, > > Eu fui olhar a documentação do NotifyIcon, você pode especificar a sub > que deseja ser chamada nos eventos, observe esse exemplo que eu fiz: > > use warnings; > use strict; > > use Win32::GUI; > > my $mw = new Win32::GUI::Window( > -text => "NotifyIcon Test", > -size => [400, 300], > -pos => [200, 200] > ); > > for my $icon ("ICON1", "ICON2") { > my $notify = $mw->AddNotifyIcon( > -icon => Win32::GUI::Icon->new("${icon}.ico"), > -name => "Notify$icon", > -tip => "$icon", > -onClick => sub { ¬ify_click }, > # ou, passando como string o nome da função > # -onClick => 'notify_click' > ); > } > > $mw->Show; > > Win32::GUI::Dialog(); > > sub notify_click { > my ($window, $icon) = @_; > print "notify_click => window: $window, icon: $icon\n"; > } > > Isso é do Win32::GUI 1.0 > Acho que nas versões antigas não tinha essa opção disponível... > > -Nilson Santos F. Jr. > > > On Sat, 12 Mar 2005 01:54:21 -0300, Donato Azevedo wrote: > > Olá pessoal! > > Eu preciso de uma ajudinha: > > Estou fazendo um script usando win32::GUI pra gerar Tray Icons pra > > janelas existentes (ele pega uma janela, bota um icone na tray bar pra > > ela e remove o antigo da barra de tarefas). O win32::GUI::NotifyIcon > > funciona assim: > > voce cria um icone: > > my $icon = new ... Icon; > > dai associa esse icone a uma posicao na tray bar: > > my $tray = new ... NotifyIcon > > > > dai quando voce clica nele ele tem um evento associado que responde > > pela subrotina: > > sub Nome_Do_$tray_Click {} > > mas como eu tou gerando a subrotina run time eu faço assim: > > sub btn3_Click { > > my $num = $main->lsb1->SelectedItem() + 1; > > my $window_name = $main->lsb1->GetString($main->lsb1->SelectedItem()); > > if ($tray->{$window_name}) { > > $main->txf1->Text("it already exists"); > > return 1; > > } > > $icon->{$window_name} = new Win32::GUI::Icon($main->txf2->Text()); > > $tray->{$window_name} = $main->AddNotifyIcon(-name => $window_name, > > -id => $num, > > -icon => $icon->{$window_name}, -tip => $window_name); > > eval qq( > > sub main::${window_name}_Click { > > $main->->txf1->Text("donato"); } > > ); > > 1; > > } > > > > mas quando eu clico no icone na tray bar ele da um erro: > > Undefined Subroutine &main::nome_do_tray_Click called at line 23. > > A linha 23 tem a chamada pro win32::GUI::Dialog(); > > > > Obrigado pela atençao... > > -- > > ******************************************* > > Donato Azevedo > > Engenharia de Controle e Automação > > UFMG > > ******************************************* > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm@pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* From donatoaz em gmail.com Sat Mar 12 13:26:47 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Sat Mar 12 13:54:09 2005 Subject: [Cascavel-pm] Lista das running applications In-Reply-To: <20050305201805.7067.qmail@hm101.locaweb.com.br> References: <1746e3e3050305114779503dee@mail.gmail.com> <20050305201805.7067.qmail@hm101.locaweb.com.br> Message-ID: <1746e3e3050312132653ae3bc7@mail.gmail.com> pessoal, Acho que este modulo nao funciona no meu pc, pq precisa ter WMI ou ser NT, no meu caso ele nao é NT e acho que nao da pra ter WMI.... alguma outra sugestão? On Sat, 5 Mar 2005 17:18:05 -0300, Nelson Ferraz wrote: > > Gostaria de saber se alguem tem alguma ideia de como eu posso obter > > uma lista das aplicações que estão sendo executadas (como as que se ve > > quando se aperta ctrl+alt+del). > > Tente o módulo Win32::Process::Info > > http://search.cpan.org/dist/Win32-Process-Info/Info.pm > > Nota do autor: "This package covers a multitude of sins - as many as Microsoft has invented ways to get process info and I have resources and gumption to code. The key to this mess is the 'variant' argument to the 'new' method" > -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* From acid06 em gmail.com Sat Mar 12 19:28:36 2005 From: acid06 em gmail.com (Nilson Santos) Date: Sat Mar 12 19:28:44 2005 Subject: [Cascavel-pm] Lista das running applications In-Reply-To: <1746e3e3050312132653ae3bc7@mail.gmail.com> References: <1746e3e3050305114779503dee@mail.gmail.com> <20050305201805.7067.qmail@hm101.locaweb.com.br> <1746e3e3050312132653ae3bc7@mail.gmail.com> Message-ID: <9a08c9b4050312192837b1e44@mail.gmail.com> Tem umas APIs do windows que você pode importar pelo Win32::API que fazem esse tipo de coisa... eu não sei as funções de cabeça agora, mas lembro de já ter usado alguma vez. Se você não tem o Windows Platform SDK, deveria baixar. O único problema é que é meio grande e, como vc usa modem... bem, iria demorar um pouco. Outra alternativa é arrumar o cd emprestado... se tiver espaço de sobra, pode instalar o MSDN que tem o Win SDK incluso. -Nilson Santos F. Jr. On Sat, 12 Mar 2005 18:26:47 -0300, Donato Azevedo wrote: > pessoal, > Acho que este modulo nao funciona no meu pc, pq precisa ter WMI ou ser > NT, no meu caso ele nao é NT e acho que nao da pra ter WMI.... > alguma outra sugestão? From fglock em pucrs.br Sat Mar 12 20:04:37 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Sat Mar 12 20:06:15 2005 Subject: [Cascavel-pm] Lista das running applications Message-ID: <200503130405.j2D45t2e052774@rigel.pucrs.br> > Acho que este modulo nao funciona no meu pc, pq precisa ter WMI ou ser > NT, no meu caso ele nao é NT e acho que nao da pra ter WMI.... O site de downloads da Microsoft tem WMI para NT, se você quiser instalar. - Flavio S. Glock From monsieur_champs em yahoo.com.br Sun Mar 13 05:27:41 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Sun Mar 13 05:28:20 2005 Subject: [Cascavel-pm] Lista das running applications In-Reply-To: <200503130405.j2D45t2e052774@rigel.pucrs.br> References: <200503130405.j2D45t2e052774@rigel.pucrs.br> Message-ID: <42343FCD.9010703@yahoo.com.br> fglock@pucrs.br wrote: >>Acho que este modulo nao funciona no meu pc, pq > > precisa ter WMI ou ser > >>NT, no meu caso ele nao é NT e acho que nao da pra > > ter WMI.... > > O site de downloads da Microsoft tem WMI para NT, se > você quiser instalar. > O Flávio deve ter se perdido, ou nos dedos ou no pensamento. O problema dele é *não* *ser* NT, nem ter WMI instalado. Desconfio que o WMI para NT não deve funcionar... Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From donatoaz em gmail.com Sun Mar 13 16:17:25 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Sun Mar 13 16:24:19 2005 Subject: [Cascavel-pm] Lista das running applications In-Reply-To: <200503130405.j2D45t2e052774@rigel.pucrs.br> References: <200503130405.j2D45t2e052774@rigel.pucrs.br> Message-ID: <1746e3e3050313161757d625d2@mail.gmail.com> On Sun, 13 Mar 2005 04:04:37 GMT, fglock@pucrs.br wrote: > > > Acho que este modulo nao funciona no meu pc, pq > precisa ter WMI ou ser > > NT, no meu caso ele nao é NT e acho que nao da pra > ter WMI.... > > O site de downloads da Microsoft tem WMI para NT, se > você quiser instalar. O meu nao é NT. Eu nao sou muito bom com virgulas.... a frase correta seria: Meu OS nao é NT e acho que nao tem WMI pra win98SE > > - Flavio S. Glock > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* From jamorreu em gmail.com Mon Mar 14 11:26:56 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Mon Mar 14 11:27:08 2005 Subject: [Cascavel-pm] Problemas com MySQL (DBI e MySQL) Message-ID: <8ff2963a0503141126b70772e@mail.gmail.com> Olá pessoal. Estou tentando fazer conexões com meu banco de dados mysql usando o DBI junto ao DBD::Mysql e obtive o seguinte erro: >>>> DBI connect('database=testando;host=localhost','root',...) failed: Client does not support authentication protocol requested by server; consider upgrading MySQL client at script.pl line 7 <<<< Isso só passou a dar quando atualizei meu mysql p/ a versão 4.1.10-nt. Alguém pode me dar uma dica/solução? -- Um abraço, João Gabriel / JGCL From glasswalk3r em yahoo.com.br Mon Mar 14 13:01:46 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Mon Mar 14 13:02:03 2005 Subject: [Cascavel-pm] como apanhar errors de processos filhos iniciados por IPC::Open3 ? Message-ID: <20050314210146.12338.qmail@web31514.mail.mud.yahoo.com> Olá monges, Estou escrevendo porque já estou ficando sem idéias de como capturar erros do IPC::Open3. Para quem não conhece, o módulo fornece um método de executar um comando externo ao Perl, sem chamar o shell, e capturando STDIN, STDERR e STDOUT dele. Bastante promissor para que gosta de controle. O problema é que eu não estou conseguindo fazer o processo filho me retornar algo, um sinal, uma mensagem, qualquer coisa, quando ele executar algo que dê algum problema. Vou citar o que a documentação diz: "open3() returns the process ID of the child process. It doesn't return on failure: it just raises an exception matching /^open3:/. However, exec failures in the child are not detected. You'll have to trap SIGPIPE yourself." Ok, então eu tentei criar uma função anônima para ligar com SIGPIPE. O problema é que SEMPRE eu recebo SIGPIPE... tanto faz se o aplicativo que o processo filho executou retornou erro ou não. Eu tentei usar o esquema "eval { }; die $@ if $@;", mas também não funciona. Eu tentei todas as referências abaixo também: http://www.perlmonks.org/index.pl?node_id=151886 http://www.perlmonks.org/index.pl?node_id=146445 http://www.perlmonks.org/index.pl?node_id=31831 http://www.perlmonks.org/index.pl?node_id=28870 mas nenhum dos exemplos funciona no meu caso. O mais estranho é que, até aonde entendi, o processo filho deveria executar somente o que eu passo para a função como parâmetro. Em alguns dos milhares de testes que fiz, me parecia que o filho estava repetindo comandos que teriocamente deveriam ser executados apenas pelo processo pai. Se eu usasse open(-|) e exec, eu poderia separar isso usando um if ($pid) { # pai } else { # filho } mas no caso do IPC::Open3 não vejo como fazer isso. Se quiserem, eu posso postar depois o código que estou tentando fazer aqui. Não sei se estou tentando fazer pato botar ovo porque estou rodando isso como CGI. Obrigado, Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 Yahoo! Mail - Com 250MB de espaço. Abra sua conta! http://mail.yahoo.com.br/ From daniel em ruoso.com Mon Mar 14 13:13:00 2005 From: daniel em ruoso.com (Daniel Ruoso) Date: Mon Mar 14 13:13:16 2005 Subject: [Cascavel-pm] como apanhar errors de processos filhos iniciados por IPC::Open3 ? In-Reply-To: <20050314210146.12338.qmail@web31514.mail.mud.yahoo.com> References: <20050314210146.12338.qmail@web31514.mail.mud.yahoo.com> Message-ID: <1110834780.1410.50.camel@cedro> Em Seg, 2005-03-14 às 18:01, Alceu R. de Freitas Jr. escreveu: > O problema é que eu não estou conseguindo fazer o > processo filho me retornar algo, um sinal, uma > mensagem, qualquer coisa, quando ele executar algo que > dê algum problema. Você diz quando ele morrer? > "open3() returns the process ID of the child process. > It doesn't return on failure: it just raises an > exception matching /^open3:/. However, exec failures > in the child are not detected. You'll have to trap > SIGPIPE yourself." Ele quer dizer que ele não consegue diferenciar um erro de execução do processo filho de um erro do exec, só isso. > Ok, então eu tentei criar uma função anônima para > ligar com SIGPIPE. O problema é que SEMPRE eu recebo > SIGPIPE... tanto faz se o aplicativo que o processo > filho executou retornou erro ou não. O que exatamente você chama de retornar erro? SIGPIPE só quer dizer que o PIPE foi quebrado. > Eu tentei usar o esquema "eval { }; die $@ if $@;", > mas também não funciona. Eval??? como você usaria eval? > O mais estranho é que, até aonde entendi, o processo > filho deveria executar somente o que eu passo para a > função como parâmetro. Em alguns dos milhares de > testes que fiz, me parecia que o filho estava > repetindo comandos que teriocamente deveriam ser > executados apenas pelo processo pai. Se eu usasse > open(-|) e exec, eu poderia separar isso usando um > > if ($pid) { # pai > > > } else { # filho > > > } Acho que você está fazendo uma graaaaaaaande confusão... o trecho que você acabou de citar se refere a uma chamada fork() e não exec(), muito menos open ou open3 > Se quiserem, eu posso postar depois o código que estou > tentando fazer aqui. Não sei se estou tentando fazer > pato botar ovo porque estou rodando isso como CGI. O fato de ser CGI não muda nada... é interessante você mandar o código, pq eu realmente não entendi qual é o problema. daniel From daniel em ruoso.com Mon Mar 14 13:13:00 2005 From: daniel em ruoso.com (Daniel Ruoso) Date: Mon Mar 14 13:13:18 2005 Subject: [Cascavel-pm] como apanhar errors de processos filhos iniciados por IPC::Open3 ? In-Reply-To: <20050314210146.12338.qmail@web31514.mail.mud.yahoo.com> References: <20050314210146.12338.qmail@web31514.mail.mud.yahoo.com> Message-ID: <1110834780.1410.50.camel@cedro> Em Seg, 2005-03-14 às 18:01, Alceu R. de Freitas Jr. escreveu: > O problema é que eu não estou conseguindo fazer o > processo filho me retornar algo, um sinal, uma > mensagem, qualquer coisa, quando ele executar algo que > dê algum problema. Você diz quando ele morrer? > "open3() returns the process ID of the child process. > It doesn't return on failure: it just raises an > exception matching /^open3:/. However, exec failures > in the child are not detected. You'll have to trap > SIGPIPE yourself." Ele quer dizer que ele não consegue diferenciar um erro de execução do processo filho de um erro do exec, só isso. > Ok, então eu tentei criar uma função anônima para > ligar com SIGPIPE. O problema é que SEMPRE eu recebo > SIGPIPE... tanto faz se o aplicativo que o processo > filho executou retornou erro ou não. O que exatamente você chama de retornar erro? SIGPIPE só quer dizer que o PIPE foi quebrado. > Eu tentei usar o esquema "eval { }; die $@ if $@;", > mas também não funciona. Eval??? como você usaria eval? > O mais estranho é que, até aonde entendi, o processo > filho deveria executar somente o que eu passo para a > função como parâmetro. Em alguns dos milhares de > testes que fiz, me parecia que o filho estava > repetindo comandos que teriocamente deveriam ser > executados apenas pelo processo pai. Se eu usasse > open(-|) e exec, eu poderia separar isso usando um > > if ($pid) { # pai > > > } else { # filho > > > } Acho que você está fazendo uma graaaaaaaande confusão... o trecho que você acabou de citar se refere a uma chamada fork() e não exec(), muito menos open ou open3 > Se quiserem, eu posso postar depois o código que estou > tentando fazer aqui. Não sei se estou tentando fazer > pato botar ovo porque estou rodando isso como CGI. O fato de ser CGI não muda nada... é interessante você mandar o código, pq eu realmente não entendi qual é o problema. daniel From glasswalk3r em yahoo.com.br Mon Mar 14 13:30:08 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Mon Mar 14 13:30:19 2005 Subject: [Cascavel-pm] como apanhar errors de processos filhos iniciados por IPC::Open3 ? In-Reply-To: 6667 Message-ID: <20050314213009.51257.qmail@web31505.mail.mud.yahoo.com> --- Daniel Ruoso wrote: > Em Seg, 2005-03-14 às 18:01, Alceu R. de Freitas Jr. > escreveu: > > O problema é que eu não estou conseguindo fazer o > > processo filho me retornar algo, um sinal, uma > > mensagem, qualquer coisa, quando ele executar algo > que > > dê algum problema. > > Você diz quando ele morrer? Se ele morre, eu ainda consigo pegar a falha do Open3, porque tenho acesso a STDERR. O problema é quando o child não morre, ele roda o programa, mas o programa causa algum erro. > > "open3() returns the process ID of the child > process. > > It doesn't return on failure: it just raises an > > exception matching /^open3:/. However, exec > failures > > in the child are not detected. You'll have to trap > > SIGPIPE yourself." > > Ele quer dizer que ele não consegue diferenciar um > erro de execução do > processo filho de um erro do exec, só isso. Na verdade, por si só o módulo não checa o processo filho. > O que exatamente você chama de retornar erro? > SIGPIPE só quer dizer que > o PIPE foi quebrado. É simples, eu preciso saber se o processo filho conseguiu rodar o programa e se o programa que ele rodou foi executado com sucesso. > > Eu tentei usar o esquema "eval { }; die $@ if > $@;", > > mas também não funciona. > > Eval??? como você usaria eval? Assim: #!/usr/bin/perl # test1.pl use IPC::Open3; $n = "\n"; open( OUTPUT, ">&STDOUT" ) or die "Can't dup STDOUT to OUTPUT: $!$n"; open( OUTERR, ">&STDERR" ) or die "Can't dup STDERR to OUTERR: $!$n"; eval { $pid = open3("<&STDIN", \*OUTPUT, \*OUTERR, 'perl return.pl') ; $val = waitpid(-1,0); # <--- added this line }; $@ && die "ERROR: $@$n"; @results = ; @errors = ; close OUTPUT; close OUTERR; print "---pid$n"; print $pid . $n; print "---\$?$n"; print $? . $n; # <--- prints exit val print "---results$n"; foreach(@results) { print $_ . $n }; print "---errors$n"; foreach(@errors) { print $_ . $n }; --- Outro exemplo: http://www.perlmonks.org/index.pl?node_id=151886 > Acho que você está fazendo uma graaaaaaaande > confusão... o trecho que > você acabou de citar se refere a uma chamada fork() > e não exec(), muito > menos open ou open3 Sim, fork depois exec()... acho que não expliquei direito. O que quis dizer é que o filho deveria executar apenas o comando que passo como parâmetro para o Open3. Depois de algumas tentativas madrugada adentro com eval () eu acabei chegando num resultado cabalístico que o filho repetia a mensagem de erro do pai (ou vice-versa, sei lá). Não faça perguntas difíceis. :-) > O fato de ser CGI não muda nada... > é interessante você mandar o código, pq eu realmente > não entendi qual é > o problema. Obrigado pela ajuda. Vou postar parte do código pq ele é meio grande. Se quiser dar uma olhada geral, por favor me avise que eu mando anexado. []'s Alceu --- sub cleanit { my $fileurl = shift; my $filename = shift; # untaint data $config{scannerpath} = clean_taint($config{scannerpath},'\w\.\/\-\_'); $config{virusscanner} = clean_taint($config{virusscanner},'\w'); $config{viruscmd} = clean_taint($config{viruscmd},'\w\.\_\-\s'); $config{downloads} = clean_taint($config{downloads},'\w\.\/\-\_'); delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; $ENV{PATH} = $config{scannerpath}; print $viralator->p("$lang{wviruscan} $filename $lang{takeawhile}"); if (-e "$config{downloads}/$filename") { my $pid = open3(\*TOCHILD,\*FROMCHILD,\*FROMCHILD,"$config{scannerpath}/$config{virusscanner}",$config{viruscmd},"$config{downloads}/$filename"); unless ( defined($pid) ) { unlink "$config{downloads}/$filename" || error('error',"$lang{rm_error}","$lang{rm_error}: $!"); error('error',"An error ocurred when tring to scan the downloaded file for virus: $lang{fileremoved}","Viruscan error: $!",'noheader'); } else { print '
'; while() { if ($_ =~ /^open3\:.*failed/) { unlink "$config{downloads}/$filename" || error('error',"$lang{rm_error}","$lang{rm_error}: $!"); error('error',"An error ocurred when tring to scan the downloaded file for virus: $lang{fileremoved}", 'Viruscan error: open3 failed','noheader'); } if ($_ =~ /$config{alert}/o) { unlink "$config{downloads}/$filename" || error('error',"$lang{rm_error}","$lang{rm_error}: $!"); error('warning',"$lang{vfounddl}: $lang{fileremoved}.","Virus found in file requested by $client"); } else { # print viruscanner information about the file scanned $config{scannersummary} eq 'true' ? print '
'.$_ : print '.'; #end of if block } #end of while block } #end of if block } close(TOCHILD) or die "$!\n"; close(FROMCHILD) or die "$!\n"; waitpid $pid, 0; } else { error('warning',$lang{no_resource},'No file'); #end of if block } Yahoo! Mail - Com 250MB de espaço. Abra sua conta! http://mail.yahoo.com.br/ From daniel em ruoso.com Mon Mar 14 14:18:37 2005 From: daniel em ruoso.com (Daniel Ruoso) Date: Mon Mar 14 14:18:48 2005 Subject: [Cascavel-pm] como apanhar errors de processos filhos iniciados por IPC::Open3 ? In-Reply-To: <20050314213009.51257.qmail@web31505.mail.mud.yahoo.com> References: <20050314213009.51257.qmail@web31505.mail.mud.yahoo.com> Message-ID: <1110838717.1409.77.camel@cedro> Em Seg, 2005-03-14 às 18:30, Alceu R. de Freitas Jr. escreveu: > Se ele morre, eu ainda consigo pegar a falha do Open3, > porque tenho acesso a STDERR. O problema é quando o > child não morre, ele roda o programa, mas o programa > causa algum erro. Beleza, dar erro significa o que? ter return code != 0? não dar uma determinada resposta no STDOUT? dar uma determinada resposta no STDERR? isso que eu não entendi... > É simples, eu preciso saber se o processo filho > conseguiu rodar o programa e se o programa que ele > rodou foi executado com sucesso. Primeiro de tudo você tem que estabelecer um parâmetro para detectar quando o programa falha, isso pode ser feito por uma mensagem de erro, pela ausência de uma mensagem de sucesso ou por um exit code específico. > > > Eu tentei usar o esquema "eval { }; die $@ if > > $@;", > > > mas também não funciona. Ah sim, você realmente deve usar o eval para capturar o erro do open3, você deve verificar se o $@ contém o "open3:", e não o STDERR do processo que você chamou. > > Acho que você está fazendo uma graaaaaaaande > > confusão... o trecho que > > você acabou de citar se refere a uma chamada fork() > > e não exec(), muito > > menos open ou open3 > Sim, fork depois exec()... acho que não expliquei > direito. O que quis dizer é que o filho deveria > executar apenas o comando que passo como parâmetro > para o Open3. Depois de algumas tentativas madrugada > adentro com eval () eu acabei chegando num resultado > cabalístico que o filho repetia a mensagem de erro do > pai (ou vice-versa, sei lá). Não faça perguntas > difíceis. :-) Agora eu tenho certeza... você fez uma graaaaaaaande confusão. ;) > my $pid = > open3(\*TOCHILD,\*FROMCHILD,\*FROMCHILD,"$config{scannerpath}/$config{virusscanner}",$config{viruscmd},"$config{downloads}/$filename"); > > unless ( defined($pid) ) { > > unlink "$config{downloads}/$filename" || > error('error',"$lang{rm_error}","$lang{rm_error}: > $!"); > error('error',"An error ocurred when tring to scan > the downloaded file for virus: > $lang{fileremoved}","Viruscan error: $!",'noheader'); Essa parte está ok. > > } else { > > print '
'; > > while() { > > if ($_ =~ /^open3\:.*failed/) { a verificação do open3 failed deve ser no $@ e você deve chamar o open3 dentro de um eval para poder capturar isso. e de resto, para saber se o processo obteve sucesso você precisa ter um critério para diferenciar o sucesso do erro. Tipo, se o programa termina retornando um OK!, então você sabe que deu sucesso. Mas o mais provavel é ele terminar com exit code 0 para ser sucesso (pelo menos isso é o padrão no mundo Unix), então você precisa capturar o exit code do processo filho. Para capturar o exit code de um processo filho, você deve utilizar o waitpid e verificar o exit code na variável $?. daniel From monsieur_champs em yahoo.com.br Mon Mar 14 19:22:41 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Mon Mar 14 19:23:20 2005 Subject: [Cascavel-pm] como apanhar errors de processos filhos iniciados por IPC::Open3 ? In-Reply-To: <20050314210146.12338.qmail@web31514.mail.mud.yahoo.com> References: <20050314210146.12338.qmail@web31514.mail.mud.yahoo.com> Message-ID: <42365501.1070204@yahoo.com.br> Alceu R. de Freitas Jr. wrote: > Olá monges, > > Estou escrevendo porque já estou ficando sem idéias de > como capturar erros do IPC::Open3. > > Para quem não conhece, o módulo fornece um método de > executar um comando externo ao Perl, sem chamar o > shell, e capturando STDIN, STDERR e STDOUT dele. > Bastante promissor para que gosta de controle. > > O problema é que eu não estou conseguindo fazer o > processo filho me retornar algo, um sinal, uma > mensagem, qualquer coisa, quando ele executar algo que > dê algum problema. > > Vou citar o que a documentação diz: > > "open3() returns the process ID of the child process. > It doesn't return on failure: it just raises an > exception matching /^open3:/. However, exec failures > in the child are not detected. You'll have to trap > SIGPIPE yourself." > > Ok, então eu tentei criar uma função anônima para > ligar com SIGPIPE. O problema é que SEMPRE eu recebo > SIGPIPE... tanto faz se o aplicativo que o processo > filho executou retornou erro ou não. > > Eu tentei usar o esquema "eval { }; die $@ if $@;", > mas também não funciona. > > Eu tentei todas as referências abaixo também: > > http://www.perlmonks.org/index.pl?node_id=151886 > http://www.perlmonks.org/index.pl?node_id=146445 > http://www.perlmonks.org/index.pl?node_id=31831 > http://www.perlmonks.org/index.pl?node_id=28870 > > mas nenhum dos exemplos funciona no meu caso. > > O mais estranho é que, até aonde entendi, o processo > filho deveria executar somente o que eu passo para a > função como parâmetro. Em alguns dos milhares de > testes que fiz, me parecia que o filho estava > repetindo comandos que teriocamente deveriam ser > executados apenas pelo processo pai. Se eu usasse > open(-|) e exec, eu poderia separar isso usando um > > if ($pid) { # pai > > > } else { # filho > > > } > > mas no caso do IPC::Open3 não vejo como fazer isso. > > Se quiserem, eu posso postar depois o código que estou > tentando fazer aqui. Não sei se estou tentando fazer > pato botar ovo porque estou rodando isso como CGI. Ver o código ajudaria muito. Se minhas suposições estão corretas, seu pato está quase tendo um infarto do miocárdio enquanto você grita a todo pulmão: BOTE OVOS QUADRADOS!!! Muito curioso em descobrir por que patos não botam ovos, putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From monsieur_champs em yahoo.com.br Mon Mar 14 19:27:33 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Mon Mar 14 19:28:06 2005 Subject: [Cascavel-pm] como apanhar errors de processos filhos iniciados por IPC::Open3 ? In-Reply-To: <42365501.1070204@yahoo.com.br> References: <20050314210146.12338.qmail@web31514.mail.mud.yahoo.com> <42365501.1070204@yahoo.com.br> Message-ID: <42365625.3020609@yahoo.com.br> Luis Campos de Carvalho wrote: > Ver o código ajudaria muito. > Se minhas suposições estão corretas, seu pato está quase tendo um > infarto do miocárdio enquanto você grita a todo pulmão: BOTE OVOS > QUADRADOS!!! > > Muito curioso em descobrir por que patos não botam ovos, putamplexos! Bom cara, eu acho que você está atrasado... o D Ruoso já resolveu o problema, e parece consistente. Resta saber se o Alceu entendeu... :-) Você está ficando velho, Champs... E meio bobo, já que anda respondendo aos seus próprios posts... Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From glasswalk3r em yahoo.com.br Tue Mar 15 05:15:35 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Tue Mar 15 05:15:47 2005 Subject: [Cascavel-pm] como apanhar errors de processos filhos iniciados por IPC::Open3 ? In-Reply-To: 6667 Message-ID: <20050315131535.77031.qmail@web31513.mail.mud.yahoo.com> Oi Daniel, Eu ainda não testei as alterações que você sugeriu... mas tenho algumas dúvidas que gostaria de sanar antes de fazê-lo... acompanhe meus comentários abaixo... --- Daniel Ruoso wrote: > Beleza, dar erro significa o que? ter return code != > 0? não dar uma > determinada resposta no STDOUT? dar uma determinada > resposta no STDERR? > isso que eu não entendi... Na realidade, pra mim tanto faz se eu pego o erro via sinal, retorno de código ou uma emissão telepática. Só gostaria de saber se o processo filho fez o que tinha que fazer. Se eu estivesse usando 'system' eu faria isso com retorno de código. Com 'open()' também dá pra fazer isso. Pelo que entendi de SIGPIPE deveria acusar algum erro, visto que IPC::Open3 abre pipes para o processo filho... ou não? > Primeiro de tudo você tem que estabelecer um > parâmetro para detectar > quando o programa falha, isso pode ser feito por uma > mensagem de erro, > pela ausência de uma mensagem de sucesso ou por um > exit code específico. Por código seria melhor, visto que não posso prever com eficácia mensagens de erro. > Ah sim, você realmente deve usar o eval para > capturar o erro do open3, > você deve verificar se o $@ contém o "open3:", e não > o STDERR do > processo que você chamou. Ué... a mensagem de erro (quando aparece) está na leitura do STDERR do processo filho... eu nem chequei $@ para apanhar isso e nem usei eval. > Agora eu tenho certeza... você fez uma graaaaaaaande > confusão. ;) Gostaria de clarear as idéias. perldoc perlipc não ajuda muito. Alguma outra referência? > > my $pid = > > > open3(\*TOCHILD,\*FROMCHILD,\*FROMCHILD,"$config{scannerpath}/$config{virusscanner}",$config{viruscmd},"$config{downloads}/$filename"); > > > > unless ( defined($pid) ) { > > > > unlink "$config{downloads}/$filename" || > > error('error',"$lang{rm_error}","$lang{rm_error}: > > $!"); > > error('error',"An error ocurred when tring to > scan > > the downloaded file for virus: > > $lang{fileremoved}","Viruscan error: > $!",'noheader'); > > Essa parte está ok. Mas eu não usei eval. > > > > } else { > > > > print '
'; > > > > while() { > > > > if ($_ =~ /^open3\:.*failed/) { > > a verificação do open3 failed deve ser no $@ e você > deve chamar o open3 > dentro de um eval para poder capturar isso. Como eu disse, esse trecho do código me retorna erro, se, por exemplo, o parâmetro de comando do open3 aponta para um programa que não existe, como open3($entrada,$erro,$saida,zabumba); Considerando que não tenha nada executável no PATH chamado "zabumba", meu script retorna o erro iniciando em "open3" exatamente no trecho apresentado acima. > Para capturar o exit code de um processo filho, você > deve utilizar o > waitpid e verificar o exit code na variável $?. Seria isso? (não testei): waitpid $pid, 0; die "erro com processo filho" unless ($?); Mais uma vez obrigado pela ajuda. []'s Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 Yahoo! Mail - Com 250MB de espaço. Abra sua conta! http://mail.yahoo.com.br/ From glasswalk3r em yahoo.com.br Tue Mar 15 05:21:55 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Tue Mar 15 05:22:04 2005 Subject: [Cascavel-pm] como apanhar errors de processos filhos iniciados por IPC::Open3 ? In-Reply-To: 6667 Message-ID: <20050315132155.11103.qmail@web31502.mail.mud.yahoo.com> --- Luis Campos de Carvalho wrote: > Bom cara, eu acho que você está atrasado... o D > Ruoso já resolveu o > problema, e parece consistente. Resta saber se o > Alceu entendeu... :-) Ainda tem umas pendências com relação à IPC. Aproveitando o ensejo, gostaria de dizer que estou fazendo isso no Cygwin... não sei dizer se tem impacto, mas algumas mágicas com pipes não funcionam em MS Ruindows. > Você está ficando velho, Champs... > E meio bobo, já que anda respondendo aos seus > próprios posts... Vou me abster de comentar sobre isso... mas fique contente! Agora você tem a oportunidade de responder! []'s Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 Yahoo! Mail - Com 250MB de espaço. Abra sua conta! http://mail.yahoo.com.br/ From daniel em ruoso.com Tue Mar 15 10:29:29 2005 From: daniel em ruoso.com (Daniel Ruoso) Date: Tue Mar 15 10:29:46 2005 Subject: [Cascavel-pm] como apanhar errors de processos filhos iniciados por IPC::Open3 ? In-Reply-To: <20050315132155.11103.qmail@web31502.mail.mud.yahoo.com> References: <20050315132155.11103.qmail@web31502.mail.mud.yahoo.com> Message-ID: <1110911368.6572.8.camel@cedro> Em Ter, 2005-03-15 às 10:21, Alceu R. de Freitas Jr. escreveu: > --- Luis Campos de Carvalho > wrote: > > Bom cara, eu acho que você está atrasado... o D > > Ruoso já resolveu o > > problema, e parece consistente. Resta saber se o > > Alceu entendeu... :-) > > Ainda tem umas pendências com relação à IPC. > Aproveitando o ensejo, gostaria de dizer que estou > fazendo isso no Cygwin... não sei dizer se tem > impacto, mas algumas mágicas com pipes não funcionam > em MS Ruindows. Ah... se é em windows, então qualquer coisa é possível... IPC no Windows é uma lenda que a M$ esqueceu de implementar... daniel From shonorio em terra.com.br Tue Mar 15 10:33:21 2005 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Tue Mar 15 10:33:31 2005 Subject: [Cascavel-pm] Job schedule imbutido no sistema perl Message-ID: Pessoal, Estou procurando um módulo/classe que permita eu incluir a função de 'job schedule' no meu sistema. Eu gostaria de algo, onde o sistema informaria para a classe executar uma subrotina em algumas condições de schedule, e aí eu iria tomar minha cerveja e a classe seria responsável por executar a rotina dentro dos horários estabelecido. A princípio eu só estou pensando em criar um monte de threads, agrupadas pelas condições de intervalo de repetição, chamando a subrotina e passar o controle do horário da execução para a própria rotina. Se alguém tiver alguma dica, estou precisando. Abraços, Solli -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050315/3ae6d188/attachment.htm From daniel em ruoso.com Tue Mar 15 10:37:51 2005 From: daniel em ruoso.com (Daniel Ruoso) Date: Tue Mar 15 10:38:10 2005 Subject: [Cascavel-pm] como apanhar errors de processos filhos iniciados por IPC::Open3 ? In-Reply-To: <20050315131535.77031.qmail@web31513.mail.mud.yahoo.com> References: <20050315131535.77031.qmail@web31513.mail.mud.yahoo.com> Message-ID: <1110911871.6573.16.camel@cedro> Em Ter, 2005-03-15 às 10:15, Alceu R. de Freitas Jr. escreveu: > Se eu estivesse usando 'system' eu faria isso com > retorno de código. Com 'open()' também dá pra fazer > isso. Pelo que entendi de SIGPIPE deveria acusar algum > erro, visto que IPC::Open3 abre pipes para o processo > filho... ou não? Não... quando o processo morre (o que *sempre* vai acontecer), o SIGPIPE vai ser lançado avisando que os pipes para o processo não são mais válidos. > > Primeiro de tudo você tem que estabelecer um > > parâmetro para detectar > > quando o programa falha, isso pode ser feito por uma > > mensagem de erro, > > pela ausência de uma mensagem de sucesso ou por um > > exit code específico. > Por código seria melhor, visto que não posso prever > com eficácia mensagens de erro. Perfeito. > > Ah sim, você realmente deve usar o eval para > > capturar o erro do open3, > > você deve verificar se o $@ contém o "open3:", e não > > o STDERR do > > processo que você chamou. > Ué... a mensagem de erro (quando aparece) está na > leitura do STDERR do processo filho... eu nem chequei > $@ para apanhar isso e nem usei eval. Então eu entendi errado, mas o que a documentação parece dizer é que o open3 vai fazer um die com /open3: .+failed.+/ como mensagem. Você tem certeza que ele lançou no processo filho? ou é pq vc tá jogando o STDERR do processo filho para o STDERR do teu processo? > > Agora eu tenho certeza... você fez uma graaaaaaaande > > confusão. ;) > Gostaria de clarear as idéias. perldoc perlipc não > ajuda muito. Alguma outra referência? perldoc POSIX > > > my $pid = > > > > > > open3(\*TOCHILD,\*FROMCHILD,\*FROMCHILD,"$config{scannerpath}/$config{virusscanner}",$config{viruscmd},"$config{downloads}/$filename"); > > > > > > unless ( defined($pid) ) { > > > > > > unlink "$config{downloads}/$filename" || > > > error('error',"$lang{rm_error}","$lang{rm_error}: > > > $!"); > > > error('error',"An error ocurred when tring to > > scan > > > the downloaded file for virus: > > > $lang{fileremoved}","Viruscan error: > > $!",'noheader'); > > > > Essa parte está ok. > Mas eu não usei eval. O eval é opcional. > > > > > > } else { > > > > > > print '
'; > > > > > > while() { > > > > > > if ($_ =~ /^open3\:.*failed/) { > > > > a verificação do open3 failed deve ser no $@ e você > > deve chamar o open3 > > dentro de um eval para poder capturar isso. > Como eu disse, esse trecho do código me retorna erro, > se, por exemplo, o parâmetro de comando do open3 > aponta para um programa que não existe, como > > open3($entrada,$erro,$saida,zabumba); > > Considerando que não tenha nada executável no PATH > chamado "zabumba", meu script retorna o erro iniciando > em "open3" exatamente no trecho apresentado acima. Então eu entendi errado mesmo... ;) > > Para capturar o exit code de um processo filho, você > > deve utilizar o > > waitpid e verificar o exit code na variável $?. > Seria isso? (não testei): > > waitpid $pid, 0; > > die "erro com processo filho" unless ($?); A princípio, sim. > Mais uma vez obrigado pela ajuda. q nada, daniel From daniel em ruoso.com Tue Mar 15 10:40:02 2005 From: daniel em ruoso.com (Daniel Ruoso) Date: Tue Mar 15 10:40:10 2005 Subject: [Cascavel-pm] Job schedule imbutido no sistema perl In-Reply-To: References: Message-ID: <1110912002.6573.18.camel@cedro> Em Ter, 2005-03-15 às 15:33, Solli Moreira Honorio escreveu: > Pessoal, > Estou procurando um módulo/classe que permita eu incluir a função de > 'job schedule' no meu sistema. Por que você não usa o cron? daniel From monsieur_champs em yahoo.com.br Tue Mar 15 10:42:57 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Tue Mar 15 10:43:32 2005 Subject: [Cascavel-pm] Job schedule imbutido no sistema perl In-Reply-To: <1110912002.6573.18.camel@cedro> References: <1110912002.6573.18.camel@cedro> Message-ID: <42372CB1.7080903@yahoo.com.br> Daniel Ruoso wrote: > Em Ter, 2005-03-15 às 15:33, Solli Moreira Honorio escreveu: > >>Pessoal, >>Estou procurando um módulo/classe que permita eu incluir a função de >>'job schedule' no meu sistema. > > > Por que você não usa o cron? > Essa eu respondo: o Solli é especialista em windows, e não existe uma implementação (nem meia-boca!) de Cron para windows... claro, não podemos levar em consideração o scheduler do windows, que tem limitações muito graves de horários e tarefas... O Solli certamente precisa de uma coisa mais simples e flexível. Espero que isso ajude. Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From daniel em ruoso.com Tue Mar 15 10:50:18 2005 From: daniel em ruoso.com (Daniel Ruoso) Date: Tue Mar 15 10:50:38 2005 Subject: [Cascavel-pm] Job schedule imbutido no sistema perl In-Reply-To: <42372CB1.7080903@yahoo.com.br> References: <1110912002.6573.18.camel@cedro> <42372CB1.7080903@yahoo.com.br> Message-ID: <1110912617.6572.23.camel@cedro> Em Ter, 2005-03-15 às 15:42, Luis Campos de Carvalho escreveu: > Daniel Ruoso wrote: > > Em Ter, 2005-03-15 às 15:33, Solli Moreira Honorio escreveu: > >>Pessoal, > >>Estou procurando um módulo/classe que permita eu incluir a função de > >>'job schedule' no meu sistema. > > Por que você não usa o cron? > Essa eu respondo: o Solli é especialista em windows, e não existe uma > implementação (nem meia-boca!) de Cron para windows... claro, não > podemos levar em consideração o scheduler do windows, que tem limitações > muito graves de horários e tarefas... > O Solli certamente precisa de uma coisa mais simples e flexível. > Espero que isso ajude. > Putamplexos! De qualquer forma, eu acredito que o cron pode ser compilado em cygwin, não custa nada tentar (ou melhor, custa menos que re-escrever o cron). daniel From fglock em pucrs.br Tue Mar 15 12:25:34 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Tue Mar 15 12:27:09 2005 Subject: [Cascavel-pm] Job schedule imbutido no sistema perl Message-ID: <200503152026.j2FKQtIw011072@rigel.pucrs.br> Solli falou: > > Estou procurando um módulo/classe que permita eu > incluir a função de 'job schedule' no meu sistema. Win32::TaskScheduler Discussão em andamento aqui: http://www.perlmonks.org/index.pl?node_id=439731 Download aqui: http://taskscheduler.sourceforge.net/ - Flavio S. Glock From marco.lima em e-via.com.br Tue Mar 15 17:16:50 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Tue Mar 15 17:17:03 2005 Subject: [Cascavel-pm] Oportunidade Message-ID: Salve Monges ! Os interessado na oportunidade abaixo, envie seu curriculum, em formato texto, no corpo da mensagem, com o nome da vaga no subject para estagio@cg.org.br. Área: Projetos Especiais Vaga: Estagiário Local: São Paulo - SP Formação: Cursando pelo menos terceiro ano de computação, engenharias ou afins Necessário: - Familiaridade com redes/serviços Internet - Conhecimento de sistemas Unix - Scripts Shell e Perl - Conhecimento em C - CGI's - Conhecimento em arquitetura de computadores - 20 horas semanais - Próximo a Berrini [ ]'s Marco Lima .O. J.A.P.H. ..O marco.lima@e-via.com.br OOO mago@rio.pm.org +55 19 96 56 06 46 Perl Monk Brasil Perl Monger Líder do Rio de Janeiro Perl Mongers http://www.perlmonk.org http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From marco.lima em e-via.com.br Wed Mar 16 02:59:59 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Mar 16 03:00:15 2005 Subject: [Cascavel-pm] YAPC::Brasil::2005 Message-ID: Salve Monges ! Têm algum membro que já esteja participando da organização do evento ou que gostaria de ajudar que não está inscrito na lista da coordenação ? Eu preciso que essas pessoas se cadastrem o mais rápido possível, estaremos enviando emails para delegar tarefas e notificando o status de cada tarefa. O membros que não desejarem participar não devem ficar preocupados, pois vocês vão poder acompanhar tudo de forma mais organizada e agregada pelo site do evento http://www.yapc.org/Brasil. Obrigado; Marco Lima .O. J. A. P. H. ..O marco.lima@e-via.com.br OOO mago@rio.pm.org +55 19 96 56 06 46 Perl Monk Brasil Perl Monger http://www.perlmonk.org http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From shonorio em terra.com.br Wed Mar 16 06:55:54 2005 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Wed Mar 16 06:56:05 2005 Subject: [Cascavel-pm] Job schedule imbutido no sistema perl Message-ID: Flavio, O Win32::TaskScheduler é exatamento o que estou procurando, pois eu quero ter o schedule dentro da minha aplicação. Por que isto ? Eu tenho uma rotina de monitoramento dos serviços do Windows no qual alguns serviços eu quero que seja monitorado a cada 5 segundos, enquantos outros serão a cada 5 minutos. Usuando estes schedule eu teria que criar umas 30 entradas de schedules em cada servidor. Estou procurando algo como o Schedule::Cron (http://search.cpan.org/~roland/Schedule-Cron-0.9/Cron.pm) ou o Crond (http://www.perlmonks.org/?node_id=168106). Por mais contra a minha política de 'delegar poder', neste caso eu quero que o meu programa controle os schedule. Vou dar uma olhada nos caras que eu indiquei acima e dou um retorno depois. Solli De:cascavel-pm-bounces@pm.org Para:cascavel-pm@pm.org Cópia: Data:Tue, 15 Mar 2005 20:25:34 GMT Assunto:Re: [Cascavel-pm] Job schedule imbutido no sistema perl > Solli falou: > > > > Estou procurando um módulo/classe que permita eu > > incluir a função de 'job schedule' no meu sistema. > > Win32::TaskScheduler > > Discussão em andamento aqui: > http://www.perlmonks.org/index.pl?node_id=439731 > > Download aqui: > http://taskscheduler.sourceforge.net/ > > - Flavio S. Glock > > -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050316/7dc72ecd/attachment.htm From shonorio em terra.com.br Wed Mar 16 08:04:16 2005 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Wed Mar 16 08:04:29 2005 Subject: [Cascavel-pm] Job schedule imbutido no sistema perl Message-ID: > O Win32::TaskScheduler é exatamento o que estou procurando, pois eu quero ter o schedule dentro da minha aplicação. > O Win32::TaskScheduler NÃO é exatamento o que estou procurando, pois eu quero ter o schedule dentro da minha aplicação. De:cascavel-pm-bounces@pm.org Para:"cascavel-pm" cascavel-pm@pm.org Cópia: Data:Wed, 16 Mar 2005 11:55:54 -0300 Assunto:Re: [Cascavel-pm] Job schedule imbutido no sistema perl > Flavio, > > O Win32::TaskScheduler é exatamento o que estou procurando, pois eu quero ter o schedule dentro da minha aplicação. > > Por que isto ? Eu tenho uma rotina de monitoramento dos serviços do Windows no qual alguns serviços eu quero que seja monitorado a cada 5 segundos, enquantos outros serão a cada 5 minutos. Usuando estes schedule eu teria que criar umas 30 entradas de schedules em cada servidor. > > Estou procurando algo como o Schedule::Cron (http://search.cpan.org/~roland/Schedule-Cron-0.9/Cron.pm) ou o Crond (http://www.perlmonks.org/?node_id=168106). > > Por mais contra a minha política de 'delegar poder', neste caso eu quero que o meu programa controle os schedule. > > Vou dar uma olhada nos caras que eu indiquei acima e dou um retorno depois. > > Solli > De:cascavel-pm-bounces@pm.org > Para:cascavel-pm@pm.org > Cópia: > Data:Tue, 15 Mar 2005 20:25:34 GMT > Assunto:Re: [Cascavel-pm] Job schedule imbutido no sistema perl > > Solli falou: > > > > > > Estou procurando um módulo/classe que permita eu > > > incluir a função de 'job schedule' no meu sistema. > > > > Win32::TaskScheduler > > > > Discussão em andamento aqui: > > http://www.perlmonks.org/index.pl?node_id=439731 > > > > Download aqui: > > http://taskscheduler.sourceforge.net/ > > > > - Flavio S. Glock > > > > -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050316/99083f92/attachment-0001.htm From shonorio em terra.com.br Wed Mar 16 13:12:33 2005 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Wed Mar 16 13:12:45 2005 Subject: [Cascavel-pm] (sem assunto) Message-ID: Pessoal, Achei um negócio interessante no Perlmonks, 'How to install Win32::OLE under Linux?' http://www.perlmonks.com/?node_id=430194. Solli -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050316/8254b426/attachment.htm From nferraz em gnubis.com.br Thu Mar 17 17:14:49 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Thu Mar 17 17:12:58 2005 Subject: [Cascavel-pm] OFF: date +%s turning 1111111111 Message-ID: <423A2B89.90609@gnubis.com.br> Em menos de 50 minutos o "unix time" atingirá o valor 1111111111. Para acompanhar este evento memorável, digite o comando "date +%s" em um terminal: ~$ date +%s 1111108258 (Faltam 2853 segundos!!!) :) From marco.lima em e-via.com.br Thu Mar 17 19:08:33 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Thu Mar 17 19:08:43 2005 Subject: [Cascavel-pm] OFF: date +%s turning 1111111111 Message-ID: perl -e "while (time < 1111111111) { } print time; " *<;-) > Em menos de 50 minutos o "unix time" atingirá o valor 1111111111. > > Para acompanhar este evento memorável, digite o comando "date +%s" em um > terminal: > > ~$ date +%s > 1111108258 > > (Faltam 2853 segundos!!!) > > :) > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > Marco Lima J. A. P. H. marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Perl Monk Brasil Perl Monger http://www.perlmonk.org http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From jamorreu em gmail.com Fri Mar 18 14:51:04 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Fri Mar 18 14:51:12 2005 Subject: [Cascavel-pm] manter "distancia" de 10 Message-ID: <8ff2963a050318145122f37ba4@mail.gmail.com> Olá pessoal. To quebrando um pouco a cabeça aqui e como não estou conseguindo, pesso a ajuda de vocês: to fazendo a área de paginação de um script aqui, e preciso encontrar uma lógica para fazer o seguinte "mecanismo" funcionar: quando a página for igual a 1, mostra: $inicio = 0; $fim = 10; quando a página for igual a 2, mostra: $inicio = 11; $fim = 21; Ou seja, com intervalo de 10. Acho que estou estressado... parece simples e eu não to conseguindo achar a lógica :P algum help?? -- Um abraço, João Gabriel / JGCL From nferraz em gnubis.com.br Fri Mar 18 15:05:46 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Fri Mar 18 15:08:34 2005 Subject: [Cascavel-pm] manter In-Reply-To: <8ff2963a050318145122f37ba4@mail.gmail.com> References: <8ff2963a050318145122f37ba4@mail.gmail.com> Message-ID: <20050318230546.27782.qmail@hm101.locaweb.com.br> > to fazendo a área de paginação de um script aqui, e preciso encontrar > uma lógica para fazer o seguinte "mecanismo" funcionar: > > quando a página for igual a 1, mostra: > $inicio = 0; > $fim = 10; > > quando a página for igual a 2, mostra: > $inicio = 11; > $fim = 21; A paginação que você está tentando fazer está muito estranha. Tente uma dessas alternativas: $inicio = ($pagina - 1) * 10 +1; # 1, 11, 21, ... $fim = $pagina * 10; # 10, 20, 30, ... $inicio = ($pagina - 1) * 10; # 0, 10, 20, ... $fim = $pagina * 10 - 1; # 9, 19, 29, ... Ou, o que seria ainda melhor... STFC!!! []s Nelson From pmpoa em galvao.eti.br Fri Mar 18 15:14:07 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Fri Mar 18 15:13:40 2005 Subject: [Cascavel-pm] manter "distancia" de 10 In-Reply-To: <8ff2963a050318145122f37ba4@mail.gmail.com> References: <8ff2963a050318145122f37ba4@mail.gmail.com> Message-ID: <423B60BF.8050507@galvao.eti.br> Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050318/4b3238d7/attachment.htm From monsieur_champs em yahoo.com.br Fri Mar 18 15:31:31 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Fri Mar 18 15:32:08 2005 Subject: [Cascavel-pm] manter "distancia" de 10 In-Reply-To: <8ff2963a050318145122f37ba4@mail.gmail.com> References: <8ff2963a050318145122f37ba4@mail.gmail.com> Message-ID: <423B64D3.2000905@yahoo.com.br> João Gabriel wrote: > Olá pessoal. > > To quebrando um pouco a cabeça aqui e como não estou conseguindo, > pesso a ajuda de vocês: > > to fazendo a área de paginação de um script aqui, e preciso encontrar > uma lógica para fazer o seguinte "mecanismo" funcionar: > > quando a página for igual a 1, mostra: > $inicio = 0; > $fim = 10; > > quando a página for igual a 2, mostra: > $inicio = 11; > $fim = 21; > > Ou seja, com intervalo de 10. > > Acho que estou estressado... parece simples e eu não to conseguindo > achar a lógica :P > > algum help?? > Não consigo ver outra lógica que não __PERL__ sub calc_start_end{ my $page = shift; return undef unless $page > 1; my $inicio = $page -1; my $fim = $page +9; return wantarray? ( $inicio, $fim ) : [ $inicio, $fim ]; } __END__ Espero que isso resolva seu problema... :-) Se não for isso que você está procurando, mostre para a gente como deveria ficar $inicio e $fim para as páginas 3..10. Putamplexos. -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From jamorreu em gmail.com Fri Mar 18 16:27:02 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Fri Mar 18 16:27:11 2005 Subject: [Cascavel-pm] manter "distancia" de 10 Message-ID: <8ff2963a050318162715229f58@mail.gmail.com> Nelson Ferraz... > A paginação que você está tentando fazer está muito estranha. estava muito estranha... eu disse que de 0 a 10 tem 10 iténs (tem 11 na realidade). Nelson, sua solução deu certinho ;-) realmente eu devo estar estressado ou muito avoado, pois fiquei a tarde toda fazendo de 0 a 10, de 11 a 21... :P Valeu pelo help e desculpe pela minha mancada. -- Um abraço, João Gabriel / JGCL From fglock em pucrs.br Fri Mar 18 18:26:26 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Fri Mar 18 18:28:01 2005 Subject: [Cascavel-pm] manter "distancia" de 10 Message-ID: <200503190227.j2J2RmIw047784@rigel.pucrs.br> Tem vários módulos no CPAN que fazem isso. É mais fácil lhe mandar um link genérico: http://search.cpan.org/search?query=paginate - Flavio From donatoaz em gmail.com Sat Mar 19 12:33:49 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Sat Mar 19 12:33:58 2005 Subject: [Cascavel-pm] ERRO CPAN Message-ID: <1746e3e305031912335e076c36@mail.gmail.com> pessoal, toda vez que eu procuro algo no CPAN o meu sistema inteiro fica lento. quando eu procuro algo, tipo: > i GD o CPAN executa algumas linhas de codigo e depois de >CPAN: HTTP::Date loaded OK ele meio que trava e fica uns 20 minutos parado, depois mais 20 min em >Going to read \.CPAN\sources\modules\03modlist.data.gz e etc.. e no final das contas eu simplesmente mato a aplicaçao e fico sem o modulo.... alguem tem ideia de algo que eu possa fazer? -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* From monsieur_champs em yahoo.com.br Sun Mar 20 05:01:27 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Sun Mar 20 05:02:08 2005 Subject: [Cascavel-pm] ERRO CPAN In-Reply-To: <1746e3e305031912335e076c36@mail.gmail.com> References: <1746e3e305031912335e076c36@mail.gmail.com> Message-ID: <423D7427.7050600@yahoo.com.br> Donato Azevedo wrote: > pessoal, > toda vez que eu procuro algo no CPAN o meu sistema inteiro fica lento. > quando eu procuro algo, tipo: > >>i GD > > o CPAN executa algumas linhas de codigo e depois de > >>CPAN: HTTP::Date loaded OK > > ele meio que trava e fica uns 20 minutos parado, depois mais 20 min em > >>Going to read \.CPAN\sources\modules\03modlist.data.gz > > e etc.. e no final das contas eu simplesmente mato a aplicaçao e fico > sem o modulo.... > > alguem tem ideia de algo que eu possa fazer? Quer dizer que você mata a aplicação, não que ela morre com erro... Qual a largura da banda da sua conexão com a Internet? Tenho quase certeza de que isso é um problema de comunicação. O CPAN faz downloads bem grandinhos sempre que você pede para procurar módulos. Outra alternativa seria modificar suas fontes de pacotes: pode ser que o problema de comunicação seja o servidor de onde você está tentando descer os pacotes. Se você mandar mais informações, posso tentar reproduzir o problema. Preciso das versões do SO, do Perl e do CPAN.pm que você está usando, e de um dump da sua configuração do CPAN.pm. Espero que isso ajude. Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From donatoaz em gmail.com Sun Mar 20 11:05:15 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Sun Mar 20 11:05:23 2005 Subject: [Cascavel-pm] ERRO CPAN In-Reply-To: <423D7427.7050600@yahoo.com.br> References: <1746e3e305031912335e076c36@mail.gmail.com> <423D7427.7050600@yahoo.com.br> Message-ID: <1746e3e3050320110574ab4f93@mail.gmail.com> acho que resolvi o problema sozinho: fiz duas coisas: >reload cpan e removi o primeiro source da lista On Sun, 20 Mar 2005 10:01:27 -0300, Luis Campos de Carvalho wrote: > Donato Azevedo wrote: > > pessoal, > > toda vez que eu procuro algo no CPAN o meu sistema inteiro fica lento. > > quando eu procuro algo, tipo: > > > >>i GD > > > > o CPAN executa algumas linhas de codigo e depois de > > > >>CPAN: HTTP::Date loaded OK > > > > ele meio que trava e fica uns 20 minutos parado, depois mais 20 min em > > > >>Going to read \.CPAN\sources\modules\03modlist.data.gz > > > > e etc.. e no final das contas eu simplesmente mato a aplicaçao e fico > > sem o modulo.... > > > > alguem tem ideia de algo que eu possa fazer? > > Quer dizer que você mata a aplicação, não que ela morre com erro... > Qual a largura da banda da sua conexão com a Internet? > Tenho quase certeza de que isso é um problema de comunicação. O CPAN > faz downloads bem grandinhos sempre que você pede para procurar módulos. > > Outra alternativa seria modificar suas fontes de pacotes: pode ser > que o problema de comunicação seja o servidor de onde você está tentando > descer os pacotes. > > Se você mandar mais informações, posso tentar reproduzir o problema. > Preciso das versões do SO, do Perl e do CPAN.pm que você está usando, e > de um dump da sua configuração do CPAN.pm. > > Espero que isso ajude. > Putamplexos! > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* From fglock em pucrs.br Sun Mar 20 12:54:34 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Sun Mar 20 12:56:16 2005 Subject: [Cascavel-pm] ERRO CPAN Message-ID: <200503202055.j2KKtwIw092733@rigel.pucrs.br> Experimente editar o arquivo CPAN/Config.pm, e coloque isto na seção 'urllist': ftp://cpan.pop-mg.com.br/pub/CPAN/ - Flavio S, Glock From jamorreu em gmail.com Mon Mar 21 12:17:23 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Mon Mar 21 12:17:35 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?Concurso_de_programa=E7=E3o?= Message-ID: <8ff2963a05032112175d388339@mail.gmail.com> Olá mongers! Salve! Bem, to organizando um pequeno concurso de programação Perl do CGiClube.net em parceria com o fórum de CGi/Perl do WMOnline.com.br, com o intuito de despertar o interesse pelo Perl nos usuários iniciantes, ou mesmo aqueles que não tem um nivel de aprendizado razoavel sobre a linguagem. Como funciona o esquema? To arrumando alguns prêmios/brindes para distribuir entre os ganhadores. Logo, quem quiser faturar uma camiseta ou uma conta de hospedagem (ou outro brinde que eu conseguir distribuir) vai ter que pesquisar para fazer o que o concurso pede. Logo, diretamente, ou indiretamente, a pessoa vai entrar em contato com a programação Perl e ver seus beneficios. Ai é que tá o X da questão ;-) Detalhes do concurso em... http://cgiclube.cidadeinternet.com.br/forum/index.php?s=04831e634c7d647f94ad8f5a4b3b79f1&act=SF&f=9 Alguma crítica, sugestão? -- Um abraço, João Gabriel / JGCL From monsieur_champs em yahoo.com.br Mon Mar 21 15:06:05 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Mon Mar 21 15:06:49 2005 Subject: [Cascavel-pm] Concurso de =?ISO-8859-1?Q?programa=E7=E3o?= In-Reply-To: <8ff2963a05032112175d388339@mail.gmail.com> References: <8ff2963a05032112175d388339@mail.gmail.com> Message-ID: <423F535D.6030304@yahoo.com.br> João Gabriel wrote: > Olá mongers! Salve! > > Bem, to organizando um pequeno concurso de programação Perl do > CGiClube.net em parceria com o fórum de CGi/Perl do WMOnline.com.br, > com o intuito de despertar o interesse pelo Perl nos usuários > iniciantes, ou mesmo aqueles que não tem um nivel de aprendizado > razoavel sobre a linguagem. > > Como funciona o esquema? > To arrumando alguns prêmios/brindes para distribuir entre os > ganhadores. Logo, quem quiser faturar uma camiseta ou uma conta de > hospedagem (ou outro brinde que eu conseguir distribuir) vai ter que > pesquisar para fazer o que o concurso pede. > Logo, diretamente, ou indiretamente, a pessoa vai entrar em contato > com a programação Perl e ver seus beneficios. Ai é que tá o X da > questão ;-) > > Detalhes do concurso em... > http://cgiclube.cidadeinternet.com.br/forum/index.php?s=04831e634c7d647f94ad8f5a4b3b79f1&act=SF&f=9 > > Alguma crítica, sugestão? > Eu sugiro publicar o regulamento. Eu somente pensaria em participar de concursos com regulamento e critérios de julgamento bem-definidos... :-) No aguardo, putamplexos. -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From glasswalk3r em yahoo.com.br Tue Mar 22 04:47:20 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Tue Mar 22 04:47:30 2005 Subject: [Cascavel-pm] (off-topic) - abaixo assinado para projeto "PC conectado" Message-ID: <20050322124721.20131.qmail@web31509.mail.mud.yahoo.com> Olá monges, Para que tem acompanhado notícias sobre o projeto, segue uma petição online: http://www.petitiononline.com/pcconect/petition.html []'s Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 Yahoo! Mail - Com 250MB de espaço. Abra sua conta! http://mail.yahoo.com.br/ From jamorreu em gmail.com Tue Mar 22 09:49:48 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Tue Mar 22 09:49:57 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?Concurso_de_programa=E7=E3o?= Message-ID: <8ff2963a05032209491c240575@mail.gmail.com> Luis Campos de Carvalho... > Eu sugiro publicar o regulamento. > Eu somente pensaria em participar de concursos com regulamento e > critérios de julgamento bem-definidos... :-) Acho que você nem clicou no link que eu passei... :-P Nele, demonstra que eu ainda estou organizando... To arrumando os prêmios e parcerias (para reunir um número consideravel de participantes), depois disso vou as regras e por fim o concurso. -- Um abraço, João Gabriel / JGCL From glasswalk3r em yahoo.com.br Wed Mar 23 07:08:48 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Wed Mar 23 07:09:06 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?edi=E7=E3o_de_arquivos_com_Perl?= Message-ID: <20050323150848.88408.qmail@web31501.mail.mud.yahoo.com> Olá monges, Estou com uma dúvida sobre quais as vantagens/desvantages de editar uma linha específica num arquivo texto. Digamos que eu queira alterar uma linha num arquivo qualquer que tenha a palavra "senha". Eu poderia: 1 - Leio o arquivo todo com @conteudo = . Depois uso expressões regulares para alterar o conteudo do array, finalmente imprimindo esse conteúdo no arquivo, sobreescrevendo tudo. 2 - usar while() e usar expressão regular e funcões como tell, syswrite para editar a linha específica que quero alterar e depois fechar o arquivo. Alguém já usou o método 2? []'s Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 Yahoo! Mail - Com 250MB de espaço. Abra sua conta! http://mail.yahoo.com.br/ From marco.lima em e-via.com.br Wed Mar 23 08:36:05 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Mar 23 08:36:28 2005 Subject: [Cascavel-pm] edição de arquivos com Perl Message-ID: Salve Alceu ! Existem diversas formas de fazer isso, e se é uma dos motivos que prefiro Perl do que C ! Mas pela minha minha experência em ETL eu sugiro que vc gere um arquivo temporário ~ para garantir a alteração com sucesso, e caso necessário realizar um "rollback" no processo. use File::Temp; # Vc têm duas situações 1 - antigo para temp e 2 - novo para temp. O ideal é que vc lock o arquivo para que ninguém consiga abrir durante o processamento. use Fcntl qw(:flock); # ;-P Não é fglock !!! Para realizar o "update" das informações vc poderá utilizar sysread, sysseek ou seek, syswrite, tell ... são doações do C. Mas se você o arquivo em questão não contêm a lista de DNA de todos os animais da terra ... nesse caso vc não teria alternativa pq o @ não serviria ... eu sugiro readline e print, fica muito mais fácil e a "performance" é muito boa. [ ]'s > Olá monges, > > Estou com uma dúvida sobre quais as > vantagens/desvantages de editar uma linha específica > num arquivo texto. Digamos que eu queira alterar uma > linha num arquivo qualquer que tenha a palavra > "senha". > > Eu poderia: > > 1 - Leio o arquivo todo com @conteudo = . > Depois uso expressões regulares para alterar o > conteudo do array, finalmente imprimindo esse conteúdo > no arquivo, sobreescrevendo tudo. > > 2 - usar while() e usar expressão regular e > funcões como tell, syswrite para editar a linha > específica que quero alterar e depois fechar o > arquivo. > > Alguém já usou o método 2? > > []'s > > > Alceu Rodrigues de Freitas Junior > -------------------------------------- > glasswalk3r@yahoo.com.br > http://www.imortais.cjb.net > ----------------------------------------------------------------------- > A well-used door needs no oil on its hinges. > A swift-flowing stream does not grow stagnant. > Neither sound nor thoughts can travel through a vacuum. > Software rots if not used. > These are great mysteries -- The Tao Of Programming, 5.1 > > > > > > Yahoo! Mail - Com 250MB de espaço. Abra sua conta! http://mail.yahoo.com.br/ > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > Marco Lima J. A. P. H. marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Perl Monk Brasil Perl Monger http://www.perlmonk.org http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From fglock em pucrs.br Wed Mar 23 08:54:34 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Wed Mar 23 08:56:15 2005 Subject: [Cascavel-pm] edição de arquivos com Perl Message-ID: <200503231656.j2NGu1Iw074405@rigel.pucrs.br> perl -pi -e 's/senha/xxx/g' arquivo perl -pi -e 's/senha/xxx/g' * - Flavio S. Glock > Olá monges, > > Estou com uma dúvida sobre quais as > vantagens/desvantages de editar uma linha específica > num arquivo texto. Digamos que eu queira alterar uma > linha num arquivo qualquer que tenha a palavra > "senha". > > Eu poderia: > > 1 - Leio o arquivo todo com @conteudo = . > Depois uso expressões regulares para alterar o > conteudo do array, finalmente imprimindo esse conteúdo > no arquivo, sobreescrevendo tudo. > > 2 - usar while() e usar expressão regular e > funcões como tell, syswrite para editar a linha > específica que quero alterar e depois fechar o > arquivo. > > Alguém já usou o método 2? > > []'s > > > Alceu Rodrigues de Freitas Junior > -------------------------------------- > glasswalk3r@yahoo.com.br > http://www.imortais.cjb.net > ----------------------------------------------------------------------- > A well-used door needs no oil on its hinges. > A swift-flowing stream does not grow stagnant. > Neither sound nor thoughts can travel through a vacuum. > Software rots if not used. > These are great mysteries -- The Tao Of Programming, 5.1 > > > > > > Yahoo! Mail - Com 250MB de espaço. Abra sua conta! http://mail.yahoo.com.br/ > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > From marco.lima em e-via.com.br Wed Mar 23 09:05:47 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Mar 23 09:06:05 2005 Subject: [Cascavel-pm] edição de arquivos com Perl Message-ID: Pensamentos filosóficos de um Santo !! simples, comunitário, global e rápido !!! > perl -pi -e 's/senha/xxx/g' arquivo > > perl -pi -e 's/senha/xxx/g' * > > - Flavio S. Glock > Marco Lima J. A. P. H. marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Perl Monk Brasil Perl Monger http://www.perlmonk.org http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From jamorreu em gmail.com Wed Mar 23 12:15:43 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Wed Mar 23 12:15:53 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?edi=E7=E3o_de_arquivos_com_Perl?= Message-ID: <8ff2963a05032312153801e03b@mail.gmail.com> Marco Lima... > Pensamentos filosóficos de um Santo !! simples, comunitário, global e > rápido !!! > >> perl -pi -e 's/senha/xxx/g' arquivo >> >> perl -pi -e 's/senha/xxx/g' * >> >> - Flavio S. Glock Rápido? Mais que isso! Muito rápido. Realmente o Flavio me surpreendeu com essa, nem sabia que dava pra modificar arquivo de forma simples e descomplicada via linha de comando. Muito boa essa! -- Um abraço, João Gabriel / JGCL From glasswalk3r em yahoo.com.br Wed Mar 23 13:18:02 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Wed Mar 23 13:18:12 2005 Subject: =?iso-8859-1?q?Re:=20[Cascavel-pm]=20edi=E7=E3o=20de=20arquivos=20com=20P?= =?iso-8859-1?q?erl?= In-Reply-To: 6667 Message-ID: <20050323211802.9665.qmail@web31506.mail.mud.yahoo.com> Olá Marco, Obrigado pela resposta. Só fiquei um pouco confuso com a afirmação abaixo: --- Marco Lima wrote: > Mas se você o arquivo em questão não contêm a lista > de DNA de todos os > animais da terra ... nesse caso vc não teria > alternativa pq o @ não > serviria ... eu sugiro readline e print, fica muito > mais fácil e a > "performance" é muito boa. Pelo que entendi, jogar um arquivo muito grande em um array seria ruim em termos de consumo de memória, correto? Acredito que o arquivo não passe de 1MB, então jogar tudo num array depois sobrescrever pode ser uma boa. Só mais uma perguntinha: truncate tem algum problema quando executado em ambiente UNIX? []'s Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ From glasswalk3r em yahoo.com.br Wed Mar 23 13:32:16 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Wed Mar 23 13:32:31 2005 Subject: =?iso-8859-1?q?Re:=20[Cascavel-pm]=20edi=E7=E3o=20de=20arquivos=20com=20P?= =?iso-8859-1?q?erl?= In-Reply-To: 6667 Message-ID: <20050323213216.8893.qmail@web31515.mail.mud.yahoo.com> Rápido, mas preciso disso num script. :-D []'s Alceu --- fglock@pucrs.br wrote: > > perl -pi -e 's/senha/xxx/g' arquivo > > perl -pi -e 's/senha/xxx/g' * > > > - Flavio S. Glock > > > > Olá monges, > > > > Estou com uma dúvida sobre quais as > > vantagens/desvantages de editar uma linha > específica > > num arquivo texto. Digamos que eu queira alterar > uma > > linha num arquivo qualquer que tenha a palavra > > "senha". > > > > Eu poderia: > > > > 1 - Leio o arquivo todo com @conteudo = . > > Depois uso expressões regulares para alterar o > > conteudo do array, finalmente imprimindo esse > conteúdo > > no arquivo, sobreescrevendo tudo. > > > > 2 - usar while() e usar expressão regular > e > > funcões como tell, syswrite para editar a linha > > específica que quero alterar e depois fechar o > > arquivo. > > > > Alguém já usou o método 2? > > > > []'s > > > > > > Alceu Rodrigues de Freitas Junior > > -------------------------------------- > > glasswalk3r@yahoo.com.br > > http://www.imortais.cjb.net > > > ----------------------------------------------------------------------- > > A well-used door needs no oil on its hinges. > > A swift-flowing stream does not grow stagnant. > > Neither sound nor thoughts can travel through a > vacuum. > > Software rots if not used. > > These are great mysteries -- The Tao Of > Programming, 5.1 > > > > > > > > > > > > Yahoo! Mail - Com 250MB de espaço. Abra sua conta! > http://mail.yahoo.com.br/ > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm@pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ From fglock em pucrs.br Wed Mar 23 13:45:43 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Wed Mar 23 13:47:21 2005 Subject: [Cascavel-pm] edição de arquivos com P Message-ID: <200503232147.j2NLl9Iw039957@rigel.pucrs.br> > Rápido, mas preciso disso num script. :-D use Tie::File; tie @array, 'Tie::File', $filename or die; s/senha/xxx/g for @array; untie @array; - Flavio S. Glock From marco.lima em e-via.com.br Wed Mar 23 14:05:44 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Mar 23 14:06:05 2005 Subject: [Cascavel-pm] edição de arquivos com Perl Message-ID: Salve Alceu ! A questão é a grantia da integridade do arquivo ... quanto > + vc tem que pensar no SOURCE -> TARGET ... e o processo de "RollBack". Vc poderia ler e gravar ao mesmo tempo ... se o arquivo é sequêncial isso seria uma sugestão ... com a idéia do TEMP podemos pensar em uma validação de HEAD e TAIL ... assim poderemos garantir de alguma forma a integridade ... outra solução seria o sysread() e pegar o todal de byte para verificar == ... mas é bastante eficiente sendo feito os teste juntos ... assim garantimos o cabeçalho, rodapé e o tamanho do arquivo ... lembre que vc têm que levar em consideração a alteração realizada. Quanto ao "truncate" ... estou imaginando que isso seja o flock() ... bem ela é uma função do importada do UNIX. A solução do array pode servir para arquivos de configuração onde vc tenha um "default" e em caso último caso vc recupera o "default" ... perceba que estamos falando de outro arquivo ... mas esse pode ser criado por uma processo interno do seu sistema ... lembre que quando falamos de arquivos de .conf em sua maioria não podem deixar de existir ... se não vão corromper a aplicação. [ ]'s Ps. forech $monge (qw/Alceu Luis Solli MDA Nelson/) { system("/usr/sbin/sendmail eml050@email.mot.com " . "< > Olá Marco, > > Obrigado pela resposta. Só fiquei um pouco confuso com > a afirmação abaixo: > > --- Marco Lima wrote: > > Mas se você o arquivo em questão não contêm a lista > > de DNA de todos os > > animais da terra ... nesse caso vc não teria > > alternativa pq o @ não > > serviria ... eu sugiro readline e print, fica muito > > mais fácil e a > > "performance" é muito boa. > > Pelo que entendi, jogar um arquivo muito grande em um > array seria ruim em termos de consumo de memória, > correto? > > Acredito que o arquivo não passe de 1MB, então jogar > tudo num array depois sobrescrever pode ser uma boa. > > Só mais uma perguntinha: truncate tem algum problema > quando executado em ambiente UNIX? > > []'s > > > Alceu Rodrigues de Freitas Junior > -------------------------------------- > glasswalk3r@yahoo.com.br > http://www.imortais.cjb.net > ----------------------------------------------------------------------- > A well-used door needs no oil on its hinges. > A swift-flowing stream does not grow stagnant. > Neither sound nor thoughts can travel through a vacuum. > Software rots if not used. > These are great mysteries -- The Tao Of Programming, 5.1 > > __________________________________________________ > Converse com seus amigos em tempo real com o Yahoo! Messenger > http://br.download.yahoo.com/messenger/ > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > Marco Lima J. A. P. H. marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Perl Monk Brasil Perl Monger http://www.perlmonk.org http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From marco.lima em e-via.com.br Wed Mar 23 14:22:15 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Mar 23 14:22:37 2005 Subject: [Cascavel-pm] edição de arquivos com P Message-ID: Se é para apelar !! #!/usr/bin/perl -w use strict; use Tie::File::AsHash; die "Usage: $0 user password" unless @ARGV == 2; my ($user, $newpass) = @ARGV; tie my %users, 'Tie::File::AsHash', '/pwd/users.txt', split => ':' or die "Problem tying %hash: $!"; unless (exists $users{$user}) { print "User '$user' not found in file. Add as a new user? (y/n)\n"; chomp(my $y_or_n = ); set_pw($user, $newpass) if $y_or_n =~ /^[yY]/; } else { set_pw($user, $newpass); print "Done.\n"; } sub set_pw { $users{$_[0]} = crypt($_[1], "AA") } *<;-{} [ ]'ção Marco Lima J. A. P. H. marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Perl Monk Brasil Perl Monger http://www.perlmonk.org http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From marco.lima em e-via.com.br Wed Mar 23 19:46:45 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Mar 23 19:46:59 2005 Subject: [Cascavel-pm] Site da Sociedade Perl do Brasil Message-ID: Salve Monges ! http://www.perl.org.br Está no ar o site da Sociedade Perl do Brasil, foi utilizado um sistema de gerenciamento de Blogs para facilitar a publicação das informações. No site você poderá acompanhar o desenvolvimento da Perl no Brasil e seus projetos, além de encontrar informações sobre eventos, livros, códigos, sites, artigos e muito mais. Aproveitando a notícia, gostaria de também informar que a programação do Workshop Rio.PM e São Paulo.PM de Programação Perl da Praia Grande, já está disponível nos sites dos grupos. [ ]'ção Marco Lima J. A. P. H. marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Perl Monk Brasil Perl Monger http://www.perlmonk.org http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From glasswalk3r em yahoo.com.br Thu Mar 24 04:55:29 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Thu Mar 24 04:55:51 2005 Subject: =?iso-8859-1?q?Re:=20[Cascavel-pm]=20edi=E7=E3o=20de=20arquivos=20com=20P?= =?iso-8859-1?q?erl?= In-Reply-To: 6667 Message-ID: <20050324125530.32858.qmail@web31507.mail.mud.yahoo.com> Olá Marcos, --- Marco Lima wrote: > Salve Alceu ! > > A questão é a grantia da integridade do arquivo ... > quanto > + vc tem > que pensar no SOURCE -> TARGET ... e o processo de > "RollBack". Concordo... o "rollback" a que você se refere se limita a apagar o arquivo alterado e restaurar o nome do arquivo temporário, certo? Ou você está pensando em fazer isso com registros? > Vc poderia ler e gravar ao mesmo tempo ... se o > arquivo é sequêncial > isso seria uma sugestão ... com a idéia do TEMP > podemos pensar em uma > validação de HEAD e TAIL ... assim poderemos > garantir de alguma forma a > integridade ... outra solução seria o sysread() e > pegar o todal de byte > para verificar == ... mas é bastante eficiente sendo > feito os teste > juntos ... assim garantimos o cabeçalho, rodapé e o > tamanho do arquivo > ... lembre que vc têm que levar em consideração a > alteração realizada. Eca! Acho que não mexo com arquivos tão grandes assim! As verificações que vi em header e trailler normalmente são apenas contagens dos registros, e verificar se elas batem. > Quanto ao "truncate" ... estou imaginando que isso > seja o flock() ... > bem ela é uma função do importada do UNIX. Não não... truncate como truncate para Oracle... você apaga tudo o que tem no arquivo. A página de documentação diz que ele pode não funcionar no seu sistema operacional, só não diz em quais não funciona. :-) > A solução do array pode servir para arquivos de > configuração onde vc > tenha um "default" e em caso último caso vc recupera > o "default" ... > perceba que estamos falando de outro arquivo ... mas > esse pode ser > criado por uma processo interno do seu sistema ... > lembre que quando > falamos de arquivos de .conf em sua maioria não > podem deixar de existir > ... se não vão corromper a aplicação. O Tie::File trabalha justamente com um array... não olhei como o módulo faz isso, mas o autor diz que os dados do arquivo não são carregados inteiramente em memória, como estávamos discutindo antes. Para arquivos de configuração eu realmente apelo para o @array = . []'s Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ From glasswalk3r em yahoo.com.br Thu Mar 24 04:58:30 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Thu Mar 24 04:58:38 2005 Subject: =?iso-8859-1?q?Re:=20[Cascavel-pm]=20edi=E7=E3o=20de=20arquivos=20com=20P?= In-Reply-To: 6667 Message-ID: <20050324125831.14669.qmail@web31501.mail.mud.yahoo.com> --- Marco Lima wrote: > > Se é para apelar !! > > > #!/usr/bin/perl -w > use strict; > use Tie::File::AsHash; É, você apelou bastante aqui... apesar que talvez, para meu caso específico, não exista muita vantagem em jogar isso para um Hash. Até aonde eu entendi, ele copia o conteúdo do array para um hash... seria útil se eu quisesse fazer diversas operações dentro do arquivo, mas na verdade farei uma só. Como ele provavelmente vai ter que procurar apenas um registro no arquivo todo, acho que seria mais vantagem já executar a operação que preciso ao invés de copiar todas as entradas para o hash e depois fazer a alteração usando $hash{entrada} =~ s/agua/cerveja/g; Estou correto? []'s Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ From monsieur_champs em yahoo.com.br Thu Mar 24 05:23:18 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Thu Mar 24 05:23:32 2005 Subject: [Cascavel-pm] =?ISO-8859-1?Q?edi=E7=E3o_de_arquivos_co?= =?ISO-8859-1?Q?m_P?= In-Reply-To: <20050324125831.14669.qmail@web31501.mail.mud.yahoo.com> References: <20050324125831.14669.qmail@web31501.mail.mud.yahoo.com> Message-ID: <4242BF46.5080704@yahoo.com.br> Alceu R. de Freitas Jr. wrote: > --- Marco Lima wrote: > >>Se é para apelar !! >> >> >> #!/usr/bin/perl -w >> use strict; >> use Tie::File::AsHash; > > > É, você apelou bastante aqui... apesar que talvez, > para meu caso específico, não exista muita vantagem em > jogar isso para um Hash. Até aonde eu entendi, ele > copia o conteúdo do array para um hash... seria útil > se eu quisesse fazer diversas operações dentro do > arquivo, mas na verdade farei uma só. Como ele > provavelmente vai ter que procurar apenas um registro > no arquivo todo, acho que seria mais vantagem já > executar a operação que preciso ao invés de copiar > todas as entradas para o hash e depois fazer a > alteração usando > > $hash{entrada} =~ s/agua/cerveja/g; > > Estou correto? Quase: se você tiver entradas repetidas, elas serão sobrescritas no hash table. Isso quer dizer: muito cuidado ao usar este mecanismo. Quanto a truncar o arquivo: esquece, isso não precisa ser tão complicado assim. O *nix garante sicronia de escrita e gravação: você pode mover o arquivo temporário sobre o novo arquivo, sem risco de se ferrar. Quanto a ler para a memória: cuidado! Eu recomendo que você não faça isso, nunca, mesmo que o arquivo seja pequeno. Apenas como boa prática de programação. Eu, no seu lugar, usaria o File::Temp e o Tie::File::Array. Putamplexos, boa sorte e manda a implementação final para a gente ver, se você puder... -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From monsieur_champs em yahoo.com.br Thu Mar 24 07:48:57 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Thu Mar 24 07:49:10 2005 Subject: [Cascavel-pm] O Website do =?iso-8859-1?q?S=E3o_Paulo_Perl_Mongers_est=E1_de_ca?= =?iso-8859-1?q?ra_nova!?= Message-ID: <4242E169.1010007@yahoo.com.br> Prezados, o SP-PM está de cara nova. Eu notei alguns problemas com a obediência a especificação do CSS por parte do meu IE, então eu sugiro a quem quiser se arriscar a palpitar que me envie hacks ou work-arrounds para resolver os problemas que existem com estilo no IE. Eu desenvolvi o website baseado em xemacs, html 3.01 e CSS 1.0. Sugestões, opiniões, criticas e patches são bem-vindos. Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From alexandre.abreu em gmail.com Thu Mar 24 09:32:15 2005 From: alexandre.abreu em gmail.com (Alexandre Abreu) Date: Thu Mar 24 09:32:27 2005 Subject: =?ISO-8859-1?Q?Re:_[Cascavel-pm]_O_Website_do_S=E3o_P?= =?ISO-8859-1?Q?aulo_Perl_Mongers_est=E1_de_ca_ra_nova!?= In-Reply-To: <4242E169.1010007@yahoo.com.br> References: <4242E169.1010007@yahoo.com.br> Message-ID: Desculpe a "ignorância", mas, qual a URL? :P On Thu, 24 Mar 2005 12:48:57 -0300, Luis Campos de Carvalho wrote: > > Prezados, o SP-PM está de cara nova. > Eu notei alguns problemas com a obediência a especificação do CSS por > parte do meu IE, então eu sugiro a quem quiser se arriscar a palpitar > que me envie hacks ou work-arrounds para resolver os problemas que > existem com estilo no IE. > > Eu desenvolvi o website baseado em xemacs, html 3.01 e CSS 1.0. > Sugestões, opiniões, criticas e patches são bem-vindos. > > Putamplexos! > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- Alexandre de Abreu, GCUX, RHCE Proteus Security Systems From monsieur_champs em yahoo.com.br Thu Mar 24 09:38:26 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Thu Mar 24 09:38:41 2005 Subject: [Cascavel-pm] O Website do =?ISO-8859-1?Q?S=E3o_Paulo_Pe?= =?ISO-8859-1?Q?rl_Mongers_est=E1_de_ca_ra_nova!?= In-Reply-To: References: <4242E169.1010007@yahoo.com.br> Message-ID: <4242FB12.7060400@yahoo.com.br> Alexandre Abreu wrote: > Desculpe a "ignorância", mas, qual a URL? :P > http://sao-paulo.pm.org/ Have fun. E se estiver em Sampa, inscreva-se na lista. Estamos planejando o primeiro encontro técnico do SP-PM, gostaria de ver todo mundo lá. -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From rodzadra em yahoo.com Fri Mar 25 06:45:27 2005 From: rodzadra em yahoo.com (Rod Za) Date: Fri Mar 25 06:45:40 2005 Subject: [Cascavel-pm] Editar arquivo como outro usuario. In-Reply-To: 6667 Message-ID: <20050325144527.65577.qmail@web50201.mail.yahoo.com> Olá, Estou programando um sistema gerenciador de quotas de impressao (http://sgqi.codigolivre.com.br) - lógico em Perl:) - e neste sistema eu tenho um sistema de autocadastramento das impressoras (a impressora é cadastrada no CUPS e o sistema o cadastra no SAMBA (smb.conf). Para tal cadastramento estou utilizando o módulo Config::IniFiles que faz o trabalho perfeitamente. O único problema é que o arquivo smb.conf tem permissão de escrita somente para o usuario root (chmod 0644) e o SGQI roda com as mesmas permissoes do servidor de impressao (no meu caso 'lp'). Tem como eu fazer um 'SUDO' seguro para dar permissao de meu sistema escrever no arquivo smb.conf? Como eu utilizo $< e $>? Muito obrigado, Rodrigo Zadra Armond __________________________________ Do you Yahoo!? Yahoo! Small Business - Try our new resources site! http://smallbusiness.yahoo.com/resources/ From scvalmei em graaph.arq.br Sat Mar 26 11:51:35 2005 From: scvalmei em graaph.arq.br (Silvio Almeida) Date: Sat Mar 26 11:51:52 2005 Subject: [Cascavel-pm] O Website do =?ISO-8859-1?Q?S=E3o_Paulo_Pe?= =?ISO-8859-1?Q?rl_Mongers_est=E1_de_cara_nova!?= In-Reply-To: <4242E169.1010007@yahoo.com.br> References: <4242E169.1010007@yahoo.com.br> Message-ID: <4245BD47.7080201@graaph.arq.br> Caro Champs, Prá você ver como SPAM é uma coisa que faz mesmo mal a nossas mentes criativas... Você acabou inventando um tag SPAM, primo bastardo do SPAN. Graças à natureza XML do Mozilla, ele tratou SPAM como um elemento desconhecido mas honrou os estilo associados a ele. perl -pi -e 's/(<\/?)spam/$1span/gi' Sao-Paulo.pm.html Silvio Luis Campos de Carvalho escreveu: > > Prezados, o SP-PM está de cara nova. > Eu notei alguns problemas com a obediência a especificação do CSS por > parte do meu IE, então eu sugiro a quem quiser se arriscar a palpitar > que me envie hacks ou work-arrounds para resolver os problemas que > existem com estilo no IE. > > Eu desenvolvi o website baseado em xemacs, html 3.01 e CSS 1.0. > Sugestões, opiniões, criticas e patches são bem-vindos. > > Putamplexos! From fglock em pucrs.br Sat Mar 26 17:15:58 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Sat Mar 26 17:17:38 2005 Subject: [Cascavel-pm] Editar arquivo como outro usuario. Message-ID: <200503270117.j2R1HPIw074982@rigel.pucrs.br> Rod Za falou: > > Tem como eu fazer um 'SUDO' seguro para dar > permissao de meu sistema escrever no arquivo > smb.conf? > > Como eu utilizo $< e $>? Veja o exemplo nesta página: http://www.theone.ru/lists/comp.lang.perl.misc/msg02994.html Estude também o 'man su' e 'man sudoers' http://www.sudo.ws/sudo/man/sudoers.html Veja também: http://search.cpan.org/~landman/Sudo-0.10/lib/Sudo.pm - Flavio S. Glock From pmpoa em galvao.eti.br Sun Mar 27 16:14:42 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Sun Mar 27 16:14:13 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?Sumi=E7o?= Message-ID: <42474C72.3020603@galvao.eti.br> Pessoal: Sei que ando meio sumido, mas é por bons motivos: Recentemente me tornei sócio do evento Papo de Primeira. Este evento visa ocupar o espaço deixado pelo Terceira Terça, que após uma troca na diretoria sofreu uma mudança de formato, perdeu público e acabou por ser encerrado. Agora me uno aos realizadores originais do TT para lançar este evento que tem tudo pra dar certo. Em Porto Alegre (RS) o 1º Papo de Primeira acontecerá no dia 05 de abril no John Bull Pub (Não se preocupem, estarei enviando o convite aqui para a lista mais adiante). Nas outras três cidades que já possuímos confirmação (Rio de Janeiro, São Paulo e Joinville) o evento deverá estrear em junho. Ao contrário do que se possa pensar o evento não é voltado exclusivamente a empresas e profissionais do mercado de Tecnologia da Informação. Inclusive entre os sócios temos empresas de jornalismo, publicidade e diversas outras áreas. O site do evento (http://www.papodeprimeira.com.br/) já está no ar e tem criação do pessoal da Agência Internet, enquanto eu fico responsável pela gerência de conteúdo. Além disto tenho trabalhado direto, inclusive na captação de novos clientes, o que tem me consumido MUITO do meu tempo. E ainda arranjei tempo para refazer o meu site (http://www.galvao.eti.br/). Tentei deixar ele com uma "cara" mais profissional e clean, mas ainda tem algumas coisas (especialmente a página principal) que ainda estão sendo pensadas e repensadas. Bom, era isso, queria comentar com vocês as novidades. Abraços a todos, Er Galvão Abbott ------------------------------------- Porto Alegre Perl Mongers http://portoalegre.pm.org/ -------------------------------------- pmpoa@galvao.eti.br -------------------------------------- From glasswalk3r em yahoo.com.br Mon Mar 28 06:12:51 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Mon Mar 28 06:13:07 2005 Subject: [Cascavel-pm] Editar arquivo como outro usuario. In-Reply-To: 6667 Message-ID: <20050328141251.68816.qmail@web31514.mail.mud.yahoo.com> Oi Rodrigo, Eu uso Sudo sem problemas para fazer o FAUS funcionar: http://faus.sourceforge.net Aconselho você liberar o usuário Apache de fazer autenticação no Sudo, você teria que armazenar a senha em algum outro lugar, isso lhe daria uma dor de cabeça das grandes e não ajudaria muito com a segurança. Eu não usei o módulo Perl como interface para o Sudo, eu sugiro checar se ele usa o Sudo presente no sistema. O Sudo é auditado frequentemente por problemas de segurança, esse módulo eu já não sei. BTW, o link para seu projeto não funciona (eu gostaria de dar uma olhada nele). []'s Alceu --- fglock@pucrs.br wrote: > Rod Za falou: > > > > Tem como eu fazer um 'SUDO' seguro para dar > > permissao de meu sistema escrever no arquivo > > smb.conf? > > > > Como eu utilizo $< e $>? > > Veja o exemplo nesta página: > http://www.theone.ru/lists/comp.lang.perl.misc/msg02994.html > > Estude também o 'man su' e 'man sudoers' > http://www.sudo.ws/sudo/man/sudoers.html > > Veja também: > http://search.cpan.org/~landman/Sudo-0.10/lib/Sudo.pm > > - Flavio S. Glock Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ From glasswalk3r em yahoo.com.br Mon Mar 28 06:17:14 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Mon Mar 28 06:17:26 2005 Subject: =?iso-8859-1?q?Re:=20[Cascavel-pm]=20edi=E7=E3o=20de=20arquivos=20com=20P?= In-Reply-To: 6667 Message-ID: <20050328141714.53409.qmail@web31505.mail.mud.yahoo.com> --- Luis Campos de Carvalho wrote: > > jogar isso para um Hash. Até aonde eu entendi, ele > > copia o conteúdo do array para um hash... seria > útil > > se eu quisesse fazer diversas operações dentro do > > arquivo, mas na verdade farei uma só. Como ele > > provavelmente vai ter que procurar apenas um > registro > > no arquivo todo, acho que seria mais vantagem já > > executar a operação que preciso ao invés de copiar > > todas as entradas para o hash e depois fazer a > > alteração usando > > > > $hash{entrada} =~ s/agua/cerveja/g; > > > > Estou correto? > > Quase: se você tiver entradas repetidas, elas > serão sobrescritas no > hash table. Isso quer dizer: muito cuidado ao usar > este mecanismo. Não, apenas uma entrada no arquivo. Garantido. > Quanto a ler para a memória: cuidado! Eu > recomendo que você não faça > isso, nunca, mesmo que o arquivo seja pequeno. > Apenas como boa prática > de programação. Eu entendo. É que manipular um arquivo pequeno várias vezes em memória é muito mais rápido. > Eu, no seu lugar, usaria o File::Temp e o > Tie::File::Array. Farei isso! > Putamplexos, boa sorte e manda a implementação > final para a gente > ver, se você puder... Com certeza vou poder! Todas as implementações que fizer usando isso vão estar disponíveis na nova versão do FAUS que eu liberar (http://faus.sourceforge.net). []'s Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ From monsieur_champs em yahoo.com.br Mon Mar 28 08:50:55 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Mon Mar 28 08:51:09 2005 Subject: [Cascavel-pm] Re: O Website do =?iso-8859-1?q?S=E3o_Paulo_Perl_Mongers_est=E1_d?= =?iso-8859-1?q?e_cara_nova!?= In-Reply-To: <4245BD47.7080201@graaph.arq.br> References: <4242E169.1010007@yahoo.com.br> <4245BD47.7080201@graaph.arq.br> Message-ID: <424835EF.5010104@yahoo.com.br> Silvio Almeida wrote: > Caro Champs, > > Prá você ver como SPAM é uma coisa que faz mesmo mal a nossas mentes > criativas... Você acabou inventando um tag SPAM, primo bastardo do SPAN. > Graças à natureza XML do Mozilla, ele tratou SPAM como um elemento > desconhecido mas honrou os estilo associados a ele. > > perl -pi -e 's/(<\/?)spam/$1span/gi' Sao-Paulo.pm.html Hua! Hua! Hua! Obrigado por me avisar, Silvio! Acho que isso finalmente explica por que certos estilos funcionam apenas no Mozzilla, e não no IE... Eu não sou exatamente um bom escrevedor de HTML (eu gosto de deixar isso ao cargo do CGI ou do TT2, geralmente...) Vou tirar um tempinho para consertar isto esta noite, depois do trabalho. Se você vir mais alguma coisa errada, por favor me avise, tá? Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From rodzadra em yahoo.com Mon Mar 28 09:54:05 2005 From: rodzadra em yahoo.com (Rod Za) Date: Mon Mar 28 09:54:17 2005 Subject: [Cascavel-pm] Editar arquivo como outro usuario. In-Reply-To: 6667 Message-ID: <20050328175405.32704.qmail@web50205.mail.yahoo.com> Oi Alceu, Pois é, estou achando todas essas soluções "um pouco meio sem segurança". Se eu liberar o sudo para o usuario 'lp' pode haver uma brecha de segurança, seu eu usar o módulo sudo, tenho q colocar a senha no script. Acho melhor mudar o grupo do arquivo smb.conf para o 'lp' e liberar o acesso de escrita nele para o grupo 'lp'. (O q vc acha?) Quanto ao site, eu estou meio decepcionado com o codigolivre.org.br - sempre está fora do ar! Estou movendo (ou pelo menos tentando mover ) o projeto SGQI para o site do governo http://colaborar.softwarelivre.gov.br. Mas se quiser posso te enviar o arquivo contendo a nova versão do SGQI (ela trabalha como um backend para o CUPS). brigadão, Rodrigo --- "Alceu R. de Freitas Jr." wrote: > Oi Rodrigo, > > Eu uso Sudo sem problemas para fazer o FAUS funcionar: > http://faus.sourceforge.net > > Aconselho você liberar o usuário Apache de fazer > autenticação no Sudo, você teria que armazenar a senha > em algum outro lugar, isso lhe daria uma dor de cabeça > das grandes e não ajudaria muito com a segurança. > > Eu não usei o módulo Perl como interface para o Sudo, > eu sugiro checar se ele usa o Sudo presente no > sistema. O Sudo é auditado frequentemente por > problemas de segurança, esse módulo eu já não sei. > > BTW, o link para seu projeto não funciona (eu gostaria > de dar uma olhada nele). > > []'s > Alceu > > --- fglock@pucrs.br wrote: > > Rod Za falou: > > > > > > Tem como eu fazer um 'SUDO' seguro para dar > > > permissao de meu sistema escrever no arquivo > > > smb.conf? > > > > > > Como eu utilizo $< e $>? > > > > Veja o exemplo nesta página: > > > http://www.theone.ru/lists/comp.lang.perl.misc/msg02994.html > > > > Estude também o 'man su' e 'man sudoers' > > http://www.sudo.ws/sudo/man/sudoers.html > > > > Veja também: > > > http://search.cpan.org/~landman/Sudo-0.10/lib/Sudo.pm > > > > - Flavio S. Glock > > > Alceu Rodrigues de Freitas Junior > -------------------------------------- > glasswalk3r@yahoo.com.br > http://www.imortais.cjb.net > ----------------------------------------------------------------------- > A well-used door needs no oil on its hinges. > A swift-flowing stream does not grow stagnant. > Neither sound nor thoughts can travel through a vacuum. > Software rots if not used. > These are great mysteries -- The Tao Of Programming, 5.1 > > > > > > Yahoo! Acesso Grátis - Internet rápida e grátis. > Instale o discador agora! http://br.acesso.yahoo.com/ > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com From glasswalk3r em yahoo.com.br Mon Mar 28 11:13:14 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Mon Mar 28 11:13:25 2005 Subject: [Cascavel-pm] Editar arquivo como outro usuario. In-Reply-To: 6667 Message-ID: <20050328191314.87629.qmail@web31501.mail.mud.yahoo.com> --- Rod Za wrote: > Pois é, estou achando todas essas soluções "um pouco > meio sem segurança". Se eu liberar o sudo > para o usuario 'lp' pode haver uma brecha de > segurança, seu eu usar o módulo sudo, tenho q > colocar > a senha no script. Não pude olhar seu sistema. Mas exatamente o que você executa com o usuário lp? Comandos como "lpr" e etc? Por que vc não tenta criar scripts separados para cada comando que tiver que executar como o usuário 'lp' e adiciona esses scripts no sudoers. A partir daí você configura o usuário do Apache para ter permissões de execução desses scripts. Você ainda pode minimizar problemas de segurança colocando o Apache sobre chroot e instalando uns módulos de segurança adicionais nele, como o mod_security (ou algo assim, só lembro que previne DOS e outras coisas). > Acho melhor mudar o grupo do arquivo smb.conf para o > 'lp' e liberar o acesso de escrita nele para > o grupo 'lp'. (O q vc acha?) Liberar o acesso de escrita ao smb.conf? Eu acho loucura. :-) > Quanto ao site, eu estou meio decepcionado com o > codigolivre.org.br - sempre está fora do ar! > Estou movendo (ou pelo menos tentando mover ) o > projeto SGQI para o site do governo > http://colaborar.softwarelivre.gov.br. Mas se quiser > posso te enviar o arquivo contendo a nova > versão do SGQI (ela trabalha como um backend para o > CUPS). Eu uso o Sourceforge. É lerdo, mas funciona. ;-) > brigadão, Não por isso. Mexer com servidores Samba é um barato, é uma pena eu não ter podido trabalhar mais com ele. Mesmo meu projeto está paradão. Quando você o website estiver ok, por favor nos mande a url! :-D []'s Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ From rodzadra em yahoo.com Mon Mar 28 12:25:17 2005 From: rodzadra em yahoo.com (Rod Za) Date: Mon Mar 28 12:25:31 2005 Subject: [Cascavel-pm] Editar arquivo como outro usuario. In-Reply-To: 6667 Message-ID: <20050328202517.36149.qmail@web50206.mail.yahoo.com> --- "Alceu R. de Freitas Jr." wrote: > --- Rod Za wrote: > > > Pois é, estou achando todas essas soluções "um pouco > > meio sem segurança". Se eu liberar o sudo > > para o usuario 'lp' pode haver uma brecha de > > segurança, seu eu usar o módulo sudo, tenho q > > colocar > > a senha no script. > > Não pude olhar seu sistema. Mas exatamente o que você > executa com o usuário lp? Comandos como "lpr" e etc? > Por que vc não tenta criar scripts separados para cada > comando que tiver que executar como o usuário 'lp' e > adiciona esses scripts no sudoers. > > A partir daí você configura o usuário do Apache para > ter permissões de execução desses scripts. Na verdade o Apache não tem acesso ao smb.conf. O sistema funciona da seguinte maneira: o SGQI é um (pseudo)backend para o CUPS. No CUPS os "backends" gerenciam algum tipo de dispositivo para impressão ex: uma porta lpt, JetDirect, COM, USB, etc. O que o SGQI faz é simular qualquer "backend" instalado e suportado pelo CUPS. Assim o CUPS reconhece o SGQI como sendo um "backend" válido e passa os arquivos a serem impressos. O SGQI, por sua vez faz a contagem de páginas e verifica se o usuário (dono do Job) tem quota suficiente para poder imprimir. Caso o usuário tenha o SGQI passa o job para o verdadeiro "backend" e a impressão é efetivada, caso não tenha quota a impressão é cancelada. Todas as operações são guardadas num banco de dados (a principio estou usando o MySQL). Existe também um painel de controle via web (CCSGQI) o qual gerencia impressoras, usuários e grupos. O esquema do SGQI é mais ou menos assim: +---------+ | inicio | +---------+ | +----------------------+ | verifica impressora |<---------------------------------------------------+ +----------------------+ | | | +-----------------------------------+ +---------------------------+ | | impressora existe no BD/smb.conf? |---NAO---> | cadastra no BD / smb.conf |--+ +-----------------------------------+ +---------------------------+ | SIM | +--------------------+ | Verifica usuario |<---------------------------------------+ +--------------------+ | | | +---------------------------------------+ | | usuario existe no Sistema Operacional |-----NAO-----------------)------+ +---------------------------------------+ | | | | | SIM | | | | | +-----------------------+ +----------------+ | | | usuario existe no BD? |---NAO----------->| cadastra no BD |--+ | +-----------------------+ +----------------+ | | | SIM | | | +--------------------+ | | verifica quota | | +--------------------+ | | | +--------------------+ +-------------------+ | | usuario tem quota? |---NAO---> | cancela impressão |<--------------+ +--------------------+ +-------------------+ | | SIM | | | +---------------------------+ | | DEBITA DB / passa o job | | | para o backend verdadeiro | | +---------------------------+ | | | +------------+ | | gera log |<--------------------------+ +------------+ | FIM O sistema roda com a mesma permissão que o servidor de impressão. E o único problema até agora é a edição automática do arquivo smb.conf. > > Acho melhor mudar o grupo do arquivo smb.conf para o > > 'lp' e liberar o acesso de escrita nele para > > o grupo 'lp'. (O q vc acha?) > > Liberar o acesso de escrita ao smb.conf? Eu acho > loucura. :-) Eu não estou vendo muita diferença entre usar o SUDO e a permissão de escrita para o grupo 'lp' neste arquivo. tem? > > > Quanto ao site, eu estou meio decepcionado com o > > codigolivre.org.br - sempre está fora do ar! > > Estou movendo (ou pelo menos tentando mover ) o > > projeto SGQI para o site do governo > > http://colaborar.softwarelivre.gov.br. Mas se quiser > > posso te enviar o arquivo contendo a nova > > versão do SGQI (ela trabalha como um backend para o > > CUPS). > > Eu uso o Sourceforge. É lerdo, mas funciona. ;-) A minha opção por não usar o Sourceforge veio primeiro da minha incapacidade de escrever inglês bem o suficiente para os caras lá entenderem e aprovarem meu projeto:), Depois dessa "decepção" eu achei melhor manter o projeto aqui no Brasil mesmo! :) > > > brigadão, > > Não por isso. Mexer com servidores Samba é um barato, > é uma pena eu não ter podido trabalhar mais com ele. > Mesmo meu projeto está paradão. cara, eu já trabalhei tanto com samba (substituindo NT) que já até perdi a conta. É realmente um dos melhores software open-source que existe, só acho que as vezes demora um pouquinho para ocorrer mudanças mais significativas (como ocorreu do samba 2x pro 3x). Mas vou aproveitar e dar uma olhadinha no seu FAUS e aprender um pouquinho sobre CGI - não sei absolutamente nada:) Ou existe meios melhores de se programar em Perl para WEB (mod_perl)? > > Quando você o website estiver ok, por favor nos mande > a url! :-D Lógico q mando sim! :) []ção! __________________________________ Do you Yahoo!? Yahoo! Mail - 250MB free storage. Do more. Manage less. http://info.mail.yahoo.com/mail_250 From donatoaz em gmail.com Mon Mar 28 16:01:04 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Mon Mar 28 16:01:17 2005 Subject: [Cascavel-pm] Erro ao baixar mod no cpan Message-ID: <1746e3e305032816011bb5edb@mail.gmail.com> Olá monges, eu recentemente postei nesta lista um problema que estou tendo para baixar modulos no CPAN, ele fica extremamente lento... mas funciona... agora alguns modulos que tento baixar (a maioria) estaO retornando o seguinte erro: Id recommend removing [path to mod] Its MD5 checksum is incorrect maybe youve misconfigured your urllist... acho que vou mudar pros espelhos americanos e ver se funciona.. jah tentei em uns 3 aqui do brasil... -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* From glasswalk3r em yahoo.com.br Tue Mar 29 06:59:14 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Tue Mar 29 06:59:27 2005 Subject: [Cascavel-pm] Editar arquivo como outro usuario. In-Reply-To: <20050328202517.36149.qmail@web50206.mail.yahoo.com> Message-ID: <20050329145914.3596.qmail@web31515.mail.mud.yahoo.com> --- Rod Za escreveu: > Na verdade o Apache não tem acesso ao smb.conf. O > sistema funciona da seguinte maneira: Desculpe, não sei porque eu fui imaginar que seu sistema era um frontend baseado em web. :-D > O que o SGQI faz é simular qualquer "backend" > instalado e suportado pelo CUPS. Assim o CUPS > reconhece o SGQI como sendo um "backend" válido e > passa os arquivos a serem impressos. O SGQI, por > sua vez faz a contagem de páginas e verifica se o > usuário (dono do Job) tem quota suficiente para > poder imprimir. Caso o usuário tenha o SGQI passa o > job para o verdadeiro "backend" e a impressão > é efetivada, caso não tenha quota a impressão é > cancelada. Ok, agora entendi a intenção do seu sistema. > Todas as operações são guardadas num banco de dados > (a principio estou usando o MySQL). Existe > também um painel de controle via web (CCSGQI) o qual > gerencia impressoras, usuários e grupos. Ao que me parece, seu sistema lê mais do que escreve. Apesar do MySQL ser particularmente rápido para isso, porque você não tenta usar LDAP? É mais rápido e se o servidor Samba usa o LDAP como repositório de usuário/senhas, isso fica ainda mais interessante. > O sistema roda com a mesma permissão que o servidor > de impressão. E o único problema até agora é a > edição automática do arquivo smb.conf. Eu realmente não vejo a vantagem de editar o smb.conf. Isso deveria ser trabalho do administrador, visto que ele precisa saber que raios de periféricos andam sendo instalados na rede. > > > Acho melhor mudar o grupo do arquivo smb.conf > para o > > > 'lp' e liberar o acesso de escrita nele para > > > o grupo 'lp'. (O q vc acha?) > > > > Liberar o acesso de escrita ao smb.conf? Eu acho > > loucura. :-) > > Eu não estou vendo muita diferença entre usar o SUDO > e a permissão de escrita para o grupo 'lp' > neste arquivo. tem? Tem. Está pronto, funciona e é auditado com frequência. Além do mais, você pode criar uma configuração bem restrita de como seus scripts serão executados. Não vejo necessidade em reinventar a roda. :-) > > Eu uso o Sourceforge. É lerdo, mas funciona. ;-) > > A minha opção por não usar o Sourceforge veio > primeiro da minha incapacidade de escrever inglês > bem o suficiente para os caras lá entenderem e > aprovarem meu projeto:), Depois dessa "decepção" eu > achei melhor manter o projeto aqui no Brasil mesmo! > :) Se eu fosse você, tentaria o Sourceforge. O fato de escrever em inglês aumenta (e muito) a quantidade de pessoas que poderão ver seu trabalho. Vale o esforço. > cara, eu já trabalhei tanto com samba (substituindo > NT) que já até perdi a conta. É realmente um > dos melhores software open-source que existe, só > acho que as vezes demora um pouquinho para > ocorrer mudanças mais significativas (como ocorreu > do samba 2x pro 3x). Não existe muita coisa em Perl para Samba. Mesmo CPAN possui apenas alguns módulos. De qualquer forma, recomendo uma pesquisa sobre Samba por lá. []'s Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ From rodzadra em yahoo.com Tue Mar 29 08:12:17 2005 From: rodzadra em yahoo.com (Rod Za) Date: Tue Mar 29 08:12:31 2005 Subject: [Cascavel-pm] Editar arquivo como outro usuario. In-Reply-To: 6667 Message-ID: <20050329161217.41706.qmail@web50205.mail.yahoo.com> --- "Alceu R. de Freitas Jr." wrote: > --- Rod Za escreveu: > > Na verdade o Apache não tem acesso ao smb.conf. O > > sistema funciona da seguinte maneira: > > Desculpe, não sei porque eu fui imaginar que seu > sistema era um frontend baseado em web. :-D Me manda R$1.000,00 e vc est[a desculpado! :-p > > > Todas as operações são guardadas num banco de dados > > (a principio estou usando o MySQL). Existe > > também um painel de controle via web (CCSGQI) o qual > > gerencia impressoras, usuários e grupos. > > Ao que me parece, seu sistema lê mais do que escreve. > Apesar do MySQL ser particularmente rápido para isso, > porque você não tenta usar LDAP? É mais rápido e se o > servidor Samba usa o LDAP como repositório de > usuário/senhas, isso fica ainda mais interessante. Estou pensando em um plugin para ser usado com o LDAP também. Mas o uso de LDAP e bem mais restrito que o MySQL, por isso o SGQI está saindo com suporte primário a este banco de dados. > > O sistema roda com a mesma permissão que o servidor > > de impressão. E o único problema até agora é a > > edição automática do arquivo smb.conf. > > Eu realmente não vejo a vantagem de editar o smb.conf. > Isso deveria ser trabalho do administrador, visto que > ele precisa saber que raios de periféricos andam sendo > instalados na rede. Isso realmente é só para facilitar - uma automação é sempre bem-vinda (quando bem feita), não acha? De qualquer forma o administrador é a pessoa que instala/configura a impressora no CUPS e é para que o trabalho não seja repetido no BD do SGQI e no Samba que pensei nesta opção - realmente não sei se é tão necessário assim. :) > > > > Acho melhor mudar o grupo do arquivo smb.conf > > para o > > > > 'lp' e liberar o acesso de escrita nele para > > > > o grupo 'lp'. (O q vc acha?) > > > > > > Liberar o acesso de escrita ao smb.conf? Eu acho > > > loucura. :-) > > > > Eu não estou vendo muita diferença entre usar o SUDO > > e a permissão de escrita para o grupo 'lp' > > neste arquivo. tem? > > Tem. Está pronto, funciona e é auditado com > frequência. Além do mais, você pode criar uma > configuração bem restrita de como seus scripts serão > executados. Não vejo necessidade em reinventar a roda. > :-) Realmente vc está quase me "con-vencendo":) [], Rodrigo __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com From pmpoa em galvao.eti.br Tue Mar 29 08:36:46 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Tue Mar 29 08:36:37 2005 Subject: [Cascavel-pm] Papo de Primeira =?iso-8859-1?q?=E9_semana_que_vem!?= Message-ID: <4249841E.3070306@galvao.eti.br> Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050329/eac3e3b5/attachment-0001.htm -------------- Próxima Parte ---------- Um anexo não texto foi limpo... Nome : não disponível Tipo : image/gif Tam : 96710 bytes Descr.: não disponível Url : http://mail.pm.org/pipermail/cascavel-pm/attachments/20050329/eac3e3b5/attachment-0001.gif From donatoaz em gmail.com Tue Mar 29 12:40:46 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Tue Mar 29 12:40:58 2005 Subject: [Cascavel-pm] Comparacao de strings Message-ID: <1746e3e30503291240dd436f0@mail.gmail.com> Olá monges, Eu estou fazendo um script para ver aonde metodos de uma classe sao chamados em algumas paginas ASP e gostaria de saber o seguinte: o que é melhor: for $method_name (@method_names) { abrir todas as paginas uma a uma e comparar cada linha com $method_name } OU for $page_name (@page_names) { abrir a pagina; pegar uma linha; for $method_name (@method_names) { comparar $method_name com a linha; } } aqui esta o script que pega as paginas e o nome dos metodos: #!/usr/bin/perl use warnings; use strict; use Data::Dumper; $|=1; #my %hash; #my %hash2; #my %exthash; my @array; my @dirs = ( 'D:\Projetos\MKP\CamadaNegocios', 'D:\Projetos\MKP\eBB' ); my (@page,@bu,@pagecomp); for my $dirloop (@dirs) { opendir(DIR, $dirloop) or die "couldn't opendir '$dirloop': $!"; for (readdir DIR) { push(@page, $dirloop . "\\" . $_) if /\.asp$/; if (/(?:^|\\)([^\.]+)\.asp/) { push(@pagecomp, $1); #print $1,"\n"; } push(@bu, $dirloop . "\\" . $_) if /^bu.+\.cls$/; push(@bu, $dirloop . "\\" . $_) if /^Lib.+\.bas$/i; closedir DIR; } } for my $bufile (@bu) { $proc++; $bufile =~ /(?:^|\\)((?:bu|Lib)[^\.]+)\.(?:cls|bas)/i; print $bufile,"\n"; my $bu = $1; print "\r"; print " " x 70; print "\rprocessing $bu ($proc/".scalar @bu.")...\n"; open ORIG, $bufile or die $!; my $line = 0; while () { my $funcname; $line++; if (/[\s\t]*(Private|Public)[\s\t]+(Function|Sub)[\s\t]+([^\s\t\(]+)/i) { print "Function: $3\n"; $funcname = $3; push(@array,"$bu.$funcname"); next; } s/[\s\t]//g; #Remove all whitespaces and tabs } close ORIG; #for my $funcname (@{$hash{$bu}) { #} } open(DUMP, ">cleandump.txt"); $Data::Dumper::Varname = "HASH"; print DUMP Dumper(\@array); close DUMP; -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* From monsieur_champs em yahoo.com.br Tue Mar 29 17:38:54 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Tue Mar 29 17:39:11 2005 Subject: [Cascavel-pm] Erro ao baixar mod no cpan In-Reply-To: <1746e3e305032816011bb5edb@mail.gmail.com> References: <1746e3e305032816011bb5edb@mail.gmail.com> Message-ID: <424A032E.80802@yahoo.com.br> Donato Azevedo wrote: > Olá monges, > eu recentemente postei nesta lista um problema que estou tendo para > baixar modulos no CPAN, ele fica extremamente lento... mas funciona... > agora alguns modulos que tento baixar (a maioria) estaO retornando o > seguinte erro: > Id recommend removing [path to mod] > Its MD5 checksum is incorrect > maybe youve misconfigured your urllist... > > acho que vou mudar pros espelhos americanos e ver se funciona.. jah > tentei em uns 3 aqui do brasil... > Donato, eu tenho um amigo que está com problemas parecidos. Não sei o que lhe recomendar, mas ele está tentando um outro espelho. Talvez esta seja a melhor opção. Putamplexos, e me conte seus resultados. -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From monsieur_champs em yahoo.com.br Tue Mar 29 17:40:46 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Tue Mar 29 17:41:03 2005 Subject: [Cascavel-pm] Editar arquivo como outro usuario. In-Reply-To: <20050328175405.32704.qmail@web50205.mail.yahoo.com> References: <20050328175405.32704.qmail@web50205.mail.yahoo.com> Message-ID: <424A039E.4000206@yahoo.com.br> Rod Za wrote: > Oi Alceu, > > Pois é, estou achando todas essas soluções "um pouco meio sem segurança". Se eu liberar o sudo > para o usuario 'lp' pode haver uma brecha de segurança, seu eu usar o módulo sudo, tenho q colocar > a senha no script. > > Acho melhor mudar o grupo do arquivo smb.conf para o 'lp' e liberar o acesso de escrita nele para > o grupo 'lp'. (O q vc acha?) Certamente é muito melhor que liberar acesso ao "sudo" para um usuário não-humano. Eu recomendo também que você estude a possibilidade de fazer seus scripts setuid-root seletivamente, jogando os privilégios de root fora assim que não precisar mais deles. Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From marco.lima em e-via.com.br Wed Mar 30 04:10:05 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Mar 30 04:10:25 2005 Subject: [Cascavel-pm] Palestra no YAPC::Brasil / 6.0 FISL Message-ID: Salve Monges ! Confirmada mais uma palestra para o evento, "Gerenciamento de Dados com Perl". Conto com a presença de todos. [ ]'s Marco Lima J. A. P. H. marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Sociedade Perl do Brasil | http://www.perl.org.br Perl Monks | http://www.perlmonks.org Brasil Perl Mongers | http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From rodzadra em yahoo.com Wed Mar 30 06:15:51 2005 From: rodzadra em yahoo.com (Rod Za) Date: Wed Mar 30 06:16:16 2005 Subject: [Cascavel-pm] Editar arquivo como outro usuario. In-Reply-To: 6667 Message-ID: <20050330141551.88413.qmail@web50207.mail.yahoo.com> Luis, --- Luis Campos de Carvalho wrote: > Rod Za wrote: > > Oi Alceu, > > > > Pois é, estou achando todas essas soluções "um pouco meio sem segurança". Se eu liberar o sudo > > para o usuario 'lp' pode haver uma brecha de segurança, seu eu usar o módulo sudo, tenho q > colocar > > a senha no script. > > > > Acho melhor mudar o grupo do arquivo smb.conf para o 'lp' e liberar o acesso de escrita nele > para > > o grupo 'lp'. (O q vc acha?) > > Certamente é muito melhor que liberar acesso ao "sudo" para um > usuário não-humano. > > Eu recomendo também que você estude a possibilidade de fazer seus > scripts setuid-root seletivamente, jogando os privilégios de root fora > assim que não precisar mais deles. > Entao eh melhor mesmo! Estou querendo evitar o maximo scripts com setuid-root, mesmo porq pegando como exemplo o OpenWebMail que roda como setuid-root e de "quando em vez" aparede alguma brecha de seguranca. Alias o sistema que estou montando nao roda em parte alguma com setuid-root. valeu, > Putamplexos! > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > __________________________________ Do you Yahoo!? Yahoo! Small Business - Try our new resources site! http://smallbusiness.yahoo.com/resources/ From marco.lima em e-via.com.br Wed Mar 30 08:26:41 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Mar 30 08:27:01 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?Encontro_Social_e_Troca_de_L=EDder_?= =?iso-8859-1?q?do_Rio=2EPM?= Message-ID: Salve Monges !! Estou divulgando este encontro na lista por não se tratar apenas de um encontro social, estaremos também oficializando a troca de líder do Rio de Janeiro Perl Mongers e por isso gostaria de convidar a todos os monges do Brasil que conseguirem um tempo para chegar até o encontro. ##################### Encontro Social 15:00 - Sábado, 2 Abril de 2005 Café Lamas Rua Marquês de Abrantes, 18 - Flamengo - RJ
PABX: (21) 2556 0799
Identifique o grupo pelo Camelo, por roupas estranhas, notebooks, etc ... htpp://rio.pm.org ##################### Aproveitando a situação gostaria de convidar a todos para participarem do I Workshop de Programação Perl organizado pelos grupos Rio.PM e São Paulo.PM, para maiores informações http://rio.pm.org [ ]'ção Marco Lima J. A. P. H. marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Sociedade Perl do Brasil | http://www.perl.org.br Perl Monks | http://www.perlmonks.org Brasil Perl Mongers | http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From marco.lima em e-via.com.br Wed Mar 30 08:35:47 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Mar 30 08:36:05 2005 Subject: [Cascavel-pm] Sociedade Perl do Brasil Message-ID: Estamos com o site http://www.perl.org.br no ar, foi escolhido um sistema de gerênciamento de Blogs para facilitar a inclusão e o debate dos assuntos. Peço que os monges interessados se cadastrem no site. Obrigado; Marco Lima J. A. P. H. marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Sociedade Perl do Brasil | http://www.perl.org.br Perl Monks | http://www.perlmonks.org Brasil Perl Mongers | http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From monsieur_champs em yahoo.com.br Wed Mar 30 09:03:29 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Mar 30 09:03:50 2005 Subject: [Cascavel-pm] Editar arquivo como outro usuario. In-Reply-To: <20050330141551.88413.qmail@web50207.mail.yahoo.com> References: <20050330141551.88413.qmail@web50207.mail.yahoo.com> Message-ID: <424ADBE1.9010105@yahoo.com.br> Rod Za wrote: > Champs wrote: >> Eu recomendo também que você estude a possibilidade de fazer seus >>scripts setuid-root seletivamente, jogando os privilégios de root fora >>assim que não precisar mais deles. > > Entao eh melhor mesmo! Estou querendo evitar o maximo scripts com setuid-root, mesmo porq pegando > como exemplo o OpenWebMail que roda como setuid-root e de "quando em vez" aparede alguma brecha de > seguranca. Alias o sistema que estou montando nao roda em parte alguma com setuid-root. > Eu não entendi. Parece que você está falando *contra* o uso de setuid-root, mas eu estou falando *a* *favor*... Explique-se, meu caro, por favor... Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From pmpoa em galvao.eti.br Wed Mar 30 09:31:56 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Wed Mar 30 09:31:20 2005 Subject: [Cascavel-pm] Desculpas Message-ID: <424AE28C.3010003@galvao.eti.br> Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050330/c6a9a427/attachment.htm From monsieur_champs em yahoo.com.br Wed Mar 30 09:42:01 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Mar 30 09:42:18 2005 Subject: [Cascavel-pm] Desculpas In-Reply-To: <424AE28C.3010003@galvao.eti.br> References: <424AE28C.3010003@galvao.eti.br> Message-ID: <424AE4E9.1040106@yahoo.com.br> Er Galvão Abbott - PM Porto Alegre wrote: > Pessoal: > > Me foi chamada a atenção (e com toda a razão) de que eu enviei o e-mail > de propaganda do Papo de Primeira para a lista. Queria me desculpar > publicamente com todos e em especial com o Luis. > > Não foi minha intenção poluir a lista, apenas achei que seria do > interesse de todos. Reconheço o meu erro e peço desculpas. > > Realmente me emocionei um pouco demais ao enviar os convites para o evento. > Desculpas aceitas :-) De qualquer forma, o Primeiro Papo de Primeira vai acontecer na primeira terça-feira do mês de abril, em Porto Alegre. Veja mais informações sobre isso em http://www.papodeprimeira.com.br/ Quem estiver na cidade, apareça, que o Galvão é ótimo anfitrião. E leve seus cartões! Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From marco.lima em e-via.com.br Wed Mar 30 09:54:11 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Mar 30 09:54:31 2005 Subject: [Cascavel-pm] Desculpas Message-ID: Sem problemas Galvão ... lembre apenas do OT ... [ ]'ção > Marco Lima J. A. P. H. marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Sociedade Perl do Brasil | http://www.perl.org.br Perl Monks | http://www.perlmonks.org Brasil Perl Mongers | http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From marco.lima em e-via.com.br Wed Mar 30 09:54:46 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Mar 30 09:55:06 2005 Subject: [Cascavel-pm] Desculpas Message-ID: Faltou o OT !! > Er Galvão Abbott - PM Porto Alegre wrote: > > Pessoal: > > > > Me foi chamada a atenção (e com toda a razão) de que eu enviei o e-mail > > de propaganda do Papo de Primeira para a lista. Queria me desculpar > > publicamente com todos e em especial com o Luis. > > > > Não foi minha intenção poluir a lista, apenas achei que seria do > > interesse de todos. Reconheço o meu erro e peço desculpas. > > > > Realmente me emocionei um pouco demais ao enviar os convites para o evento. > > > > Desculpas aceitas :-) > > De qualquer forma, o Primeiro Papo de Primeira vai acontecer na > primeira terça-feira do mês de abril, em Porto Alegre. Veja mais > informações sobre isso em http://www.papodeprimeira.com.br/ > > Quem estiver na cidade, apareça, que o Galvão é ótimo anfitrião. E > leve seus cartões! > > Putamplexos! > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > Marco Lima J. A. P. H. marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Sociedade Perl do Brasil | http://www.perl.org.br Perl Monks | http://www.perlmonks.org Brasil Perl Mongers | http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From pmpoa em galvao.eti.br Wed Mar 30 10:24:37 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Wed Mar 30 10:24:01 2005 Subject: [Cascavel-pm] [OT] Obrigado, Mago Message-ID: <424AEEE5.9040705@galvao.eti.br> Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050330/00519585/attachment.htm From jamorreu em gmail.com Wed Mar 30 10:54:16 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Wed Mar 30 10:54:28 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?Concurso_de_programa=E7=E3o_-_Pr=EA?= =?iso-8859-1?q?mios_confirmados?= Message-ID: <8ff2963a05033010545817c4b4@mail.gmail.com> Salve monges!! Recebi alguns prêmios para entregar aos vencedores do Concurso de Programação do CGiClube.net 1. Camisetas UBBI (lindas!) 2. Porta-cds UBBI (interessantes) 3. Hospedagem grátis por 3 meses. Ainda irei ver com alguma editora o patrocinio de algum livro sobre Perl. Só me deem tempo agora, para ir aos correios e ver quando custa o envio dos prêmios e planejar as regras do concurso para coloca-lo no ar (semana que vem no maximo). Quem quiser ficar por dentro, enviar sugestões, críticas, apoio moral ou prêmios, acessar: http://cgiclube.cidadeinternet.com.br/forum/index.php?act=ST&f=9&t=75 No mais, um abraço! João Gabriel From rodzadra em yahoo.com Wed Mar 30 10:58:24 2005 From: rodzadra em yahoo.com (Rod Za) Date: Wed Mar 30 10:58:34 2005 Subject: [Cascavel-pm] Editar arquivo como outro usuario. In-Reply-To: 6667 Message-ID: <20050330185824.4773.qmail@web50201.mail.yahoo.com> Luiz, eu náo estou falando contra nem a favor. :) pelo que entendi vc havi me dito que o melhor seria eu mudar o grupo do arquivo smb.conf e dar permissao de escrita para o grupo 'lp' do que usar o sudo: > >>>> Acho melhor mudar o grupo do arquivo smb.conf para o 'lp' e liberar o acesso > >>>> de escrita nele para o grupo 'lp'. (O q vc acha?) > >>Certamente é muito melhor que liberar acesso ao "sudo" para um usuário não-humano. > >> Eu recomendo também que você estude a possibilidade de fazer seus > >>scripts setuid-root seletivamente, jogando os privilégios de root fora > >>assim que não precisar mais deles. Mas pelo que li por toda a parte e que o suidperl muito provavelmente vai estar fora e todos recomendavam nao utiliza-lo por questoes de seguranca. Achei varias pessoas indicando usar um wrapper em C para rodar o script com mais seguranca! Quanto a rodar scrits com o setuid-root eu nao me sinto muito a vontade para faze-lo (sou muito novo na linguagem Perl). De qualquer forma, vc ha de concordar comigo que quanto menos "privilegios" o script tiver mais seguros eles (teoricamente) sao, ou nao? :) --- Luis Campos de Carvalho wrote: > Rod Za wrote: > > Champs wrote: > >> Eu recomendo também que você estude a possibilidade de fazer seus > >>scripts setuid-root seletivamente, jogando os privilégios de root fora > >>assim que não precisar mais deles. > > > > Entao eh melhor mesmo! Estou querendo evitar o maximo scripts com setuid-root, mesmo porq > pegando > > como exemplo o OpenWebMail que roda como setuid-root e de "quando em vez" aparede alguma > brecha de > > seguranca. Alias o sistema que estou montando nao roda em parte alguma com setuid-root. > > > > Eu não entendi. Parece que você está falando *contra* o uso de > setuid-root, mas eu estou falando *a* *favor*... > > Explique-se, meu caro, por favor... > Putamplexos! > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Sao Paulo PM Leader, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com From rodzadra em yahoo.com Wed Mar 30 11:05:05 2005 From: rodzadra em yahoo.com (Rod Za) Date: Wed Mar 30 11:05:24 2005 Subject: [Cascavel-pm] Editar arquivo como outro usuario. In-Reply-To: 6667 Message-ID: <20050330190506.7556.qmail@web50201.mail.yahoo.com> Alceu, O site http://sgqi.codigolivre.org.br esta de pe novamente. Mas vou adiantar q a versao do SGQI q esta nele eh bem velhinha - foi uma das primeiras :) De qualquer forma se quiser dar uma olhadinha no codigo e fazer criticas, vai ser bem vindo. um abraco, Rodrigo --- "Alceu R. de Freitas Jr." wrote: > Quando você o website estiver ok, por favor nos mande > a url! :-D __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com From jamorreu em gmail.com Wed Mar 30 12:18:24 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Wed Mar 30 12:18:33 2005 Subject: [Cascavel-pm] Patrocinio de livro. Message-ID: <8ff2963a05033012186d6283d7@mail.gmail.com> Salve!! Algum monge da lista, me consegue um patrocinio de algum livro (novo ou velho) de programação Perl, para presentear os ganhadores do concurso de programação? Acho que enviar um livro a alguém seria mais que um simples prêmio, seria dar informações a pessoa =) Enviei um e-mail a Apress solicitando, mas como o concurso é do CGiClube e não do Vitoria-pm não sei se rola... Um abraço João Gabriel From marco.lima em e-via.com.br Wed Mar 30 12:32:51 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Mar 30 12:33:14 2005 Subject: [Cascavel-pm] Patrocinio de livro. Message-ID: Pq vc não faz uma parceria do CGIClube com o Vitória.PM ? > Salve!! > > Algum monge da lista, me consegue um patrocinio de algum livro (novo > ou velho) de programação Perl, para presentear os ganhadores do > concurso de programação? > > Acho que enviar um livro a alguém seria mais que um simples prêmio, > seria dar informações a pessoa =) > > Enviei um e-mail a Apress solicitando, mas como o concurso é do > CGiClube e não do Vitoria-pm não sei se rola... > > Um abraço > João Gabriel > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > Marco Lima J. A. P. H. marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Sociedade Perl do Brasil | http://www.perl.org.br Perl Monks | http://www.perlmonks.org Brasil Perl Mongers | http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From pmpoa em galvao.eti.br Wed Mar 30 12:37:27 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Wed Mar 30 12:36:56 2005 Subject: [Cascavel-pm] Patrocinio de livro. In-Reply-To: <8ff2963a05033012186d6283d7@mail.gmail.com> References: <8ff2963a05033012186d6283d7@mail.gmail.com> Message-ID: <424B0E07.5000805@galvao.eti.br> Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050330/10e82d29/attachment.htm From glasswalk3r em yahoo.com.br Wed Mar 30 12:45:34 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Wed Mar 30 12:45:47 2005 Subject: [Cascavel-pm] Fwd: Caravana Tempo Real para FISL [off-topic] Message-ID: <20050330204534.33145.qmail@web31503.mail.mud.yahoo.com> Olá monges, Isso é off-topic, não ganho nada da Tempo Real mas parece interessante para quem quiser participar do FISL. []'s Alceu --- Caravana Tempo Real wrote: > De: "Caravana Tempo Real" > > Para: > Assunto: Caravana Tempo Real para FISL > Data: Wed, 30 Mar 2005 17:22:20 -0300 > > > Nós, da Livraria Tempo Real, já estivemos presentes > em edições > anteriores do Fórum Internacional de Software Livre > e sabemos que muitos > dos nossos clientes têm interesse em participar. > Como temos lojas em São > Paulo e Porto Alegre decidimos organizar, em > parceria com a BRA – > Transportes Aéreos, a 1ª Caravana Tempo Real de São > Paulo para Porto > Alegre. > > Alceu, como você comentou que têm mais 4 pessoas > interessadas em > participar da Caravana gostaria de saber se você > pode retransmitir o > e-mail para elas ou se você me passar os e-mails > para enviamos estas > informações para elas. > > Oferecemos pacotes aéreos de ida e volta com a > seguinte programação: > > Ida: > Data: 31/05/05 (terça-feira) > Horário: saída de São Paulo às 21h30 e chegada em > Porto Alegre às 23h05 > (horário previsto sujeito a alteração) > Local: Aeroporto de Guarulhos – São Paulo > A BRA oferece transporte gratuito da Barra Funda > para o aeroporto de > Guarulhos. > > Volta: > Data: 05/06/05 (domingo) > Horário: saída de Porto Alegre às 15h10 e chegada em > São Paulo às 17h50 > (horário previsto sujeito a alteração) > Local: Aeroporto de Guarulhos – São Paulo > A BRA oferece transporte gratuito do aeroporto de > Guarulhos para a Barra > Funda. > > O valor do pacote aéreo (ida e volta) que a Livraria > Tempo Real está > oferecendo é de R$ 380,20 mais a taxa de embarque > ida e volta de R$ > 19,80 (preço sujeito a alterações sem aviso prévio). > > Formas de Pagamento: > O pagamento será realizado para a Livraria Tempo > Real e poderá ser da > seguinte forma: > * À vista (dinheiro, cheque ou cartão). > * Parcelado (cartão ou dinheiro) poderá ser > realizado em até 4 > vezes com acréscimo de 5%, ou seja 1 + 3 vezes de R$ > 99,80 mais taxa de > embarque de R$ 19,80. Neste caso a taxa de embarque > será cobrada na 1ª > parcela. > > Vantagens em participar da Caravana Tempo Real: > * Preços especiais, pois comparando os valores da > Internet hoje > dia 30/03 com base em horários próximos temos: > Gol: Ida e volta R$ 444,00 > BRA: Ida e volta R$ 410,00 > Tempo Real: Ida e R$ 380,20 > * Desconto especial na inscrição FISL – assim que > você realizar > sua inscrição na caravana você receberá um código > que dará um desconto > especial em sua inscrição no Fórum. > * Indicação de Hotéis para você poder fazer a sua > reserva com > preços especiais. > * Terá a oportunidade de viajar e conhecer pessoas > que têm os > mesmos interesses que você. > * Participar de sorteios de brindes da Tempo Real e > seus > parceiros. > > Reserve já o seu lugar preenchendo as informações > abaixo e nos enviando > até 15/04/05. Em breve entraremos em contato com > você. Mas atenção, para > esta tarifa especial temos lugares limitados !!! > > Nome Completo: > Idade: > RG: > CPF: > Telefone: > e-mail: > Forma de pagamento: > > Qualquer dúvida estamos á disposição pelo e-mail > caravanafisl2005@temporeal.com.br. > > Um abraço, > > Livraria Tempo Real > A Livraria do Profissional de Informática Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ From monsieur_champs em yahoo.com.br Wed Mar 30 15:37:59 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Mar 30 15:38:18 2005 Subject: [Cascavel-pm] Concurso de =?ISO-8859-1?Q?programa=E7=E3o_-?= =?ISO-8859-1?Q?_Pr=EAmios_confirmados?= In-Reply-To: <8ff2963a05033010545817c4b4@mail.gmail.com> References: <8ff2963a05033010545817c4b4@mail.gmail.com> Message-ID: <424B3857.9030604@yahoo.com.br> João Gabriel wrote: > Quem quiser ficar por dentro, enviar sugestões, críticas, apoio moral > ou prêmios, acessar: > http://cgiclube.cidadeinternet.com.br/forum/index.php?act=ST&f=9&t=75 Hum. Novamente, o link para o fórum... já que há um concurso, por que não há uma página onde se possa ficar atualizado sobre o concurso? Pense seriamente na possibilidade de admitir times... o SP-PM poderia enviar um time para o concurso. Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From monsieur_champs em yahoo.com.br Wed Mar 30 15:42:38 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Mar 30 15:42:54 2005 Subject: [Cascavel-pm] Editar arquivo como outro usuario. In-Reply-To: <20050330185824.4773.qmail@web50201.mail.yahoo.com> References: <20050330185824.4773.qmail@web50201.mail.yahoo.com> Message-ID: <424B396E.30206@yahoo.com.br> Rod Za wrote: > Luiz, eu náo estou falando contra nem a favor. :) > > pelo que entendi vc havi me dito que o melhor seria eu mudar o grupo do arquivo smb.conf e dar > permissao de escrita para o grupo 'lp' do que usar o sudo: *Negativo*. Eu disse exatamente o contrário: "[usar setuid-root] Certamente é muito melhor uqe liberar acesso ao 'sudo' para um usuário não-humano". > Mas pelo que li por toda a parte e que o suidperl muito provavelmente vai estar fora e todos > recomendavam nao utiliza-lo por questoes de seguranca. Achei varias pessoas indicando usar um > wrapper em C para rodar o script com mais seguranca! Eu não disse para você usar suidperl. Disse para você usar a técnica de programação para ambiente unix "setuid-root". :-) Desculpe o "mail" entendido... ;-) > Quanto a rodar scrits com o setuid-root eu nao me sinto muito a vontade para faze-lo (sou muito > novo na linguagem Perl). De qualquer forma, vc ha de concordar comigo que quanto menos > "privilegios" o script tiver mais seguros eles (teoricamente) sao, ou nao? :) Pesquise mais sobre "taint mode", ou leia a documentação do switch "-T". Isso vai ajudar você. Mas não fique intimidado: construir programas que se aproveitam do sistema de usuários do unix não é mesmo fácil. Peça a pessoas de confiança que revisem seu código e lembre-se de que *sempre* haverá alguém que fará por merecer o acesso ao seu sistema (com um hack genial, daqueles de levantar a platéia e tirar o chapéu, por exemplo) Espero ter deixado minha posição mais clara agora... :-) Putamplexos, boa leitura e muito boa sorte! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From monsieur_champs em yahoo.com.br Wed Mar 30 15:49:09 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Mar 30 15:49:20 2005 Subject: [Cascavel-pm] Patrocinio de livro. In-Reply-To: <8ff2963a05033012186d6283d7@mail.gmail.com> References: <8ff2963a05033012186d6283d7@mail.gmail.com> Message-ID: <424B3AF5.704@yahoo.com.br> João Gabriel wrote: > Salve!! > > Algum monge da lista, me consegue um patrocinio de algum livro (novo > ou velho) de programação Perl, para presentear os ganhadores do > concurso de programação? > > Acho que enviar um livro a alguém seria mais que um simples prêmio, > seria dar informações a pessoa =) > > Enviei um e-mail a Apress solicitando, mas como o concurso é do > CGiClube e não do Vitoria-pm não sei se rola... > O pessoal da Apress consulta a lista de líderes e o registro de grupos que eles mantém. Se você se cadastrou e se identificou como líder de um grupo, pode pedir o patrocínio. -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From glasswalk3r em yahoo.com.br Thu Mar 31 04:42:51 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Thu Mar 31 04:43:02 2005 Subject: [Cascavel-pm] Editar arquivo como outro usuario. In-Reply-To: 6667 Message-ID: <20050331124251.7362.qmail@web31507.mail.mud.yahoo.com> --- Luis Campos de Carvalho wrote: > *Negativo*. Eu disse exatamente o contrário: > "[usar setuid-root] > Certamente é muito melhor uqe liberar acesso ao > 'sudo' para um usuário > não-humano". Exceto se o programa que se quer executar necessita de direitos de root. Nesse caso, eu acredito que o Sudo seja uma solução melhor do que dar direitos de root a um programa. > Eu não disse para você usar suidperl. Disse para > você usar a técnica > de programação para ambiente unix "setuid-root". :-) > Desculpe o "mail" > entendido... ;-) Bem, nesse caso você pode fazer o script abrir o smb.conf com os direitos necessários, e depois criar um processo filho com direitos menores. O processo filho vai ter acesso somente ao arquivo, já que ele herda o filehand do processo pai. Isso pode ser o que você precisa. > Pesquise mais sobre "taint mode", ou leia a > documentação do switch > "-T". Isso vai ajudar você. Mas não fique > intimidado: construir > programas que se aproveitam do sistema de usuários > do unix não é mesmo > fácil. Na verdade, é um saco usar Taint mode. Considere escrever seu programa primeiro e depois tentar habilitar o Taint. Ele realmente ajuda a você construir programas mais seguros, mas gera um trabalho extra. Habilite o módulo Diagnostics use diagnostics; se você não entender sobre o que o modo Taint está se queixando. O módulo Safe pode ser interessante também, mas eu mesmo nunca usei. Parece um tanto intrincado utilizá-lo. []'s Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ From fglock em pucrs.br Thu Mar 31 04:57:31 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Thu Mar 31 04:59:13 2005 Subject: [Cascavel-pm] YAPC::Brasil::2005 - Convidados estrangeiros Message-ID: <200503311259.j2VCx3Jo058563@rigel.pucrs.br> O Luis disse que viria para o YAPC::Brasil::2005 se o Randal Schwartz viesse. Luis, pode comprar a passagem: > merlyn says Yes... my talk has been accepted. > Now I need to learn Portuguese and make the rest > of my plans. :) - Flavio S. Glock From acid06 em gmail.com Thu Mar 31 07:46:27 2005 From: acid06 em gmail.com (Nilson Santos) Date: Thu Mar 31 07:46:36 2005 Subject: [Cascavel-pm] YAPC::Brasil::2005 - Convidados estrangeiros In-Reply-To: <200503311259.j2VCx3Jo058563@rigel.pucrs.br> References: <200503311259.j2VCx3Jo058563@rigel.pucrs.br> Message-ID: <9a08c9b4050331074651a63ab9@mail.gmail.com> NOSSA Agora até eu estou pensando em ir. Quando é a data mesmo? -Nilson Santos F. Jr. On Thu, 31 Mar 2005 12:57:31 GMT, fglock@pucrs.br wrote: > O Luis disse que viria para o YAPC::Brasil::2005 > se o Randal Schwartz viesse. > > Luis, pode comprar a passagem: > > > merlyn says Yes... my talk has been accepted. > > Now I need to learn Portuguese and make the rest > > of my plans. :) > > - Flavio S. Glock > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > From fglock em pucrs.br Thu Mar 31 08:02:10 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Thu Mar 31 08:03:54 2005 Subject: [Cascavel-pm] YAPC::Brasil::2005 - Convidados estrangeiros Message-ID: <200503311603.j2VG3gJo099787@rigel.pucrs.br> > NOSSA > Agora até eu estou pensando em ir. > > Quando é a data mesmo? 1 a 4 de junho - Veja o site: http://yapc.org/Brasil Também temos um link na página principal! http://yapc.org - Flavio S. Glock > On Thu, 31 Mar 2005 12:57:31 GMT, fglock@pucrs.br wrote: > > O Luis disse que viria para o YAPC::Brasil::2005 > > se o Randal Schwartz viesse. > > > > Luis, pode comprar a passagem: > > > > > merlyn says Yes... my talk has been accepted. > > > Now I need to learn Portuguese and make the rest > > > of my plans. :) > > > > - Flavio S. Glock > > > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm@pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > From acid06 em gmail.com Thu Mar 31 10:02:35 2005 From: acid06 em gmail.com (Nilson Santos) Date: Thu Mar 31 10:03:07 2005 Subject: [Cascavel-pm] YAPC::Brasil::2005 - Convidados estrangeiros In-Reply-To: <200503311603.j2VG3gJo099787@rigel.pucrs.br> References: <200503311603.j2VG3gJo099787@rigel.pucrs.br> Message-ID: <9a08c9b4050331100244e6f321@mail.gmail.com> Sim, essa é a data do FISL. O que eu queria saber mesmo eram em quais dias acontecerão (ou estarão concentradas) os eventos diretamente relacionados ao YAPC::Brasil. Ou isso ainda não está definido? Só para poder avaliar tudo direitinho. -Nilson Santos F. Jr. On Thu, 31 Mar 2005 16:02:10 GMT, fglock@pucrs.br wrote: > > NOSSA > > Agora até eu estou pensando em ir. > > > > Quando é a data mesmo? > > 1 a 4 de junho - Veja o site: > > http://yapc.org/Brasil > > Também temos um link na página principal! > > http://yapc.org > > - Flavio S. Glock > > > > On Thu, 31 Mar 2005 12:57:31 GMT, fglock@pucrs.br > wrote: > > > O Luis disse que viria para o YAPC::Brasil::2005 > > > se o Randal Schwartz viesse. > > > > > > Luis, pode comprar a passagem: > > > > > > > merlyn says Yes... my talk has been accepted. > > > > Now I need to learn Portuguese and make the rest > > > > of my plans. :) > > > > > > - Flavio S. Glock > > > > > > > > > _______________________________________________ > > > Cascavel-pm mailing list > > > Cascavel-pm@pm.org > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm@pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > From marco.lima em e-via.com.br Thu Mar 31 10:07:10 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Thu Mar 31 10:07:33 2005 Subject: [Cascavel-pm] YAPC::Brasil::2005 - Convidados estrangeiros Message-ID: Nilson: O YAPC::Brasil estará acontecendo em paralelo com o FISL, no dia primeiro teremos o maior numero de atividades relacionadas ao nosso evento, mas durante os outros dias do FISL também serão realizadas diversas atividades. [ ]'ção > Sim, essa é a data do FISL. > O que eu queria saber mesmo eram em quais dias acontecerão (ou estarão > concentradas) os eventos diretamente relacionados ao YAPC::Brasil. > > Ou isso ainda não está definido? > > Só para poder avaliar tudo direitinho. > > -Nilson Santos F. Jr. > > > On Thu, 31 Mar 2005 16:02:10 GMT, fglock@pucrs.br wrote: > > > NOSSA > > > Agora até eu estou pensando em ir. > > > > > > Quando é a data mesmo? > > > > 1 a 4 de junho - Veja o site: > > > > http://yapc.org/Brasil > > > > Também temos um link na página principal! > > > > http://yapc.org > > > > - Flavio S. Glock > > > > > > > On Thu, 31 Mar 2005 12:57:31 GMT, fglock@pucrs.br > > wrote: > > > > O Luis disse que viria para o YAPC::Brasil::2005 > > > > se o Randal Schwartz viesse. > > > > > > > > Luis, pode comprar a passagem: > > > > > > > > > merlyn says Yes... my talk has been accepted. > > > > > Now I need to learn Portuguese and make the rest > > > > > of my plans. :) > > > > > > > > - Flavio S. Glock > > > > > > > > > > > > _______________________________________________ > > > > Cascavel-pm mailing list > > > > Cascavel-pm@pm.org > > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > > > > _______________________________________________ > > > Cascavel-pm mailing list > > > Cascavel-pm@pm.org > > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > > > > > > > > _______________________________________________ > > Cascavel-pm mailing list > > Cascavel-pm@pm.org > > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > Marco Lima J. A. P. H. marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Sociedade Perl do Brasil | http://www.perl.org.br Perl Monks | http://www.perlmonks.org Brasil Perl Mongers | http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From monsieur_champs em yahoo.com.br Thu Mar 31 10:51:03 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Thu Mar 31 10:51:23 2005 Subject: [Cascavel-pm] Editar arquivo como outro usuario. In-Reply-To: <20050331124251.7362.qmail@web31507.mail.mud.yahoo.com> References: <20050331124251.7362.qmail@web31507.mail.mud.yahoo.com> Message-ID: <424C4697.1090500@yahoo.com.br> Alceu R. de Freitas Jr. wrote: > Exceto se o programa que se quer executar necessita de > direitos de root. Nesse caso, eu acredito que o Sudo > seja uma solução melhor do que dar direitos de root a > um programa. E o sudo(1) por acaso é um humano? Alceu, ao utilizar o sudo, você apenas migrou o problema de lugar. Ainda existe a possibilidade de um daemon ser corrompido e poder executar um único comando como superuser. E ainda é possivel corromper o sistema através disso. Sem exageros, não vai fazer a menor diferença se é o seu programa ou o sudo(1) quem é SetUID. > Bem, nesse caso você pode fazer o script abrir o > smb.conf com os direitos necessários, e depois criar > um processo filho com direitos menores. O processo > filho vai ter acesso somente ao arquivo, já que ele > herda o filehand do processo pai. Isso pode ser o que > você precisa. Este é um caminho. Eu me arriscaria ainda mais, especulando que pode ser possível determinar bem cedo na execução do sistema se precisamos ou não dos direitos do root, e abdicar deles (assumindo a identidade de um daemon com menos privilégios) *bem* *cedo* na execução do sistema. > Na verdade, é um saco usar Taint mode. Considere > escrever seu programa primeiro e depois tentar > habilitar o Taint. Ele realmente ajuda a você > construir programas mais seguros, mas gera um trabalho > extra. Habilite o módulo Diagnostics > > use diagnostics; > > se você não entender sobre o que o modo Taint está se > queixando. > > O módulo Safe pode ser interessante também, mas eu > mesmo nunca usei. Parece um tanto intrincado > utilizá-lo. > Acho que o prof. Graciliano Passos escreveu uma extensão chamada Safe::World, que parece mais simples de usar. É basicamente como deixar o Taint para o próprio Perl resolver, e pode ser mais simples para entender. Espero estar ajudando. Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From jamorreu em gmail.com Thu Mar 31 10:54:44 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Thu Mar 31 10:54:54 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?Concurso_de_programa=E7=E3o_-_Pr=EA?= =?iso-8859-1?q?mios_confirmados?= Message-ID: <8ff2963a0503311054353dbcca@mail.gmail.com> Luis Campos de Carvalho... > Hum. Novamente, o link para o fórum... já que há um concurso, por que > não há uma página onde se possa ficar atualizado sobre o concurso? fórum é mais fácil pra atualizar =) > Pense seriamente na possibilidade de admitir times... o SP-PM poderia > enviar um time para o concurso. Eu tava pensando em chamar pessoas daqui da lista pra virarem juizes e analisar os códigos (já que vocês tem mais experiencia que eu). O concurso é todos contra todos (admins da CGiClube.net e juizem não podem participar). Um abraço, João Gabriel From monsieur_champs em yahoo.com.br Thu Mar 31 11:00:41 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Thu Mar 31 11:01:04 2005 Subject: [Cascavel-pm] Concurso de =?ISO-8859-1?Q?programa=E7=E3o_-?= =?ISO-8859-1?Q?_Pr=EAmios_confirmados?= In-Reply-To: <8ff2963a0503311054353dbcca@mail.gmail.com> References: <8ff2963a0503311054353dbcca@mail.gmail.com> Message-ID: <424C48D9.4030309@yahoo.com.br> João Gabriel wrote: > fórum é mais fácil pra atualizar =) OK, ok, "lazyness" é uma boa qualidade para um programador Perl. JG++ > Eu tava pensando em chamar pessoas daqui da lista pra virarem juizes e > analisar os códigos (já que vocês tem mais experiencia que eu). Sabe que esta pode não ser uma má idéia? :-) > O concurso é todos contra todos (admins da CGiClube.net e juizem não > podem participar). Eu estou ansioso para saber quais as propostas. Se tiver prova de Perl Golf, eu gostaria muito de participar. Putamplexos e boa sorte! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Sao Paulo PM Leader, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From marco.lima em e-via.com.br Thu Mar 31 11:00:44 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Thu Mar 31 11:01:08 2005 Subject: [Cascavel-pm] Concurso de programação - Prêmios confirmados Message-ID: Sugestão !! Vc pode especificar uma aplicação para ser desenvolvida, nada muito absurdo ... acho que a idéia não é essa ! ... e vc pode ter três modalidades: o menor código, o melhor em performance e o mais obscuro ! *<;-P [ ]'ção > Luis Campos de Carvalho... > > Hum. Novamente, o link para o fórum... já que há um concurso, por que > > não há uma página onde se possa ficar atualizado sobre o concurso? > > fórum é mais fácil pra atualizar =) > > > Pense seriamente na possibilidade de admitir times... o SP-PM poderia > > enviar um time para o concurso. > > Eu tava pensando em chamar pessoas daqui da lista pra virarem juizes e > analisar os códigos (já que vocês tem mais experiencia que eu). > > O concurso é todos contra todos (admins da CGiClube.net e juizem não > podem participar). > > Um abraço, > João Gabriel > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > Marco Lima J. A. P. H. marco.lima@e-via.com.br mago@rio.pm.org +55 19 96 56 06 46 Sociedade Perl do Brasil | http://www.perl.org.br Perl Monks | http://www.perlmonks.org Brasil Perl Mongers | http://brasil.pm.org Register Linux User #355235 Slackware Linux, for the subgenius From glasswalk3r em yahoo.com.br Thu Mar 31 11:26:54 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Thu Mar 31 11:27:05 2005 Subject: [Cascavel-pm] Editar arquivo como outro usuario. In-Reply-To: 6667 Message-ID: <20050331192654.93651.qmail@web31508.mail.mud.yahoo.com> --- Luis Campos de Carvalho wrote: > E o sudo(1) por acaso é um humano? > Alceu, ao utilizar o sudo, você apenas migrou o > problema de lugar. > Ainda existe a possibilidade de um daemon ser > corrompido e poder > executar um único comando como superuser. E ainda é > possivel corromper o > sistema através disso. Sem exageros, não vai fazer a > menor diferença se > é o seu programa ou o sudo(1) quem é SetUID. Discordo porque: 1 - O Sudo faz log junto ao syslog em caso de problemas. 2 - Pode checar uma porção de coisas antes de permitir a execução, entre elas IP da máquina que solicita. 3 - Permite apenas que o comando especificado seja executado com poderes de root. Se o daemon for corrompido ele vai executar o comando de qualquer forma, com o Sudo ou com o setuid. Só que com o Sudo isso fica um pouco mais complicado. Isso não resolve o problema completamente, nisso eu concordo, mas minimiza o estrago. Principalmente se você criar um wrapper que faça o mínimo necessário com poderes de root e incluir ele no sudoers. É claro, na situação do programa do Rod isso não se aplica porque ela não precisa de direitos de root. Portanto, nesse caso, o setuid ficaria melhor mesmo. > Acho que o prof. Graciliano Passos escreveu uma > extensão chamada > Safe::World, que parece mais simples de usar. É > basicamente como deixar > o Taint para o próprio Perl resolver, e pode ser > mais simples para entender. Vou dar uma olhada nesse módulo. Valeu a dica! []'s Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net ----------------------------------------------------------------------- A well-used door needs no oil on its hinges. A swift-flowing stream does not grow stagnant. Neither sound nor thoughts can travel through a vacuum. Software rots if not used. These are great mysteries -- The Tao Of Programming, 5.1 __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/