From jamorreu em gmail.com Fri Apr 1 13:50:23 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Fri Apr 1 13:50:35 2005 Subject: [Cascavel-pm] Como descompilar scripts? Message-ID: <8ff2963a050401135061c18265@mail.gmail.com> Olá pessoal! Como descompilar scripts Perl (aqueles que são transformados em executavel) ? um abraço, João Gabriel From shonorio em terra.com.br Sat Apr 2 08:20:02 2005 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Sat Apr 2 08:20:06 2005 Subject: =?iso-8859-1?Q?RE:_=5BCascavel-pm=5D_O_Website_do_S=E3o_Paulo_Perl_Mong?= =?iso-8859-1?Q?ers_est=E1_de_ca_ra_nova!?= In-Reply-To: <4242FB12.7060400@yahoo.com.br> Message-ID: <000001c5379f$d331a120$0201010a@eraser> Luis, Estou lendo mal ou o Alceu tem 20 minutos para falar sobre POO ? Outra coisa, onde possso pegar o busão, ou uma carona :-) com destino ao encontro ? Solli From monsieur_champs em yahoo.com.br Sun Apr 3 06:29:05 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Sun Apr 3 06:29:25 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: <000001c5379f$d331a120$0201010a@eraser> References: <000001c5379f$d331a120$0201010a@eraser> Message-ID: <424FEFA1.7090705@yahoo.com.br> Solli Moreira Honorio wrote: > Luis, > > Estou lendo mal ou o Alceu tem 20 minutos para falar sobre POO ? > > Outra coisa, onde possso pegar o busão, ou uma carona :-) com destino ao > encontro ? > Se você for insociável a ponto de pegar o busão, eu não me importo. Mas se quiser uma carona, vamos rachar os custos da gasolina e pedágio, e vamos no meu carro. Confirmados, eu você(?) e o Nélson Ferraz. Ainda está um pouco longe para a gente saber de ponto de encontro e outros detalhes, eu conto para vocês mais para frente (nem sei onde é exatamente ainda)... 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 Mon Apr 4 05:29:44 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Mon Apr 4 05:29:18 2005 Subject: [Cascavel-pm] YAPC::Brasil::2005 - =?iso-8859-1?q?Informa=E7=F5es?= Message-ID: <42513338.5090402@galvao.eti.br> Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050404/a754c9e1/attachment.htm From marco.lima em e-via.com.br Mon Apr 4 06:53:30 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Mon Apr 4 06:53:47 2005 Subject: [Cascavel-pm] O Website do São Paulo Perl Mongers está de ca ra nova! Message-ID: Endereço no site http://rio.pm.org > Solli Moreira Honorio wrote: > > Luis, > > > > Estou lendo mal ou o Alceu tem 20 minutos para falar sobre POO ? > > > > Outra coisa, onde possso pegar o busão, ou uma carona :-) com destino ao > > encontro ? > > > > Se você for insociável a ponto de pegar o busão, eu não me importo. > Mas se quiser uma carona, vamos rachar os custos da gasolina e > pedágio, e vamos no meu carro. Confirmados, eu você(?) e o Nélson Ferraz. > > Ainda está um pouco longe para a gente saber de ponto de encontro e > outros detalhes, eu conto para vocês mais para frente (nem sei onde é > exatamente ainda)... > > 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 rodzadra em yahoo.com Mon Apr 4 12:46:53 2005 From: rodzadra em yahoo.com (Rod Za) Date: Mon Apr 4 12:47:04 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?Como_dividir_uma_classe_em_=2Epm=27?= =?iso-8859-1?q?s_mais_espec=EDficos=3F?= Message-ID: <20050404194653.58445.qmail@web50201.mail.yahoo.com> Olá. Eu criei uma classe com vários metodos em um único arquivo .pm e este está funcionando perfeitamente só que ficou muito grande o arquivo e a manutenćão está um pouco confusa por este motivo. Eu gostaria de saber como posso fazer para separar alguns métodos (por especialidade) em outros arquivos .pm e que estes faćam parte da classe principal. Ex: classe_principal.pm metodos_db_da_classe_principal.pm metodos_para_lidar_com_outras_coisas_especificas.pm Muito obrigado, Rodrigo __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com From mda em embratel.net.br Mon Apr 4 13:00:18 2005 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Mon Apr 4 13:00:28 2005 Subject: =?ISO-8859-1?Q?Re=3A_=5BCascavel-pm=5D_Como_dividir_uma_?= =?ISO-8859-1?Q?classe_em_=2Epm=27s_mais_espec=EDficos=3F?= In-Reply-To: <20050404194653.58445.qmail@web50201.mail.yahoo.com> References: <20050404194653.58445.qmail@web50201.mail.yahoo.com> Message-ID: <42519CD2.1010507@embratel.net.br> Rodrigo, Em minha opinião vc deve separar apenas os packages, se existirem, seguindo o modelo normal: Ex: package MDA; -> MDA.pm package MDA::Perl; -> MDA/Perl.pm package MDA::Perl::Rio; -> MDA/Perl/Rio.pm ;) Existem recursos para usar outras estruturas, mas seriam contornos apenas... A exemplo, criar arquivos e usar require/use especiais: > Test.pm package Test; use Second; require "Thirth.pm"; ... sub a ... sub b ... 1; > Second.pm package Test; sub c... sub d ... 1; > Thirth.pm package Test; sub d... sub e... #----------- Sds, Marco Antonio Rod Za wrote: >Olá. > >Eu criei uma classe com vários metodos em um único arquivo .pm e este está funcionando >perfeitamente só que ficou muito grande o arquivo e a manutenćão está um pouco confusa por >este motivo. > >Eu gostaria de saber como posso fazer para separar alguns métodos (por especialidade) em outros >arquivos .pm e que estes faćam parte da classe principal. > >Ex: classe_principal.pm > metodos_db_da_classe_principal.pm > metodos_para_lidar_com_outras_coisas_especificas.pm > >Muito obrigado, > >Rodrigo > > > >__________________________________________________ >Do You Yahoo!? >Tired of spam? Yahoo! Mail has the best spam protection around >http://mail.yahoo.com > > >------------------------------------------------------------------------ > >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm@pm.org >http://mail.pm.org/mailman/listinfo/cascavel-pm > From daniel em ruoso.com Mon Apr 4 13:06:24 2005 From: daniel em ruoso.com (Daniel Ruoso) Date: Mon Apr 4 13:06:39 2005 Subject: [Cascavel-pm] Como dividir uma classe em .pm's mais =?ISO-8859-1?Q?espec=EDficos=3F?= In-Reply-To: <20050404194653.58445.qmail@web50201.mail.yahoo.com> References: <20050404194653.58445.qmail@web50201.mail.yahoo.com> Message-ID: <1112645183.1412.24.camel@localhost> Em Seg, 2005-04-04 às 16:46, Rod Za escreveu: > Eu criei uma classe com vrios metodos em um nico arquivo .pm e este est funcionando > perfeitamente s que ficou muito grande o arquivo e a manutenćo est um pouco confusa por > este motivo. > Eu gostaria de saber como posso fazer para separar alguns mtodos (por especialidade) em outros > arquivos .pm e que estes faćam parte da classe principal. > Ex: classe_principal.pm > metodos_db_da_classe_principal.pm > metodos_para_lidar_com_outras_coisas_especificas.pm Hmmmm... isso me cheira a falta de herança, definição de módulos acessórios e outras coisas assim... é claro que vendo o código seria possível entender melhor, mas me parece que você está colocando coisa demais na mesma classe, não? Se ela acessa o banco de dados, a classe provavelmente representa uma tabela no banco de dados, certo? se for isso, os métodos de acesso devem provavelmente estar em uma superclasse de todas as classes de entidade (esse é o nome que se dá para classes que representam dados persistidos). quanto aos métodos para lidar com outras coisas específicas, me parece que são regras de negócio, então, em geral, você deveria estar colocando isso em classes separadas mesmo. Mas, se você nao quiser rever a estrutura da sua aplicação como um todo você pode usar o exporter. Tipo assim... classe específica 1: package Classe_para_lidar_com_db; use base qw(Exporter); @EXPORT = qw(metodo1 metodo2); [...] classe especifica 2: package Classe_especifica; use base qw(Exporter); @EXPORT = qw(metodo3 metodo4); [...] classe principal: package Classe_principal; use Classe_para_lidar_com_db; use Classe_especifica; sub bla { # aqui eu posso chamar os metodos metodo1(); my $self = shift; # mesmo se for usando a sintaxe OO $self->metodo2(); # ou a outra sintaxe OO metodo3 Classe_principal(); } Mas eu realmente recomendo que você revise a arquitetura do seu aplicativo... daniel From rodzadra em yahoo.com Mon Apr 4 13:31:28 2005 From: rodzadra em yahoo.com (Rod Za) Date: Mon Apr 4 13:31:38 2005 Subject: [Cascavel-pm] Como dividir uma classe em .pm's mais específicos? In-Reply-To: 6667 Message-ID: <20050404203128.60959.qmail@web50203.mail.yahoo.com> Marco, que rapidez meu amigo. Valeu mesmo! :) Se eu fizer essas declaraćões/estrutura como vc propos, as funcoes contidas em Second.pm e Thirth.pm farão da classe Test.pm? Ex: Arquivo Test.pm package Test; use Second; sub new{ my $proto = shift; my $class = ref($proto) || $proto; my $self = {}; bless $self, $class; return $self; } sub ret_two{ my $self = shift; return $self->say_two(); 1; } Arquivo Second.pm package second; #?? tá certo?? sub say_two{ my $self = shift; print "two = 2"; } 1; valeu, Rodrigo --- Marco A P D´Andrade wrote: > Rodrigo, > > Em minha opinião vc deve separar apenas os packages, se existirem, > seguindo o modelo normal: > > Ex: > > package MDA; -> MDA.pm > package MDA::Perl; -> MDA/Perl.pm > package MDA::Perl::Rio; -> MDA/Perl/Rio.pm ;) > > Existem recursos para usar outras estruturas, mas seriam contornos > apenas... A exemplo, criar arquivos e usar require/use especiais: > > > Test.pm > package Test; > use Second; > require "Thirth.pm"; > ... > sub a ... > sub b ... > 1; > > > Second.pm > package Test; > sub c... > sub d ... > 1; > > > Thirth.pm > package Test; > sub d... > sub e... > #----------- > > > Sds, > Marco Antonio > > > Rod Za wrote: > > >Olá. > > > >Eu criei uma classe com vários metodos em um único arquivo .pm e este está funcionando > >perfeitamente só que ficou muito grande o arquivo e a manutenćão está um pouco confusa por > >este motivo. > > > >Eu gostaria de saber como posso fazer para separar alguns métodos (por especialidade) em outros > >arquivos .pm e que estes faćam parte da classe principal. > > > >Ex: classe_principal.pm > > metodos_db_da_classe_principal.pm > > metodos_para_lidar_com_outras_coisas_especificas.pm > > > >Muito obrigado, > > > >Rodrigo > > > > > > > >__________________________________________________ > >Do You Yahoo!? > >Tired of spam? Yahoo! Mail has the best spam protection around > >http://mail.yahoo.com > > > > > >------------------------------------------------------------------------ > > > >_______________________________________________ > >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 > __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com From rodzadra em yahoo.com Mon Apr 4 13:42:16 2005 From: rodzadra em yahoo.com (Rod Za) Date: Mon Apr 4 13:42:29 2005 Subject: [Cascavel-pm] Como dividir uma classe em .pm's mais específicos? In-Reply-To: 6667 Message-ID: <20050404204216.77814.qmail@web50205.mail.yahoo.com> Daniel Eu sou meio novo no Perl e acho realmente que minha aplicacao deixa muito a desejar:) Mas o q eu pretendia fazer eh mais ou menos o que voce me passou. Se eu entendi bem, se eu criar esses packages usando: > use base qw(Exporter); significa que os packages s?o "filhos" de Exporter, n?o eh? Desse modo onde eu devo criar a funcao "new" ? em cada um dos packages ou no package principal? muito obrigado, Rodrigo. ps. eu anexei o c?digo da classe (espero que n?o se assustem muito:) --- Daniel Ruoso wrote: > Em Seg, 2005-04-04 ?s 16:46, Rod Za escreveu: > > Eu criei uma classe com vrios metodos em um nico arquivo .pm e este est funcionando > > perfeitamente s que ficou muito grande o arquivo e a manutenćo est um pouco confusa por > > este motivo. > > Eu gostaria de saber como posso fazer para separar alguns mtodos (por especialidade) em outros > > arquivos .pm e que estes faćam parte da classe principal. > > Ex: classe_principal.pm > > metodos_db_da_classe_principal.pm > > metodos_para_lidar_com_outras_coisas_especificas.pm > > Hmmmm... isso me cheira a falta de heran?a, defini??o de m?dulos > acess?rios e outras coisas assim... > > ? claro que vendo o c?digo seria poss?vel entender melhor, mas me parece > que voc? est? colocando coisa demais na mesma classe, n?o? > > Se ela acessa o banco de dados, a classe provavelmente representa uma > tabela no banco de dados, certo? se for isso, os m?todos de acesso devem > provavelmente estar em uma superclasse de todas as classes de entidade > (esse ? o nome que se d? para classes que representam dados > persistidos). > > quanto aos m?todos para lidar com outras coisas espec?ficas, me parece > que s?o regras de neg?cio, ent?o, em geral, voc? deveria estar colocando > isso em classes separadas mesmo. > > Mas, se voc? nao quiser rever a estrutura da sua aplica??o como um todo > voc? pode usar o exporter. > > Tipo assim... > > classe espec?fica 1: > > package Classe_para_lidar_com_db; > > use base qw(Exporter); > @EXPORT = qw(metodo1 metodo2); > > [...] > > classe especifica 2: > > package Classe_especifica; > > use base qw(Exporter); > @EXPORT = qw(metodo3 metodo4); > > [...] > > classe principal: > > package Classe_principal; > > use Classe_para_lidar_com_db; > use Classe_especifica; > > sub bla { > # aqui eu posso chamar os metodos > metodo1(); > > my $self = shift; > # mesmo se for usando a sintaxe OO > $self->metodo2(); > > # ou a outra sintaxe OO > metodo3 Classe_principal(); > } > > > Mas eu realmente recomendo que voc? revise a arquitetura do seu > aplicativo... > > > daniel > > _______________________________________________ > 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 -------------- Próxima Parte ---------- Um anexo não texto foi limpo... Nome : SGQI.pm Tipo : application/x-perl Tam : 37912 bytes Descr.: SGQI.pm Url : http://mail.pm.org/pipermail/cascavel-pm/attachments/20050404/82f16909/SGQI-0001.bin From daniel em ruoso.com Mon Apr 4 13:53:06 2005 From: daniel em ruoso.com (Daniel Ruoso) Date: Mon Apr 4 13:53:22 2005 Subject: [Cascavel-pm] Como dividir uma classe em .pm's mais =?ISO-8859-1?Q?espec=EDficos=3F?= In-Reply-To: <20050404204216.77814.qmail@web50205.mail.yahoo.com> References: <20050404204216.77814.qmail@web50205.mail.yahoo.com> Message-ID: <1112647986.1411.34.camel@localhost> Em Seg, 2005-04-04 às 17:42, Rod Za escreveu: > Eu sou meio novo no Perl e acho realmente que minha aplicacao deixa muito a desejar:) Mas o q eu > pretendia fazer eh mais ou menos o que voce me passou. Beleza. > Se eu entendi bem, se eu criar esses packages usando: > > use base qw(Exporter); > significa que os packages so "filhos" de Exporter, no eh? Isso mesmo. > Desse modo onde eu devo criar a funcao "new" ? em cada um dos packages ou no package principal? Os packages adicionais não precisam do new... A classe principal depende de você e de como voce usa. > ps. eu anexei o cdigo da classe (espero que no se assustem muito:) Vou dar uma olhada... [olhando...] Primeira coisa... você está colocando muita funcionalidade nessa classe. Crie classes acessórias para: 1) processar o arquivo de configurações (ou melhor, use um módulo da CPAN que faz isso). 2) gerar log (Sys::Syslog é uma boa opção) 3) Gerenciar as Impressoras 4) Gerenciar os usuários 5) Interpretar arquivos PS 6) Interpretar arquivos HP-PCL Se você criar módulos (pode ser OO) para cada uma dessas funções, a única coisa que você vai precisar no módulo principal é o processamento em si... e se você pensar cada uma dessas atividades isoladamente, reduzindo o acoplamento, você vai ver que o código como um todo vai ficar mais simples. Ou seja, implemente os módulos para cada uma das 6 coisas que eu listei como se fosse uma biblioteca independente, e depois utilize essas bibliotecas no código principal (que vai ser beeeeeeeeem menor). daniel From rodzadra em yahoo.com Mon Apr 4 14:37:23 2005 From: rodzadra em yahoo.com (Rod Za) Date: Mon Apr 4 14:37:35 2005 Subject: [Cascavel-pm] Como dividir uma classe em .pm's mais específicos? In-Reply-To: 6667 Message-ID: <20050404213724.34671.qmail@web50210.mail.yahoo.com> Daniel, Valeu mesmo pelas explicacoes, vou fazer o que voce sugeriu. Muitissimo obrigado, Rodrigo --- Daniel Ruoso wrote: > Em Seg, 2005-04-04 às 17:42, Rod Za escreveu: > > Eu sou meio novo no Perl e acho realmente que minha aplicacao deixa muito a desejar:) Mas o q > eu > > pretendia fazer eh mais ou menos o que voce me passou. > > Beleza. > > > Se eu entendi bem, se eu criar esses packages usando: > > > use base qw(Exporter); > > significa que os packages so "filhos" de Exporter, no eh? > > Isso mesmo. > > > Desse modo onde eu devo criar a funcao "new" ? em cada um dos packages ou no package > principal? > > Os packages adicionais não precisam do new... A classe principal depende > de você e de como voce usa. > > > ps. eu anexei o cdigo da classe (espero que no se assustem muito:) > > Vou dar uma olhada... > > [olhando...] > > Primeira coisa... você está colocando muita funcionalidade nessa classe. > Crie classes acessórias para: > > 1) processar o arquivo de configurações (ou melhor, use um módulo da > CPAN que faz isso). > 2) gerar log (Sys::Syslog é uma boa opção) > 3) Gerenciar as Impressoras > 4) Gerenciar os usuários > 5) Interpretar arquivos PS > 6) Interpretar arquivos HP-PCL > > Se você criar módulos (pode ser OO) para cada uma dessas funções, a > única coisa que você vai precisar no módulo principal é o processamento > em si... e se você pensar cada uma dessas atividades isoladamente, > reduzindo o acoplamento, você vai ver que o código como um todo vai > ficar mais simples. Ou seja, implemente os módulos para cada uma das 6 > coisas que eu listei como se fosse uma biblioteca independente, e depois > utilize essas bibliotecas no código principal (que vai ser beeeeeeeeem > menor). > > daniel > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > __________________________________ Do you Yahoo!? Yahoo! Personals - Better first dates. More second dates. http://personals.yahoo.com From mda em embratel.net.br Mon Apr 4 14:57:58 2005 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Mon Apr 4 14:58:12 2005 Subject: [Cascavel-pm] Re: In-Reply-To: <20050404203128.60959.qmail@web50203.mail.yahoo.com> References: <20050404203128.60959.qmail@web50203.mail.yahoo.com> Message-ID: <4251B866.7020204@embratel.net.br> Rodrigo, A resposta é sempre tão rápida quanto possível... mas nem sempre a melhor (como eu disse... contorno) ;) Ganhei no tempo, mas o detalhamento do Daniel é bem mais preciso e melhor qualificado, voto nas ideias dele ;) !! Sds, Marco Antonio Rod Za wrote: >Marco, que rapidez meu amigo. Valeu mesmo! :) > >Se eu fizer essas declaraćões/estrutura como vc propos, as funcoes contidas em Second.pm e >Thirth.pm farão da classe Test.pm? > >Ex: >Arquivo Test.pm > >package Test; >use Second; >sub new{ > my $proto = shift; > my $class = ref($proto) || $proto; > my $self = {}; > bless $self, $class; > return $self; >} >sub ret_two{ > my $self = shift; > return $self->say_two(); > >1; >} > >Arquivo Second.pm > >package second; #?? tá certo?? >sub say_two{ > my $self = shift; > print "two = 2"; >} >1; > > >valeu, > >Rodrigo > >--- Marco A P D´Andrade wrote: > > >>Rodrigo, >> >>Em minha opinião vc deve separar apenas os packages, se existirem, >>seguindo o modelo normal: >> >>Ex: >> >> package MDA; -> MDA.pm >> package MDA::Perl; -> MDA/Perl.pm >> package MDA::Perl::Rio; -> MDA/Perl/Rio.pm ;) >> >>Existem recursos para usar outras estruturas, mas seriam contornos >>apenas... A exemplo, criar arquivos e usar require/use especiais: >> >> > Test.pm >>package Test; >>use Second; >>require "Thirth.pm"; >>... >>sub a ... >>sub b ... >>1; >> >> > Second.pm >>package Test; >>sub c... >>sub d ... >>1; >> >> > Thirth.pm >>package Test; >>sub d... >>sub e... >>#----------- >> >> >>Sds, >>Marco Antonio >> >> >>Rod Za wrote: >> >> >> >>>Olá. >>> >>>Eu criei uma classe com vários metodos em um único arquivo .pm e este está funcionando >>>perfeitamente só que ficou muito grande o arquivo e a manutenćão está um pouco confusa por >>>este motivo. >>> >>>Eu gostaria de saber como posso fazer para separar alguns métodos (por especialidade) em outros >>>arquivos .pm e que estes faćam parte da classe principal. >>> >>>Ex: classe_principal.pm >>> metodos_db_da_classe_principal.pm >>> metodos_para_lidar_com_outras_coisas_especificas.pm >>> >>>Muito obrigado, >>> >>>Rodrigo >>> >>> >>> >>>__________________________________________________ >>> From marco.lima em e-via.com.br Mon Apr 4 16:01:44 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Mon Apr 4 16:02:10 2005 Subject: [Cascavel-pm] Como dividir uma classe em .pm's mais específicos? Message-ID: Construa objetos mais específicos ! > > Olá. > > Eu criei uma classe com vários metodos em um único arquivo .pm e este está funcionando > perfeitamente só que ficou muito grande o arquivo e a manutenćão está um pouco confusa por > este motivo. > > Eu gostaria de saber como posso fazer para separar alguns métodos (por especialidade) em outros > arquivos .pm e que estes faćam parte da classe principal. > > Ex: classe_principal.pm > metodos_db_da_classe_principal.pm > metodos_para_lidar_com_outras_coisas_especificas.pm > > Muito obrigado, > > Rodrigo > > > > __________________________________________________ > Do You Yahoo!? > Tired of spam? Yahoo! Mail has the best spam protection around > http://mail.yahoo.com > > 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 Mon Apr 4 17:21:13 2005 From: rodzadra em yahoo.com (Rod Za) Date: Mon Apr 4 17:21:22 2005 Subject: [Cascavel-pm] Re: In-Reply-To: 6667 Message-ID: <20050405002113.42328.qmail@web50204.mail.yahoo.com> Marco, :) De qualquer forma eu só tenho a agradecer, a vc pela rapidez da resposta e ao Daniel pela precisão! :) brigadão, Rodrigo. --- Marco A P D´Andrade wrote: > Rodrigo, > > A resposta é sempre tão rápida quanto possível... mas nem sempre a > melhor (como eu disse... contorno) ;) > > Ganhei no tempo, mas o detalhamento do Daniel é bem mais preciso e > melhor qualificado, voto nas ideias dele ;) !! > > Sds, > Marco Antonio > > Rod Za wrote: > > >Marco, que rapidez meu amigo. Valeu mesmo! :) > > > >Se eu fizer essas declaraćões/estrutura como vc propos, as funcoes contidas em Second.pm e > > >Thirth.pm farão da classe Test.pm? > > > >Ex: > >Arquivo Test.pm > > > >package Test; > >use Second; > >sub new{ > > my $proto = shift; > > my $class = ref($proto) || $proto; > > my $self = {}; > > bless $self, $class; > > return $self; > >} > >sub ret_two{ > > my $self = shift; > > return $self->say_two(); > > > >1; > >} > > > >Arquivo Second.pm > > > >package second; #?? tá certo?? > >sub say_two{ > > my $self = shift; > > print "two = 2"; > >} > >1; > > > > > >valeu, > > > >Rodrigo > > > >--- Marco A P D´Andrade wrote: > > > > > >>Rodrigo, > >> > >>Em minha opinião vc deve separar apenas os packages, se existirem, > >>seguindo o modelo normal: > >> > >>Ex: > >> > >> package MDA; -> MDA.pm > >> package MDA::Perl; -> MDA/Perl.pm > >> package MDA::Perl::Rio; -> MDA/Perl/Rio.pm ;) > >> > >>Existem recursos para usar outras estruturas, mas seriam contornos > >>apenas... A exemplo, criar arquivos e usar require/use especiais: > >> > >> > Test.pm > >>package Test; > >>use Second; > >>require "Thirth.pm"; > >>... > >>sub a ... > >>sub b ... > >>1; > >> > >> > Second.pm > >>package Test; > >>sub c... > >>sub d ... > >>1; > >> > >> > Thirth.pm > >>package Test; > >>sub d... > >>sub e... > >>#----------- > >> > >> > >>Sds, > >>Marco Antonio > >> > >> > >>Rod Za wrote: > >> > >> > >> > >>>Olá. > >>> > >>>Eu criei uma classe com vários metodos em um único arquivo .pm e este está funcionando > >>>perfeitamente só que ficou muito grande o arquivo e a manutenćão está um pouco confusa > por > >>>este motivo. > >>> > >>>Eu gostaria de saber como posso fazer para separar alguns métodos (por especialidade) em > outros > >>>arquivos .pm e que estes faćam parte da classe principal. > >>> > >>>Ex: classe_principal.pm > >>> metodos_db_da_classe_principal.pm > >>> metodos_para_lidar_com_outras_coisas_especificas.pm > >>> > >>>Muito obrigado, > >>> > >>>Rodrigo > >>> > >>> > >>> > >>>__________________________________________________ > >>> > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > __________________________________ Do you Yahoo!? Yahoo! Mail - You care about security. So do we. http://promotions.yahoo.com/new_mail From jamorreu em gmail.com Tue Apr 5 11:39:30 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Tue Apr 5 11:39:37 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?Concurso_de_programa=E7=E3o_-_Preci?= =?iso-8859-1?q?sa-se_de_jurados?= Message-ID: <8ff2963a05040511391d053776@mail.gmail.com> Opa pessoal, beleza?? então, estou precisando montar um juri para avaliar os scripts do concurso... Pelo fato do pessoal aqui da lista ter um conhecimento bem grande, gostaria de saber se algum monge se canditada a fazer parte do juri? (lembrando jurados não ganham prêmios) Um abraço, Gabriel From marco.lima em e-via.com.br Tue Apr 5 11:55:11 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Tue Apr 5 11:55:32 2005 Subject: [Cascavel-pm] Concurso de programação - Precisa-se de jurados Message-ID: Eu acho que o mais indicado para missão é o Luis *<;-) > Opa pessoal, beleza?? > > então, estou precisando montar um juri para avaliar os scripts do concurso... > > Pelo fato do pessoal aqui da lista ter um conhecimento bem grande, > gostaria de saber se algum monge se canditada a fazer parte do juri? > (lembrando jurados não ganham prêmios) > > Um abraç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 marco.lima em e-via.com.br Tue Apr 5 11:58:08 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Tue Apr 5 11:58:30 2005 Subject: [Cascavel-pm] YAPC::Brasil::2005 Message-ID: Salve Monges !! Para criarmos uma programação das atividades dos YAPC::Brasil necessitamos que todos os membros que tiveram palestras aprovadas pela organização do FISL postem sua confirmação nessa lista. 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 jamorreu em gmail.com Tue Apr 5 13:39:32 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Tue Apr 5 13:39:43 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?Concurso_de_programa=E7=E3o_-_Preci?= =?iso-8859-1?q?sa-se_de_jurados?= Message-ID: <8ff2963a050405133932212e6d@mail.gmail.com> Marco Lima ... > Eu acho que o mais indicado para missão é o Luis *<;-) um juri é composto por várias pessoas... se fosse só uma seria só eu ;-) Por falar nisso, já coloquei as regras no ar e concurso ativo!! Se tiverem um tempinho pra ver... http://cgiclube.cidadeinternet.com.br/forum/index.php?act=ST&f=9&t=80&s=7102d40f76edabc8d47e3a160341780d Qualquer dúvida e/ou sugestão quanto as regras, favor me avisarem. Um abraço, Gabriel From acid06 em gmail.com Tue Apr 5 13:55:27 2005 From: acid06 em gmail.com (Nilson Santos) Date: Tue Apr 5 13:55:36 2005 Subject: =?ISO-8859-1?Q?Re:_[Cascavel-pm]_Concurso_de_pro?= =?ISO-8859-1?Q?grama=E7=E3o_-_Preci_sa-se_de_jurados?= In-Reply-To: <8ff2963a050405133932212e6d@mail.gmail.com> References: <8ff2963a050405133932212e6d@mail.gmail.com> Message-ID: <9a08c9b405040513552534f6f2@mail.gmail.com> Sugestão: Quem sabe um sistema de submissão de arquivos separado e que mantivesse os arquivos em sigilo até a data final não seria melhor? Após a data final de inscrição, todos os scripts poderiam ser vistos por todos, garantindo a transparência da operação. -Nilson Santos F. Jr. On Apr 5, 2005 5:39 PM, João Gabriel wrote: > Marco Lima ... > > Eu acho que o mais indicado para missão é o Luis *<;-) > > um juri é composto por várias pessoas... se fosse só uma seria só eu ;-) > > Por falar nisso, já coloquei as regras no ar e concurso ativo!! > > Se tiverem um tempinho pra ver... > http://cgiclube.cidadeinternet.com.br/forum/index.php?act=ST&f=9&t=80&s=7102d40f76edabc8d47e3a160341780d > > Qualquer dúvida e/ou sugestão quanto as regras, favor me avisarem. > > Um abraço, > Gabriel > _______________________________________________ > 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 Apr 5 14:03:21 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Tue Apr 5 14:03:42 2005 Subject: [Cascavel-pm] Concurso de programação - Precisa-se de jurados Message-ID: "script de gerenciamento de banners de web-sites" 1. criativo - em Perl deve ser difícil !! 2. mais rápido - vc naum vai conseguir nem ver os banners !! 3. menos complicano na instalação - essa eu não entendi !?! cp, mv, ftp ?!?! 4. o que apresentar o menor número de erros possiveis - isso é um concurso de programação ou de debugger ??? 5. o código seja o mais eficiente. - como assim ?? efigiência em gerenciar banners ??? *<;-) > Marco Lima ... > > Eu acho que o mais indicado para missão é o Luis *<;-) > > um juri é composto por várias pessoas... se fosse só uma seria só eu ;-) > > Por falar nisso, já coloquei as regras no ar e concurso ativo!! > > Se tiverem um tempinho pra ver... > http://cgiclube.cidadeinternet.com.br/forum/index.php?act=ST&f=9&t=80&s=7102d40f76edabc8d47e3a160341780d > > Qualquer dúvida e/ou sugestão quanto as regras, favor me avisarem. > > Um abraç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 jamorreu em gmail.com Tue Apr 5 14:17:45 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Tue Apr 5 14:17:52 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?Concurso_de_programa=E7=E3o_-_Preci?= =?iso-8859-1?q?sa-se_de_jurados?= Message-ID: <8ff2963a05040514177604d95a@mail.gmail.com> Marco Lima ... > 3. menos complicano na instalação - essa eu não entendi !?! cp, mv, ftp ?!?! configuração do script... > 4. o que apresentar o menor número de erros possiveis - isso é um > concurso de programação ou de debugger ??? erros ao decorrer do funcionamento do script... > 5. o código seja o mais eficiente. - como assim ?? efigiência em > gerenciar banners ??? código menor... Nilson Santos F. Jr.... > Quem sabe um sistema de submissão de arquivos separado e que > mantivesse os arquivos em sigilo até a data final não seria melhor? > Após a data final de inscrição, todos os scripts poderiam ser vistos > por todos, garantindo a transparência da operação. Hum... boa! Mandem tudo pro meu e-mail. Vo colocar lá =) Abraços, Gabriel From monsieur_champs em yahoo.com.br Tue Apr 5 17:40:23 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Tue Apr 5 17:40:41 2005 Subject: [Cascavel-pm] Concurso de =?ISO-8859-1?Q?programa=E7=E3o_-?= =?ISO-8859-1?Q?_Precisa-se_de_jurados?= In-Reply-To: References: Message-ID: <42532FF7.8030409@yahoo.com.br> Marco Lima wrote: > Eu acho que o mais indicado para missão é o Luis *<;-) Eu desconfio que estão me indicando para que eu não concorra... :-) Ainda assim, parece interessante. Vou pensar no assunto. JG, quando é o prazo limite para os jurados se apresentarem? 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 Tue Apr 5 18:00:02 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Tue Apr 5 18:00:12 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?Concurso_de_programa=E7=E3o_-_Preci?= =?iso-8859-1?q?sa-se_de_jurados?= Message-ID: <8ff2963a050405180033d943f2@mail.gmail.com> Luis Campos de Carvalho... > Eu desconfio que estão me indicando para que eu não concorra... :-) > Ainda assim, parece interessante. > Vou pensar no assunto. Uia!! hahaha Uel, se tu for jurado você pode participar, porém não ganhará prêmios (ganhará apoio moral hehehe). > JG, quando é o prazo limite para os jurados se apresentarem? Hum... até no inicio do concurso estaria bom =) Ou então, o mais breve possivel. Abraços Gabriel From monsieur_champs em yahoo.com.br Tue Apr 5 18:06:47 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Tue Apr 5 18:07:03 2005 Subject: [Cascavel-pm] Concurso de =?ISO-8859-1?Q?programa=E7=E3o_-?= =?ISO-8859-1?Q?_Precisa-se_de_jurados?= In-Reply-To: References: Message-ID: <42533627.1030103@yahoo.com.br> Marco Lima wrote: > "script de gerenciamento de banners de web-sites" > 1. criativo - em Perl deve ser difícil !! > 2. mais rápido - vc naum vai conseguir nem ver os banners !! > 3. menos complicano na instalação - essa eu não entendi !?! cp, mv, ftp ?!?! > 4. o que apresentar o menor número de erros possiveis - isso é um > concurso de programação ou de debugger ??? > 5. o código seja o mais eficiente. - como assim ?? efigiência em > gerenciar banners ??? > *<;-) JG, o Mago está ácido, crítico, correto e até mesmo um pouco enigmático. Prá variar ;-) Isso decididamente não é especificação que se apresente. Como se pode julgar baseado em critérios tão simplórios, e numa especificação que beira o ridículo? Basta uma pequena busca na internet para se descobrir vários websites que oferecem scripts de gerenciamento de banners. Aqui tem meus dois favoritos: http://search.cpan.org/~nwetters/WWW-AdServer-0.02/lib/WWW/AdServer.pm http://search.cpan.org/~awrigley/WWW-AdManager-0.007/AdManager.pm Neste caso, como os sistemas estão bem-testados e publicados, poderíamos oferecer os prêmios ao Ave Wrigley e ao Niegel Wetters Gourlay, respectivamente, certo? JG, melhore a especificação do programa do concurso. Diga quais fontes de banners(Banco de Dados? LDAP? Arquivo Texto? URL? Arquivo HTML?), quais formatos (HTML? DHTML? CSS+HTML? JavaScript?), quais protocolos (FTP? HTTP? HTTPS? LDAP?), que funcionalidades devem existir pelo menos (exibir banners em HTML? exibir banners em TXT? contabilizar banners exibidos? Onde contabilizar banners exibidos?), quais tratamentos de erro são necessários suportar (exibição de mensagem padrão? exibição de "quadro branco"? relatório de erro no lugar da exibição? relatório de erro no syslog? relatório de erro num arquivo texto? sem relatório de erro?), que sistemas operacionais devem ser suportados (windows? unix? linux? MacOS? BeOS?), quais webservers devem ser suportados (apache? IIS? Zeus? outros?), que funcionalidades devem ser configuráveis. Na minha humilde opinião de Pontífice Perl, engenheiro de sistemas e administrador unix com mais de 10 anos de experiência, o objeto do concurso (o programa de gerenciamento de banners) não é uma boa alternativa. Você deveria pagar para que algum programador fizesse isso, e deixar esta coisa de concurso para quem entende do assunto. Para desenvolver o sistema desejado a baixo custo: eu sugiro sinceramente que você proponha nesta lista (ou no seu fórum) diretrizes básicas para o sistema, configure um Servidor CVS em suas máquinas e um website, e então começe com um esqueleto bem básico do sistema, baseado em licensa open-source. Naturalmente as pessoas se voluntariarão para contribuir. Eu acho que é este tipo de postura que falta aos desenvolvedores de software livre neste país. Quanto ao seu concurso, depois de ler seu regulamento e tomar conhecimento do objeto do concurso, eu tenho certeza de que isso vai dar encrenca. Portanto, eu estou fora, a não ser que você mude a especificação radicalmente, e procure utilizar por exemplo um exercício-programa retirado do livro de Donald Knuth "The Art of Computer Programming", que deve oferecer ótimas oportunidades para as pessoas mostrarem seu talento. 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 Tue Apr 5 18:06:56 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Tue Apr 5 18:07:10 2005 Subject: [Cascavel-pm] Concurso de =?ISO-8859-1?Q?programa=E7=E3o_-?= =?ISO-8859-1?Q?_Precisa-se_de_jurados?= In-Reply-To: References: Message-ID: <42533630.60200@yahoo.com.br> Marco Lima wrote: > "script de gerenciamento de banners de web-sites" > 1. criativo - em Perl deve ser difícil !! > 2. mais rápido - vc naum vai conseguir nem ver os banners !! > 3. menos complicano na instalação - essa eu não entendi !?! cp, mv, ftp ?!?! > 4. o que apresentar o menor número de erros possiveis - isso é um > concurso de programação ou de debugger ??? > 5. o código seja o mais eficiente. - como assim ?? efigiência em > gerenciar banners ??? > *<;-) JG, o Mago está ácido, crítico, correto e até mesmo um pouco enigmático. Prá variar ;-) Isso decididamente não é especificação que se apresente. Como se pode julgar baseado em critérios tão simplórios, e numa especificação que beira o ridículo? Basta uma pequena busca na internet para se descobrir vários websites que oferecem scripts de gerenciamento de banners. Aqui tem meus dois favoritos: http://search.cpan.org/~nwetters/WWW-AdServer-0.02/lib/WWW/AdServer.pm http://search.cpan.org/~awrigley/WWW-AdManager-0.007/AdManager.pm Neste caso, como os sistemas estão bem-testados e publicados, poderíamos oferecer os prêmios ao Ave Wrigley e ao Niegel Wetters Gourlay, respectivamente, certo? JG, melhore a especificação do programa do concurso. Diga quais fontes de banners(Banco de Dados? LDAP? Arquivo Texto? URL? Arquivo HTML?), quais formatos (HTML? DHTML? CSS+HTML? JavaScript?), quais protocolos (FTP? HTTP? HTTPS? LDAP?), que funcionalidades devem existir pelo menos (exibir banners em HTML? exibir banners em TXT? contabilizar banners exibidos? Onde contabilizar banners exibidos?), quais tratamentos de erro são necessários suportar (exibição de mensagem padrão? exibição de "quadro branco"? relatório de erro no lugar da exibição? relatório de erro no syslog? relatório de erro num arquivo texto? sem relatório de erro?), que sistemas operacionais devem ser suportados (windows? unix? linux? MacOS? BeOS?), quais webservers devem ser suportados (apache? IIS? Zeus? outros?), que funcionalidades devem ser configuráveis. Na minha humilde opinião de Pontífice Perl, engenheiro de sistemas e administrador unix com mais de 10 anos de experiência, o objeto do concurso (o programa de gerenciamento de banners) não é uma boa alternativa. Você deveria pagar para que algum programador fizesse isso, e deixar esta coisa de concurso para quem entende do assunto. Para desenvolver o sistema desejado a baixo custo: eu sugiro sinceramente que você proponha nesta lista (ou no seu fórum) diretrizes básicas para o sistema, configure um Servidor CVS em suas máquinas e um website, e então começe com um esqueleto bem básico do sistema, baseado em licensa open-source. Naturalmente as pessoas se voluntariarão para contribuir. Eu acho que é este tipo de postura que falta aos desenvolvedores de software livre neste país. Quanto ao seu concurso, depois de ler seu regulamento e tomar conhecimento do objeto do concurso, eu tenho certeza de que isso vai dar encrenca. Portanto, eu estou fora, a não ser que você mude a especificação radicalmente, e procure utilizar por exemplo um exercício-programa retirado do livro de Donald Knuth "The Art of Computer Programming", que deve oferecer ótimas oportunidades para as pessoas mostrarem seu talento. 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 Tue Apr 5 18:08:59 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Tue Apr 5 18:09:17 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?Mensagem_Estranhamente_Duplicada_no?= =?iso-8859-1?q?_Thread_=22Concurso_de_programa=E7=E3o_-_Precisa-se_de_jur?= =?iso-8859-1?q?ados=22?= In-Reply-To: <42533627.1030103@yahoo.com.br> References: <42533627.1030103@yahoo.com.br> Message-ID: <425336AB.9000909@yahoo.com.br> Uia! Gente, minha mensagem está duplicada! Deixa eu ver nos archives... também está lá! Alguém poderia me explicar o que acontece? -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 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 Apr 6 05:27:55 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Apr 6 05:28:12 2005 Subject: [Cascavel-pm] Mensagem Estranhamente Duplicada no Thread "Concurso de programação - Precisa-se de jurados" Message-ID: A mensagem foi tão educativa ... que podemos concluir que cultura é isso ... se multiplica !!! > Uia! Gente, minha mensagem está duplicada! > Deixa eu ver nos archives... também está lá! > Alguém poderia me explicar o que acontece? > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > 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 mda em embratel.net.br Wed Apr 6 06:52:56 2005 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Wed Apr 6 06:53:10 2005 Subject: =?ISO-8859-1?Q?Re=3A_=5BCascavel-pm=5D_Mensagem_Estranhame?= =?ISO-8859-1?Q?nte_Duplicada_no_Thread_=22Concurso_de_progra?= =?ISO-8859-1?Q?ma=E7=E3o_-_Precisa-se_de_jurados=22?= In-Reply-To: References: Message-ID: <4253E9B8.2010609@embratel.net.br> eheheh Ou vc "clicou com tanta força" que foram enviadas duas vezes ... -- Message-ID: <42533630.60200@yahoo.com.br> Date: Tue, 05 Apr 2005 22:06:56 -0300 From: Luis Campos de Carvalho To: Cascavel Perl Mongers -- Message-ID: <42533627.1030103@yahoo.com.br> Date: Tue, 05 Apr 2005 22:06:47 -0300 From: Luis Campos de Carvalho To: Cascavel Perl Mongers , Sao Paulo PM -- Faz parte do uso de webmail ;) Esc não interrompe o envio, pois o submit já ocorreu ... A primeira não foi com cópia para saopaulo.pm ;) Mas eu prefiro acatar a informação do Marco Lima ... faz mais sentido ;) Sds, Marco Antonio Marco Lima wrote: > A mensagem foi tão educativa ... que podemos concluir que cultura é isso > ... se multiplica !!! > >> Uia! Gente, minha mensagem está duplicada! >> Deixa eu ver nos archives... também está lá! >> Alguém poderia me explicar o que acontece? >> -- >> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= >> 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 > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > From monsieur_champs em yahoo.com.br Wed Apr 6 07:16:38 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Apr 6 07:16:57 2005 Subject: =?ISO-8859-1?Q?Re=3A_=5BCascavel-pm=5D_Mensagem_Estranhame?= =?ISO-8859-1?Q?nte_Duplicada_no_Thread_=22Concurso_de_progra?= =?ISO-8859-1?Q?ma=E7=E3o_-_Precisa-se_de_jurados=22?= In-Reply-To: <4253E9B8.2010609@embratel.net.br> References: <4253E9B8.2010609@embratel.net.br> Message-ID: <4253EF46.8020605@yahoo.com.br> Marco A P D´Andrade wrote: > eheheh > > Ou vc "clicou com tanta força" que foram enviadas duas vezes ... Tá todo mundo muito engraçado, hoje. Mas eu preciso saber o que acontece. Isso pode ser um problema. Alguém com acesso aos logs SMTP? -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 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 Wed Apr 6 07:35:49 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Wed Apr 6 07:37:37 2005 Subject: [Cascavel-pm] Mensagem Estranhame Message-ID: <200504061437.j36EbPJo061611@rigel.pucrs.br> > Tá todo mundo muito engraçado, hoje. Mas eu preciso saber o que > acontece. Isso pode ser um problema. Alguém com acesso aos logs SMTP? > Saíram duas mensagens da sua conta do yahoo: Message-ID: <42533630.60200@yahoo.com.br> Message-ID: <42533627.1030103@yahoo.com.br> - Flávio From marco.lima em e-via.com.br Wed Apr 6 08:43:21 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Apr 6 08:43:42 2005 Subject: [Cascavel-pm] Sociedade Perl do Brasil Message-ID: Salve Monges !! Gostaria de convidar todos os membros a se cadastrarem no site http://www.perl.org.br, a idéia é de criar uma canal de comunicação da Sociedade Perl com a comunidade, e debater sobre idéias para o desenvolvimento da Perl no Brasil. [ ]'çã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 Apr 6 09:07:42 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Apr 6 09:08:03 2005 Subject: [Cascavel-pm] YAPC::Brasil::2005 Message-ID: Salve Monges !! Gostaria de lançar aqui na lista a nossa campanha de donativos/apoio ao YAPC::Brasil. Como deve ser do conhecimento de todos organizar um evento igual a esse é necessário um bom apoio financeiro e que muitas vezes é difícil de conseguir ou não é suficiente. Para a realização do I Encontro tivemos diversas dificuldades e até os monges palestrantes tiveram que se adaptar a pequena ajuda recebida da organização do evento, mas mesmo com tantos problemas conseguimos realizar nosso encontro com sucesso. Para esse encontro já conseguimos alguma ajuda, mas ainda não é suficiente para realizarmos tudo que desejamos, por isso a organização do evento criou uma modalidade de apoio/donativos onde você poderá ajudar com o valor de R$50,00. Os membros que ajudarem terão o direito de receber uma camisa e um adesivo do evento. É normal cobrar inscrições para os YAPC, uma média para essa inscrição é de Us$50,00 por participante, como estamos realizando um trabalho de divulgação da linguagem a organização achou melhor não cobrar a inscrição e viabilizar o evento através de apoio/donativos. Tenha certeza que seu apoio é muito importante para o desenvolvimento da Perl no Brasil e que o retorno disso será certo. Para informações sobre como realizar o envio da contribuição entre em contato com Nelson Ferraz (nferraz@gnubis.com.br). 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 mda em embratel.net.br Wed Apr 6 10:06:20 2005 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Wed Apr 6 10:06:31 2005 Subject: =?ISO-8859-1?Q?Re=3A_=5BCascavel-pm=5D_Mensagem_Estranhame?= =?ISO-8859-1?Q?nte_Duplicada_no_Thread_=22Concurso_de_progra?= =?ISO-8859-1?Q?ma=E7=E3o_-_Precisa-se_de_jurados=22?= In-Reply-To: <4253EF46.8020605@yahoo.com.br> References: <4253E9B8.2010609@embratel.net.br> <4253EF46.8020605@yahoo.com.br> Message-ID: <4254170C.7040008@embratel.net.br> :D Eu enviei parte do header de suas duas mensagens... foram emitidas duas mensagens, creio que vc estava usando webmail, e lembrou que faltava adicionar um CC e clicou novamente, ou pressionou enter ... Sds, Marco Antonio Luis Campos de Carvalho wrote: > Marco A P D´Andrade wrote: > >> eheheh >> >> Ou vc "clicou com tanta força" que foram enviadas duas vezes ... > > > Tá todo mundo muito engraçado, hoje. Mas eu preciso saber o que > acontece. Isso pode ser um problema. Alguém com acesso aos logs SMTP? > From marco.lima em e-via.com.br Wed Apr 6 10:17:32 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Apr 6 10:17:55 2005 Subject: [Cascavel-pm] [OT] CodeZoo Message-ID: http://www.oreillynet.com/pub/wlg/6803 CodeZoo, a new O'Reilly site, launches Marc Hedlund Apr. 05, 2005 12:53 PM URL: http://www.codezoo.net/ A new O'Reilly site, CodeZoo, launched today. CodeZoo exists to help you find high-quality, freely available, reusable components, getting you past the repetitive parts of coding, and onto the rest and the best of your projects. As we say in the welcome letter, it's a fast-forward button for your compiler. (Okay, bad analogy. But work with me.) Perl's CPAN has long been one of the best features of the Perl community -- a central service that provides easy access to tons of reusable code. Many other languages have plenty of free code, but no easy place to find it (short of Google). In the Java world, Apache Jakarta is the closest thing to CPAN, but it covers a limited set of components. CodeZoo is launching with a directory of Java components, and from there, we hope to move into other languages. Let us know where you think we should go next! (We've already gotten one request for Lisp...) We're not focused on hosting developer projects, like SourceForge, nor on comprehensively listing all open source Java code. Instead, we've hand-selected a list of the components we think will be the easiest and best to use in your development projects -- whether you are an open source or commercial developer. CodeZoo lets you rate each component, and sort and select components that other users rate the highest. Your tips and code samples for using each component live right on the component page, making it easy to share hacks, workarounds, and optomizations that help you get more from the code. We want to help you find good code, and get to using it as quickly as possible. Each component has a page containing links to O'Reilly Network articles and weblogs, Safari books (from O'Reilly and other publishers), conference presentations, and test and integration results from SpikeSource, our launch sponsor. We want to bring together all the material you need to get up and running with a component, and put it all on one page. We hope you enjoy the site. Look forward more from this project -- we think you'll like how it grows. Marc Hedlund was cofounder and CEO of Popular Power, the first commercially released P2P distributed computing platform. Before Popular Power he founded Lucas Online, Lucasfilm's internet division. [ ]'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 glasswalk3r em yahoo.com.br Wed Apr 6 10:53:36 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Wed Apr 6 10:53:49 2005 Subject: [Cascavel-pm] exemplo de uso de Tie::File Message-ID: <20050406175337.39800.qmail@web31504.mail.mud.yahoo.com> Olá monges, Estou ressuscitando o papo sobre usar Tie::File. A alguns dias atrás eu pedi ajuda aos monges, e agora estou postando o código em que trabalhei usando o módulo. Até aonde eu testei, ele está funcional. Dicas? Sugestões? Bugs? Por favor, me avisem! []'s Alceu ---- use Fcntl qw (:DEFAULT :flock); use Crypt::SmbHash '0.12'; use File::Temp; use Tie::File; use File::Copy; use sigtrap qw(handler abort normal-signals); delete @ENV{ 'IFS','CDPATH','ENVB','BASH_ENV','ENV','PATH'}; $ENV{PATH}='/usr/sbin'; my $file = shift; my $user = shift; my $date = localtime(time); my $temp_file = tmpnam(); die "[$date] FAUS: You must give complete pathname to smbpasswd file as a parameter.\n" unless ( defined($file) ); die "[$date] FAUS: You must give a username as parameter.\n" unless ( defined($user) ); chomp($file); chomp($user); $file =~ /^(\/[\w\/]+smbpasswd)$/ ? ($file = $1) : die "[$date] FAUS: Invalid characters in pathname parameter.\n"; $user =~ /^([\w\$]+)$/ ? $user = $1 : die "[$date] FAUS: Invalid characters in user parameter.\n"; if (-e $file) { copy($file,$temp_file) or die "Backup copy failed: $!\n"; } my @content; my $file_obj; $file_obj = tie( @content, 'Tie::File', $file, mode => O_RDWR, memory => 0) or die "Cannot read $file: $!\n"; $file_obj->flock(LOCK_EX); # check if the user already exists in the file my $flag = 'false'; my $search = quotemeta($user); foreach (@content) { next unless /\w+/; if ( /^$search/o ) { $flag = 'true'; my @temp = split(/\:/,$_); unless ( $temp[4] =~/D/ ) { # should get only the flags if ( $temp[4] =~ /^\[([UWNX]+)\s+\]$/ ) { $temp[4] = $1; # adding the spaces necessary to get the fixed length $temp[4] = sprintf "[%-11s]", 'D'.$temp[4]; } else { error("Cannot change user $user: invalid file format.", \@content, \$file_obj); } } $temp[5] = sprintf "LCT-%08X:", time; $_ = join(':',@temp); } } unless ($flag eq 'true') { error("The user $user does not exists in the smbpasswd file",\@content,\$file_obj); } undef $file_obj; untie @content; unlink($temp_file) or die "Failed to remove backup file $temp_file: $!\n"; ################################## # function area ################################## # dies, but before tries to close the reference file sub error { my $message = shift; my $file_ref = shift; my $object_ref = shift; undef $object_ref; untie $file_ref if ($file_ref); #restores backup copy ($temp_file, $file) or die "Failed to restore $file backup file: $!\n"; unlink($temp_file) or die "Failed to remove backup file $temp_file: $!\n"; die $message."\n"; } sub abort { my $signame = shift; error ("Aborted due an received SIG$signame signal.",\@content,\$file_obj); } 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 marco.lima em e-via.com.br Wed Apr 6 11:24:37 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Apr 6 11:24:59 2005 Subject: [Cascavel-pm] exemplo de uso de Tie::File Message-ID: Gostei ! vc aplicou quase tudo que foi conversado, e serve como exemplo da utilização dos recursos ... mas para o objetivo em questão é prático ? quero dizer ... esforço x resultado ... Como já dizia Dave Cross ... um simples open & close não resolveria o problema ? [ ]ão > Olá monges, > > Estou ressuscitando o papo sobre usar Tie::File. A > alguns dias atrás eu pedi ajuda aos monges, e agora > estou postando o código em que trabalhei usando o > módulo. Até aonde eu testei, ele está funcional. > > Dicas? Sugestões? Bugs? Por favor, me avisem! > > []'s > Alceu > > ---- > > use Fcntl qw (:DEFAULT :flock); > use Crypt::SmbHash '0.12'; > use File::Temp; > use Tie::File; > use File::Copy; > use sigtrap qw(handler abort normal-signals); > > delete @ENV{ > 'IFS','CDPATH','ENVB','BASH_ENV','ENV','PATH'}; > $ENV{PATH}='/usr/sbin'; > > my $file = shift; > my $user = shift; > my $date = localtime(time); > my $temp_file = tmpnam(); > > die "[$date] FAUS: You must give complete pathname to > smbpasswd file as a parameter.\n" unless ( > defined($file) ); > die "[$date] FAUS: You must give a username as > parameter.\n" unless ( defined($user) ); > > chomp($file); > chomp($user); > > $file =~ /^(\/[\w\/]+smbpasswd)$/ ? ($file = $1) : die > "[$date] FAUS: Invalid characters in pathname > parameter.\n"; > $user =~ /^([\w\$]+)$/ ? $user = $1 : die "[$date] > FAUS: Invalid characters in user parameter.\n"; > > > if (-e $file) { > > copy($file,$temp_file) or die "Backup copy failed: > $!\n"; > > } > > my @content; > my $file_obj; > > $file_obj = tie( @content, 'Tie::File', $file, mode => > O_RDWR, memory => 0) or die "Cannot read $file: $!\n"; > $file_obj->flock(LOCK_EX); > > # check if the user already exists in the file > my $flag = 'false'; > my $search = quotemeta($user); > > foreach (@content) { > > next unless /\w+/; > > if ( /^$search/o ) { > > $flag = 'true'; > my @temp = split(/\:/,$_); > > unless ( $temp[4] =~/D/ ) { > > # should get only the flags > if ( $temp[4] =~ /^\[([UWNX]+)\s+\]$/ ) { > > $temp[4] = $1; > # adding the spaces necessary to get the fixed length > $temp[4] = sprintf "[%-11s]", > 'D'.$temp[4]; > > } else { > > error("Cannot change user $user: > invalid file format.", > \@content, > \$file_obj); > > } > > } > > $temp[5] = sprintf "LCT-%08X:", time; > $_ = join(':',@temp); > > } > > } > > unless ($flag eq 'true') { > > error("The user $user does not exists in the > smbpasswd file",\@content,\$file_obj); > > } > > undef $file_obj; > untie @content; > unlink($temp_file) or die "Failed to remove backup > file $temp_file: $!\n"; > > > ################################## > # function area > ################################## > > # dies, but before tries to close the reference file > sub error { > > my $message = shift; > my $file_ref = shift; > my $object_ref = shift; > > undef $object_ref; > untie $file_ref if ($file_ref); > #restores backup > copy ($temp_file, $file) or die "Failed to restore > $file backup file: $!\n"; > unlink($temp_file) or die "Failed to remove backup > file $temp_file: $!\n"; > die $message."\n"; > > > } > > > sub abort { > > my $signame = shift; > error ("Aborted due an received SIG$signame > signal.",\@content,\$file_obj); > > } > > > > 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 > > 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 Apr 6 11:45:22 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Apr 6 11:45:57 2005 Subject: [Cascavel-pm] Mensagem Estranhame In-Reply-To: <200504061437.j36EbPJo061611@rigel.pucrs.br> References: <200504061437.j36EbPJo061611@rigel.pucrs.br> Message-ID: <42542E42.4070707@yahoo.com.br> fglock@pucrs.br wrote: >> Tá todo mundo muito engraçado, hoje. Mas eu > > preciso saber o que > >>acontece. Isso pode ser um problema. Alguém com > > acesso aos logs SMTP? > > > Saíram duas mensagens da sua conta do yahoo: > > Message-ID: <42533630.60200@yahoo.com.br> > > Message-ID: <42533627.1030103@yahoo.com.br> Isso é ainda mais estranho... Obrigado, Flávio, eu não tinha notado isso... Ainda investigando... 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 Apr 6 11:46:19 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Apr 6 11:46:38 2005 Subject: [Cascavel-pm] Sociedade Perl do Brasil In-Reply-To: References: Message-ID: <42542E7B.2080901@yahoo.com.br> Marco Lima wrote: > Salve Monges !! > > Gostaria de convidar todos os membros a se cadastrarem no site > http://www.perl.org.br, a idéia é de criar uma canal de comunicação da > Sociedade Perl com a comunidade, e debater sobre idéias para o > desenvolvimento da Perl no Brasil. > O que há de errado com este canal? Eu acho as listas de discussão dos Perl Mongers o local correto para este tipo de discussã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 marco.lima em e-via.com.br Wed Apr 6 11:56:35 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Apr 6 11:56:56 2005 Subject: [Cascavel-pm] Sociedade Perl do Brasil Message-ID: Não estamos falando que não é !! O site é um canal de notícias e não de mensagens !!! Você sugere acabarmos com os navegadores e utilizarmos apenas clientes de email ??? Eu acredito que a idéia da lista é para ser sobre assuntos técnicos ... não foi sobre isso que vc alertou sobre mensagens [OT] outro dia ?? Agora se vc prefere poluir a lista com todo o tipo de mensgem tudo bem !!! como uma amiga falou outro dia ... vamos transformar a lista em uma "Piscinão de Ramos" ... seria bem legal !!! não acha ??? *<:% Momentos de fúria !!! Ps. se vc confundiu "Desenvolvimento DA LINGUAGEM PERL no Brasil" com "Desenvolvimento EM PERL", desconsidere o conteúdo acima. > Marco Lima wrote: > > Salve Monges !! > > > > Gostaria de convidar todos os membros a se cadastrarem no site > > http://www.perl.org.br, a idéia é de criar uma canal de comunicação da > > Sociedade Perl com a comunidade, e debater sobre idéias para o > > desenvolvimento da Perl no Brasil. > > > > O que há de errado com este canal? > Eu acho as listas de discussão dos Perl Mongers o local correto para > este tipo de discussã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/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > 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 Wed Apr 6 11:58:39 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Wed Apr 6 11:58:50 2005 Subject: [Cascavel-pm] exemplo de uso de Tie::File In-Reply-To: Message-ID: <20050406185840.60616.qmail@web31504.mail.mud.yahoo.com> --- Marco Lima escreveu: > Gostei ! vc aplicou quase tudo que foi conversado, e > serve como exemplo > da utilização dos recursos ... mas para o objetivo > em questão é prático > ? quero dizer ... esforço x resultado ... Sim, a aplicação é prática: http://faus.sourceforge.net. Eu ainda não postei esse código lá. > Como já dizia Dave Cross ... um simples open & close > não resolveria o > problema ? Resolveria, mas eu teria que reproduzir o que o Tie::File faz por mim: loop no conteúdo, para eu encontrar uma entrada única e alterá-la. E eu preciso fazer isso de uma maneira razoavelmente segura, visto que posso ter múltiplos usuários tentando acessar o arquivo. O Tie::File já tem um método para realizar o lock consultivo. Criar um backup do arquivo original e capturar sinais para tentar parar aplicação de uma forma razoável também parece importante. Eu perdi um tempo razoável descobrindo como o Samba grava usuários no smbpasswd. Acho que vou criar um módulo para fazer isso. ;-) Eu andei brincando com perl -d:DProf e dprofpp para ver como o script se comportava... retirar o "use warnings" e "use strict" do script garante umas frações de segundo a menos no tempo de execução. Claro que só dá para fazer isso depois que seu programa não tiver bugs (se é > > Olá monges, > > > > Estou ressuscitando o papo sobre usar Tie::File. A > > alguns dias atrás eu pedi ajuda aos monges, e > agora > > estou postando o código em que trabalhei usando o > > módulo. Até aonde eu testei, ele está funcional. > > > > Dicas? Sugestões? Bugs? Por favor, me avisem! > > > > []'s > > Alceu > > > > ---- > > > > use Fcntl qw (:DEFAULT :flock); > > use Crypt::SmbHash '0.12'; > > use File::Temp; > > use Tie::File; > > use File::Copy; > > use sigtrap qw(handler abort normal-signals); > > > > delete @ENV{ > > 'IFS','CDPATH','ENVB','BASH_ENV','ENV','PATH'}; > > $ENV{PATH}='/usr/sbin'; > > > > my $file = shift; > > my $user = shift; > > my $date = localtime(time); > > my $temp_file = tmpnam(); > > > > die "[$date] FAUS: You must give complete pathname > to > > smbpasswd file as a parameter.\n" unless ( > > defined($file) ); > > die "[$date] FAUS: You must give a username as > > parameter.\n" unless ( defined($user) ); > > > > chomp($file); > > chomp($user); > > > > $file =~ /^(\/[\w\/]+smbpasswd)$/ ? ($file = $1) : > die > > "[$date] FAUS: Invalid characters in pathname > > parameter.\n"; > > $user =~ /^([\w\$]+)$/ ? $user = $1 : die "[$date] > > FAUS: Invalid characters in user parameter.\n"; > > > > > > if (-e $file) { > > > > copy($file,$temp_file) or die "Backup copy > failed: > > $!\n"; > > > > } > > > > my @content; > > my $file_obj; > > > > $file_obj = tie( @content, 'Tie::File', $file, > mode => > > O_RDWR, memory => 0) or die "Cannot read $file: > $!\n"; > > $file_obj->flock(LOCK_EX); > > > > # check if the user already exists in the file > > my $flag = 'false'; > > my $search = quotemeta($user); > > > > foreach (@content) { > > > > next unless /\w+/; > > > > if ( /^$search/o ) { > > > > $flag = 'true'; > > my @temp = split(/\:/,$_); > > > > unless ( $temp[4] =~/D/ ) { > > > > # should get only the flags > > if ( $temp[4] =~ /^\[([UWNX]+)\s+\]$/ > ) { > > > > $temp[4] = $1; > > # adding the spaces necessary to get the fixed > length > > $temp[4] = sprintf "[%-11s]", > > 'D'.$temp[4]; > > > > } else { > > > > error("Cannot change user $user: > > invalid file format.", > > \@content, > > \$file_obj); > > > > } > > > > } > > > > $temp[5] = sprintf "LCT-%08X:", time; > > $_ = join(':',@temp); > > > > } > > > > } > > > > unless ($flag eq 'true') { > > > > error("The user $user does not exists in the > > smbpasswd file",\@content,\$file_obj); > > > > } > > > > undef $file_obj; > > untie @content; > > unlink($temp_file) or die "Failed to remove backup > > file $temp_file: $!\n"; > > > > > > ################################## > > # function area > > ################################## > > > > # dies, but before tries to close the reference > file > > sub error { > > > > my $message = shift; > > my $file_ref = shift; > > my $object_ref = shift; > > > > undef $object_ref; > > untie $file_ref if ($file_ref); > > #restores backup > > copy ($temp_file, $file) or die "Failed to > restore > > $file backup file: $!\n"; > > unlink($temp_file) or die "Failed to remove > backup > > file $temp_file: $!\n"; > > die $message."\n"; > > > > > > } > > > > > > sub abort { > > > > my $signame = shift; > > error ("Aborted due an received SIG$signame > > signal.",\@content,\$file_obj); > > > > } > > > > > > > > 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 > > > > > > Marco Lima > J. A. P. H. > === message truncated === 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 Wed Apr 6 12:00:41 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Wed Apr 6 12:00:54 2005 Subject: [Cascavel-pm] exemplo de uso de Tie::File In-Reply-To: Message-ID: <20050406190041.68500.qmail@web31508.mail.mud.yahoo.com> --- Marco Lima escreveu: > Gostei ! vc aplicou quase tudo que foi conversado, e > serve como exemplo > da utilização dos recursos ... mas para o objetivo > em questão é prático > ? quero dizer ... esforço x resultado ... Sim, a aplicação é prática: http://faus.sourceforge.net. Eu ainda não postei esse código lá. > Como já dizia Dave Cross ... um simples open & close > não resolveria o > problema ? Resolveria, mas eu teria que reproduzir o que o Tie::File faz por mim: loop no conteúdo, para eu encontrar uma entrada única e alterá-la. E eu preciso fazer isso de uma maneira razoavelmente segura, visto que posso ter múltiplos usuários tentando acessar o arquivo. O Tie::File já tem um método para realizar o lock consultivo. Na realidade isso tudo inclui bastante preguiça da minha parte. :-) Criar um backup do arquivo original e capturar sinais para tentar parar aplicação de uma forma razoável também parece importante. Eu perdi um tempo razoável descobrindo como o Samba grava usuários no smbpasswd. Acho que vou criar um módulo para fazer isso. ;-) Eu andei brincando com perl -d:DProf e dprofpp para ver como o script se comportava... retirar o "use warnings" e "use strict" do script garante umas frações de segundo a menos no tempo de execução. Claro que só dá para fazer isso depois que achar que o programa não tem bugs (se é que isso é possível). []'s Alceu > > Olá monges, > > > > Estou ressuscitando o papo sobre usar Tie::File. A > > alguns dias atrás eu pedi ajuda aos monges, e > agora > > estou postando o código em que trabalhei usando o > > módulo. Até aonde eu testei, ele está funcional. > > > > Dicas? Sugestões? Bugs? Por favor, me avisem! > > > > []'s > > Alceu > > > > ---- > > > > use Fcntl qw (:DEFAULT :flock); > > use Crypt::SmbHash '0.12'; > > use File::Temp; > > use Tie::File; > > use File::Copy; > > use sigtrap qw(handler abort normal-signals); > > > > delete @ENV{ > > 'IFS','CDPATH','ENVB','BASH_ENV','ENV','PATH'}; > > $ENV{PATH}='/usr/sbin'; > > > > my $file = shift; > > my $user = shift; > > my $date = localtime(time); > > my $temp_file = tmpnam(); > > > > die "[$date] FAUS: You must give complete pathname > to > > smbpasswd file as a parameter.\n" unless ( > > defined($file) ); > > die "[$date] FAUS: You must give a username as > > parameter.\n" unless ( defined($user) ); > > > > chomp($file); > > chomp($user); > > > > $file =~ /^(\/[\w\/]+smbpasswd)$/ ? ($file = $1) : > die > > "[$date] FAUS: Invalid characters in pathname > > parameter.\n"; > > $user =~ /^([\w\$]+)$/ ? $user = $1 : die "[$date] > > FAUS: Invalid characters in user parameter.\n"; > > > > > > if (-e $file) { > > > > copy($file,$temp_file) or die "Backup copy > failed: > > $!\n"; > > > > } > > > > my @content; > > my $file_obj; > > > > $file_obj = tie( @content, 'Tie::File', $file, > mode => > > O_RDWR, memory => 0) or die "Cannot read $file: > $!\n"; > > $file_obj->flock(LOCK_EX); > > > > # check if the user already exists in the file > > my $flag = 'false'; > > my $search = quotemeta($user); > > > > foreach (@content) { > > > > next unless /\w+/; > > > > if ( /^$search/o ) { > > > > $flag = 'true'; > > my @temp = split(/\:/,$_); > > > > unless ( $temp[4] =~/D/ ) { > > > > # should get only the flags > > if ( $temp[4] =~ /^\[([UWNX]+)\s+\]$/ > ) { > > > > $temp[4] = $1; > > # adding the spaces necessary to get the fixed > length > > $temp[4] = sprintf "[%-11s]", > > 'D'.$temp[4]; > > > > } else { > > > > error("Cannot change user $user: > > invalid file format.", > > \@content, > > \$file_obj); > > > > } > > > > } > > > > $temp[5] = sprintf "LCT-%08X:", time; > > $_ = join(':',@temp); > > > > } > > > > } > > > > unless ($flag eq 'true') { > > > > error("The user $user does not exists in the > > smbpasswd file",\@content,\$file_obj); > > > > } > > > > undef $file_obj; > > untie @content; > > unlink($temp_file) or die "Failed to remove backup > > file $temp_file: $!\n"; > > > > > > ################################## > > # function area > > ################################## > > > > # dies, but before tries to close the reference > file > > sub error { > > > > my $message = shift; > > my $file_ref = shift; > > my $object_ref = shift; > > > > undef $object_ref; > > untie $file_ref if ($file_ref); > > #restores backup > > copy ($temp_file, $file) or die "Failed to > restore > > $file backup file: $!\n"; > > unlink($temp_file) or die "Failed to remove > backup > > file $temp_file: $!\n"; > > die $message."\n"; > > > > > > } > > > > > > sub abort { > > > > my $signame = shift; > > error ("Aborted due an received SIG$signame > > signal.",\@content,\$file_obj); > > > > } > > > > > > > > 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 > > > > > > Marco Lima > J. A. P. H. > === message truncated === Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ From marco.lima em e-via.com.br Wed Apr 6 12:05:36 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Apr 6 12:05:59 2005 Subject: [Cascavel-pm] exemplo de uso de Tie::File Message-ID: Sem comentários !!! Esse é o nosso palestrante de OO ... Workshop de programação na Fatec Palestra: Perl Orientado a Objeto Alceu Rodrigues de Freitas Junior http://www.linux-pg.com.br [ ]'ção > --- Marco Lima escreveu: > > Gostei ! vc aplicou quase tudo que foi conversado, e > > serve como exemplo > > da utilização dos recursos ... mas para o objetivo > > em questão é prático > > ? quero dizer ... esforço x resultado ... > > Sim, a aplicação é prática: > http://faus.sourceforge.net. Eu ainda não postei esse > código lá. > > > Como já dizia Dave Cross ... um simples open & close > > não resolveria o > > problema ? > > Resolveria, mas eu teria que reproduzir o que o > Tie::File faz por mim: loop no conteúdo, para eu > encontrar uma entrada única e alterá-la. > > E eu preciso fazer isso de uma maneira razoavelmente > segura, visto que posso ter múltiplos usuários > tentando acessar o arquivo. O Tie::File já tem um > método para realizar o lock consultivo. > > Criar um backup do arquivo original e capturar sinais > para tentar parar aplicação de uma forma razoável > também parece importante. > > Eu perdi um tempo razoável descobrindo como o Samba > grava usuários no smbpasswd. Acho que vou criar um > módulo para fazer isso. ;-) > > Eu andei brincando com perl -d:DProf e dprofpp para > ver como o script se comportava... retirar o "use > warnings" e "use strict" do script garante umas > frações de segundo a menos no tempo de execução. Claro > que só dá para fazer isso depois que seu programa não > tiver bugs (se é > > > > Olá monges, > > > > > > Estou ressuscitando o papo sobre usar Tie::File. A > > > alguns dias atrás eu pedi ajuda aos monges, e > > agora > > > estou postando o código em que trabalhei usando o > > > módulo. Até aonde eu testei, ele está funcional. > > > > > > Dicas? Sugestões? Bugs? Por favor, me avisem! > > > > > > []'s > > > Alceu > > > > > > ---- > > > > > > use Fcntl qw (:DEFAULT :flock); > > > use Crypt::SmbHash '0.12'; > > > use File::Temp; > > > use Tie::File; > > > use File::Copy; > > > use sigtrap qw(handler abort normal-signals); > > > > > > delete @ENV{ > > > 'IFS','CDPATH','ENVB','BASH_ENV','ENV','PATH'}; > > > $ENV{PATH}='/usr/sbin'; > > > > > > my $file = shift; > > > my $user = shift; > > > my $date = localtime(time); > > > my $temp_file = tmpnam(); > > > > > > die "[$date] FAUS: You must give complete pathname > > to > > > smbpasswd file as a parameter.\n" unless ( > > > defined($file) ); > > > die "[$date] FAUS: You must give a username as > > > parameter.\n" unless ( defined($user) ); > > > > > > chomp($file); > > > chomp($user); > > > > > > $file =~ /^(\/[\w\/]+smbpasswd)$/ ? ($file = $1) : > > die > > > "[$date] FAUS: Invalid characters in pathname > > > parameter.\n"; > > > $user =~ /^([\w\$]+)$/ ? $user = $1 : die "[$date] > > > FAUS: Invalid characters in user parameter.\n"; > > > > > > > > > if (-e $file) { > > > > > > copy($file,$temp_file) or die "Backup copy > > failed: > > > $!\n"; > > > > > > } > > > > > > my @content; > > > my $file_obj; > > > > > > $file_obj = tie( @content, 'Tie::File', $file, > > mode => > > > O_RDWR, memory => 0) or die "Cannot read $file: > > $!\n"; > > > $file_obj->flock(LOCK_EX); > > > > > > # check if the user already exists in the file > > > my $flag = 'false'; > > > my $search = quotemeta($user); > > > > > > foreach (@content) { > > > > > > next unless /\w+/; > > > > > > if ( /^$search/o ) { > > > > > > $flag = 'true'; > > > my @temp = split(/\:/,$_); > > > > > > unless ( $temp[4] =~/D/ ) { > > > > > > # should get only the flags > > > if ( $temp[4] =~ /^\[([UWNX]+)\s+\]$/ > > ) { > > > > > > $temp[4] = $1; > > > # adding the spaces necessary to get the fixed > > length > > > $temp[4] = sprintf "[%-11s]", > > > 'D'.$temp[4]; > > > > > > } else { > > > > > > error("Cannot change user $user: > > > invalid file format.", > > > \@content, > > > \$file_obj); > > > > > > } > > > > > > } > > > > > > $temp[5] = sprintf "LCT-%08X:", time; > > > $_ = join(':',@temp); > > > > > > } > > > > > > } > > > > > > unless ($flag eq 'true') { > > > > > > error("The user $user does not exists in the > > > smbpasswd file",\@content,\$file_obj); > > > > > > } > > > > > > undef $file_obj; > > > untie @content; > > > unlink($temp_file) or die "Failed to remove backup > > > file $temp_file: $!\n"; > > > > > > > > > ################################## > > > # function area > > > ################################## > > > > > > # dies, but before tries to close the reference > > file > > > sub error { > > > > > > my $message = shift; > > > my $file_ref = shift; > > > my $object_ref = shift; > > > > > > undef $object_ref; > > > untie $file_ref if ($file_ref); > > > #restores backup > > > copy ($temp_file, $file) or die "Failed to > > restore > > > $file backup file: $!\n"; > > > unlink($temp_file) or die "Failed to remove > > backup > > > file $temp_file: $!\n"; > > > die $message."\n"; > > > > > > > > > } > > > > > > > > > sub abort { > > > > > > my $signame = shift; > > > error ("Aborted due an received SIG$signame > > > signal.",\@content,\$file_obj); > > > > > > } > > > > > > > > > > > > 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 > > > > > > > > > > Marco Lima > > J. A. P. H. > > > === message truncated === > > 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 > > 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 Apr 6 12:26:31 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Apr 6 12:26:46 2005 Subject: [Cascavel-pm] Sociedade Perl do Brasil In-Reply-To: References: Message-ID: <425437E7.4070605@yahoo.com.br> Marco Lima wrote: > Não estamos falando que não é !! > O site é um canal de notícias e não de mensagens !!! Hummm... > Você sugere acabarmos com os navegadores e utilizarmos apenas clientes > de email ??? Ah! Eu gostava tanto do UUCP... > Eu acredito que a idéia da lista é para ser sobre assuntos técnicos ... > não foi sobre isso que vc alertou sobre mensagens [OT] outro dia ?? Não. Eu evitei que se criasse um precedente de postagem de mensagens não-relacionadas com Perl, anunciando um evento não-relacionado com Perl, software livre, Buffy ou tortas. Até onde eu sei, tudo o que estiver relacionado com Perl ou software livre (ou as duas coisas), é "On-Toppic". > Agora se vc prefere poluir a lista com todo o tipo de mensgem tudo bem > !!! como uma amiga falou outro dia ... vamos transformar a lista em uma > "Piscinão de Ramos" ... seria bem legal !!! não acha ??? Eu não acho que isso poluirá a lista. Muito pelo contrário. Ajudará as pessoas a entender que não há apenas assuntos técnicos relacionados com Perl no Brasil. Não me oponho a ter um local para arquivar as mensagens. Mas acho que as notícias precisam ser divulgadas em nosso canal principal, que é esta lista. > *<:% Momentos de fúria !!! Oras, Marco... por favor não encha a lista de palavrão... > Ps. se vc confundiu "Desenvolvimento DA LINGUAGEM PERL no Brasil" com > "Desenvolvimento EM PERL", desconsidere o conteúdo acima. > Eu *confundo* as duas coisas, com conhecimento de causa. Desenvolvimento da linguagem Perl só é cabível se houver desenvolvimento na linguagem Perl. Desta forma, as duas coisas estão entrelaçadas... devem caminhar juntas. Desculpe ter deixado você furioso... :-) Compensarei isto no encontro social de abril. ;-) 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 Apr 6 12:28:40 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Apr 6 12:28:55 2005 Subject: [Cascavel-pm] exemplo de uso de Tie::File In-Reply-To: References: Message-ID: <42543868.9050306@yahoo.com.br> Marco Lima wrote: > Sem comentários !!! Esse é o nosso palestrante de OO ... > > Workshop de programação na Fatec > Palestra: Perl Orientado a Objeto > Alceu Rodrigues de Freitas Junior > http://www.linux-pg.com.br Bom, na verdade, apenas depois que ele confirmar. :-) Ainda tens até o dia 10 para fazer isso, Alceu. Mas nem um minuto a mais. Em último caso, darei eu a palestra de OOP, a não ser que o Mago tenha outra sugestã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 marco.lima em e-via.com.br Wed Apr 6 12:34:04 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Apr 6 12:34:29 2005 Subject: [Cascavel-pm] Sociedade Perl do Brasil Message-ID: Sei que nosso Papa do Perl não poderi passar apenas pelo papel de crítico !! "...as pessoas a entender que não há apenas assuntos técnicos relacionados com Perl no Brasil." Tive uma idéia ... eu coloco a mensagem no site e vc publica na lista !! > Eu *confundo* as duas coisas, com conhecimento de causa. > Desenvolvimento da linguagem Perl só é cabível se houver > desenvolvimento na linguagem Perl. Desta forma, as duas coisas estão > entrelaçadas... devem caminhar juntas. Ensinamento divinos !! vc vai conseguir chegar a iluminação !! ... mais um motivo para o pessoal participar do site ! > > Desculpe ter deixado você furioso... :-) > Compensarei isto no encontro social de abril. ;-) Vai ter que pagar alguns Chopps !!! > 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/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 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 Apr 6 12:37:02 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Wed Apr 6 12:37:24 2005 Subject: [Cascavel-pm] exemplo de uso de Tie::File Message-ID: Isso é um Monastério e nem sempre o caminho é simples e fácil ... as vezes precisamos seguir por caminhos difíceis e são nesses momentos que somos iluminados por ensinamentos !! Por isso você é um "Perl Monger" !!! > Marco Lima wrote: > > Sem comentários !!! Esse é o nosso palestrante de OO ... > > > > Workshop de programação na Fatec > > Palestra: Perl Orientado a Objeto > > Alceu Rodrigues de Freitas Junior > > http://www.linux-pg.com.br > > Bom, na verdade, apenas depois que ele confirmar. > :-) Ainda tens até o dia 10 para fazer isso, Alceu. Mas nem um minuto > a mais. > > Em último caso, darei eu a palestra de OOP, a não ser que o Mago > tenha outra sugestã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/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > 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 Wed Apr 6 12:38:00 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Wed Apr 6 12:38:10 2005 Subject: [Cascavel-pm] exemplo de uso de Tie::File In-Reply-To: 6667 Message-ID: <20050406193800.73324.qmail@web31504.mail.mud.yahoo.com> --- Luis Campos de Carvalho wrote: > Marco Lima wrote: > > Sem comentários !!! Esse é o nosso palestrante de > OO ... > > > > Workshop de programação na Fatec > > Palestra: Perl Orientado a Objeto > > Alceu Rodrigues de Freitas Junior > > http://www.linux-pg.com.br > > Bom, na verdade, apenas depois que ele confirmar. > :-) Ainda tens até o dia 10 para fazer isso, > Alceu. Mas nem um minuto > a mais. Começo a imaginar que se não apresentar essa palestra eu serei excomungado da ordem. Com 20 minutos de palestra, vou ter que dar uma de Monte Cook e apresentar "O Programa Orientado à Objetos em Perl mais curto do mundo" (vide http://www.montecook.com/arch_lineos11.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! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ From daniel em ruoso.com Wed Apr 6 14:49:25 2005 From: daniel em ruoso.com (Daniel Ruoso) Date: Wed Apr 6 14:49:41 2005 Subject: [Cascavel-pm] Oak2, alguma =?iso-8859-1?q?documenta=E7=E3o?= feita Message-ID: <1112824165.1383.43.camel@localhost> Olá tod@s, Estou tentando, aos poucos retomar o desenvolvimento do Oak2, e neste sentido elaborei um pequeno documento falando sobre os aspectos básicos do Oak2, no que se refere à Orientação a Objetos. Em cima disso vai ser desenvolvido todo o framework. Aí vai a documentação em anexo, que está no CVS do Oak, disponível em http://cvs.sourceforge.net/viewcvs.py/perl-oak/Oak/liboak2-perl/ mas sempre com um delay enooooooorme... daniel -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050406/5128d8d0/basics-0001.html From daniel em ruoso.com Thu Apr 7 11:03:30 2005 From: daniel em ruoso.com (Daniel Ruoso) Date: Thu Apr 7 11:03:54 2005 Subject: [Cascavel-pm] Oak2, alguma =?iso-8859-1?q?documenta=E7=E3o?= feita Message-ID: <1112897010.1407.7.camel@localhost> [enviei uma mensagem antes, fui só eu quem não recebeu da lista?] Olá tod@s, Estou tentando, aos poucos retomar o desenvolvimento do Oak2, e neste sentido elaborei um pequeno documento falando sobre os aspectos básicos do Oak2, no que se refere à Orientação a Objetos. Em cima disso vai ser desenvolvido todo o framework. Aí vai a documentação em anexo, que está no CVS do Oak, disponível em http://cvs.sourceforge.net/viewcvs.py/perl-oak/Oak/liboak2-perl/ mas sempre com um delay enooooooorme... daniel -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050407/bdbc7c75/basics.html From monsieur_champs em yahoo.com.br Thu Apr 7 11:47:42 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Thu Apr 7 11:48:07 2005 Subject: [Cascavel-pm] Oak2, alguma =?ISO-8859-1?Q?documenta=E7=E3o_?= =?ISO-8859-1?Q?feita?= In-Reply-To: <1112897010.1407.7.camel@localhost> References: <1112897010.1407.7.camel@localhost> Message-ID: <4255804E.50009@yahoo.com.br> Foi apenas você quem não a recebeu, Daniel. Eu prefiro ler a documentação no webbrowser, não no email. Mas esta é uma preferência pessoal minha, sabe... Parabéns pelo excelente trabalho! Putamplexos! Daniel Ruoso wrote: > [enviei uma mensagem antes, fui só eu quem não recebeu da lista?] > > Olá tod@s, > > Estou tentando, aos poucos retomar o desenvolvimento do Oak2, e neste > sentido elaborei um pequeno documento falando sobre os aspectos básicos > do Oak2, no que se refere à Orientação a Objetos. > > Em cima disso vai ser desenvolvido todo o framework. Aí vai a > documentação em anexo, que está no CVS do Oak, disponível em > http://cvs.sourceforge.net/viewcvs.py/perl-oak/Oak/liboak2-perl/ > mas sempre com um delay enooooooorme... > > daniel > > > ------------------------------------------------------------------------ > > > Oak2 Basics > > Hi, if you are reading this document it is probably because you are > interested in Oak2 but you actually don't know exactly what is Oak > neighter how it works. > > If this is the case, you are reading the correct document, this text > exists to provide an introduction in how to use Oak2, how it works in a > way you be able not only to use Oak2 to create your own applications, > but also to contribute with components, toolkits and other things. > > > Why Oak2? > > Well, it's named Oak2 because of its father project, Oak. Oak2 is a > architectural revision of Oak. > > > Ok, so why Oak? > > Two reasons, the first is that it is a three letter name, so it is easy > to type. The second is that the oak tree has very very many branches, > this applies to Oak. Oak is a tree of classes to support perl development. > > > Duh, I was not asking about the name, but why does Oak exists? > > Ah... ok... Oak was created when I was on the team that was developing > an ESP (email service provider) software infra-structure. And we > realized that there wasn't any framework to help perl developers in an > enterprise development. There weren't tools to handle data persistence > (I mean more than DBI do), to handle authentication, authorization, > business control, and even interface. > > When I started in web development with perl I did fill my cgi file with > a lot of prints, to print the page I wish to show. Many people still do > that way, and there's nothing wrong with it, but it just doesn't fit in > an enterprise environment, you need much more low-cost maintainance, > high customization and that's just impossible with prints into the cgi file. > > The first step forward was the use of Text::Template, in this way the > cgi didn't need to have lots of prints anymore, just one. But that > wasn't enough and we built an entire framework that made much easier all > the work and made the maintainance much cheaper than before. > > But as we developed the framework while we were developing the > application itself, the framework wasn't so perfect as we wanted to be. > So this is why I started Oak in August 2001. > > Short answer: In a time we have frameworks like J2EE, like .net, like > many others, it's necessary to give perl the power needed to be used in > an enterprise environment. Oak exists to make the work of the > application developer (not only script developer) easier. > > > So, what was wrong with Oak that made necessary creating Oak2? > > There is one huge change and some minor changes. The huge change is a > new aprouch to object oriented programming, that is including event > handling, time sense and customization as fundamental parts of OOP, and > in this way, Oak2::Object already does such things. Minor changes > include changing prints in Oak::Web components for return. Better > definition of Oak::Filer. Resolving inconsistencies, changing the way > Components are seen inside Oak etc. > > > Event Handling > > Events are an important part of Object Oriented Programming, specially > when you're dealing with complex systems. For those who know database > systems, this is very much like triggers, except that it can be applied > to any object in any place (including Entity classes in Mysql). > > Just to illustrate, I'll tell when this can be usefull. You can add a > event into a account payable in a way that when the account is paid it > closes the order you made. Actually, the event mechanism is the key to > create a integrated but not tied system. > > > Time Sense > > The objects need to know that time is passing. I.e.: A due bill must > know it's due so it can calculate how much must be paid because of the late. > > This is also usefull for some reality representations. I'll be > explaining this better in other documents. > > P.S.: This isn't implemented yet, as I really still don't know how to > make it nice. > > > Customization > > To explain this I'll use an example based on Java Swing API. > > Let's imagine you have a swing application. Now imagine you want to make > the components to check into JAAS if the user has permission to see that > component, and you want it applied to all components of your > application. I.e.: Some text fields to be read-only or read-write > depending on user's permissions. > > How would you do it? > > Create a subclass for each component you use implementing > this feature > Create a subclass for java.awt.Component and reimplement the > entire swing > Learn to use Aspect Oriented Programming. > > The Customization concept is very much alike AOP, but with an important > difference. You don't have to say "execute before" or "execute later". > You implement it as if you were implementing a subclass, with the subtle > difference that instead of calling SUPER, you call ORIG. And you > actually don't have to call ORIG, if you want to completely replace that > method, you just do it. > > > Enough of introduction, show it... > > Everything starts from Oak2::Object, this class defines: > > * How to instantiate an object > * How the properties are handled > * How events are handled > * Error handling > > I'll talk about each of these topics in detail: > > > How to instantiate an object > > Oak2::Object implements the method new that do all the required code to > create an object in perl. This method calls the method constructor and > after_construction that are responsible for initializing the object. > > In this way, nobody should implement the method new, but every object > will be instantiated by the method new. > > Every class that wants to do something when initializing should > implement the method constructor, but everytime you overload this method > you must remember to call SUPER. > > And now a great difference from Oak 1. The introduction of the "restore" > concept. At any time, it should be possible to store an object in some > media (similar to object serialization in Java), and at any time it > should be possible to restore that object in the state it was before > storing. This is done with the Factory classes. One example of a factory > class is the Oak2::XMLObjectFactory. But be carefull, each factory > stores/restores an specific set of caracteristics, and you should pay > attention when storing the object. > > The important thing in the restore concept is the Object Unique > Identifier (objuid), this identifier is composed by the class factory > that generated its output followed by a ; and the parameters to the > factory. In the case you store an object using the XMLObjectFactory in > the file obj.xml, the objuid would be > 'Oak2::XMLObjectFactory;filename=obj.xml'. So, you can compose the > objuid at any time if you know the information the factory needs. It > will help you a lot in the future, believe me. > > > How the properties are handled > > Oak2::Object implements the methods get, get_hash and set. This are the > gateways to the object's properties. The method get can receive one or > more parameters and will return as a list the values. > > The method get_hash is very similar to get (actually, the method get is > a wrapper to get_hash) but instead of returning a list of values it > returns a hash with the name of the property as the key and the value as > the value. > > The method set is used to change the value of some property. It receives > a hash with the properties being changed. > > > How events are handled > > The events in Oak2 are very alike with the Java event infrastructure, > but with some add-ons... > > The concept is that you have an object (or class) that fires events and > you have listeners for these events. The big difference for the java > infrastructure is that a listener can be of one of these types: > > self > execute METHOD on this object > static > CODESTRING to be executed in eval. the return is the MD5 sum of the code > restorable > OBJUID to be restored and then the METHOD to be called. > dynamic > object REF to be used to call the given METHOD > > Now, one by one: > > Self is a listener to be used by the same object or class that fires the > event invoking some specific method. > > Static is a listener that is just some perl code in a string that will > be eval'ed when the event is fired. > > Restorable is a listener of an object that should be restored before > calling some specific method. > > And finally, dynamic is some object that wants some method to be invoked > when the event is fired. > > Point to me, in Java you need to implement an specific interface to > register yourself as a listener, here you simply say "hey, call this > method in this object". > > The other conceptin the event handling is the event code. When > registering a listener you should tell which event you're willing to > listen to. The documentation for each class tells you which events are > dispatched. > > > Error handling > > There is few to say here, because we just use the Error > try/catch/otherwise/finally interface. Each class documents which Errors > it throws. > > > Moving on, now to Oak2::Component > > Wow, we finally saw the basic principles of Oak2 let's start to see more... > > The Oak2::Component class introduces the concept of some object own > other object, I mean, some Component may have subcomponents, just that. > If you see the documentation of Oak2::Component you'll see that it > doesn't make much more than that. The important thing is that *every* > component *must* have a name property setted. > > ------------------------------------------------------------------------ > Daniel Ruoso > > Last modified: Wed Apr 6 18:37:42 BRT 2005 > > > ------------------------------------------------------------------------ > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 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 Fri Apr 8 03:48:49 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Fri Apr 8 03:48:24 2005 Subject: [Cascavel-pm] Nomes longos no windows Message-ID: <42566191.6030908@galvao.eti.br> Pessoal: Como faço pra usar nomes longos com (Active)Perl no Windows 2000? Achei diversos nodes no PerlMonks e até algo referente à um módulo chamado File::DosGlob, mas confesso que não entendi patavina. Tudo o que eu humildemente quero é poder dizer pro Perl algo como: my $dir = 'C:\\Documents and Settings\\'; sem ter que apelar pra coisas como: my $dir = 'C:\\Docume~1\\'; Por favor, iluminem a minha burrice de forma bem simples, já que o PerlMonks deu um nó no meu cérebro. Valeu, -- Er Galvão Abbott ------------------------------------- Porto Alegre Perl Mongers http://portoalegre.pm.org/ -------------------------------------- pmpoa@galvao.eti.br -------------------------------------- From fglock em pucrs.br Fri Apr 8 05:34:38 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Fri Apr 8 05:36:28 2005 Subject: [Cascavel-pm] Nomes longos no windows Message-ID: <200504081236.j38CaGJo054831@rigel.pucrs.br> > Tudo o que eu humildemente quero é poder dizer pro Perl algo como: > > my $dir = 'C:\\Documents and Settings\\'; > Pode ser usado: my $dir = "C:/Documents and Settings/"; A conversão das barras é feita internamente pelo Perl. - Flavio S. Glock From glasswalk3r em yahoo.com.br Fri Apr 8 06:30:55 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Fri Apr 8 06:31:07 2005 Subject: [Cascavel-pm] Nomes longos no windows In-Reply-To: 6667 Message-ID: <20050408133055.61710.qmail@web31509.mail.mud.yahoo.com> Teoricamente o Windows 2000 não tem mais as limitações de tamanho de nome de arquivo que o DOS velho de guerra tem: C:\>cd Documents and Settings C:\Documents and Settings>dir Volume in drive C is Local Disk Volume Serial Number is 04C0-0FCE Directory of C:\Documents and Settings 18/03/2005 09:58 . 18/03/2005 09:58 .. 19/04/2004 00:55 Administrator 24/02/2005 16:29 All Users 28/01/2005 01:19 br03743 07/04/2005 14:08 br04196 18/03/2005 09:58 br04227 0 File(s) 0 bytes 8 Dir(s) 5.386.117.120 bytes free Agora com Perl: C:\Documents and Settings>cd .. C:\>perl -e "chdir 'Documents and Settings'; @test = <*>; map {print \"$_\n\";} @test" Administrator All Users br03743 br04196 br04227 Default User Estou usando: C:\>perl -v This is perl, v5.8.4 built for MSWin32-x86-multi-thread (with 3 registered patches, see perl -V for more detail) Sugiro um upgrade, se o exemplo que dei não funcionar no seu sistema. []'s Alceu --- fglock@pucrs.br wrote: > > > Tudo o que eu humildemente quero é poder dizer pro > Perl algo como: > > > > my $dir = 'C:\\Documents and Settings\\'; > > > > Pode ser usado: > > my $dir = "C:/Documents and Settings/"; > > A conversão das barras é feita internamente pelo > Perl. > > - Flavio S. Glock Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ From mda em embratel.net.br Fri Apr 8 08:34:52 2005 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Fri Apr 8 08:35:05 2005 Subject: [Cascavel-pm] Troca de lider Rio-pm Message-ID: <4256A49C.1010604@embratel.net.br> Pessoal, Já a algum tempo fui convidado pelo Marco Lima (Mago) a assumir a liderança do grupo Rio.PM. Confesso que passei pelos estágios de surpresa, alegria, satisfação e desespero, pois neste ano completo 10 anos de uso de Perl! Um breve relato de minhas atividades neste período ( desculpem o comercial ;) ): 1995-2001 - Desenvolvimento/operação site de Legislação (http://www.FiscoData.com.br) Integração de aplicações em MF-Cobol 3.x com Web Site Desenvolvimento de ferramenta para gerencia de nobreak (na época não havia nada para o engetron) usando porta serial Inumeras ferramentas para processamento, conversão de formatos, relatorios, etc, em textos legais (leis ;) ) Desenvolvimento de ferramenta para indexação de textos (infelizmente um projeto abandonado na fase final... sem ficar com cópia :( ) 2001 - Convite para trabalhar na Embratel (localizado pelas respostas em uma lista de Perl !! (PerlBR ? Algum forum ? até hoje não sei!) - Inumeros scripts para analisar logs das mais variadas ferramentas/formatos, muitos com objetivos rápidos outros a muito tempo em uso - Ferramentas para configuração de DNS - Manipulação de configurações de Radius (autenticação) - Scripts para avaliação de performance do site Click21, na fase de pré-lançamento, com indicações claras de pontos de falha. - Relatórios de utilização, variação de uso (horas/usuarios/fones origem) - "Configurador" aprovisionamento via webservices de inumeros servicos, como Radius, DNS, Mail (POP+SMTP), Apache, ProFTPD, Quota e IIS -- (minha maior aplicação - com quase 50.000 linhas, apesar da reutilização de objetos) - "Configurador Click21" - (usando webservices) Aprovisionamento de acesso discado (Radius) e Mail - Inumeras ferramentas para processamento de logs e combate a spam... Agora vamos ao que interessa... Minhas pretenções na liderança do Rio-PM: Pretendo continuar divulgando a ferramenta, só que agora com maior compromisso! - Esta é uma tarefa para fazermos em grupos e "sempre que for possível" nos demais ambientes é uma atividade individual... Acrescentar informações para facilitar a entrada de usuarios de leigos a intermediários - Para isto eu pretendo estar compartilhando com os demais grupos, uma vez que muitos já trilharam boa parte deste caminho e conhecem os passos, referencias, url's, etc. Produzir alguns tutoriais para produzir ferramentas que costumam chamar a atenção pela sua referencia: - Pretendo iniciar com um passo a passo para criar uma ferramenta de aprovisionamento de alguns serviços, nos moldes do Click21, acrescentando algumas técnicas e uso de módulos que julgo interessantes (estou me esforçando para planejar as fases... breve devo trazer mais noticias) Como última medida no Rio-PM o Marco Lima convidou o Fernando Corrêa com quem estarei dividindo as responsabilidades/atividades. (E já começo com uma um membro assíduo para o chop ;) ) No mais, espero evoluir junto com a comunidade ;) Sds, Marco Antonio From marco.lima em e-via.com.br Fri Apr 8 08:59:45 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Fri Apr 8 09:00:07 2005 Subject: [Cascavel-pm] Troca de lider Rio-pm Message-ID: Parabéns !!! > Pessoal, > > Já a algum tempo fui convidado pelo Marco Lima (Mago) a assumir a > liderança do grupo Rio.PM. > > Confesso que passei pelos estágios de surpresa, alegria, satisfação e > desespero, pois neste ano completo 10 anos de uso de Perl! > > Um breve relato de minhas atividades neste período ( desculpem o > comercial ;) ): > > 1995-2001 - Desenvolvimento/operação site de Legislação > (http://www.FiscoData.com.br) > Integração de aplicações em MF-Cobol 3.x com Web Site > Desenvolvimento de ferramenta para gerencia de nobreak (na época > não havia nada para o engetron) usando porta serial > Inumeras ferramentas para processamento, conversão de formatos, > relatorios, etc, em textos legais (leis ;) ) > Desenvolvimento de ferramenta para indexação de textos > (infelizmente um projeto abandonado na fase final... sem ficar com cópia > :( ) > > > 2001 - Convite para trabalhar na Embratel (localizado pelas > respostas em uma lista de Perl !! (PerlBR ? Algum forum ? até hoje não sei!) > - Inumeros scripts para analisar logs das mais variadas > ferramentas/formatos, muitos com objetivos rápidos outros a muito tempo > em uso > - Ferramentas para configuração de DNS > - Manipulação de configurações de Radius (autenticação) > - Scripts para avaliação de performance do site Click21, na fase de > pré-lançamento, com indicações claras de pontos de falha. > - Relatórios de utilização, variação de uso (horas/usuarios/fones > origem) > - "Configurador" aprovisionamento via webservices de inumeros > servicos, como Radius, DNS, Mail (POP+SMTP), Apache, ProFTPD, Quota e IIS > -- (minha maior aplicação - com quase 50.000 linhas, apesar da > reutilização de objetos) > - "Configurador Click21" - (usando webservices) Aprovisionamento de > acesso discado (Radius) e Mail > - Inumeras ferramentas para processamento de logs e combate a spam... > > > > Agora vamos ao que interessa... > > > Minhas pretenções na liderança do Rio-PM: > > Pretendo continuar divulgando a ferramenta, só que agora com maior > compromisso! > - Esta é uma tarefa para fazermos em grupos e "sempre que for > possível" nos demais ambientes é uma atividade individual... > > Acrescentar informações para facilitar a entrada de usuarios de > leigos a intermediários > - Para isto eu pretendo estar compartilhando com os demais grupos, > uma vez que muitos já trilharam > boa parte deste caminho e conhecem os passos, referencias, url's, etc. > > Produzir alguns tutoriais para produzir ferramentas que costumam > chamar a atenção pela sua referencia: > - Pretendo iniciar com um passo a passo para criar uma ferramenta de > aprovisionamento de alguns serviços, > nos moldes do Click21, acrescentando algumas técnicas e uso de > módulos que julgo interessantes > (estou me esforçando para planejar as fases... breve devo trazer > mais noticias) > > > Como última medida no Rio-PM o Marco Lima convidou o Fernando Corrêa com > quem estarei dividindo as responsabilidades/atividades. > (E já começo com uma um membro assíduo para o chop ;) ) > > > No mais, espero evoluir junto com a comunidade ;) > > > Sds, > Marco Antonio > > _______________________________________________ > 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 acid06 em gmail.com Fri Apr 8 09:01:43 2005 From: acid06 em gmail.com (Nilson Santos) Date: Fri Apr 8 09:01:55 2005 Subject: [Cascavel-pm] Nomes longos no windows In-Reply-To: <42566191.6030908@galvao.eti.br> References: <42566191.6030908@galvao.eti.br> Message-ID: <9a08c9b40504080901592c5970@mail.gmail.com> my $dir = "C:\\Documents and Settings\\"; (note as aspas duplas) ou my $dir = 'C:\Documents and Settings'; (não é necessário a barra no final) ou my $dir = 'C:/Documents and Settings/'; -Nilson Santos F. Jr. On Apr 8, 2005 7:48 AM, Er Galvão Abbott - PM Porto Alegre wrote: > Pessoal: > > Como faço pra usar nomes longos com (Active)Perl no Windows 2000? Achei > diversos nodes no PerlMonks e até algo referente à um módulo chamado > File::DosGlob, mas confesso que não entendi patavina. > > Tudo o que eu humildemente quero é poder dizer pro Perl algo como: > > my $dir = 'C:\\Documents and Settings\\'; > > sem ter que apelar pra coisas como: > > my $dir = 'C:\\Docume~1\\'; > > Por favor, iluminem a minha burrice de forma bem simples, já que o > PerlMonks deu um nó no meu cérebro. > > Valeu, > > -- > > Er Galvão Abbott > ------------------------------------- > Porto Alegre Perl Mongers > http://portoalegre.pm.org/ > -------------------------------------- > pmpoa@galvao.eti.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 Fri Apr 8 09:02:51 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Fri Apr 8 09:03:10 2005 Subject: [Cascavel-pm] III Encontro Nacional LinuxChix-BR Message-ID: Estão abertas as inscrições para o III Encontro Nacional LinuxChix-BR, a 1ª Expedição. Destino: Belo Horizonte. Vamos nos aventurar na capital mineira e mostrar, em dois dias de palestras e mini cursos, as novidades e o trabalho de muita gente boa. Mantendo a linha de nerd para nerd, as palestras são voltadas ao publico técnico, experiente ou não. O LinuxChix-BR por dois anos teve seu encontro realizado com grande sucesso em São Paulo. Vamos incentivar agora as mineiras a contribuírem com a comunidade, incentivando a participação da mulher nesta área fascinante da tecnologia, mas não apenas com palavras. Vamos incentivar a participação na área técnica, debatendo Distribuições, Linguagens, Portabilidade, Clusters, Bancos de Dados, Softwares Multimídia, Otimização de Compiladores e muito mais. Gostou da idéia? Então não perca dias 30/04 e 01/05 de 2005, no Campus Buritis do Centro Universitário UNA, o III EN LinuxChix-BR. Programação, inscrições e informações na página oficial do projeto http://www.linuxchix.org.br/. O Brasil Perl Mongers estará presente !! [ ]'çã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 pmpoa em galvao.eti.br Fri Apr 8 09:13:58 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Fri Apr 8 09:13:31 2005 Subject: [Cascavel-pm] Nomes longos no windows In-Reply-To: <9a08c9b40504080901592c5970@mail.gmail.com> References: <42566191.6030908@galvao.eti.br> <9a08c9b40504080901592c5970@mail.gmail.com> Message-ID: <4256ADC6.1010709@galvao.eti.br> Pois é, pessoal, olhem que estranho: Atualizei minha instalação do ActivePerl aqui para a última versão: This is perl, v5.8.6 built for MSWin32-x86-multi-thread (with 3 registered patches, see perl -V for more detail) mas continuo com problemas. Estou fazendo uma chamada system que funciona perfeitamente se eu colocar: system('C:/arquiv~1/winrar/winrar.exe A -ibck -afzip -m5 C:/'.$compfile.' '.$dirs[$d].'/'.$files[$f].' > '.$logfile); Mas não funciona se eu colocar: system('C:/arquivos de programas/winrar/winrar.exe A -ibck -afzip -m5 C:/'.$compfile.' '.$dirs[$d].'/'.$files[$f].' > '.$logfile); O erro é: " 'C:/arquivos' não é reconhecido como um comando interno ou externo, um programa operável ou um arquivo em lotes. " Estou fazendo a chamada desse system ligada a um botão em uma janela Tk. Alguma sugestão? Valeu, Er Galvão Abbott ------------------------------------- Porto Alegre Perl Mongers http://portoalegre.pm.org/ -------------------------------------- pmpoa@galvao.eti.br -------------------------------------- Nilson Santos wrote: >my $dir = "C:\\Documents and Settings\\"; (note as aspas duplas) >ou >my $dir = 'C:\Documents and Settings'; (não é necessário a barra no final) >ou >my $dir = 'C:/Documents and Settings/'; > >-Nilson Santos F. Jr. > >On Apr 8, 2005 7:48 AM, Er Galvão Abbott - PM Porto Alegre > wrote: > > >>Pessoal: >> >>Como faço pra usar nomes longos com (Active)Perl no Windows 2000? Achei >>diversos nodes no PerlMonks e até algo referente à um módulo chamado >>File::DosGlob, mas confesso que não entendi patavina. >> >>Tudo o que eu humildemente quero é poder dizer pro Perl algo como: >> >>my $dir = 'C:\\Documents and Settings\\'; >> >>sem ter que apelar pra coisas como: >> >>my $dir = 'C:\\Docume~1\\'; >> >>Por favor, iluminem a minha burrice de forma bem simples, já que o >>PerlMonks deu um nó no meu cérebro. >> >>Valeu, >> >>-- >> >>Er Galvão Abbott >>------------------------------------- >>Porto Alegre Perl Mongers >>http://portoalegre.pm.org/ >>-------------------------------------- >>pmpoa@galvao.eti.br >>-------------------------------------- >> >>_______________________________________________ >>Cascavel-pm mailing list >>Cascavel-pm@pm.org >>http://mail.pm.org/mailman/listinfo/cascavel-pm >> >> >> > > > > From fglock em pucrs.br Fri Apr 8 09:43:44 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Fri Apr 8 09:45:40 2005 Subject: [Cascavel-pm] Nomes longos no windows Message-ID: <200504081645.j38GjKJo011410@rigel.pucrs.br> > Mas não funciona se eu colocar: > > system('C:/arquivos de programas/winrar/winrar.exe A -ibck -afzip -m5 > C:/'.$compfile.' '.$dirs[$d].'/'.$files[$f].' > '.$logfile); > Precisa usar aspas, para o "cmd.exe" entender que o comando não termina no espaço: system('"C:/arquivos de programas/winrar/winrar.exe" A -ibck ... Outra opção (melhor) é usar uma lista: system('C:/arquivos de programas/winrar/winrar.exe', 'A', '-ibck' ... - Flavio S. Glock From rodzadra em yahoo.com Fri Apr 8 10:16:38 2005 From: rodzadra em yahoo.com (Rod Za) Date: Fri Apr 8 10:16:52 2005 Subject: [Cascavel-pm] Exemplo de relacao many-to-many com Class::DBI Message-ID: <20050408171638.29923.qmail@web50202.mail.yahoo.com> Olá a todos, Alguém poderia me ajudar a compreender como criar (corretamente) uma relacao many-to-many com Class::DBI? Eu queria trabalhar com a seguinte tabela como exemplo (assim ficaria bom para outros consultarem): +---------+ +-------------+ | users | | groups | +---------+ +-------------+ |*id_user |-+ +--| *id_group | | login | | | | group_name | +---------+ | | +-------------+ | | +--------+ | | +------------+ | +---------------+ | | | relationship | | | +---------------+ | +---<| *id_user | | | *id_group |>---+ +---------------+ | | | | /|\ /|\ +-----------------+ +--------------+ | history | | action | +-----------------+ +--------------+ | *id_user | | *id_action | | *id_group | +--| action | | id_action |--+ +--------------+ | date | +-----------------+ Eu criei as classes (ver abaixo) mas não sei como acessar o historico de um usuario/grupo. muito obrigado, Rodrigo package dbBase; use base qw/Class::DBI/; use base qw(Class::DBI); __PACKAGE__->set_db( "Main", "dbi:mysql:Test", "TEST_USER", "TESTPASS" ); 1; package dbUser; use lib '/home/rodza/perl_tests'; use base 'dbBase'; dbUser->table('users'); dbUser->columns( All => qw/id_user login/ ); dbUser->has_many( groups => [dbRelationship => 'id_group'] => 'id_user' ); 1; package dbGroup; use lib '/home/rodza/perl_tests'; use base 'dbBase'; dbGroup->table('groups'); dbGroup->columns( All => qw/id_group group_name/ ); 1; package dbRelationship; use lib '/home/rodza/perl_tests'; use base 'dbBase'; dbRelationship->table('relationship'); dbRelationship->columns( All => qw/id_user id_group/ ); dbRelationship->has_a( id_group => dbGroup ); dbRelationship->has_a( id_user => dbUser ); dbRelationship->has_many( history => dbHistory => 'id_user' ); 1; package dbHistory; use lib '/home/rodza/perl_tests'; use base 'dbBase'; dbHistory->table('history'); dbHistory->columns( All => qw/id_user id_group action date/ ); dbHistory->has_a( id_action => dbAction ); 1; package dbAction; use lib '/home/rodza/perl_tests'; use base 'dbBase'; dbAction->table('action'); dbAction->columns( All => qw/id_action action/ ); 1; package main; use dbUser; my ($info) = dbUser->retrieve(1); foreach($info){ printf "UID: %d LOGIN: %S\nGID: %D GROUP_NAME: %S", $info->id_user, $info->login; } __________________________________ Do you Yahoo!? Yahoo! Personals - Better first dates. More second dates. http://personals.yahoo.com From glasswalk3r em yahoo.com.br Fri Apr 8 10:37:57 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Fri Apr 8 10:38:10 2005 Subject: [Cascavel-pm] Nomes longos no windows In-Reply-To: 6667 Message-ID: <20050408173757.41117.qmail@web31509.mail.mud.yahoo.com> Oi, O Flávio é imbatível em velocidade de resposta, mas vou aproveitar o gancho e dar meu pitaco... :-) --- fglock@pucrs.br wrote: > > > Mas não funciona se eu colocar: > > > > system('C:/arquivos de programas/winrar/winrar.exe > A -ibck -afzip -m5 > > C:/'.$compfile.' '.$dirs[$d].'/'.$files[$f].' > > '.$logfile); > > O erro que vc está obtendo é do shell do Windows. Seria melhor você executar o comando sem chamar o shell... (eu explico mais abaixo) > Precisa usar aspas, para o "cmd.exe" entender que o > comando não termina no espaço: > > system('"C:/arquivos de programas/winrar/winrar.exe" > A -ibck ... Prefira usar aspas simples ao invés de duplas, se você puder. Toda vez que vc usa aspas duplas, o Perl vai tentar interpolar o valor de uma possível variável ali dentro. Mais um detalhe adicional: use o separador de diretórios normal do DOS ao invés do UNIX: "\" (contra barra). Isso evita dores de cabeça (e talvez tenha sido esse o erro reportado). Se vc usar aspas duplas, terá que colocar um "escape" assim: \\ Com aspas simples pode usar uma contrabarra só. > Outra opção (melhor) é usar uma lista: > > system('C:/arquivos de programas/winrar/winrar.exe', > 'A', '-ibck' ... > A lista é opção ideal porque o Perl não usa o shell do SO para executar o comando. Isso evita problemas de segurança também. (vide perldoc perlsec) []'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 Fri Apr 8 11:31:06 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Fri Apr 8 11:32:59 2005 Subject: [Cascavel-pm] Nomes longos no windows Message-ID: <200504081832.j38IWiJo048183@rigel.pucrs.br> > > system('"C:/arquivos de programas/... [...] > > Toda vez que vc usa aspas duplas, o > Perl vai tentar interpolar o valor de uma possível > variável ali dentro. Neste caso isto não acontece, porque as aspas duplas estão dentro de aspas simples. - Flavio S. Glock From monsieur_champs em yahoo.com.br Fri Apr 8 11:32:45 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Fri Apr 8 11:33:09 2005 Subject: [Cascavel-pm] Nomes longos no windows In-Reply-To: <42566191.6030908@galvao.eti.br> References: <42566191.6030908@galvao.eti.br> Message-ID: <4256CE4D.3080405@yahoo.com.br> Er Galvão Abbott - PM Porto Alegre wrote: > Pessoal: > > Como faço pra usar nomes longos com (Active)Perl no Windows 2000? Achei > diversos nodes no PerlMonks e até algo referente à um módulo chamado > File::DosGlob, mas confesso que não entendi patavina. > > Tudo o que eu humildemente quero é poder dizer pro Perl algo como: > > my $dir = 'C:\\Documents and Settings\\'; > > sem ter que apelar pra coisas como: > > my $dir = 'C:\\Docume~1\\'; > > Por favor, iluminem a minha burrice de forma bem simples, já que o > PerlMonks deu um nó no meu cérebro. Quanto ao File::DosGlob, acho que a intenção é permitir a você usar "globbing" (veja a documentação do perl para a função glob() ) para os chamados "nomes longos do dos (que, de longos, tem apenas esse nome). Eu acho que seu caminho mais promissor (exceto pela dica do FGlock, que eu não sei se resolve ou não seu problema) é pesquisar algum objeto da hierarquia do File::, que poderia representar arquivos com nomes esquisitos em vários sistemas operacionais diferentes (é assim que o Java resolve este problema, apenas para citar um exemplo). Se tudo isso ainda parece confuso, acho que precisamos de um exemplo "quebrado". Assim, aprenderemos o que você precisa e ainda ensinaremos você a "consertar" o seu código, o que eu considero uma das melhores formas de aprender. 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 Apr 8 11:39:33 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Fri Apr 8 11:39:56 2005 Subject: [Cascavel-pm] Troca de lider Rio-pm In-Reply-To: <4256A49C.1010604@embratel.net.br> References: <4256A49C.1010604@embratel.net.br> Message-ID: <4256CFE5.70508@yahoo.com.br> Marco A P D´Andrade wrote: > Pessoal, > > Já a algum tempo fui convidado pelo Marco Lima (Mago) a assumir a > liderança do grupo Rio.PM. [SNIP] > Agora vamos ao que interessa... > Minhas pretenções na liderança do Rio-PM: > > Pretendo continuar divulgando a ferramenta, só que agora com maior > compromisso! > - Esta é uma tarefa para fazermos em grupos e "sempre que for > possível" nos demais ambientes é uma atividade individual... > > Acrescentar informações para facilitar a entrada de usuarios de > leigos a intermediários > - Para isto eu pretendo estar compartilhando com os demais grupos, > uma vez que muitos já trilharam > boa parte deste caminho e conhecem os passos, referencias, url's, etc. > > Produzir alguns tutoriais para produzir ferramentas que costumam > chamar a atenção pela sua referencia: > - Pretendo iniciar com um passo a passo para criar uma ferramenta de > aprovisionamento de alguns serviços, > nos moldes do Click21, acrescentando algumas técnicas e uso de > módulos que julgo interessantes > (estou me esforçando para planejar as fases... breve devo trazer > mais noticias) Benvindo e boa sorte, Marco! O SPPM está à disposição para ajudar com o que estiver ao nosso alcance. Eu sugiro a você publicar estas informações no website do rio.pm, como forma de o pessoal tomar conhecimento da alteração de gestão, e como forma de "demarcar o caminho" que você se propõe a seguir. Putamplexos, e parabéns por aceitar a enorme responsabilidade de tocar um grupo de Perl Mongers no Brasil! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 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 Apr 8 11:45:49 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Fri Apr 8 11:46:05 2005 Subject: [Cascavel-pm] Nomes longos no windows In-Reply-To: <4256ADC6.1010709@galvao.eti.br> References: <42566191.6030908@galvao.eti.br> <9a08c9b40504080901592c5970@mail.gmail.com> <4256ADC6.1010709@galvao.eti.br> Message-ID: <4256D15D.3040309@yahoo.com.br> Er Galvão Abbott - PM Porto Alegre wrote: > Pois é, pessoal, olhem que estranho: > > Atualizei minha instalação do ActivePerl aqui para a última versão: > > This is perl, v5.8.6 built for MSWin32-x86-multi-thread > (with 3 registered patches, see perl -V for more detail) > > mas continuo com problemas. Estou fazendo uma chamada system que > funciona perfeitamente se eu colocar: > > system('C:/arquiv~1/winrar/winrar.exe A -ibck -afzip -m5 > C:/'.$compfile.' '.$dirs[$d].'/'.$files[$f].' > '.$logfile); > > Mas não funciona se eu colocar: > > system('C:/arquivos de programas/winrar/winrar.exe A -ibck -afzip -m5 > C:/'.$compfile.' '.$dirs[$d].'/'.$files[$f].' > '.$logfile); > > O erro é: > > " 'C:/arquivos' não é reconhecido como um comando interno ou externo, um > programa operável ou um arquivo em lotes. " > > Estou fazendo a chamada desse system ligada a um botão em uma janela Tk. > > Alguma sugestão? Simples. Vai funcionar perfeitamente se você disser system( q{"C:/arquivos de programas/winrar/winrar.exe" A -ibck -afzip -m5 C:/}.$compfile.' '.$dirs[$d].'/'.$files[$f].' > '.$logfile); Repare que eu usei q{} para quotar a primeira string, e que eu quotei (DOS-like) o nome do programa. Este é o seu problema: você precisa se lembrar de que o system() chama o shell do DOS (command.exe) e que este "shell" não é lá muito inteligente... ;-) Se resolveu, avisa a gente. 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 Fri Apr 8 20:03:08 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Fri Apr 8 20:03:17 2005 Subject: [Cascavel-pm] Problema com Win32::Process::List Message-ID: <1746e3e30504082003c88e054@mail.gmail.com> Pessoal, estou tentando pegar o nome dos processos rodando. Uso win98SE portanto nao da pra usar o Win32::Process::Info nem WMI... o que acontece com o Win32::Process::List é o seguinte: use Win32::Process::List; my $P = Win32::Process::List->new(); #constructor my @list = $P->GetProcesses(); #returns an array of hashes my %h = %{ $list[0] }; #get the hash with processname and pid foreach my $pr ( keys %h ) { print "Process $pr has PID " . $h{$pr} . "\n"; } Cant load path/List.dll for module Win32::Process::List load_file:Um dispositivo anexado ao sistema nao esta funcionando at procinfo.pl line 3 erro repotado pelo dynaloader.pm ALGUEM SABE O QUE FAZER? para instalar o win32::Process::List: ppm install http://www.bribes.org/perl/ppm/Win32-Process-List.ppd Abraços!! -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" From daniel em ruoso.com Sat Apr 9 09:40:08 2005 From: daniel em ruoso.com (Daniel Ruoso) Date: Sat Apr 9 09:40:38 2005 Subject: [Cascavel-pm] Prosseguindo com o Oak2 Message-ID: <1113064680.1948.2.camel@localhost> Galera, Parece que estou conseguindo avançar um pouco mais no Oak2. Preparei um documento (desta vez em portugues antes de ingles) sobre um outro aspecto do Oak2, que já está implementado... daniel -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050409/984028c3/environment_pt-BR-0001.html From acid06 em gmail.com Sat Apr 9 10:31:58 2005 From: acid06 em gmail.com (Nilson Santos) Date: Sat Apr 9 10:32:08 2005 Subject: [Cascavel-pm] Prosseguindo com o Oak2 In-Reply-To: <1113064680.1948.2.camel@localhost> References: <1113064680.1948.2.camel@localhost> Message-ID: <9a08c9b4050409103178e454bb@mail.gmail.com> Não sei se é só aqui, mas os acentos estão todos errados. Tanto no IE quanto no Firefox. Alguma coisa relativa à Windows, talvez? -Nilson Santos F. Jr. On Apr 9, 2005 1:40 PM, Daniel Ruoso wrote: > Galera, > > Parece que estou conseguindo avançar um pouco mais no Oak2. Preparei um > documento (desta vez em portugues antes de ingles) sobre um outro > aspecto do Oak2, que já está implementado... > > daniel > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > From shonorio em terra.com.br Sat Apr 9 11:17:20 2005 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Sat Apr 9 11:17:26 2005 Subject: [Cascavel-pm] Prosseguindo com o Oak2 In-Reply-To: <9a08c9b4050409103178e454bb@mail.gmail.com> Message-ID: <000601c53d30$60003cc0$0201010a@eraser> Pra mim também ! Rola este material em PDF ? Solli -----Original Message----- From: cascavel-pm-bounces@pm.org [mailto:cascavel-pm-bounces@pm.org] On Behalf Of Nilson Santos Sent: sábado, 9 de abril de 2005 14:32 To: Cascavel Perl Mongers Subject: Re: [Cascavel-pm] Prosseguindo com o Oak2 Não sei se é só aqui, mas os acentos estão todos errados. Tanto no IE quanto no Firefox. Alguma coisa relativa à Windows, talvez? -Nilson Santos F. Jr. On Apr 9, 2005 1:40 PM, Daniel Ruoso wrote: > Galera, > > Parece que estou conseguindo avançar um pouco mais no Oak2. Preparei um > documento (desta vez em portugues antes de ingles) sobre um outro > aspecto do Oak2, que já está implementado... > > daniel > > > _______________________________________________ > 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 shonorio em terra.com.br Sat Apr 9 11:27:31 2005 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Sat Apr 9 11:27:34 2005 Subject: [Cascavel-pm] Problema com Win32::Process::List In-Reply-To: <1746e3e30504082003c88e054@mail.gmail.com> Message-ID: <000701c53d31$cb188200$0201010a@eraser> Donato, O Win32::Process::List não vai rolar no W9x/ME cara, ele está utilizando algumas API não suportada neste sistema operacional. Temos duas alteranativas : * a primeira seria utilizar as API que roda neste cara, que seriam as 'CreateToolhelp32Snapshot', 'Process32First' e 'Process32Next'. O problema que neste caso não estou conseguindo fazer o Win32::API trabalhar legal com estas API, estou há várias horas tentando sem sucesso; * a segunda é utilizar um software externo que lhe dê estas informações e aí você faz um parse dos dados. Para a segunda opção, dê uma olhada no Handle (http://www.sysinternals.com/ntw2k/freeware/handle.shtml), com ele você pode fazer algo assim : open ( PROCESS, "handle -a |" ); while ( ) { # Faça o parse utilizando o $_ } close ( PROCESS ); É isto aí. Se eu conseguir uma ajuda com relação a primeira alternativa eu dou retorno. Solli Moreira Honorio -----Original Message----- From: cascavel-pm-bounces@pm.org [mailto:cascavel-pm-bounces@pm.org] On Behalf Of Donato Azevedo Sent: sábado, 9 de abril de 2005 00:03 To: Cascavel Perl Mongers Subject: [Cascavel-pm] Problema com Win32::Process::List Pessoal, estou tentando pegar o nome dos processos rodando. Uso win98SE portanto nao da pra usar o Win32::Process::Info nem WMI... o que acontece com o Win32::Process::List é o seguinte: use Win32::Process::List; my $P = Win32::Process::List->new(); #constructor my @list = $P->GetProcesses(); #returns an array of hashes my %h = %{ $list[0] }; #get the hash with processname and pid foreach my $pr ( keys %h ) { print "Process $pr has PID " . $h{$pr} . "\n"; } Cant load path/List.dll for module Win32::Process::List load_file:Um dispositivo anexado ao sistema nao esta funcionando at procinfo.pl line 3 erro repotado pelo dynaloader.pm ALGUEM SABE O QUE FAZER? para instalar o win32::Process::List: ppm install http://www.bribes.org/perl/ppm/Win32-Process-List.ppd Abraços!! -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" _______________________________________________ Cascavel-pm mailing list Cascavel-pm@pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm From pmpoa em galvao.eti.br Sat Apr 9 13:03:02 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Sat Apr 9 13:02:35 2005 Subject: [Cascavel-pm] Nomes longos no windows In-Reply-To: <4256D15D.3040309@yahoo.com.br> References: <42566191.6030908@galvao.eti.br> <9a08c9b40504080901592c5970@mail.gmail.com> <4256ADC6.1010709@galvao.eti.br> <4256D15D.3040309@yahoo.com.br> Message-ID: <425834F6.2060201@galvao.eti.br> Pessoal: Primeiramente valeu pelas respostas. Como sempre bem informativas e claras. Decidi usar o system com uma lista, como o Flávio recomendou, mas agora pintou outra dúvida: Eu executo duas chamadas system, uma para criar o diretório ($dirs[$d]) dentro do arquivo Zip e uma para criar o arquivo ($files[$f]) dentro do diretório dentro do arquivo Zip. Acontece que o WinRAR reclama que não pode usar o arquivo Zip porque ele já está sendo usado por outro processo. Eu entendo que cada chamada system faz um fork que cria um processo, certo? Ou seja, antes de cada operação (tanto de inserção de diretório como de inserção de arquivo) eu teria que verificar se o processo anterior já terminou o trabalho, correto? Alguém poderia me dar umas dicas? Eu sei que tenho que usar signals, mas como nunca usei antes queria umas dicas de vocês. Notem como é feito o processo todo: 1 for ($d = 0; $d < scalar(@dirs); $d++) 2 { 3 system('C:/arquivos de programas/winrar/winrar.exe', 'A', '-ibck', '-afzip', '-m5', 'C:/'.$compfile, $dirs[$d]); 4 5 opendir(DH, $dirs[$d]) or die ('Impossivel abrir o diretório '.$dirs[$d].': '.$!); 6 @files = grep { $_ ne '.' && $_ ne '..' } readdir DH; 7 8 for ($f = 0; $f < scalar (@files); $f++) 9 { 10 system('C:/arquivos de programas/winrar/winrar.exe', 'A', '-ibck', '-afzip', '-m5', 'C:/'.$compfile, $dirs[$d].'/'.$files[$f]); 11 } 12 13 closedir(DH); 14 } Se eu entendi corretamente estas checagens deveriam ser feitas antes da linha 3 e antes da linha 10, correto? Mais uma vez valeu pela inestimável ajuda! Er Galvão Abbott ------------------------------------- Porto Alegre Perl Mongers http://portoalegre.pm.org/ -------------------------------------- pmpoa@galvao.eti.br -------------------------------------- Luis Campos de Carvalho wrote: > Er Galvão Abbott - PM Porto Alegre wrote: > >> Pois é, pessoal, olhem que estranho: >> >> Atualizei minha instalação do ActivePerl aqui para a última versão: >> >> This is perl, v5.8.6 built for MSWin32-x86-multi-thread >> (with 3 registered patches, see perl -V for more detail) >> >> mas continuo com problemas. Estou fazendo uma chamada system que >> funciona perfeitamente se eu colocar: >> >> system('C:/arquiv~1/winrar/winrar.exe A -ibck -afzip -m5 >> C:/'.$compfile.' '.$dirs[$d].'/'.$files[$f].' > '.$logfile); >> >> Mas não funciona se eu colocar: >> >> system('C:/arquivos de programas/winrar/winrar.exe A -ibck -afzip -m5 >> C:/'.$compfile.' '.$dirs[$d].'/'.$files[$f].' > '.$logfile); >> >> O erro é: >> >> " 'C:/arquivos' não é reconhecido como um comando interno ou externo, >> um programa operável ou um arquivo em lotes. " >> >> Estou fazendo a chamada desse system ligada a um botão em uma janela Tk. >> >> Alguma sugestão? > > > Simples. > Vai funcionar perfeitamente se você disser > > system( q{"C:/arquivos de programas/winrar/winrar.exe" A -ibck > -afzip -m5 C:/}.$compfile.' '.$dirs[$d].'/'.$files[$f].' > '.$logfile); > > Repare que eu usei q{} para quotar a primeira string, e que eu > quotei (DOS-like) o nome do programa. Este é o seu problema: você > precisa se lembrar de que o system() chama o shell do DOS > (command.exe) e que este "shell" não é lá muito inteligente... ;-) > > Se resolveu, avisa a gente. > Putamplexos! From shonorio em terra.com.br Sat Apr 9 14:41:49 2005 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Sat Apr 9 14:42:01 2005 Subject: [Cascavel-pm] Problema com Win32::Process::List In-Reply-To: <000701c53d31$cb188200$0201010a@eraser> Message-ID: <000001c53d4c$f40d5350$0201010a@eraser> Donato, Dê uma olhada no link http://www.perlmonks.org/?node_id=446283, lá está o código necessário para pegar as informações dos processos que estão rodando no Win98. Instalei um Win98 (isto me faz lembrar porquê alguma pessoas odeiam tanto a Microsoft) e testei. Como você poderá ver, o problema do meu script estava num bug do Win32::API::Struct::sizeof. Abraços, Solli Moreira Honorio -----Original Message----- From: cascavel-pm-bounces@pm.org [mailto:cascavel-pm-bounces@pm.org] On Behalf Of Solli Moreira Honorio Sent: sábado, 9 de abril de 2005 15:28 To: 'Cascavel Perl Mongers' Subject: RE: [Cascavel-pm] Problema com Win32::Process::List Donato, O Win32::Process::List não vai rolar no W9x/ME cara, ele está utilizando algumas API não suportada neste sistema operacional. Temos duas alteranativas : * a primeira seria utilizar as API que roda neste cara, que seriam as 'CreateToolhelp32Snapshot', 'Process32First' e 'Process32Next'. O problema que neste caso não estou conseguindo fazer o Win32::API trabalhar legal com estas API, estou há várias horas tentando sem sucesso; * a segunda é utilizar um software externo que lhe dê estas informações e aí você faz um parse dos dados. Para a segunda opção, dê uma olhada no Handle (http://www.sysinternals.com/ntw2k/freeware/handle.shtml), com ele você pode fazer algo assim : open ( PROCESS, "handle -a |" ); while ( ) { # Faça o parse utilizando o $_ } close ( PROCESS ); É isto aí. Se eu conseguir uma ajuda com relação a primeira alternativa eu dou retorno. Solli Moreira Honorio -----Original Message----- From: cascavel-pm-bounces@pm.org [mailto:cascavel-pm-bounces@pm.org] On Behalf Of Donato Azevedo Sent: sábado, 9 de abril de 2005 00:03 To: Cascavel Perl Mongers Subject: [Cascavel-pm] Problema com Win32::Process::List Pessoal, estou tentando pegar o nome dos processos rodando. Uso win98SE portanto nao da pra usar o Win32::Process::Info nem WMI... o que acontece com o Win32::Process::List é o seguinte: use Win32::Process::List; my $P = Win32::Process::List->new(); #constructor my @list = $P->GetProcesses(); #returns an array of hashes my %h = %{ $list[0] }; #get the hash with processname and pid foreach my $pr ( keys %h ) { print "Process $pr has PID " . $h{$pr} . "\n"; } Cant load path/List.dll for module Win32::Process::List load_file:Um dispositivo anexado ao sistema nao esta funcionando at procinfo.pl line 3 erro repotado pelo dynaloader.pm ALGUEM SABE O QUE FAZER? para instalar o win32::Process::List: ppm install http://www.bribes.org/perl/ppm/Win32-Process-List.ppd Abraços!! -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" _______________________________________________ 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 fglock em pucrs.br Sat Apr 9 15:24:00 2005 From: fglock em pucrs.br (fglock@pucrs.br) Date: Sat Apr 9 15:25:50 2005 Subject: [Cascavel-pm] Nomes longos no windows Message-ID: <200504092225.j39MPbJo084558@rigel.pucrs.br> Galvão falou: > > Eu executo duas chamadas system, uma para criar o > diretório ($dirs[$d]) dentro do arquivo Zip e uma > para criar o arquivo ($files[$f]) dentro do > diretório dentro do arquivo Zip. Você poderia usar o módulo Archive::Rar - ele faz a interface com o WinRAR, e é bem fácil de instalar. Por outro lado, este problema não deve causado pelo "system", porque ele sempre espera o processo terminar. Deve estar acontecendo algum erro no WinRAR, e ele está deixando o arquivo aberto. Experimente verificar o resultado da chamada system - a documentação do "system" sugere: @args = ("command", "arg1", "arg2"); system(@args) == 0 or die "system @args failed: $?" $exit_value = $? >> 8; $signal_num = $? & 127; $dumped_core = $? & 128; - Flavio S. Glock From donatoaz em gmail.com Sat Apr 9 17:32:06 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Sat Apr 9 17:32:18 2005 Subject: [Cascavel-pm] Problema com Win32::Process::List In-Reply-To: <000001c53d4c$f40d5350$0201010a@eraser> References: <000701c53d31$cb188200$0201010a@eraser> <000001c53d4c$f40d5350$0201010a@eraser> Message-ID: <1746e3e30504091732103ee91c@mail.gmail.com> Olá! Agora nao posso testar, mas assim que puder vou e te mando o resultado. Obrigado mesmo pelo trabalhão! Essa lista é mesmo incrivel.... On Apr 9, 2005 6:41 PM, Solli Moreira Honorio wrote: > > Donato, > > Dê uma olhada no link http://www.perlmonks.org/?node_id=446283, lá está > o código necessário para pegar as informações dos processos que estão > rodando no Win98. Instalei um Win98 (isto me faz lembrar porquê alguma > pessoas odeiam tanto a Microsoft) e testei. > > Como você poderá ver, o problema do meu script estava num bug do > Win32::API::Struct::sizeof. > > Abraços, > > Solli Moreira Honorio > > -----Original Message----- > From: cascavel-pm-bounces@pm.org [mailto:cascavel-pm-bounces@pm.org] On > Behalf Of Solli Moreira Honorio > Sent: sábado, 9 de abril de 2005 15:28 > To: 'Cascavel Perl Mongers' > Subject: RE: [Cascavel-pm] Problema com Win32::Process::List > > Donato, > > O Win32::Process::List não vai rolar no W9x/ME cara, ele está utilizando > algumas API não suportada neste sistema operacional. > > Temos duas alteranativas : > * a primeira seria utilizar as API que roda neste cara, que seriam as > 'CreateToolhelp32Snapshot', 'Process32First' e 'Process32Next'. O > problema que neste caso não estou conseguindo fazer o Win32::API > trabalhar legal com estas API, estou há várias horas tentando sem > sucesso; > > * a segunda é utilizar um software externo que lhe dê estas informações > e aí você faz um parse dos dados. > > Para a segunda opção, dê uma olhada no Handle > (http://www.sysinternals.com/ntw2k/freeware/handle.shtml), com ele você > pode fazer algo assim : > > open ( PROCESS, "handle -a |" ); > > while ( ) > { > # Faça o parse utilizando o $_ > } > > close ( PROCESS ); > > > É isto aí. > > Se eu conseguir uma ajuda com relação a primeira alternativa eu dou > retorno. > > Solli Moreira Honorio > -----Original Message----- > From: cascavel-pm-bounces@pm.org [mailto:cascavel-pm-bounces@pm.org] On > Behalf Of Donato Azevedo > Sent: sábado, 9 de abril de 2005 00:03 > To: Cascavel Perl Mongers > Subject: [Cascavel-pm] Problema com Win32::Process::List > > Pessoal, estou tentando pegar o nome dos processos rodando. Uso > win98SE portanto nao da pra usar o Win32::Process::Info nem WMI... > o que acontece com o Win32::Process::List é o seguinte: > > use Win32::Process::List; > my $P = Win32::Process::List->new(); #constructor > my @list = $P->GetProcesses(); #returns an array of hashes > my %h = %{ $list[0] }; #get the hash with processname and pid > foreach my $pr ( keys %h ) { > print "Process $pr has PID " . $h{$pr} . "\n"; > } > > > Cant load path/List.dll for module Win32::Process::List load_file:Um > dispositivo anexado ao sistema nao esta funcionando at procinfo.pl > line 3 > > erro repotado pelo dynaloader.pm > > ALGUEM SABE O QUE FAZER? > > para instalar o win32::Process::List: > ppm install http://www.bribes.org/perl/ppm/Win32-Process-List.ppd > > Abraços!! > > -- > ******************************************* > Donato Azevedo > Engenharia de Controle e Automação > UFMG > ******************************************* > We will encourage you to develop the three great virtues > of a programmer: laziness, impatience, and hubris. > "Larry Wall - Programming perl" > _______________________________________________ > 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 > -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050409/f372fa67/attachment-0001.htm From monsieur_champs em yahoo.com.br Sun Apr 10 04:28:33 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Sun Apr 10 04:28:58 2005 Subject: [Cascavel-pm] Prosseguindo com o Oak2 In-Reply-To: <9a08c9b4050409103178e454bb@mail.gmail.com> References: <1113064680.1948.2.camel@localhost> <9a08c9b4050409103178e454bb@mail.gmail.com> Message-ID: <42590DE1.8010404@yahoo.com.br> Nilson Santos wrote: > Não sei se é só aqui, mas os acentos estão todos errados. > Tanto no IE quanto no Firefox. > > Alguma coisa relativa à Windows, talvez? > Com 110% de certeza. :-) O windows reconhece e trata corretamente apenas um /character set/: o dele... ;-) 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 Sun Apr 10 05:07:18 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Sun Apr 10 05:07:35 2005 Subject: [Cascavel-pm] Nomes longos no windows In-Reply-To: <425834F6.2060201@galvao.eti.br> References: <42566191.6030908@galvao.eti.br> <9a08c9b40504080901592c5970@mail.gmail.com> <4256ADC6.1010709@galvao.eti.br> <4256D15D.3040309@yahoo.com.br> <425834F6.2060201@galvao.eti.br> Message-ID: <425916F6.4090406@yahoo.com.br> Er Galvão Abbott - PM Porto Alegre wrote: > Primeiramente valeu pelas respostas. Como sempre bem informativas e > claras. Decidi usar o system com uma lista, como o Flávio recomendou, > mas agora pintou outra dúvida: Eu tenho sugestões sobre o seu uso de system(), para deixar seu código mais simples de ler. :-) > Eu executo duas chamadas system, uma para criar o diretório ($dirs[$d]) > dentro do arquivo Zip e uma para criar o arquivo ($files[$f]) dentro do > diretório dentro do arquivo Zip. Também tenho sugestões quanto a isso. > Acontece que o WinRAR reclama que não pode usar o arquivo Zip porque ele > já está sendo usado por outro processo. Eu entendo que cada chamada > system faz um fork que cria um processo, certo? Correto. > Ou seja, antes de cada operação (tanto de inserção de diretório como de > inserção de arquivo) eu teria que verificar se o processo anterior já > terminou o trabalho, correto? Mais que apenas "terminou o trabalho", mas que o windows removeu o lock que ele coloca sobre o arquivo. Segundo a documentação, system() é uma chamada /blocking/, o que quer dizer que seu processo /espera/ pelo término do processo iniciado por system() antes de continuar. Isso quer dizer que não basta tratar sinais, mas deve haver aqui um /atraso/ para se certificar de que o windows efetivamente "liberou" o arquivo para acesso de outros processos. É uma das coisas mais esquisitas que eu conheço do sistema operacional: ele cria e remove /locks/ sobre os arquivos SEM nosso consentimento, SEMPRE que um processo abre, remove ou modifica arquivos... faz pensar sériamente em quem manda no meu processador... > Alguém poderia me dar umas dicas? Eu sei que tenho que usar signals, mas > como nunca usei antes queria umas dicas de vocês. Notem como é feito o > processo todo: Galvão, eu achei seu processo como um todo muito poluído. Desta forma, usei algumas técnicas de /Perl Golf/ para lipar um pouco o código, otimizando para legibilidade (bom, talvez não *tão* *legível* assim, afinal...). Seguem as três versões da linha de tentativas que deu melhores resultados. Todas elas executam exatamente seu código, mas com muito menos toques e muito mais simples de entender. __PERL__ ## ## Versao I ## #! -*- perl -*- use constant WINRAR => 'C:/arquivos de programas/winrar/winrar.exe'; our @opts = ( 'A', '-ibck', '-afzip', '-m5', 'C:/'.$compfile ); foreach my $dir ( @dirs ){ system WINRAR, @opts, $dir; opendir DH, $dir or die 'Impossivel abrir o diretório '.$dir.': '.$!; my @files = grep { $_ ne '.' && $_ ne '..' } readdir DH; foreach my $file( @files ){ system WINRAR, @opts, $dir.'/'.$file; } closedir DH or die 'Impossivel fechar o diretório '.$dir.': '.$!; } __END__ ## ## Versao II ## #! -*- perl -*- use constant WINRAR => 'C:/arquivos de programas/winrar/winrar.exe'; our @opts = ( 'A', '-ibck', '-afzip', '-m5', 'C:/'.$compfile ); map { system WINRAR, @opts, $_; opendir DH, $_ or die 'Impossivel abrir o diretório '.$_.': '.$!; my @files = grep { $_ ne '.' && $_ ne '..' } readdir DH; my $dir = $_; map { system WINRAR, @opts, $dir.'/'.$_; } @files; closedir DH or die 'Impossivel fechar o diretório '.$dir.': '.$!; } @dirs; __END__ ## ## Versao III ## #! -*- perl -*- our @_ = ( 'C:/arquivos de programas/winrar/winrar.exe', qw/ A -ibck -afzip -m5 /, 'C:/'.$compfile ); map { system @_, $_; opendir DH, $_ or die "$0: $!$/"; my $dir = $_; map { system @_, $dir.'/'.$_; } grep { $_ ne '.' && $_ ne '..' } readdir DH; closedir DH or die "$0: $!$/"; } @dirs; __END__ Para terminar, a quarta versão traz a alteração que você precisa para se assegurar de que o windows teve tempo de levantar aquele /lock/ não-autorizado sobre o seu arquivo: __PERL__ ## ## Versao IV ## #! -*- perl -*- use constant DELAY => 5; # você precisa ajustar este # tempo para algum valor # interessante... our @_ = ( 'C:/arquivos de programas/winrar/winrar.exe', qw/ A -ibck -afzip -m5 /, 'C:/'.$compfile ); map { system @_, $_; sleep DELAY; opendir DH, $_ or die "$0: $!$/"; my $dir = $_; map { system @_, $dir.'/'.$_; sleep DELAY; } grep { $_ ne '.' && $_ ne '..' } readdir DH; closedir DH or die "$0: $!$/"; } @dirs; __END__ Espero que isso ajude em alguma coisa. 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 shonorio em terra.com.br Sun Apr 10 07:59:54 2005 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Sun Apr 10 08:00:22 2005 Subject: [Cascavel-pm] Nomes longos no windows In-Reply-To: <42566191.6030908@galvao.eti.br> Message-ID: <000001c53dde$02577fd0$0201010a@eraser> Galvão, Sei que o assunto já está rolando a um bom tempo (inclusive levei um puxão de orelha do papa porquê não estou lendo os email), mais ainda tenho contribuições neste assunto. A primeira é o 'Win32::GetShortPathName($longname)' do 'Win32', e a segunda é utilizar um sistema de monitoramento de arquivos para você entender como é que o sistema operacional está recebendo o 'long path', principalmente nos casos que tenham acentuação. O Windows, principalmente o Win2k/XP/2003 utilizam unicode ao invéz de ASCII, e por padrão o Perl trabalha com ASCII. Eu recomendo fortemente a todos que trabalham com Windows dar uma olhada nas ferramentas do Mark Russinovich (http://www.sysinternals.com). Aqui tem monitoramento (Filemon) em tempo real dos arquivos abertos e o 'Process Explorer' para mostrar quem está utilizando o quê, e 'locando' o quê também, isto pode ser útil para o seu problema com o WinRAR. Solli M. Monorio -----Original Message----- From: cascavel-pm-bounces@pm.org [mailto:cascavel-pm-bounces@pm.org] On Behalf Of Er Galvão Abbott - PM Porto Alegre Sent: sexta-feira, 8 de abril de 2005 07:49 To: Cascavel Perl Mongers Subject: [Cascavel-pm] Nomes longos no windows Pessoal: Como faço pra usar nomes longos com (Active)Perl no Windows 2000? Achei diversos nodes no PerlMonks e até algo referente à um módulo chamado File::DosGlob, mas confesso que não entendi patavina. Tudo o que eu humildemente quero é poder dizer pro Perl algo como: my $dir = 'C:\\Documents and Settings\\'; sem ter que apelar pra coisas como: my $dir = 'C:\\Docume~1\\'; Por favor, iluminem a minha burrice de forma bem simples, já que o PerlMonks deu um nó no meu cérebro. Valeu, -- Er Galvão Abbott ------------------------------------- Porto Alegre Perl Mongers http://portoalegre.pm.org/ -------------------------------------- pmpoa@galvao.eti.br -------------------------------------- _______________________________________________ Cascavel-pm mailing list Cascavel-pm@pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm From shonorio em terra.com.br Sun Apr 10 08:10:55 2005 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Sun Apr 10 08:11:15 2005 Subject: [Cascavel-pm] Nomes longos no windows In-Reply-To: <200504092225.j39MPbJo084558@rigel.pucrs.br> Message-ID: <000101c53ddf$890cdc90$0201010a@eraser> >Você poderia usar o módulo Archive::Rar - ele faz a >interface com o WinRAR, e é bem fácil de instalar. Eu particularmente recomendo fortemente que seja utilizado programação ao invéz de programa externo, assim você ganha em controle do código, facilidade de distribuição (via PAR por exemplo) e segurança. Tô com o Flavio :-) >Por outro lado, este problema não deve causado pelo >"system", porque ele sempre espera o processo >terminar. A menos que o programa diga que foi finalizado, carregando outro processo e terminando com o qual foi iniciado. Tive problemas com o Notes uma época por este motivo. >Deve estar acontecendo algum erro no >WinRAR, e ele está deixando o arquivo aberto. >Experimente verificar o resultado da chamada system - >a documentação do "system" sugere: Por isto eu recomendo o 'Process Explorer', ele pode de dar uma luz no que está ocorrendo, e claro tratamento de erro :-) ! Solli M. Honorio -----Original Message----- From: cascavel-pm-bounces@pm.org [mailto:cascavel-pm-bounces@pm.org] On Behalf Of fglock@pucrs.br Sent: sábado, 9 de abril de 2005 19:24 To: Cascavel Perl Mongers Subject: Re: [Cascavel-pm] Nomes longos no windows Galvão falou: > > Eu executo duas chamadas system, uma para criar o > diretório ($dirs[$d]) dentro do arquivo Zip e uma > para criar o arquivo ($files[$f]) dentro do > diretório dentro do arquivo Zip. Por outro lado, este problema não deve causado pelo "system", porque ele sempre espera o processo terminar. Deve estar acontecendo algum erro no WinRAR, e ele está deixando o arquivo aberto. Experimente verificar o resultado da chamada system - a documentação do "system" sugere: @args = ("command", "arg1", "arg2"); system(@args) == 0 or die "system @args failed: $?" $exit_value = $? >> 8; $signal_num = $? & 127; $dumped_core = $? & 128; - Flavio S. Glock From shonorio em terra.com.br Sun Apr 10 08:29:33 2005 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Sun Apr 10 08:29:43 2005 Subject: [Cascavel-pm] Prosseguindo com o Oak2 In-Reply-To: <42590DE1.8010404@yahoo.com.br> Message-ID: <000001c53de2$1c935cd0$0201010a@eraser> > > Com 110% de certeza. :-) > O windows reconhece e trata corretamente apenas um /character set/: o >dele... ;-) > > Putamplexos! Luis e sua implicância com o Windows. Você, como um papa, deveria saber que o mundo w3c (http://www.w3.org/TR/REC-html40/sgml/entities.html) não recomenda a utilização de acentuação gráfica diretamente. ara isto foram criados os caracteres especiais. Quem mandou os paises de lingua originadas no latin não tivessem tomado conta do mundo :-). Se os ramanos ainda tivessem no poder, seria bem diferentes ! []'s Solli M. Honorio From monsieur_champs em yahoo.com.br Sun Apr 10 12:39:26 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Sun Apr 10 12:39:48 2005 Subject: [Cascavel-pm] Nomes longos no windows In-Reply-To: <000101c53ddf$890cdc90$0201010a@eraser> References: <000101c53ddf$890cdc90$0201010a@eraser> Message-ID: <425980EE.1060207@yahoo.com.br> Solli Moreira Honorio wrote: >>Você poderia usar o módulo Archive::Rar - ele faz a >>interface com o WinRAR, e é bem fácil de instalar. > > Eu particularmente recomendo fortemente que seja utilizado programação > ao invéz de programa externo, assim você ganha em controle do código, > facilidade de distribuição (via PAR por exemplo) e segurança. Tô com o > Flavio :-) Tem meu apoio também. É muito mais simples de usar que as magias arcanas envolvidas no uso correto do system(). E há menos chance de o /system chock/ de uma falha eventual invocar um Balrog de quinto nível... ;-) [1] >>Por outro lado, este problema não deve causado pelo >>"system", porque ele sempre espera o processo >>terminar. > > A menos que o programa diga que foi finalizado, carregando outro > processo e terminando com o qual foi iniciado. Tive problemas com o > Notes uma época por este motivo. Não acho que o WinRAR sacanearia desta forma... exceto em caso de cavalo-de-tróia. 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/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Notas: [1]: apenas os ex ou atuais jogadores de Dungeons & Dragons R2 podem compreender completamente o significado desta frase. From monsieur_champs em yahoo.com.br Sun Apr 10 12:40:20 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Sun Apr 10 12:40:39 2005 Subject: [Cascavel-pm] Nomes longos no windows In-Reply-To: <000001c53dde$02577fd0$0201010a@eraser> References: <000001c53dde$02577fd0$0201010a@eraser> Message-ID: <42598124.6070403@yahoo.com.br> Solli Moreira Honorio wrote: > Galvão, > > Sei que o assunto já está rolando a um bom tempo (inclusive levei um > puxão de orelha do papa porquê não estou lendo os email), mais ainda > tenho contribuições neste assunto. Atualmente, o Papa não pode mais puxar orelhas. Ele apenas está puxando pés, especialmente dos meninos malcriados que tem medo de fantasmas... ;-) 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 Sun Apr 10 15:51:22 2005 From: glasswalk3r em yahoo.com.br (Alceu Rodrigues de Freitas Jr.) Date: Sun Apr 10 15:49:14 2005 Subject: [Cascavel-pm] Nomes longos no windows In-Reply-To: <425834F6.2060201@galvao.eti.br> References: <42566191.6030908@galvao.eti.br> <9a08c9b40504080901592c5970@mail.gmail.com> <4256ADC6.1010709@galvao.eti.br> <4256D15D.3040309@yahoo.com.br> <425834F6.2060201@galvao.eti.br> Message-ID: <4259ADEA.7020404@yahoo.com.br> Er Galvão Abbott - PM Porto Alegre wrote: > Acontece que o WinRAR reclama que não pode usar o arquivo Zip porque > ele já está sendo usado por outro processo. Eu entendo que cada > chamada system faz um fork que cria um processo, certo? > Certo. Faz mesmo. > Ou seja, antes de cada operação (tanto de inserção de diretório como > de inserção de arquivo) eu teria que verificar se o processo anterior > já terminou o trabalho, correto? > Seria bom, mas isso pode se mostrar bastante trabalhoso. > Alguém poderia me dar umas dicas? Eu sei que tenho que usar signals, > mas como nunca usei antes queria umas dicas de vocês. Notem como é > feito o processo todo: > Usar signals? Esqueça... vc vai ficar louco tentando. Não funciona direito no Windows (nem no Cygwin, eu fiquei quase louco tentando). Se você puder, dê preferência a usar código Perl para fazer seu trabalho. > 1 for ($d = 0; $d < scalar(@dirs); $d++) > 2 { > 3 system('C:/arquivos de programas/winrar/winrar.exe', 'A', > '-ibck', '-afzip', '-m5', 'C:/'.$compfile, $dirs[$d]); > 4 5 opendir(DH, $dirs[$d]) or die ('Impossivel abrir o > diretório '.$dirs[$d].': '.$!); > 6 @files = grep { $_ ne '.' && $_ ne '..' } readdir DH; > 7 8 for ($f = 0; $f < scalar (@files); $f++) > 9 { > 10 system('C:/arquivos de programas/winrar/winrar.exe', > 'A', '-ibck', '-afzip', '-m5', 'C:/'.$compfile, > $dirs[$d].'/'.$files[$f]); > 11 } > 12 13 closedir(DH); > 14 } > > Se eu entendi corretamente estas checagens deveriam ser feitas antes > da linha 3 e antes da linha 10, correto? Experimente inserir um sleep de 1 ou 2 segundos antes de tentar fazer a inserção... talvez isso já resolva seu trabalho (considerando que esse tempo de espera não lhe cause problemas). Eu concordo com o Champs, às vezes usando o Windows você tem a impressão que não tem controle sobre seu computador... isso me lembra o Windows XP executando "reboots" automáticos toda vez que algo dá errado... para tentar "consertar". []'s Alceu From donatoaz em gmail.com Sun Apr 10 18:16:41 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Sun Apr 10 18:16:51 2005 Subject: [Cascavel-pm] Prosseguindo com o Oak2 In-Reply-To: <000001c53de2$1c935cd0$0201010a@eraser> References: <42590DE1.8010404@yahoo.com.br> <000001c53de2$1c935cd0$0201010a@eraser> Message-ID: <1746e3e305041018161aa5935b@mail.gmail.com> Afinal de contas, alguem vai mandar um workaroud ou um script em perl ( s/// )pra arrumar isto? On Apr 10, 2005 12:29 PM, Solli Moreira Honorio wrote: > > > > Com 110% de certeza. :-) > > O windows reconhece e trata corretamente apenas um /character set/: > o > >dele... ;-) > > > > Putamplexos! > > Luis e sua implicância com o Windows. Você, como um papa, deveria saber > que o mundo w3c (http://www.w3.org/TR/REC-html40/sgml/entities.html) não > recomenda a utilização de acentuação gráfica diretamente. ara isto foram > criados os caracteres especiais. > > Quem mandou os paises de lingua originadas no latin não tivessem tomado > conta do mundo :-). Se os ramanos ainda tivessem no poder, seria bem > diferentes ! > > []'s > > Solli M. Honorio > > _______________________________________________ > 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 ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" From pmpoa em galvao.eti.br Mon Apr 11 02:27:59 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Mon Apr 11 02:27:14 2005 Subject: [Cascavel-pm] Nomes longos no windows In-Reply-To: <4259ADEA.7020404@yahoo.com.br> References: <42566191.6030908@galvao.eti.br> <9a08c9b40504080901592c5970@mail.gmail.com> <4256ADC6.1010709@galvao.eti.br> <4256D15D.3040309@yahoo.com.br> <425834F6.2060201@galvao.eti.br> <4259ADEA.7020404@yahoo.com.br> Message-ID: <425A431F.20006@galvao.eti.br> Pessoal: Valeu mesmo pelas dicas! A idéia inicial era usar o Archive::Zip, mas não estava conseguindo por uma série de erros, por isso optei pelo system. Agora resolvi tentar novamente com o Archive::Zip e a coisa está funcionando (creio que o problema era justamente a versão do Perl que eu tava rodando). Grande abraço à todos, Er Galvão Abbott ------------------------------------- Porto Alegre Perl Mongers http://portoalegre.pm.org/ -------------------------------------- pmpoa@galvao.eti.br -------------------------------------- Alceu Rodrigues de Freitas Jr. wrote: > Er Galvão Abbott - PM Porto Alegre wrote: > >> Acontece que o WinRAR reclama que não pode usar o arquivo Zip porque >> ele já está sendo usado por outro processo. Eu entendo que cada >> chamada system faz um fork que cria um processo, certo? >> > Certo. Faz mesmo. > >> Ou seja, antes de cada operação (tanto de inserção de diretório como >> de inserção de arquivo) eu teria que verificar se o processo anterior >> já terminou o trabalho, correto? >> > Seria bom, mas isso pode se mostrar bastante trabalhoso. > >> Alguém poderia me dar umas dicas? Eu sei que tenho que usar signals, >> mas como nunca usei antes queria umas dicas de vocês. Notem como é >> feito o processo todo: >> > Usar signals? Esqueça... vc vai ficar louco tentando. Não funciona > direito no Windows (nem no Cygwin, eu fiquei quase louco tentando). Se > você puder, dê preferência a usar código Perl para fazer seu trabalho. > >> 1 for ($d = 0; $d < scalar(@dirs); $d++) >> 2 { >> 3 system('C:/arquivos de programas/winrar/winrar.exe', 'A', >> '-ibck', '-afzip', '-m5', 'C:/'.$compfile, $dirs[$d]); >> 4 5 opendir(DH, $dirs[$d]) or die ('Impossivel abrir o >> diretório '.$dirs[$d].': '.$!); >> 6 @files = grep { $_ ne '.' && $_ ne '..' } readdir DH; >> 7 8 for ($f = 0; $f < scalar (@files); $f++) >> 9 { >> 10 system('C:/arquivos de programas/winrar/winrar.exe', >> 'A', '-ibck', '-afzip', '-m5', 'C:/'.$compfile, >> $dirs[$d].'/'.$files[$f]); >> 11 } >> 12 13 closedir(DH); >> 14 } >> >> Se eu entendi corretamente estas checagens deveriam ser feitas antes >> da linha 3 e antes da linha 10, correto? > > > Experimente inserir um sleep de 1 ou 2 segundos antes de tentar fazer > a inserção... talvez isso já resolva seu trabalho (considerando que > esse tempo de espera não lhe cause problemas). > > Eu concordo com o Champs, às vezes usando o Windows você tem a > impressão que não tem controle sobre seu computador... isso me lembra > o Windows XP executando "reboots" automáticos toda vez que algo dá > errado... para tentar "consertar". > > []'s > Alceu > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > From rodzadra em yahoo.com Mon Apr 11 06:27:31 2005 From: rodzadra em yahoo.com (Rod Za) Date: Mon Apr 11 06:27:52 2005 Subject: [Cascavel-pm] Exemplo de relacao many-to-many com Class::DBI In-Reply-To: 6667 Message-ID: <20050411132731.75671.qmail@web50207.mail.yahoo.com> Olá de novo, Descobri o porq da relação não estar funcionando. Na tabela relationship foi necessario declarar explicitamente os campos id_user e id_group como chave primária (no banco de dados e na classe). Sendo assim a classe dbRelationship fica assim: > package dbRelationship; > use lib '/home/rodza/perl_tests'; > use base 'dbBase'; > dbRelationship->table('relationship'); + dbRelationship->columns( Primary => qw/id_user id_group/ ); > dbRelationship->has_a( id_group => dbGroup ); > dbRelationship->has_a( id_user => dbUser ); > dbRelationship->has_many( history => dbHistory => 'id_user' ); E foi necessário também acrescentar a relação na tabela dbGroup: > package dbGroup; > use lib '/home/rodza/perl_tests'; > use base 'dbBase'; > dbGroup->table('groups'); > dbGroup->columns( All => qw/id_group group_name/ ); + dbGroup->has_many( users => [dbRelationship => 'id_user'] => 'id_group' ); Desta forma eu consegui acessar todos os grupos do usuário e todos os usuários do grupo. Só tenho uma dúvida agora. Para eu acessar o histórico de cada usuário e/ou grupo, onde seria melhor fazer a relação com a tabela dbHistory (através das tabelas dbUsers e dbGroups ou através da tabela dbRelationship?) de novo muito obrigado, Rodrigo Zadra. __________________________________ Do you Yahoo!? Yahoo! Small Business - Try our new resources site! http://smallbusiness.yahoo.com/resources/ From monsieur_champs em yahoo.com.br Mon Apr 11 11:08:17 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Mon Apr 11 11:08:31 2005 Subject: [Cascavel-pm] Exemplo de relacao many-to-many com Class::DBI In-Reply-To: <20050411132731.75671.qmail@web50207.mail.yahoo.com> References: <20050411132731.75671.qmail@web50207.mail.yahoo.com> Message-ID: <425ABD11.9080409@yahoo.com.br> Rod Za wrote: > Olá de novo, > > Descobri o porq da relação não estar funcionando. Na tabela relationship foi necessario declarar > explicitamente os campos id_user e id_group como chave primária (no banco de dados e na classe). > Ah! Seu estraga-prazeres! Isso estava na lista de coisas que eu precisava responder... ;-) Putaplexos, e obrigado por partilhar sua solução com a lista! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 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 Tue Apr 12 09:00:58 2005 From: rodzadra em yahoo.com (Rod Za) Date: Tue Apr 12 09:01:10 2005 Subject: [Cascavel-pm] Exemplo de relacao many-to-many com Class::DBI In-Reply-To: 6667 Message-ID: <20050412160058.89018.qmail@web50202.mail.yahoo.com> Pô Luiz, foi mal! :) Eu já estava me sentindo excluído por não ter recebido nenhuma resposta :). Mas não seja por isso, eu ainda estou na dúvida de como usar corretamente o relacionamento da Class::DBI. Por exemplo, pegando como base as classes que fiz seria certo eu criar um objeto dbUser e acessar todos as outras classes por ele? ex: historico, grupos, etc? Ou eu teria que criar um objeto para cada classe? (dá pra mandar um exemplo??) :) muito obrigado, Rodrigo. --- Luis Campos de Carvalho wrote: > Rod Za wrote: > > Olá de novo, > > > > Descobri o porq da relação não estar funcionando. Na tabela relationship foi necessario > declarar > > explicitamente os campos id_user e id_group como chave primária (no banco de dados e na > classe). > > > Ah! Seu estraga-prazeres! > Isso estava na lista de coisas que eu precisava responder... ;-) > Putaplexos, e obrigado por partilhar sua solução com a lista! > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > 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!? Read only the mail you want - Yahoo! Mail SpamGuard. http://promotions.yahoo.com/new_mail From donatoaz em gmail.com Tue Apr 12 17:10:35 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Tue Apr 12 17:10:50 2005 Subject: [Cascavel-pm] Problema com Win32::Process::List In-Reply-To: <000001c53d4c$f40d5350$0201010a@eraser> References: <000701c53d31$cb188200$0201010a@eraser> <000001c53d4c$f40d5350$0201010a@eraser> Message-ID: <1746e3e305041217103172c7d9@mail.gmail.com> funcionaram ambas as sugestoes. grato On 4/9/05, Solli Moreira Honorio wrote: > Donato, > > Dê uma olhada no link http://www.perlmonks.org/?node_id=446283, lá está > o código necessário para pegar as informações dos processos que estão > rodando no Win98. Instalei um Win98 (isto me faz lembrar porquê alguma > pessoas odeiam tanto a Microsoft) e testei. > > Como você poderá ver, o problema do meu script estava num bug do > Win32::API::Struct::sizeof. > > Abraços, > > Solli Moreira Honorio > > -----Original Message----- > From: cascavel-pm-bounces@pm.org [mailto:cascavel-pm-bounces@pm.org] On > Behalf Of Solli Moreira Honorio > Sent: sábado, 9 de abril de 2005 15:28 > To: 'Cascavel Perl Mongers' > Subject: RE: [Cascavel-pm] Problema com Win32::Process::List > > Donato, > > O Win32::Process::List não vai rolar no W9x/ME cara, ele está utilizando > algumas API não suportada neste sistema operacional. > > Temos duas alteranativas : > * a primeira seria utilizar as API que roda neste cara, que seriam as > 'CreateToolhelp32Snapshot', 'Process32First' e 'Process32Next'. O > problema que neste caso não estou conseguindo fazer o Win32::API > trabalhar legal com estas API, estou há várias horas tentando sem > sucesso; > > * a segunda é utilizar um software externo que lhe dê estas informações > e aí você faz um parse dos dados. > > Para a segunda opção, dê uma olhada no Handle > (http://www.sysinternals.com/ntw2k/freeware/handle.shtml), com ele você > pode fazer algo assim : > > open ( PROCESS, "handle -a |" ); > > while ( ) > { > # Faça o parse utilizando o $_ > } > > close ( PROCESS ); > > > É isto aí. > > Se eu conseguir uma ajuda com relação a primeira alternativa eu dou > retorno. > > Solli Moreira Honorio > -----Original Message----- > From: cascavel-pm-bounces@pm.org [mailto:cascavel-pm-bounces@pm.org] On > Behalf Of Donato Azevedo > Sent: sábado, 9 de abril de 2005 00:03 > To: Cascavel Perl Mongers > Subject: [Cascavel-pm] Problema com Win32::Process::List > > Pessoal, estou tentando pegar o nome dos processos rodando. Uso > win98SE portanto nao da pra usar o Win32::Process::Info nem WMI... > o que acontece com o Win32::Process::List é o seguinte: > > use Win32::Process::List; > my $P = Win32::Process::List->new(); #constructor > my @list = $P->GetProcesses(); #returns an array of hashes > my %h = %{ $list[0] }; #get the hash with processname and pid > foreach my $pr ( keys %h ) { > print "Process $pr has PID " . $h{$pr} . "\n"; > } > > > Cant load path/List.dll for module Win32::Process::List load_file:Um > dispositivo anexado ao sistema nao esta funcionando at procinfo.pl > line 3 > > erro repotado pelo dynaloader.pm > > ALGUEM SABE O QUE FAZER? > > para instalar o win32::Process::List: > ppm install http://www.bribes.org/perl/ppm/Win32-Process-List.ppd > > Abraços!! > > -- > ******************************************* > Donato Azevedo > Engenharia de Controle e Automação > UFMG > ******************************************* > We will encourage you to develop the three great virtues > of a programmer: laziness, impatience, and hubris. > "Larry Wall - Programming perl" > _______________________________________________ > 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 > -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" From monsieur_champs em yahoo.com.br Tue Apr 12 18:24:07 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Tue Apr 12 18:24:22 2005 Subject: [Cascavel-pm] Exemplo de relacao many-to-many com Class::DBI In-Reply-To: <20050412160058.89018.qmail@web50202.mail.yahoo.com> References: <20050412160058.89018.qmail@web50202.mail.yahoo.com> Message-ID: <425C74B7.3070409@yahoo.com.br> Rod Za wrote: > Pô Luiz, foi mal! :) Eu já estava me sentindo excluído por não ter recebido nenhuma resposta :). :-) Corta essa. Você já pensou que pode ser o único especialista nisso? Não receber respostas significa no máximo que a lista está esperando que você responda às perguntas, já que ninguém mais sabe o que dizer. > Mas não seja por isso, eu ainda estou na dúvida de como usar corretamente o relacionamento da > Class::DBI. Por exemplo, pegando como base as classes que fiz seria certo eu criar um objeto > dbUser e acessar todos as outras classes por ele? ex: historico, grupos, etc? Ou eu teria que > criar um objeto para cada classe? (dá pra mandar um exemplo??) :) > Uh? Lamento, mas eu não entendi. dbUser é uma tabela? O objeto representaria o que? Normalmente, o Class::DBI representa os relacionamentos entre as entidades como "conhecimento": objetos que conhecem ou possuem outros objetos. Do ponto de vista de teoria de OOP, eu não vejo problema algum em você algutinar objetos sob um objeto "maior", que eventualmente conheceria todos os outros. Do ponto de vista prático, não sei se isso é melhor ou pior, já que, por um lado, você facilita a sua vida (tudo está no mesmo lugar) e por outro, voce dificulta a vida dos outros (que diabos é este objeto dbUser que não tem outra função que não a de "conhecer" coisas internas do programa?? -- perguntaria um novo mantenedor do software, certamente) Espero que isso ajude você. Se você me enviar um exemplo de como deseja implementar o tal dbUser, acho que posso ser mais específico. 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 Wed Apr 13 05:48:10 2005 From: rodzadra em yahoo.com (Rod Za) Date: Wed Apr 13 05:48:26 2005 Subject: [Cascavel-pm] Exemplo de relacao many-to-many com Class::DBI In-Reply-To: 6667 Message-ID: <20050413124810.50575.qmail@web50203.mail.yahoo.com> Cara, era brincadeirinha aquele papo de excluído. :p > > Mas não seja por isso, eu ainda estou na dúvida de como usar corretamente o relacionamento da > > Class::DBI. Por exemplo, pegando como base as classes que fiz seria certo eu criar um objeto > > dbUser e acessar todos as outras classes por ele? ex: historico, grupos, etc? Ou eu teria que > > criar um objeto para cada classe? (dá pra mandar um exemplo??) :) > > > Uh? Lamento, mas eu não entendi. > dbUser é uma tabela? O objeto representaria o que? A classe dbUser representa a tabela users - (vide abaixo). Eu criei várias classes, cada uma representando uma tabela do banco de dados e seus "relacionamentos". Com estas classes eu quero conhecer o historico de determinado usuário, de determinado grupo e/ou de determinado usuario+grupo. Até aqui tudo bem, se eu crio um objeto dbUser eu consigo acessar todas as informaćões pertinentes ao usuario e aos grupos o qual ele pertence: ... use dbUser; my ($objUser) = dbUser->retrieve(login => 'rodzadra'); printf "O usuario %s esta associado aos grupos:\n",$objUser->login; foreach ( $objUser->groups ) { print "GID: %d Nome do Grupo: %s\n".$_->groups->id_group,$_->groups->group_name; } ... A minha dúvida é quanto ao acesso dos dados do histórico (tabela history classe dbHistory). O certo seria eu acessar esses dados a partir do objeto dbUser, dbGroup ou através do objeto dbRelationship? dbUser<->dbRelationshiop<->dbGroup | ? | +-------------------------+ | +-> dbHistory <- dbAction Eu defini minhas classes desse modo: package dbBase; use base qw/Class::DBI/; __PACKAGE__->set_db( "Main", "dbi:mysql:Test", "TEST_USER", "TESTPASS" ); 1; package dbUser; use lib '/home/rodza/perl_tests'; use base 'dbBase'; dbUser->table('users'); dbUser->columns( All => qw/id_user login/ ); dbUser->has_many( groups => [dbRelationship => 'id_group'] => 'id_user' ); 1; package dbGroup; use lib '/home/rodza/perl_tests'; use base 'dbBase'; dbGroup->table('groups'); dbGroup->columns( All => qw/id_group group_name/ ); dbUser->has_many( users => [dbRelationship => 'id_user'] => 'id_group' ); 1; package dbRelationship; use lib '/home/rodza/perl_tests'; use base 'dbBase'; dbRelationship->table('relationship'); dbRelationship->columns( Primary => qw/id_user id_group/ ); dbRelationship->has_a( id_group => dbGroup ); dbRelationship->has_a( id_user => dbUser ); dbRelationship->has_many( history => dbHistory => 'id_user' ); 1; package dbHistory; use lib '/home/rodza/perl_tests'; use base 'dbBase'; dbHistory->table('history'); dbHistory->columns( All => qw/id_user id_group action date/ ); dbHistory->has_a( id_action => dbAction ); 1; package dbAction; use lib '/home/rodza/perl_tests'; use base 'dbBase'; dbAction->table('action'); dbAction->columns( All => qw/id_action action/ ); 1; __________________________________ Do you Yahoo!? Yahoo! Small Business - Try our new resources site! http://smallbusiness.yahoo.com/resources/ From monsieur_champs em yahoo.com.br Wed Apr 13 06:58:51 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Apr 13 06:58:59 2005 Subject: [Cascavel-pm] Exemplo de relacao many-to-many com Class::DBI In-Reply-To: <20050413124810.50575.qmail@web50203.mail.yahoo.com> References: <20050413124810.50575.qmail@web50203.mail.yahoo.com> Message-ID: <425D259B.6050201@yahoo.com.br> Rod Za wrote: > A minha dúvida é quanto ao acesso dos dados do histórico (tabela history classe dbHistory). O > certo seria eu acessar esses dados a partir do objeto dbUser, dbGroup ou através do objeto > dbRelationship? > > dbUser<->dbRelationshiop<->dbGroup > | ? | > +-------------------------+ > | > +-> dbHistory <- dbAction > Bom, lendo o seu código (cortado desta para economizar espaço), eu cheguei à conclusão de que você já definiu seu caminho... dbHistories são objetos conhecidos apenas por dbRelationships... qual o problema? Putamplexos confusos. -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 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 Wed Apr 13 09:50:40 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Wed Apr 13 09:50:57 2005 Subject: [Cascavel-pm] Exemplo de relacao many-to-many com Class::DBI In-Reply-To: <20050412160058.89018.qmail@web50202.mail.yahoo.com> References: <20050412160058.89018.qmail@web50202.mail.yahoo.com> Message-ID: <20050413165040.13994.qmail@hm101.locaweb.com.br> > Mas não seja por isso, eu ainda estou na dúvida de como usar corretamente o relacionamento da > Class::DBI. Por exemplo, pegando como base as classes que fiz seria certo eu criar um objeto > dbUser e acessar todos as outras classes por ele? ex: historico, grupos, etc? Ou eu teria que > criar um objeto para cada classe? (dá pra mandar um exemplo??) :) Rod, Eu estou desenvolvendo uma ferramenta que pode ajudá-lo na criação dos módulos do Class::DBI, bem como scripts de criação da base de dados, templates, e toda a aplicação web. Esta ferramenta se chama AppML, e já recebeu valiosas contribuições do Luis Campos de Carvalho e do Ednardo Lobo. A idéia é simples: ao invés de escrever o código manualmente, nós criamos uma ferramenta que faz isso por nós. Como isso é feito? A partir dos conceitos fundamentais de UML, desenvolvemos um dialeto em XML para traduzir as especificações de um sistema de informação. A este dialeto denominamos AppML (Application Markup Language). Tomando a sua aplicação como exemplo, esta seria uma especificação simplificada:
Na verdade a gente precisa incluir mais alguns detalhes, como os tipos dos campos (para criação das tabelas), e os textos que devem aparecer nos templates. No final, o exemplo ficaria assim:
Agora sim, o AppML é capaz de gerar a base de dados em SQL, os módulos, templates, e todo o código-fonte necessário para que a aplicação seja instalada em um servidor web e acessada por múltiplos usuários simultaneamente. As principais vantagens dessa abordagem são a consistência, qualidade e produtividade. Como o AppML é um software livre (disponível sob a licença GNU GPL), você também tem a flexibilidade para modificá-lo da maneira como achar necessário. Você encontra o AppML no seguinte endereço: http://www.gnubis.com.br/bin/view/English/AppML []s Nelson From rodzadra em yahoo.com Wed Apr 13 10:08:19 2005 From: rodzadra em yahoo.com (Rod Za) Date: Wed Apr 13 10:08:30 2005 Subject: [Cascavel-pm] Exemplo de relacao many-to-many com Class::DBI In-Reply-To: 6667 Message-ID: <20050413170819.36134.qmail@web50210.mail.yahoo.com> --- Luis Campos de Carvalho wrote: > Rod Za wrote: > > A minha dúvida é quanto ao acesso dos dados do histórico (tabela history classe dbHistory). O > > certo seria eu acessar esses dados a partir do objeto dbUser, dbGroup ou através do objeto > > dbRelationship? > > > > dbUser<->dbRelationshiop<->dbGroup > > | ? | > > +-------------------------+ > > | > > +-> dbHistory <- dbAction > > > > Bom, lendo o seu código (cortado desta para economizar espaço), eu > cheguei à conclusão de que você já definiu seu caminho... dbHistories > são objetos conhecidos apenas por dbRelationships... qual o problema? Não há problema algum aqui. Eu estou em dúvida se este é o melhor modo de fazer este relacionamento (talvez isto não tenha nada a ver com Perl e sim com banco de dados), mas por outro lado, se eu adotar este modelo, ainda continua a dúvida de como acessar corretamente o historico - tomando como base que eu terei somente o objeto dbUser criado no script principal, este objeto por sua vez fará referencias aos outros objetos dbGroup, dbRelationship e dbHistory. Para ser mais direto: 1. Este relacionamento é o mais indicado? (eu posso fazer o relacionamento de dbHistory diretamente em dbUser e dbGroup também) 2. Como acesso os metodos de dbHistory via dbUser? ex: ... use dbUser; my ($obj_user) = dbUser->retrieve(login => 'rodzadra'); #como, a partir de $obj_user eu tenho acesso aos metodos de dbHistory (campos da tabela history) .... muito obrigado, Rodrigo Zadra Armond __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com From rodzadra em yahoo.com Wed Apr 13 10:25:57 2005 From: rodzadra em yahoo.com (Rod Za) Date: Wed Apr 13 10:26:10 2005 Subject: [Cascavel-pm] Exemplo de relacao many-to-many com Class::DBI In-Reply-To: 6667 Message-ID: <20050413172557.43155.qmail@web50210.mail.yahoo.com> Nelson, muito legal o AppML hein? Já baixei e vou dar uma olhada com mais calma nele, com certeza! O único porém é que, na verdade eu queria entender como funciona a/o Class::DBI (a qual me foi indicada pelo próprio Luiz - há algum tempo:). Eu estou desenvolvendo um sistema gerenciador de quotas de impressão (projeto SGQI - http://sgqi.codigolivre.org.br) e precisamente este sistema roda como um plugin para o CUPS, portanto a parte web não é necessária aqui. muito obrigado, seu site já está no bookmark! :) Rodrigo Zadra Armond --- Nelson Ferraz wrote: > > Mas não seja por isso, eu ainda estou na dúvida de como usar corretamente o relacionamento da > > Class::DBI. Por exemplo, pegando como base as classes que fiz seria certo eu criar um objeto > > dbUser e acessar todos as outras classes por ele? ex: historico, grupos, etc? Ou eu teria que > > criar um objeto para cada classe? (dá pra mandar um exemplo??) :) > > Rod, > > Eu estou desenvolvendo uma ferramenta que pode ajudá-lo na criação dos módulos do Class::DBI, > bem como scripts de criação da base de dados, templates, e toda a aplicação web. Esta ferramenta > se chama AppML, e já recebeu valiosas contribuições do Luis Campos de Carvalho e do Ednardo > Lobo. > > A idéia é simples: ao invés de escrever o código manualmente, nós criamos uma ferramenta que faz > isso por nós. > > Como isso é feito? A partir dos conceitos fundamentais de UML, desenvolvemos um dialeto em XML > para traduzir as especificações de um sistema de informação. A este dialeto denominamos AppML > (Application Markup Language). > > Tomando a sua aplicação como exemplo, esta seria uma especificação simplificada: > > > > > >
> > > >
> > > > >
> > > > > Na verdade a gente precisa incluir mais alguns detalhes, como os tipos dos campos (para criação > das tabelas), e os textos que devem aparecer nos templates. No final, o exemplo ficaria assim: > > > > > > >
> > > >
> > > > >
> > > > > Agora sim, o AppML é capaz de gerar a base de dados em SQL, os módulos, templates, e todo o > código-fonte necessário para que a aplicação seja instalada em um servidor web e acessada por > múltiplos usuários simultaneamente. > > As principais vantagens dessa abordagem são a consistência, qualidade e produtividade. Como o > AppML é um software livre (disponível sob a licença GNU GPL), você também tem a flexibilidade > para modificá-lo da maneira como achar necessário. > > Você encontra o AppML no seguinte endereço: > > http://www.gnubis.com.br/bin/view/English/AppML > > []s > > Nelson > _______________________________________________ > 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 nferraz em gnubis.com.br Wed Apr 13 10:47:19 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Wed Apr 13 10:47:34 2005 Subject: [Cascavel-pm] Exemplo de relacao many-to-many com Class::DBI In-Reply-To: <20050413172557.43155.qmail@web50210.mail.yahoo.com> References: <20050413172557.43155.qmail@web50210.mail.yahoo.com> Message-ID: <20050413174719.10766.qmail@hm101.locaweb.com.br> > Nelson, muito legal o AppML hein? Obrigado! : ) > Já baixei e vou dar uma olhada com mais calma nele, com certeza! > > O único porém é que, na verdade eu queria entender como funciona a/o Class::DBI (a qual me foi > indicada pelo próprio Luiz - há algum tempo:). Estude o código gerado pelo AppML -- um dos objetivos do projeto é que o código seja otimizado para seres humanos. : ) > Eu estou desenvolvendo um sistema gerenciador de quotas de impressão (projeto SGQI - > http://sgqi.codigolivre.org.br) e precisamente este sistema roda como um plugin para o CUPS, > portanto a parte web não é necessária aqui. Não sei como são criadas as interfaces dos plugins do CUPS, mas você pode modificar os templates do AppML para gerar a interface no formato que desejar. Qualquer dúvida, é só perguntar! []s Nelson From monsieur_champs em yahoo.com.br Wed Apr 13 10:58:40 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Apr 13 10:58:57 2005 Subject: [Cascavel-pm] Exemplo de relacao many-to-many com Class::DBI In-Reply-To: <20050413170819.36134.qmail@web50210.mail.yahoo.com> References: <20050413170819.36134.qmail@web50210.mail.yahoo.com> Message-ID: <425D5DD0.2040909@yahoo.com.br> Rod Za wrote: > 1. Este relacionamento é o mais indicado? (eu posso fazer o relacionamento de dbHistory > diretamente em dbUser e dbGroup também) Eu acho que sim. É exatamente o que eu usaria. > 2. Como acesso os metodos de dbHistory via dbUser? ex: Esta é uma boa pergunta. Eu não vejo como ser prático para acessar estes métodos. 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 rodzadra em yahoo.com Wed Apr 13 11:38:27 2005 From: rodzadra em yahoo.com (Rod Za) Date: Wed Apr 13 11:38:41 2005 Subject: [Cascavel-pm] Exemplo de relacao many-to-many com Class::DBI In-Reply-To: 6667 Message-ID: <20050413183828.73416.qmail@web50210.mail.yahoo.com> --- Luis Campos de Carvalho wrote: > > 2. Como acesso os metodos de dbHistory via dbUser? ex: > > Esta é uma boa pergunta. > Eu não vejo como ser prático para acessar estes métodos. O que eu queria saber é se tem como utilizar o objeto dbUser para acessar diretamente outro objeto (dbGroup). Algo do do tipo: ... my ($obj_user) = dbUser->groups()->find_or_create( id_group => '99', group_name => 'gtest'); ... Quando tento fazer isso me vem a seguinte mensagem de erro: # Class::DBI::Query deprecated at /usr/lib/perl5/site_perl/5.8.5/Class/DBI/Relationship/HasMany.pm line 124 #Can't locate object method "find_or_create" via package "Class::DBI::Iterator" at teste5.pl line 5. Mais uma vez muito obrigado, Rodrigo Zadra Armond. __________________________________ Do you Yahoo!? Yahoo! Small Business - Try our new resources site! http://smallbusiness.yahoo.com/resources/ From fglock em pucrs.br Wed Apr 13 15:51:39 2005 From: fglock em pucrs.br (Flavio S. Glock) Date: Wed Apr 13 15:51:56 2005 Subject: [Cascavel-pm] Exemplo de relacao many-to-many com Class::DBI In-Reply-To: <20050413183828.73416.qmail@web50210.mail.yahoo.com> References: <20050413183828.73416.qmail@web50210.mail.yahoo.com> Message-ID: <425DA27B.7000003@pucrs.br> Nos últimos dias há uma longa discussão em andamento na lista "Perl Software::Design", sobre módulos que oferecem orientação a objeto para bancos de dados: http://metaperl.com/cgi-bin/mailman/listinfo/sw-design - Flavio S. Glock From monsieur_champs em yahoo.com.br Wed Apr 13 17:48:28 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Apr 13 17:48:45 2005 Subject: [Cascavel-pm] Exemplo de relacao many-to-many com Class::DBI In-Reply-To: <20050413183828.73416.qmail@web50210.mail.yahoo.com> References: <20050413183828.73416.qmail@web50210.mail.yahoo.com> Message-ID: <425DBDDC.4080607@yahoo.com.br> Rod Za wrote: > --- Luis Campos de Carvalho wrote: > >>>2. Como acesso os metodos de dbHistory via dbUser? ex: >> >> Esta é uma boa pergunta. >> Eu não vejo como ser prático para acessar estes métodos. > > > O que eu queria saber é se tem como utilizar o objeto dbUser para acessar diretamente outro objeto > (dbGroup). Algo do do tipo: > > > ... > my ($obj_user) = dbUser->groups()->find_or_create( id_group => '99', group_name => 'gtest'); > ... > > > > Quando tento fazer isso me vem a seguinte mensagem de erro: > > # Class::DBI::Query deprecated at /usr/lib/perl5/site_perl/5.8.5/Class/DBI/Relationship/HasMany.pm > line 124 > #Can't locate object method "find_or_create" via package "Class::DBI::Iterator" at teste5.pl line > 5. Rodrigo, até onde eu entendi, o que falta é você dizer qual objeto deve ser utilizado. A mensagem de erro reclama (claramente) que você está tentando usar um método que não existe sobre um objeto da classe Class::DBI::Iterator (obviamente isto não é um dbGroup). Tudo o que eu tenho para dizer a você neste caso são 4 letras: RTFM. 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 Apr 14 04:55:33 2005 From: rodzadra em yahoo.com (Rod Za) Date: Thu Apr 14 04:55:43 2005 Subject: [Cascavel-pm] Exemplo de relacao many-to-many com Class::DBI In-Reply-To: 6667 Message-ID: <20050414115533.66608.qmail@web50202.mail.yahoo.com> > Rodrigo, até onde eu entendi, o que falta é você dizer qual objeto > deve ser utilizado. A mensagem de erro reclama (claramente) que você > está tentando usar um método que não existe sobre um objeto da classe > Class::DBI::Iterator (obviamente isto não é um dbGroup). > > Tudo o que eu tenho para dizer a você neste caso são 4 letras: RTFM. Valeu, assim mesmo :) mais eu RTFM. Mas o FM não adiantou muito e nem mesmo RTFS! :) um abraço, Rodrigo Zadra __________________________________ Do you Yahoo!? Yahoo! Small Business - Try our new resources site! http://smallbusiness.yahoo.com/resources/ From jamorreu em gmail.com Thu Apr 14 13:02:50 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Thu Apr 14 13:03:03 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?Concurso_de_programa=E7=E3o?= Message-ID: <8ff2963a050414130236a3de91@mail.gmail.com> Fala pessoal beleza?? Como ninguém daqui da lista de canditadou a ser jurado no concurso, acho que só eu e talvez o Renan (o outro admin da CGiClube.net vamos ficar de jurados). Então, todos daqui estão livre para concorrer a camisetas, porta-cds.... O prazo para entrega dos scripts termina dia 18 de maio... (tem muiiito tempo ainda). Um abraço, João Gabriel From pmpoa em galvao.eti.br Thu Apr 14 13:37:34 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Thu Apr 14 13:38:25 2005 Subject: [Cascavel-pm] Concurso de =?ISO-8859-1?Q?programa=E7=E3o?= In-Reply-To: <8ff2963a050414130236a3de91@mail.gmail.com> References: <8ff2963a050414130236a3de91@mail.gmail.com> Message-ID: <425ED48E.5030806@galvao.eti.br> Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050414/1146f69e/attachment.htm From jamorreu em gmail.com Thu Apr 14 13:57:21 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Thu Apr 14 13:57:31 2005 Subject: =?ISO-8859-1?Q?Re:_[Cascavel-pm]_Concurso_de_programa=E7=E3o?= In-Reply-To: <425ED48E.5030806@galvao.eti.br> References: <8ff2963a050414130236a3de91@mail.gmail.com> <425ED48E.5030806@galvao.eti.br> Message-ID: <8ff2963a05041413576c27be8e@mail.gmail.com> Hum... boa idéia. Vo mudar lá depois. =) Valeu pelo toque. Um abraço, Gabriel On 4/14/05, Er Galvão Abbott - PM Porto Alegre wrote: > Oi João, tudo tranquilo? > > Tenho acompanhado apenas alguns tópicos aqui da lista (pouco tempo como > sempre), então me perdoe se caio de páraquedas nesse assunto do concurso, > mas queria deixar uma crítica construtiva para você: > > Na página sobre o concurso você menciona o seguinte: > > --- Start Paste --- > > 2. Envio do script: de preferencia nos ultimos dias que antecedem o dia 18 > de maio, pois evita um possivel plágio entre os concorrentes. O envio deve > ser em um arquivo .zip, na qual, o script não pode está compilado e/ou > criptografado. (Deseja envia-lo antes para não perder o prazo? envie para > mim: jamorreu@gmail.com) > > --- End Paste --- > > Sinceramente acho que não pega bem este tipo de declaração. Como > organizadores do concurso creio que deveria ser atribuição de vocês evitar > os plágios, o que poderia facilmente ser feito se por exemplo os códigos dos > scripts não fossem disponibilizados até o encerramento da data de envio. > > Queria apenas deixar essa sugestão. Adoraria ser jurado ou participar, mas > como comentei meu tempo anda realmente curtíssimo. > > Boa sorte e não esqueça de nos contar como foi o concurso. > > Forte abraço, > > Er Galvão Abbott > ------------------------------------- > Porto Alegre Perl Mongers > http://portoalegre.pm.org/ > -------------------------------------- > pmpoa@galvao.eti.br > -------------------------------------- > > > João Gabriel wrote: > > Fala pessoal beleza?? > > Como ninguém daqui da lista de canditadou a ser jurado no concurso, > acho que só eu e talvez o Renan (o outro admin da CGiClube.net vamos > ficar de jurados). > > Então, todos daqui estão livre para concorrer a camisetas, porta-cds.... > > O prazo para entrega dos scripts termina dia 18 de maio... (tem > muiiito tempo ainda). > > Um abraço, > João Gabriel > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > From jamorreu em gmail.com Thu Apr 14 13:58:54 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Thu Apr 14 13:59:01 2005 Subject: [Cascavel-pm] Links quebrados para listas de outros grupos. Message-ID: <8ff2963a05041413586e15b19c@mail.gmail.com> Dica construtiva... Os grupos Cascavel-PM e Porto Alegre-PM possuem link para a lista de discussão dos mesmos quebrados. Assim fica dificil conseguir novos membros para a lista, correto?? Tá ai o toque! Um abraço, Gabriel From marco.lima em e-via.com.br Thu Apr 14 14:05:46 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Thu Apr 14 14:06:00 2005 Subject: [Cascavel-pm] Links quebrados para listas de outros grupos. Message-ID: Isso ocorreu após a troca do servidor do PM.ORG e ninguém se lembrou de trocar os links. Cascavel : http://mail.pm.org/mailman/listinfo/cascavel-pm Porto Alegre : http://mail.pm.org/mailman/listinfo/portoalegre-pm Os outros é só trocarem o final !! [ ]'ção > Dica construtiva... > > Os grupos Cascavel-PM e Porto Alegre-PM possuem link para a lista de > discussão dos mesmos quebrados. Assim fica dificil conseguir novos > membros para a lista, correto?? > > Tá ai o toque! > > Um abraç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 Thu Apr 14 14:15:41 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Thu Apr 14 14:15:18 2005 Subject: [Cascavel-pm] Links quebrados para listas de outros grupos. In-Reply-To: References: Message-ID: <425EDD7D.4090002@galvao.eti.br> Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050414/39c44886/attachment-0001.htm From donatoaz em gmail.com Thu Apr 14 19:18:41 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Thu Apr 14 19:18:51 2005 Subject: =?ISO-8859-1?Q?Re:_[Cascavel-pm]_Concurso_de_programa=E7=E3o?= In-Reply-To: <8ff2963a05041413576c27be8e@mail.gmail.com> References: <8ff2963a050414130236a3de91@mail.gmail.com> <425ED48E.5030806@galvao.eti.br> <8ff2963a05041413576c27be8e@mail.gmail.com> Message-ID: <1746e3e305041419185761978d@mail.gmail.com> João, já pensou em olhar como funcionam os submits dos Perl Golf que existem por aí? http://terje.perlgolf.org é um exemplo.... On 4/14/05, João Gabriel wrote: > Hum... > > boa idéia. > > Vo mudar lá depois. =) > > Valeu pelo toque. > > Um abraço, > Gabriel > > On 4/14/05, Er Galvão Abbott - PM Porto Alegre wrote: > > Oi João, tudo tranquilo? > > > > Tenho acompanhado apenas alguns tópicos aqui da lista (pouco tempo como > > sempre), então me perdoe se caio de páraquedas nesse assunto do concurso, > > mas queria deixar uma crítica construtiva para você: > > > > Na página sobre o concurso você menciona o seguinte: > > > > --- Start Paste --- > > > > 2. Envio do script: de preferencia nos ultimos dias que antecedem o dia 18 > > de maio, pois evita um possivel plágio entre os concorrentes. O envio deve > > ser em um arquivo .zip, na qual, o script não pode está compilado e/ou > > criptografado. (Deseja envia-lo antes para não perder o prazo? envie para > > mim: jamorreu@gmail.com) > > > > --- End Paste --- > > > > Sinceramente acho que não pega bem este tipo de declaração. Como > > organizadores do concurso creio que deveria ser atribuição de vocês evitar > > os plágios, o que poderia facilmente ser feito se por exemplo os códigos dos > > scripts não fossem disponibilizados até o encerramento da data de envio. > > > > Queria apenas deixar essa sugestão. Adoraria ser jurado ou participar, mas > > como comentei meu tempo anda realmente curtíssimo. > > > > Boa sorte e não esqueça de nos contar como foi o concurso. > > > > Forte abraço, > > > > Er Galvão Abbott > > ------------------------------------- > > Porto Alegre Perl Mongers > > http://portoalegre.pm.org/ > > -------------------------------------- > > pmpoa@galvao.eti.br > > -------------------------------------- > > > > > > João Gabriel wrote: > > > > Fala pessoal beleza?? > > > > Como ninguém daqui da lista de canditadou a ser jurado no concurso, > > acho que só eu e talvez o Renan (o outro admin da CGiClube.net vamos > > ficar de jurados). > > > > Então, todos daqui estão livre para concorrer a camisetas, porta-cds.... > > > > O prazo para entrega dos scripts termina dia 18 de maio... (tem > > muiiito tempo ainda). > > > > Um abraço, > > João Gabriel > > _______________________________________________ > > 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 ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" From monsieur_champs em yahoo.com.br Fri Apr 15 15:53:42 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Fri Apr 15 15:53:52 2005 Subject: [Cascavel-pm] Exemplo de relacao many-to-many com Class::DBI In-Reply-To: <20050414115533.66608.qmail@web50202.mail.yahoo.com> References: <20050414115533.66608.qmail@web50202.mail.yahoo.com> Message-ID: <426045F6.9020900@yahoo.com.br> Rod Za wrote: >> Rodrigo, até onde eu entendi, o que falta é você dizer qual objeto >>deve ser utilizado. A mensagem de erro reclama (claramente) que você >>está tentando usar um método que não existe sobre um objeto da classe >>Class::DBI::Iterator (obviamente isto não é um dbGroup). >> >> Tudo o que eu tenho para dizer a você neste caso são 4 letras: RTFM. > > > Valeu, assim mesmo :) mais eu RTFM. Mas o FM não adiantou muito e nem mesmo RTFS! :) Não entendi. Se você leu o manual, como não conseguiu identificar o problema? Parece que você não entendeu corretamente o que faz um accessor method criado por uma declaração "Class::DBI::has_many()". Você entende que quando diz "Class::DBI::has_many()" para algum campo, está criando um método que "fabrica" e devolve objetos do tipo "Class::DBI::Iterator"?? Espero que isso ajude. Tudo o que você tem de fazer para a mensagem sumir é pedir ao Class::DBI::Iterator para lhe dar um objeto... ou map()ear o processo para aplicar em todos os dbGroups que você obtiver. 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 Apr 15 17:44:51 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Fri Apr 15 17:45:00 2005 Subject: [Cascavel-pm] Novo site do Vitoria Perl Mongers no ar! Message-ID: <8ff2963a05041517446674a4f2@mail.gmail.com> Olá pessoal! Tudo beleza? Acabo de colocar no ar o novo site do Vitória Perl Mongers (http://vitoria.pm.org). Totalmente reformulado e agora conta com uma revista eletronica (em processo de construção). Com um novo site, pretendo chamar a atenção de programadores do ES que ainda não tiveram contato com o grupo, para se "cadastrarem" e em breve começar a organizar encontros, palestras... Quem quiser enviar críticas, sugestões acesse: http://vitoria.pm.org e depois mande-as pra mim.. PS. Marco Antonio, valeu pelo servidor =) De resto, bom final de semana pra vocês! Um abraço, João Gabriel vitoria.pm.org From nferraz em gnubis.com.br Sun Apr 17 18:43:33 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Sun Apr 17 18:43:48 2005 Subject: [Cascavel-pm] Como lidar com caracteres nacionais Message-ID: <20050418014333.5074.qmail@hm101.locaweb.com.br> Pessoal, Eu estou desenvolvendo um chatbot em espanhol, mas estou encontrando problemas com acentuação. Eu defini o "vocabulário" do bot em um arquivo XML, como esse: A seguinte condição compara o que o usuário digitou ($user_msg) com um padrão ($bot_msg). if ($user_msg =~ m!$bot_msg!i) { @resp = @{$_->{bot}}; my $resposta = eval("\"$resp[rand @resp]->{msg}\""); return $resposta; } O problema é que a expressão regular falha ao pesquisar palavras acentuadas como "tú" e "estás". Alguma sugestão? (Eu já tentei usar os módulos locale e POSIX, sem sucesso.) []s Nelson From donatoaz em gmail.com Sun Apr 17 18:50:18 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Sun Apr 17 18:50:27 2005 Subject: [Cascavel-pm] Como lidar com caracteres nacionais In-Reply-To: <20050418014333.5074.qmail@hm101.locaweb.com.br> References: <20050418014333.5074.qmail@hm101.locaweb.com.br> Message-ID: <1746e3e305041718507544eb83@mail.gmail.com> nao tenho muita ideia nao mas jah tentou olhar o unicode destes chars? On 4/17/05, Nelson Ferraz wrote: > Pessoal, > > Eu estou desenvolvendo um chatbot em espanhol, mas estou encontrando problemas com acentuação. > > Eu defini o "vocabulário" do bot em um arquivo XML, como esse: > > > > > > > > > > > > > > > A seguinte condição compara o que o usuário digitou ($user_msg) com um padrão ($bot_msg). > > if ($user_msg =~ m!$bot_msg!i) { > @resp = @{$_->{bot}}; > my $resposta = eval("\"$resp[rand @resp]->{msg}\""); > return $resposta; > } > > O problema é que a expressão regular falha ao pesquisar palavras acentuadas como "tú" e "estás". > > Alguma sugestão? (Eu já tentei usar os módulos locale e POSIX, sem sucesso.) > > []s > > Nelson > _______________________________________________ > 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 ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" From monsieur_champs em yahoo.com.br Sun Apr 17 18:53:15 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Sun Apr 17 18:53:22 2005 Subject: [Cascavel-pm] Como lidar com caracteres nacionais In-Reply-To: 6667 Message-ID: <20050418015315.29866.qmail@web60007.mail.yahoo.com> --- Nelson Ferraz wrote: > Pessoal, > > Eu estou desenvolvendo um chatbot em espanhol, mas > estou encontrando problemas com acentuação. > > Eu defini o "vocabulário" do bot em um arquivo XML, > como esse: > > > > > > > > > > > > > > > A seguinte condição compara o que o usuário digitou > ($user_msg) com um padrão ($bot_msg). > > if ($user_msg =~ m!$bot_msg!i) { > @resp = @{$_->{bot}}; > my $resposta = eval("\"$resp[rand > @resp]->{msg}\""); > return $resposta; > } > > O problema é que a expressão regular falha ao > pesquisar palavras acentuadas como "tú" e "estás". > > Alguma sugestão? (Eu já tentei usar os módulos > locale e POSIX, sem sucesso.) Duas boas sugestoes: use o Text::Soundex ou o Text::Metaphone, uma implementacao mais moderninha do mesmo algoritmo. Desta forma, voce nao precisa se preocupar com as palavras... apenas com seu som. E ainda vai superar erros sintaticos, de quebra... Putamplexos! -- Luis Campos de Carvalho Computer Science Student Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ From nferraz em gnubis.com.br Sun Apr 17 18:58:46 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Sun Apr 17 18:58:49 2005 Subject: [Cascavel-pm] Como lidar com caracteres nacionais In-Reply-To: <20050418015315.29866.qmail@web60007.mail.yahoo.com> References: <20050418015315.29866.qmail@web60007.mail.yahoo.com> Message-ID: <20050418015846.21681.qmail@hm101.locaweb.com.br> > Duas boas sugestoes: use o Text::Soundex ou o > Text::Metaphone, uma implementacao mais moderninha do > mesmo algoritmo. > > Desta forma, voce nao precisa se preocupar com as > palavras... apenas com seu som. E ainda vai superar > erros sintaticos, de quebra... A idéia é boa, mas o objetivo do chatbot é educacional... ele *precisa* verificar se as palavras estão acentuadas corretamente... : P From nferraz em gnubis.com.br Sun Apr 17 19:10:14 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Sun Apr 17 19:10:17 2005 Subject: [Cascavel-pm] Como lidar com caracteres nacionais In-Reply-To: <1746e3e305041718507544eb83@mail.gmail.com> References: <1746e3e305041718507544eb83@mail.gmail.com> Message-ID: <20050418021014.21053.qmail@hm101.locaweb.com.br> > nao tenho muita ideia nao mas jah tentou olhar o unicode destes chars? Não, não estou usando unicode... From monsieur_champs em yahoo.com.br Mon Apr 18 05:45:26 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Mon Apr 18 05:45:42 2005 Subject: [Cascavel-pm] Como lidar com caracteres nacionais In-Reply-To: <20050418015846.21681.qmail@hm101.locaweb.com.br> References: <20050418015315.29866.qmail@web60007.mail.yahoo.com> <20050418015846.21681.qmail@hm101.locaweb.com.br> Message-ID: <4263ABE6.7050305@yahoo.com.br> Nelson Ferraz wrote: >> Duas boas sugestoes: use o Text::Soundex ou o >>Text::Metaphone, uma implementacao mais moderninha do >>mesmo algoritmo. >> >> Desta forma, voce nao precisa se preocupar com as >>palavras... apenas com seu som. E ainda vai superar >>erros sintaticos, de quebra... > > > A idéia é boa, mas o objetivo do chatbot é educacional... ele *precisa* verificar se as palavras estão acentuadas corretamente... : P Bom, se você propuser os outros pré-requisitos, ou algum código, pode ajudar... 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 Mon Apr 18 06:33:39 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Mon Apr 18 06:34:14 2005 Subject: [Cascavel-pm] Como lidar com caracteres nacionais In-Reply-To: <4263ABE6.7050305@yahoo.com.br> References: <4263ABE6.7050305@yahoo.com.br> Message-ID: <20050418133339.17425.qmail@hm101.locaweb.com.br> > Bom, se você propuser os outros pré-requisitos, ou algum código, pode > ajudar... O núcleo do programa é este loop, que retorna uma resposta aleatórea para a mensagem do usuário: 1 my @resp; 2 foreach (@{$bot->{user}}) { 3 my $bot_msg = $_->{msg}; 4 if ($user_msg =~ m!$bot_msg!i) { 5 @resp = @{$_->{bot}}; 6 my $resposta = eval("\"$resp[rand @resp]->{msg}\""); 7 return $resposta; 8 } 9 } Na linha 4 verificamos se a mensagem do usuário bate com uma das palavras-chave registradas, e, em caso positivo, recuperamos as possíveis respostas (@resp, na linha 5). A linha 6 usa um eval para que as variáveis $1, $2, etc, sejam corretamente interpoladas. O código-fonte completo está aqui: http://www.hola.com.br/chat.tgz Ainda não consegui resolver o problema da acentuação... []s Nelson From fglock em pucrs.br Mon Apr 18 07:44:05 2005 From: fglock em pucrs.br (Flavio S. Glock) Date: Mon Apr 18 07:44:19 2005 Subject: [Cascavel-pm] Como lidar com caracteres nacionais In-Reply-To: <20050418133339.17425.qmail@hm101.locaweb.com.br> References: <4263ABE6.7050305@yahoo.com.br> <20050418133339.17425.qmail@hm101.locaweb.com.br> Message-ID: <4263C7B5.7040605@pucrs.br> Nelson Ferraz wrote: > Ainda não consegui resolver o problema da acentuação... Você tem certeza que o conjunto de caracteres do usuário é o mesmo utilizado no seu banco de frases? - Flavio S. Glock From nferraz em gnubis.com.br Mon Apr 18 08:58:19 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Mon Apr 18 08:58:30 2005 Subject: [Cascavel-pm] Como lidar com caracteres nacionais In-Reply-To: <4263C7B5.7040605@pucrs.br> References: <4263C7B5.7040605@pucrs.br> Message-ID: <20050418155819.9264.qmail@hm101.locaweb.com.br> > > Ainda não consegui resolver o problema da acentuação... > > Você tem certeza que o conjunto de caracteres do usuário é o mesmo > utilizado no seu banco de frases? Hmmm... não. Como posso descobrir o charset do usuário? From glasswalk3r em yahoo.com.br Mon Apr 18 09:18:04 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Mon Apr 18 09:18:19 2005 Subject: [Cascavel-pm] Como lidar com caracteres nacionais In-Reply-To: 6667 Message-ID: <20050418161805.98927.qmail@web31504.mail.mud.yahoo.com> Oi Nelson, Dê uma olhada no módulo Config, tenho quase certeza que tem alguma propriedade no módulo que vai lhe dizer isso. []'s Alceu --- Nelson Ferraz wrote: > > > Ainda não consegui resolver o problema da > acentuação... > > > > Você tem certeza que o conjunto de caracteres do > usuário é o mesmo > > utilizado no seu banco de frases? > > Hmmm... não. Como posso descobrir o charset do > usuário? > _______________________________________________ > 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 nferraz em gnubis.com.br Mon Apr 18 09:42:52 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Mon Apr 18 09:43:01 2005 Subject: [Cascavel-pm] Como lidar com caracteres nacionais In-Reply-To: <20050418155819.9264.qmail@hm101.locaweb.com.br> References: <20050418155819.9264.qmail@hm101.locaweb.com.br> Message-ID: <20050418164252.9887.qmail@hm101.locaweb.com.br> > > Você tem certeza que o conjunto de caracteres do usuário é o mesmo > > utilizado no seu banco de frases? > > Hmmm... não. Como posso descobrir o charset do usuário? Respondendo à minha própria pergunta, é só olhar em $ENV{"HTTP_ACCEPT_CHARSET"}. De qualquer forma, aqui vai uma possível solução para o problema: adotar um único conjunto de caracteres como padrão, e converter as strings antes de fazer a comparação: utf8::encode($nome); utf8::encode($user_msg); utf8::encode($bot_msg); # ... if ($user_msg =~ m!$bot_msg!i) { # .... } Isso resolveu o problema. Obrigado a todos pelas sugestões!!! []s Nelson From marco.lima em e-via.com.br Mon Apr 18 10:32:21 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Mon Apr 18 10:32:45 2005 Subject: [Cascavel-pm] =?iso-8859-1?q?Workshop_de_Programa=E7=E3o_Perl_na?= =?iso-8859-1?q?_Praia_Grande?= Message-ID: Salve Monges ! O evento foi um sucesso e recebeu diversos elogios dos alunos, professores e do próprio diretor da FATEC. Já recebemos o convite de realizarmos um novo encontro no próximo semestre. Foi fechado um acordo de cooperação entre o grupo São Paulo Perl Mongers e a FATEC da Praia Grande, o primeiro fruto desse acordo será a realização de um ciclo de mini-cursos abertos com o objetivo de capacitar novos usuários e desenvolvedores. Gostaria de agradecer aos Monges que compareceram ao evento, sem vocês tudo isso não seria possível. Ps. Para os monges que apresentaram alguma palestra: favor dispolibilizar o arquivo da apresentação no site do grupo. [ ]'çã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 sammuel.souza em gmail.com Mon Apr 18 10:19:32 2005 From: sammuel.souza em gmail.com (Sammuel) Date: Mon Apr 18 11:09:07 2005 Subject: [Cascavel-pm] Como lidar com caracteres nacionais References: <4263ABE6.7050305@yahoo.com.br> <20050418133339.17425.qmail@hm101.locaweb.com.br> Message-ID: <002f01c5443a$cebaaea0$b3fea8c0@sammuel> Veja uma solução que achei para trocar caracteres especiais em letras normais... Fiz isso faz muito tempo, deve ter outras soluções mas no dia eu fiz essa por nao achar outra... Codigo: #!/usr/bin/perl print "Content-type:text/html\n\n"; %carac_esp = ( 'á' => a, 'Á' => a, 'à' => a, 'À' => a, 'ã' => a, 'Ã' => a, 'ä' => a, 'Ä' => a, 'â' => a, 'Â' => a, 'é' => e, 'É' => e, 'ê' => e, 'Ê' => e, 'è' => e, 'È' => e, 'ë' => e, 'Ë' => e, 'í' => i, 'Í' => i, 'î' => i, 'î' => i, 'ï' => i, 'Ï' => i, 'ì' => i, 'Ì' => i, 'ó' => o, 'Ó' => o, 'ô' => o, 'Ô' => o, 'ö' => o, 'Ö' => o, 'ò' => o, 'Ò' => o, 'ú' => u, 'Ú' => u, 'û' => u, 'Û' => u, 'ü' => u, 'Ü' => u, 'ù' => u, 'Ù' => u ); $msg = "Cão é muito legal. O gato está no chão. Mãe me traz um leite."; $msg = lc($msg); # Deixa toda a frase em minuscula exceto os acentos. while (($a1, $a2) = each(%carac_esp)) { $msg =~ s/$a1/$a2/g; } print "$msg"; Se ajudar... []'s Douglas de Souza msn: sammuel.souza@gmail.com qualquer coisa... ----- Original Message ----- From: "Nelson Ferraz" To: "Cascavel Perl Mongers" Sent: Monday, April 18, 2005 10:33 AM Subject: Re: [Cascavel-pm] Como lidar com caracteres nacionais >> Bom, se você propuser os outros pré-requisitos, ou algum código, pode >> ajudar... > > O núcleo do programa é este loop, que retorna uma resposta aleatórea para > a mensagem do usuário: > > 1 my @resp; > 2 foreach (@{$bot->{user}}) { > 3 my $bot_msg = $_->{msg}; > 4 if ($user_msg =~ m!$bot_msg!i) { > 5 @resp = @{$_->{bot}}; > 6 my $resposta = eval("\"$resp[rand @resp]->{msg}\""); > 7 return $resposta; > 8 } > 9 } > > Na linha 4 verificamos se a mensagem do usuário bate com uma das > palavras-chave registradas, e, em caso positivo, recuperamos as possíveis > respostas (@resp, na linha 5). A linha 6 usa um eval para que as variáveis > $1, $2, etc, sejam corretamente interpoladas. > > O código-fonte completo está aqui: > > http://www.hola.com.br/chat.tgz > > Ainda não consegui resolver o problema da acentuação... > > []s > > Nelson > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm From sammuel.souza em gmail.com Mon Apr 18 11:12:43 2005 From: sammuel.souza em gmail.com (Sammuel Souza) Date: Mon Apr 18 11:12:56 2005 Subject: [Cascavel-pm] Como lidar com caracteres nacionais Message-ID: <836d1f3105041811125d6f8c8d@mail.gmail.com> Veja uma solução que achei para trocar caracteres especiais em letras normais... Fiz isso faz muito tempo, deve ter outras soluções mas no dia eu fiz essa por nao achar outra... Codigo: #!/usr/bin/perl print "Content-type:text/html\n\n"; %carac_esp = ( 'á' => a, 'Á' => a, 'à' => a, 'À' => a, 'ã' => a, 'Ã' => a, 'ä' => a, 'Ä' => a, 'â' => a, 'Â' => a, 'é' => e, 'É' => e, 'ê' => e, 'Ê' => e, 'è' => e, 'È' => e, 'ë' => e, 'Ë' => e, 'í' => i, 'Í' => i, 'î' => i, 'î' => i, 'ï' => i, 'Ï' => i, 'ì' => i, 'Ì' => i, 'ó' => o, 'Ó' => o, 'ô' => o, 'Ô' => o, 'ö' => o, 'Ö' => o, 'ò' => o, 'Ò' => o, 'ú' => u, 'Ú' => u, 'û' => u, 'Û' => u, 'ü' => u, 'Ü' => u, 'ù' => u, 'Ù' => u ); $msg = "Cão é muito legal. O gato está no chão. Mãe me traz um leite."; $msg = lc($msg); # Deixa toda a frase em minuscula exceto os acentos. while (($a1, $a2) = each(%carac_esp)) { $msg =~ s/$a1/$a2/g; } print "$msg"; Se ajudar... []'s Douglas de Souza msn: sammuel.souza@gmail.com qualquer coisa... ----- Original Message ----- From: "Nelson Ferraz" To: "Cascavel Perl Mongers" Sent: Monday, April 18, 2005 10:33 AM Subject: Re: [Cascavel-pm] Como lidar com caracteres nacionais >> Bom, se você propuser os outros pré-requisitos, ou algum código, pode >> ajudar... > > O núcleo do programa é este loop, que retorna uma resposta aleatórea para > a mensagem do usuário: > > 1 my @resp; > 2 foreach (@{$bot->{user}}) { > 3 my $bot_msg = $_->{msg}; > 4 if ($user_msg =~ m!$bot_msg!i) { > 5 @resp = @{$_->{bot}}; > 6 my $resposta = eval("\"$resp[rand @resp]->{msg}\""); > 7 return $resposta; > 8 } > 9 } > > Na linha 4 verificamos se a mensagem do usuário bate com uma das > palavras-chave registradas, e, em caso positivo, recuperamos as possíveis > respostas (@resp, na linha 5). A linha 6 usa um eval para que as variáveis > $1, $2, etc, sejam corretamente interpoladas. > > O código-fonte completo está aqui: > > http://www.hola.com.br/chat.tgz > > Ainda não consegui resolver o problema da acentuação... > > []s > > Nelson > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm From nferraz em gnubis.com.br Mon Apr 18 12:44:23 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Mon Apr 18 12:41:57 2005 Subject: [Cascavel-pm] Como lidar com caracteres nacionais In-Reply-To: <002f01c5443a$cebaaea0$b3fea8c0@sammuel> References: <4263ABE6.7050305@yahoo.com.br> <20050418133339.17425.qmail@hm101.locaweb.com.br> <002f01c5443a$cebaaea0$b3fea8c0@sammuel> Message-ID: <42640E17.3060408@gnubis.com.br> Sammuel wrote: > Veja uma solução que achei para trocar caracteres especiais em letras > normais... Essa é uma alternativa interessante, mas como eu havia explicado ao Luis, o objetivo do chatbot é educacional; eu não posso descartar a acentuação. A solução que eu encontrei foi converter todas as strings para um único padrão, o utf8. Obrigado pela sugestão! []s Nelson From monsieur_champs em yahoo.com.br Mon Apr 18 15:58:16 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Mon Apr 18 15:58:28 2005 Subject: =?iso-8859-1?q?Re:=20[Cascavel-pm]=20Workshop=20de=20Programa=E7=E3o=20Pe?= =?iso-8859-1?q?rl=20na=20Praia=20Grande?= In-Reply-To: 6667 Message-ID: <20050418225816.97494.qmail@web60007.mail.yahoo.com> --- Marco Lima wrote: > Para os monges que apresentaram alguma palestra: > favor > dispolibilizar o arquivo da apresentação no site do > grupo. Os arquivos de apresentacões devem ser enviados a mim ou ao Alceu, para publicacao. Enviem tambem nome completo, disposicao de receber contatos, email de contato (apenas se estiver disposto a receber contatos), resenha (maximo 160 toques) e o arquivo, em formato winzip ou gzipped tarball (conforme preferencia de O.S.). -- Luis Campos de Carvalho Computer Science Student Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ From donatoaz em gmail.com Tue Apr 19 09:46:23 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Tue Apr 19 09:46:44 2005 Subject: [Cascavel-pm] Perldoc no linux In-Reply-To: References: <1746e3e3050418170942f67f81@mail.gmail.com> Message-ID: <1746e3e3050419094642231c46@mail.gmail.com> Pessoal, eu não sou usuario linux... mas um amigo meu tem a seguinte duvida, se alguem puder ajudá-lo: ---------- Forwarded message ---------- From: Felipe Augusto Dornelas Date: Apr 19, 2005 9:17 AM Subject: Re: Nova função para listar os arqui vos de u m diretório, recursivamente. To: Donato Azevedo Como eu faço para configurar o perldoc, no Linux? Deve-se inicializar a variável de ambiente PERLDOC com o endereço do diretório onde está documentação. Mas, onde este diretório é localizado? -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" From daniel em ruoso.com Tue Apr 19 10:03:47 2005 From: daniel em ruoso.com (Daniel Ruoso) Date: Tue Apr 19 10:04:04 2005 Subject: [Cascavel-pm] Perldoc no linux In-Reply-To: <1746e3e3050419094642231c46@mail.gmail.com> References: <1746e3e3050418170942f67f81@mail.gmail.com> <1746e3e3050419094642231c46@mail.gmail.com> Message-ID: <1113930227.1400.5.camel@localhost> Em Ter, 2005-04-19 às 13:46, Donato Azevedo escreveu: > From: Felipe Augusto Dornelas > Como eu faço para configurar o perldoc, no Linux? > Deve-se inicializar a variável de ambiente PERLDOC com o endereço do > diretório onde está documentação. Mas, onde este diretório é localizado? Olha, eu nunca precisei fazer isso... O mais fácil talvez seja buscar ajuda com a distribuição Linux que ele usa. daniel From mda em embratel.net.br Tue Apr 19 14:08:47 2005 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Tue Apr 19 14:35:06 2005 Subject: [Cascavel-pm] Nokia disponibiliza Perl 5 para celulares Message-ID: <4265735F.9090007@embratel.net.br> Divulgado na br-linux.org[1]: Nokia disponibiliza Perl 5 para celulares Pela minha rápida passagem pelo link[2], trata-se de um patch para que seja possível compilar o Perl para rodar na plataforma (formato bzip2 e tar)... [1] http://br-linux.org/linux/?q=node/652 [2] http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2005-04/msg00439.html Sds, Marco Antonio From monsieur_champs em yahoo.com.br Tue Apr 19 18:02:00 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Tue Apr 19 18:02:15 2005 Subject: [Cascavel-pm] Nokia disponibiliza Perl 5 para celulares In-Reply-To: 6667 Message-ID: <20050420010200.47467.qmail@web60001.mail.yahoo.com> --- Marco A P D´Andrade wrote: > Divulgado na br-linux.org[1]: Nokia disponibiliza > Perl 5 para celulares > > Pela minha rápida passagem pelo link[2], trata-se de > um patch para que > seja possível compilar o Perl para rodar na > plataforma (formato bzip2 e > tar)... > > > [1] http://br-linux.org/linux/?q=node/652 > [2] > http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2005-04/msg00439.html > Sou meio lerdo com esta coisa de cross-compiling... isso quer dizer que agora conseguiremos programar nossos celulares Nokia com Perl, eu imagino. Mas eu não vejo onde estão as API's de acesso ao hardware da Nokia... Alguém para ajudar a fazer um vírus para celulares Nokia? Putamplexos! -- Luis Campos de Carvalho Computer Science Student Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ 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 Wed Apr 20 07:40:54 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Wed Apr 20 07:41:08 2005 Subject: [Cascavel-pm] Nokia disponibiliza Perl 5 para celulares In-Reply-To: 6667 Message-ID: <20050420144054.39744.qmail@web31504.mail.mud.yahoo.com> --- Marco A P D´Andrade wrote: > Divulgado na br-linux.org[1]: Nokia disponibiliza > Perl 5 para celulares > > Pela minha rápida passagem pelo link[2], trata-se de > um patch para que > seja possível compilar o Perl para rodar na > plataforma (formato bzip2 e > tar)... > > > [1] http://br-linux.org/linux/?q=node/652 > [2] > http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2005-04/msg00439.html A revista Linux Magazine do mês passado (matéria de capa "Segurança") tem um tutorial interessante sobre compilação cruzada, talvez valha à pena para os interessados no assunto. Fico imaginando o que poderia ser feito de interessante com Perl num celular, não faço nem idéia das limitações que existem em um. []'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 jamorreu em gmail.com Wed Apr 20 16:06:54 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Wed Apr 20 16:07:05 2005 Subject: [Cascavel-pm] Enviando e-mail com SMTP autenticado pelo Mime::Lite Message-ID: <8ff2963a05042016066aa3ad90@mail.gmail.com> Olá pessoal. A algum tempo eu uso o módulo mime::lite para enviar e-mails (seja pelo sendmail, ou smtp local >localhost<). O problema é que eu preciso usar outro servidor de smtp (de outro servidor) e preciso autenticar o usuário. Ai está o problema. Na documentação do mime::lite diz... ### Do something like this in your 'main': if ($I_DONT_HAVE_SENDMAIL) { MIME::Lite->send('smtp', "smtp.myisp.net", Timeout=>60); } ### Now this will do the right thing: $msg->send; ### will now use Net::SMTP as shown above Ou seja... enviar usando parametros do Net::SMTP.. alguém pode me dar um help (no parametro)?? Um abraço, Gabriel From monsieur_champs em yahoo.com.br Wed Apr 20 16:53:07 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Apr 20 16:53:20 2005 Subject: [Cascavel-pm] Enviando e-mail com SMTP autenticado pelo Mime::Lite In-Reply-To: 6667 Message-ID: <20050420235307.69347.qmail@web60003.mail.yahoo.com> --- João Gabriel wrote: > Olá pessoal. JG!!... Há quanto tempo... :-) > A algum tempo eu uso o módulo mime::lite para enviar > e-mails (seja pelo sendmail, ou smtp local). > > O problema é que eu preciso usar outro servidor de > smtp (de outro servidor) e preciso autenticar > o usuário. Ai está o problema. > > Na documentação do mime::lite diz... > > > ### Do something like this in your 'main': > if ($I_DONT_HAVE_SENDMAIL) { > MIME::Lite->send('smtp', "smtp.myisp.net", > Timeout=>60); > } > > ### Now this will do the right thing: > $msg->send; ### will now use Net::SMTP > as shown above > > > > Ou seja... > enviar usando parametros do Net::SMTP.. > > alguém pode me dar um help (no parametro)?? > Isso aqui vai ajudar você deveras: http://search.cpan.org/~apleiner/Net-SMTP_auth-0.07/SMTP_auth.pm Bom divertimento! -- Luis Campos de Carvalho Computer Science Student Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ From jamorreu em gmail.com Thu Apr 21 14:12:08 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Thu Apr 21 14:12:18 2005 Subject: [Cascavel-pm] Enviando e-mail com SMTP autenticado pelo Mime::Lite Message-ID: <8ff2963a0504211412fe223@mail.gmail.com> Luis... > Isso aqui vai ajudar você deveras: > > http://search.cpan.org/~apleiner/Net-SMTP_auth-0.07/SMTP_auth.pm > > Bom divertimento! Quase... já tinha dado uma lida nele... pra usar o net::smtp "puro" eu sei + ou -... o problema é no mime::lite... como usar processos do net::smtp::auth no mime::lite?? (eis a questão) Abração João Gabriel From mda em embratel.net.br Fri Apr 22 07:32:32 2005 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Fri Apr 22 07:32:43 2005 Subject: [Cascavel-pm] Enviando e-mail com SMTP autenticado pelo Mime::Lite In-Reply-To: <8ff2963a0504211412fe223@mail.gmail.com> References: <8ff2963a0504211412fe223@mail.gmail.com> Message-ID: <42690B00.9010805@embratel.net.br> João Gabriel, Se vc já leu o Net::SMTP_auth (por final o Net::SMTP já incorporou o suporte a SMTP-AUTH...) Veja os recursos "deste módulo"... http://search.cpan.org/~yves/MIME-Lite-3.01/lib/MIME/Lite.pm#Print_a_message_into_a_string Sds, Marco Antonio João Gabriel wrote: >Luis... > > >> Isso aqui vai ajudar você deveras: >> >>http://search.cpan.org/~apleiner/Net-SMTP_auth-0.07/SMTP_auth.pm >> >> Bom divertimento! >> >> > >Quase... > >já tinha dado uma lida nele... pra usar o net::smtp "puro" eu sei + ou -... > >o problema é no mime::lite... como usar processos do net::smtp::auth >no mime::lite?? >(eis a questão) > >Abração >João Gabriel >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm@pm.org >http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > From mda em embratel.net.br Fri Apr 22 07:32:32 2005 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Fri Apr 22 07:32:46 2005 Subject: [Cascavel-pm] Enviando e-mail com SMTP autenticado pelo Mime::Lite In-Reply-To: <8ff2963a0504211412fe223@mail.gmail.com> References: <8ff2963a0504211412fe223@mail.gmail.com> Message-ID: <42690B00.9010805@embratel.net.br> João Gabriel, Se vc já leu o Net::SMTP_auth (por final o Net::SMTP já incorporou o suporte a SMTP-AUTH...) Veja os recursos "deste módulo"... http://search.cpan.org/~yves/MIME-Lite-3.01/lib/MIME/Lite.pm#Print_a_message_into_a_string Sds, Marco Antonio João Gabriel wrote: >Luis... > > >> Isso aqui vai ajudar você deveras: >> >>http://search.cpan.org/~apleiner/Net-SMTP_auth-0.07/SMTP_auth.pm >> >> Bom divertimento! >> >> > >Quase... > >já tinha dado uma lida nele... pra usar o net::smtp "puro" eu sei + ou -... > >o problema é no mime::lite... como usar processos do net::smtp::auth >no mime::lite?? >(eis a questão) > >Abração >João Gabriel >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm@pm.org >http://mail.pm.org/mailman/listinfo/cascavel-pm > > > > From monsieur_champs em yahoo.com.br Sat Apr 23 09:49:09 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Sat Apr 23 09:49:19 2005 Subject: [Cascavel-pm] Enviando e-mail com SMTP autenticado pelo Mime::Lite In-Reply-To: <8ff2963a0504211412fe223@mail.gmail.com> References: <8ff2963a0504211412fe223@mail.gmail.com> Message-ID: <426A7C85.1080208@yahoo.com.br> João Gabriel wrote: > Luis... > >> Isso aqui vai ajudar você deveras: >> >>http://search.cpan.org/~apleiner/Net-SMTP_auth-0.07/SMTP_auth.pm >> >> Bom divertimento! > > > Quase... > > já tinha dado uma lida nele... pra usar o net::smtp "puro" eu sei + ou -... > > o problema é no mime::lite... como usar processos do net::smtp::auth > no mime::lite?? > (eis a questão) > Você não precisa. Pode processar (criar, incluir, alterar, excluir) sua mensagem usando o MIME::Lite, e quando chegar a hora de enviar, simplesmente passar MIME::Lite::as_string() para dentro do SMTP::Auth e enviar a mensagem... Qual o problema? -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 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 Sun Apr 24 16:55:45 2005 From: jamorreu em gmail.com (=?ISO-8859-1?Q?Jo=E3o_Gabriel?=) Date: Sun Apr 24 16:55:58 2005 Subject: [Cascavel-pm] Enviando e-mail com SMTP autenticado pelo Mime::Lite Message-ID: <8ff2963a0504241655303618b9@mail.gmail.com> Luis... > Você não precisa. > Pode processar (criar, incluir, alterar, excluir) sua mensagem usando > o MIME::Lite, e quando chegar a hora de enviar, simplesmente passar >MIME::Lite::as_string() para dentro do SMTP::Auth e enviar a mensagem... > Qual o problema? Esse. Vo dar mais uma lida na documentação do módulo depois e com mais calma. =) Mas valei pelo toque! Abração João Gabriel From mda em embratel.net.br Mon Apr 25 08:42:32 2005 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Mon Apr 25 08:42:42 2005 Subject: [Cascavel-pm] Palestra Praia-Grande Message-ID: <426D0FE8.40704@embratel.net.br> Nelson, Estou com interesse especial em sua palestra, gostaria, se vc estiver de acordo, em receber seu arquivo e utiliza-lo como referencia para o que pretendo apresentar na UERJ... Como disse na ocasião, o conteúdo foi ótimo para a introdução ao Perl !! No aguardo, Marco Antonio From nferraz em gnubis.com.br Mon Apr 25 09:24:45 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Mon Apr 25 09:25:08 2005 Subject: [Cascavel-pm] Palestra Praia-Grande Message-ID: <20050425162445.13352.qmail@hm101.locaweb.com.br> > Estou com interesse especial em sua palestra, gostaria, se vc estiver de > acordo, em receber seu arquivo e utiliza-lo como referencia para o que > pretendo apresentar na UERJ... Aqui vai a apresentação, nos formatos OpenOffice e PDF. Sinta-se livre para usar, modificar, etc... []s Nelson -- Nelson Ferraz -------------- Próxima Parte ---------- Um anexo não texto foi limpo... Nome : intro-perl.sxi Tipo : application/vnd.sun.xml.impress Tam : 60221 bytes Descr.: não disponível Url : http://mail.pm.org/pipermail/cascavel-pm/attachments/20050425/7d43480e/intro-perl-0001.bin -------------- Próxima Parte ---------- Um anexo não texto foi limpo... Nome : intro-perl.pdf Tipo : application/pdf Tam : 93072 bytes Descr.: não disponível Url : http://mail.pm.org/pipermail/cascavel-pm/attachments/20050425/7d43480e/intro-perl-0001.pdf From donatoaz em gmail.com Mon Apr 25 10:52:40 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Mon Apr 25 10:52:50 2005 Subject: [Cascavel-pm] GD::Graph::lines Message-ID: <1746e3e30504251052393cc097@mail.gmail.com> Pessoal, Eu tou com um probleminha para plotar uns dados: eu nao sei qual tamanho da imagem usar para se ter melhor visualização. O tamanho da imagem é setado em pixels da segunte maneira: my $graph = new GD::Graph::lines( 500, 500 ); # X, Y porém se eu tenho por exemplo 1000 pares x,y a figura fica pequena demais. my $graph = new GD::Graph::lines( 5000, 500 ); se eu tenho somente 30 pares a figura fica grande demais, tentei fazer algo do tipo: my $graph = new GD::Graph::lines( @x_axis*100, 500 ); # @x_axis contem os valores de x mas tambem nao ficou bom alguem tem alguma dica? -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" From monsieur_champs em yahoo.com.br Mon Apr 25 14:44:39 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Mon Apr 25 14:44:52 2005 Subject: [Cascavel-pm] GD::Graph::lines In-Reply-To: <1746e3e30504251052393cc097@mail.gmail.com> References: <1746e3e30504251052393cc097@mail.gmail.com> Message-ID: <426D64C7.4060600@yahoo.com.br> Donato Azevedo wrote: > Pessoal, > Eu tou com um probleminha para plotar uns dados: eu nao sei qual > tamanho da imagem usar para se ter melhor visualização. O tamanho da > imagem é setado em pixels da segunte maneira: > > my $graph = new GD::Graph::lines( 500, 500 ); # X, Y > porém se eu tenho por exemplo 1000 pares x,y a figura fica pequena demais. > > my $graph = new GD::Graph::lines( 5000, 500 ); > se eu tenho somente 30 pares a figura fica grande demais, > > tentei fazer algo do tipo: > my $graph = new GD::Graph::lines( @x_axis*100, 500 ); # @x_axis contem > os valores de x > mas tambem nao ficou bom > > alguem tem alguma dica? Você precisa obviamente de uma função mais "inteligente" para determinar o comprimento do eixo X. Eu gostaria de saber mais sobre a sua aplicação antes de opinar. Você pode por favor me explicar o que está programando? 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 Mon Apr 25 15:13:07 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Mon Apr 25 15:13:17 2005 Subject: [Cascavel-pm] GD::Graph::lines In-Reply-To: <426D64C7.4060600@yahoo.com.br> References: <1746e3e30504251052393cc097@mail.gmail.com> <426D64C7.4060600@yahoo.com.br> Message-ID: <1746e3e305042515133f33d3cd@mail.gmail.com> Desculpem a falta de detalhes (eu estava trabalhando....) A aplicação é a seguinte, nós temos uns arquivos de texto com o seguinte formato: Data/Hora: 01/04/2005 00:00 >>> Atenção: String do ComponentCall com erros Data/Hora: 01/04/2005 00:00 >>> srvComponentCall: Fim das chamadas aos componentes... Data/Hora: 01/04/2005 00:01 >>> srvComponentCall: Inicio das chamadas aos componentes... Data/Hora: 01/04/2005 00:01 >>> Instanciando componente 'buV261.buRequisicao'... Data/Hora: 01/04/2005 00:01 >>> srvComponentCall: Chamada ao componente [buV261.buRequisicao][2] finalizada com sucesso. Tempo da execução: 8 segundo(s). Data/Hora: 01/04/2005 00:01 >>> Instanciando componente 'buV261.buSolicitacao'... Data/Hora: 01/04/2005 00:01 >>> srvComponentCall: Chamada ao componente [buV261.buSolicitacao][2] finalizada com sucesso. Tempo da execução: 1 segundo(s). Data/Hora: 01/04/2005 00:01 >>> Instanciando componente 'buV261.buLeilao'... Data/Hora: 01/04/2005 00:01 >>> srvComponentCall: Chamada ao componente [buV261.buLeilao][2] finalizada com sucesso. Tempo da execução: 1 segundo(s). Data/Hora: 01/04/2005 00:01 >>> Instanciando componente 'buV261.buPediEmpr'... Data/Hora: 01/04/2005 00:01 >>> srvComponentCall: Chamada ao componente [buV261.buPediEmpr][2] finalizada com sucesso. Tempo da execução: 26 segundo(s). Data/Hora: 01/04/2005 00:01 >>> Instanciando componente 'buV261.buContrato'... etc... dai eu tenho de plotar um grafico por Classe.Método por ambiente (o numero entre [ ]) e por dia, por exemplo: buV261buPediEmpre(2)_01-04-2005.gif, mostrando os segundos gastos para executar. O proposito é descobrir os horários de pico diários. Não estou com o código que estou usando aqui (está no meu pc do trabalho) Eu usei my $graph = new GD::Graph::lines( @x_axis*30, 500 ); e meu gerente aprovou, porém gostaria de algo melhor. amanha eu posto o codigo! On 4/25/05, Luis Campos de Carvalho wrote: > Donato Azevedo wrote: > > Pessoal, > > Eu tou com um probleminha para plotar uns dados: eu nao sei qual > > tamanho da imagem usar para se ter melhor visualização. O tamanho da > > imagem é setado em pixels da segunte maneira: > > > > my $graph = new GD::Graph::lines( 500, 500 ); # X, Y > > porém se eu tenho por exemplo 1000 pares x,y a figura fica pequena demais. > > > > my $graph = new GD::Graph::lines( 5000, 500 ); > > se eu tenho somente 30 pares a figura fica grande demais, > > > > tentei fazer algo do tipo: > > my $graph = new GD::Graph::lines( @x_axis*100, 500 ); # @x_axis contem > > os valores de x > > mas tambem nao ficou bom > > > > alguem tem alguma dica? > > Você precisa obviamente de uma função mais "inteligente" para > determinar o comprimento do eixo X. > > Eu gostaria de saber mais sobre a sua aplicação antes de opinar. Você > pode por favor me explicar o que está programando? > > 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 ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" From mda em embratel.net.br Mon Apr 25 15:34:37 2005 From: mda em embratel.net.br (=?ISO-8859-1?Q?Marco_A_P_D=B4Andrade?=) Date: Mon Apr 25 15:34:48 2005 Subject: [Cascavel-pm] Palestra Praia-Grande In-Reply-To: <20050425162445.13352.qmail@hm101.locaweb.com.br> References: <20050425162445.13352.qmail@hm101.locaweb.com.br> Message-ID: <426D707D.8020907@embratel.net.br> Nelson, Obrigado! Isto será de grande ajuda!! Como costuma-se dizer, melhorar um bom trabalho é melhor (e muuuiiiiiiito mais fácil) que tentar refazer ;) Vou mantê-lo informado! Sds, Marco Antonio Nelson Ferraz wrote: >>Estou com interesse especial em sua palestra, gostaria, se vc estiver de >>acordo, em receber seu arquivo e utiliza-lo como referencia para o que >>pretendo apresentar na UERJ... >> >> > >Aqui vai a apresentação, nos formatos OpenOffice e PDF. > >Sinta-se livre para usar, modificar, etc... > >[]s > >Nelson > >-- >Nelson Ferraz > > >------------------------------------------------------------------------ > >_______________________________________________ >Cascavel-pm mailing list >Cascavel-pm@pm.org >http://mail.pm.org/mailman/listinfo/cascavel-pm > From monsieur_champs em yahoo.com.br Wed Apr 27 08:54:26 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Apr 27 08:54:39 2005 Subject: [Cascavel-pm] [OT]: Javascript complicado... Message-ID: <20050427155426.39691.qmail@web60008.mail.yahoo.com> Camaradas monges Desculpem mandar para as duas listas ao mesmo tempo, mas eu estou realmente desesperado. Preciso de um truque de Javascript utilizando forms e campos hidden, mas não estou conseguindo juntar as peças de acordo... Simplificando meu fonte, tenho

Ordenar por Data

O que acontece é que não consigo pegar o parâmetro "order" de volta, e não sei explicar o que estou fazendo de errado. Alguém pode por favor me indicar o caminho correto? -- Luis Campos de Carvalho Computer Science Student Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ From pmpoa em galvao.eti.br Wed Apr 27 09:07:00 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Wed Apr 27 09:07:02 2005 Subject: [Cascavel-pm] [OT]: Javascript complicado... In-Reply-To: <20050427155426.39691.qmail@web60008.mail.yahoo.com> References: <20050427155426.39691.qmail@web60008.mail.yahoo.com> Message-ID: <426FB8A4.8080705@galvao.eti.br> Elementar meu caro champs: Você cometeu um typo. Substitua a linha:

Ordenar por Data

por esta:

Ordenar por Data

Você colocou herf ao invés de href e colocou uma aspa dupla a mais. Não foi um erro de JavaScript, mas de HTML :-P Er Galvão Abbott ------------------------------------- Porto Alegre Perl Mongers http://portoalegre.pm.org/ -------------------------------------- pmpoa@galvao.eti.br -------------------------------------- Luis Campos de Carvalho wrote: >Camaradas monges > >Desculpem mandar para as duas listas ao mesmo tempo, >mas eu estou realmente desesperado. > >Preciso de um truque de Javascript utilizando forms e >campos hidden, mas não estou conseguindo juntar as >peças de acordo... > >Simplificando meu fonte, tenho > > > >
action="http://localhost/cgi/action"> > >

onclick="document.daForm.order.value='date'; >document.daForm.submit();">Ordenar por Data

>
> > > >O que acontece é que não consigo pegar o parâmetro >"order" de volta, e não sei explicar o que estou >fazendo de errado. Alguém pode por favor me indicar o >caminho correto? > >-- >Luis Campos de Carvalho >Computer Science Student >Unix SysAdmin & OCP/DBA Oracle >http://br.geocities.com/monsieur_champs/ > > > > > >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 > > > > From pmpoa em galvao.eti.br Wed Apr 27 09:09:11 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Wed Apr 27 09:09:10 2005 Subject: [Cascavel-pm] [OT]: Javascript complicado... In-Reply-To: <426FB8A4.8080705@galvao.eti.br> References: <20050427155426.39691.qmail@web60008.mail.yahoo.com> <426FB8A4.8080705@galvao.eti.br> Message-ID: <426FB927.4010307@galvao.eti.br> Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050427/0397c9b7/attachment-0001.htm From monsieur_champs em yahoo.com.br Wed Apr 27 09:25:32 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Wed Apr 27 09:25:47 2005 Subject: [Cascavel-pm] Re: [OT]: Javascript complicado... In-Reply-To: 6667 Message-ID: <20050427162532.99693.qmail@web60007.mail.yahoo.com> Na verdade, o meu fonte é um TT2... segue anexo. Eu acho que consegui descobrir o que está errado: eu estava usando "href" (link) para obter feedback visual "click-able", e isso estava fazendo com que a minha página fosse chamada (Isto é uma referência para a própria página) ao invés de meu form submetido. Como o form e a página apontam para o mesmo lugar, o besta do programador aqui estava sofrendo... --- Er Galvão Abbott - PM Porto Alegre wrote: --------------------------------- Oops, falando em typo... hehehe Esqueça a aspa a mais estava correto. Era só o href que estava digitadoerrado. A linha correta, portanto fica assim:

Ordenar por Data

Er Galvão Abbott-------------------------------------Porto Alegre Perl Mongershttp://portoalegre.pm.org/--------------------------------------pmpoa@galvao.eti.br-------------------------------------- Er Galvão Abbott - PM Porto Alegre wrote:Elementarmeu caro champs: Você cometeu um typo. Substitua a linha:

Ordenar por Data

por esta:

Ordenar por Data

Você colocou herf ao invés de href e colocou uma aspa dupla a mais. Não foi um erro de JavaScript, mas de HTML :-P Er Galvão Abbott ------------------------------------- Porto Alegre Perl Mongers http://portoalegre.pm.org/ -------------------------------------- pmpoa@galvao.eti.br -------------------------------------- Luis Campos de Carvalho wrote: Camaradas monges Desculpem mandar para as duas listas ao mesmo tempo, mas eu estou realmente desesperado. Preciso de um truque de Javascript utilizando forms e campos hidden, mas não estou conseguindo juntar as peças de acordo... Simplificando meu fonte, tenho

Ordenar por Data

O que acontece é que não consigo pegar o parâmetro "order" de volta, e não sei explicar o que estou fazendo de errado. Alguém pode por favor me indicar o caminho correto? -- Luis Campos de Carvalho Computer Science Student Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discadoragora! http://br.acesso.yahoo.com/ _______________________________________________ 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 -- Luis Campos de Carvalho Computer Science Student Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -------------- Próxima Parte ---------- Um anexo não texto foi limpo... Nome : main.tmpl Tipo : application/octet-stream Tam : 3304 bytes Descr.: 2676370637-main.tmpl Url : http://mail.pm.org/pipermail/cascavel-pm/attachments/20050427/69b48b49/main.obj From pmpoa em galvao.eti.br Wed Apr 27 09:35:44 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Wed Apr 27 09:35:40 2005 Subject: [Cascavel-pm] Re: [OT]: Javascript complicado... In-Reply-To: <20050427162532.99693.qmail@web60007.mail.yahoo.com> References: <20050427162532.99693.qmail@web60007.mail.yahoo.com> Message-ID: <426FBF60.4030501@galvao.eti.br> É verdade, tinha esquecido disso. Isso deve resolver o teu problema:

Ordenar por Data

Abraços, Er Galvão Abbott ------------------------------------- Porto Alegre Perl Mongers http://portoalegre.pm.org/ -------------------------------------- pmpoa@galvao.eti.br -------------------------------------- Luis Campos de Carvalho wrote: > Na verdade, o meu fonte é um TT2... segue anexo. > Eu acho que consegui descobrir o que está errado: eu >estava usando "href" (link) para obter feedback visual >"click-able", e isso estava fazendo com que a minha >página fosse chamada (Isto é uma referência >para a própria página) ao invés de meu form >submetido. Como o form e a página apontam para o mesmo >lugar, o besta do programador aqui estava sofrendo... > >--- Er Galvão Abbott - PM Porto Alegre > wrote: >--------------------------------- > Oops, falando em typo... hehehe > >Esqueça a aspa a mais estava correto. Era >só o href que estava digitadoerrado. > >A linha correta, portanto fica assim: > >

onclick="document.daForm.order.value='date'; >document.daForm.submit();">Ordenar por Data

> >Er Galvão >Abbott-------------------------------------Porto >Alegre Perl >Mongershttp://portoalegre.pm.org/--------------------------------------pmpoa@galvao.eti.br-------------------------------------- > > >Er Galvão Abbott - PM Porto Alegre >wrote:Elementarmeu caro champs: > >Você cometeu um typo. Substitua a linha: > >

onclick="document.daForm.order.value='date'; >document.daForm.submit();">Ordenar por Data

> >por esta: > >

document.daForm.submit();">Ordenar por Data

> >Você colocou herf ao invés de href e >colocou uma aspa dupla a mais. > >Não foi um erro de JavaScript, mas de HTML :-P > > >Er Galvão Abbott >------------------------------------- >Porto Alegre Perl Mongers >http://portoalegre.pm.org/ >-------------------------------------- >pmpoa@galvao.eti.br >-------------------------------------- > > > >Luis Campos de Carvalho wrote: > > Camaradas monges > >Desculpem mandar para as duas listas ao mesmo tempo, > >mas eu estou realmente desesperado. > >Preciso de um truque de Javascript utilizando forms e > >campos hidden, mas não estou conseguindo juntar >as >peças de acordo... > >Simplificando meu fonte, tenho > > > >
action="http://localhost/cgi/action"> > >

onclick="document.daForm.order.value='date'; >document.daForm.submit();">Ordenar por Data

> >
> > > >O que acontece é que não consigo pegar o >parâmetro >"order" de volta, e não sei explicar o que >estou >fazendo de errado. Alguém pode por favor me >indicar o >caminho correto? > >-- >Luis Campos de Carvalho >Computer Science Student >Unix SysAdmin & OCP/DBA Oracle >http://br.geocities.com/monsieur_champs/ > > > > > >Yahoo! Acesso Grátis - Internet rápida e >grátis. Instale o discadoragora! >http://br.acesso.yahoo.com/ >_______________________________________________ >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 >> >> > >-- >Luis Campos de Carvalho >Computer Science Student >Unix SysAdmin & OCP/DBA Oracle >http://br.geocities.com/monsieur_champs/ > > > > > >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 > From rodzadra em yahoo.com Wed Apr 27 09:36:05 2005 From: rodzadra em yahoo.com (Rod Za) Date: Wed Apr 27 09:36:18 2005 Subject: [Cascavel-pm] [OT]: Javascript complicado... In-Reply-To: 6667 Message-ID: <20050427163606.67512.qmail@web50203.mail.yahoo.com> Só mais um comentário, de acordo com o w3c (http://www.w3.org/TR/html4/index/attributes.html) o href tem q ter um valor, portanto vc deve ou colocar:

Ordenar por Data

ou:

Ordenar por Data

Rodrigo Zadra Armond. --- Er Galvão Abbott - PM Porto Alegre wrote: --------------------------------- Oops, falando em typo... hehehe Esqueça a aspa a mais estava correto. Era só o href que estava digitadoerrado. A linha correta, portanto fica assim:

Ordenar por Data

Er Galvão Abbott-------------------------------------Porto Alegre Perl Mongershttp://portoalegre.pm.org/--------------------------------------pmpoa@galvao.eti.br-------------------------------------- Er Galvão Abbott - PM Porto Alegre wrote:Elementarmeu caro champs: Você cometeu um typo. Substitua a linha:

Ordenar por Data

por esta:

Ordenar por Data

Você colocou herf ao invés de href e colocou uma aspa dupla a mais. Não foi um erro de JavaScript, mas de HTML :-P Er Galvão Abbott ------------------------------------- Porto Alegre Perl Mongers http://portoalegre.pm.org/ -------------------------------------- pmpoa@galvao.eti.br -------------------------------------- Luis Campos de Carvalho wrote: Camaradas monges Desculpem mandar para as duas listas ao mesmo tempo, mas eu estou realmente desesperado. Preciso de um truque de Javascript utilizando forms e campos hidden, mas não estou conseguindo juntar as peças de acordo... Simplificando meu fonte, tenho

Ordenar por Data

O que acontece é que não consigo pegar o parâmetro "order" de volta, e não sei explicar o que estou fazendo de errado. Alguém pode por favor me indicar o caminho correto? -- Luis Campos de Carvalho Computer Science Student Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discadoragora! http://br.acesso.yahoo.com/ _______________________________________________ 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 __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com From glasswalk3r em yahoo.com.br Wed Apr 27 11:24:48 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Wed Apr 27 11:25:02 2005 Subject: [Cascavel-pm] [OT] oportunidade - desenvolvedor web - campinas Message-ID: <20050427182448.66510.qmail@web31514.mail.mud.yahoo.com> Olá monges, Recebi isso de uma outra lista de discussão sobre Perl cuja a qual eu participo. []'s Alceu --- Omar Alves Ferreira wrote: > Para: perlbr , mundoperl > > De: Omar Alves Ferreira > Data: Wed, 27 Apr 2005 15:12:45 -0300 > Assunto: [mundoperl] oportunidade - desenvolvedor > web - campinas > > Boa tarde, > > ofereço oportunidade de trabalho para desenvolvedor > web na região de > Campinas. Para maiores informações por favor entre > em contato através do > meu e-mail omar@escritoriodigital.net > > Obrigado > > -- > Omar Alves Ferreira - omar@escritoriodigital.net > Escritorio Digital - > http://www.escritoriodigital.net > 55 19 3251-4353 > 55 19 3032-8564 > 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 pmpoa em galvao.eti.br Thu Apr 28 09:00:46 2005 From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?Er_Galv=E3o_Abbott_-_PM_Porto_Alegre?=) Date: Thu Apr 28 09:01:08 2005 Subject: [Cascavel-pm] Material para cursos Message-ID: <427108AE.4020107@galvao.eti.br> Bom dia, pessoal. Estou em vias de aceitar um convite para ministrar um mini-curso básico de Perl (6h) e gostaria de saber se alguém poderia me ceder material para mim me basear, já que não estou muito acostumado à ministrar cursos. Já dei uma olhada no material que o Nelson enviou para o Marco (muito legal, é mais ou menos isso que eu preciso), mas gostaria de ver mais coisas. Notem que não vou copiar o conteúdo de nenhum dos materiais, apenas quero uma base de método e estruturação. Obrigado, -- Er Galvão Abbott ------------------------------------- Porto Alegre Perl Mongers http://portoalegre.pm.org/ -------------------------------------- pmpoa@galvao.eti.br -------------------------------------- From marco.lima em e-via.com.br Thu Apr 28 11:02:42 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Thu Apr 28 11:03:03 2005 Subject: [Cascavel-pm] Material para cursos Message-ID: Galvão: Estarei ministrando um mini-curso em BH no LinuxChix este final de semana e estarei disponibilizando o material no site http://rio.pm.org/palestras ... todo o material é livre e vc pode utilizar ou até alterar o conteúdo ... eu coloquei a apresentação do Nelson que eu usei numa palestra na UNICAMP na semana passada. Ela esta sendo a base do mini-curso que estou preparando ... com ++coteúdo. Me parece que o Nelson também têm um mini-curso ... [ ]'ção > Bom dia, pessoal. > > Estou em vias de aceitar um convite para ministrar um mini-curso básico > de Perl (6h) e gostaria de saber se alguém poderia me ceder material > para mim me basear, já que não estou muito acostumado à ministrar cursos. > > Já dei uma olhada no material que o Nelson enviou para o Marco (muito > legal, é mais ou menos isso que eu preciso), mas gostaria de ver mais > coisas. > > Notem que não vou copiar o conteúdo de nenhum dos materiais, apenas > quero uma base de método e estruturação. > > Obrigado, > > -- > > Er Galvão Abbott > ------------------------------------- > Porto Alegre Perl Mongers > http://portoalegre.pm.org/ > -------------------------------------- > pmpoa@galvao.eti.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 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 Thu Apr 28 16:05:58 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Thu Apr 28 16:06:25 2005 Subject: [Cascavel-pm] [YAPC::Brasil::2005] Brasil Message-ID: Salve Monges ! As camisas vão chegar uma semana antes do evento, estarei enviando para os líderes as reservadas ... no evento as camisas serão mais caras ... mas os membros que realizarem a reserva antecipada podem pegar comigo durante o evento ... é importante fazer a reserva pq não sei se teremos camisas depois do evento. Já temos o CD do Brasil.PM ... só que estamos com problemas de logística .. por isso quem quiser ser voluntário em gravar algumas mídias para serem distribuídas durante o evento ... favor entrar em contato comigo ou com o Fabiano. [ ]'ção > --- Solli Moreira Honorio escreveu: > > Vou estar lá !!! Não por muito tempo, mas estarei lá. > > > > Falando nisto, como é que podemos comprar a camisa do YAPC ? > > > > Eu estou esperando para saber da logística, que não deve estar assim tão complicada... > Mas você pode deixar seu (nome+$15) e pegar a camiseta depois... :-) fale comigo durante o > encontro. > > Te vejo no O'Malley's! > Putamplexos! > > -- > Luis Campos de Carvalho > Member of "São Paulo Perl Mongers", > Unix SysAdmin & OCP/DBA Oracle > http://br.geocities.com/monsieur_champs/ > > __________________________________________________ > Converse com seus amigos em tempo real com o Yahoo! Messenger > http://br.download.yahoo.com/messenger/ > _______________________________________________ > SaoPaulo-pm mailing list > SaoPaulo-pm@pm.org > http://mail.pm.org/mailman/listinfo/saopaulo-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 donatoaz em gmail.com Thu Apr 28 19:22:32 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Thu Apr 28 19:22:42 2005 Subject: [Cascavel-pm] Algoritmos e Estruturas de dados em perl Message-ID: <1746e3e3050428192267e9447e@mail.gmail.com> Olá, provavelmente alguns de voces ja fizeram na faculdade um curso de algoritmos e tal... eu gostaria de saber se alguem conhece alguma fonte (livro, online resource, papiro ou pintura rupestre, sei lá..) de perl aplicado a AEDS (algoritmos e estruturas de dados) tipo, listas encadeadas, filas, arvores binárias. Eu sei que é simples de implementar mas eu queria uma referencia. ps: Desculpem me os subscribers das duas listas (e as pessoas que nao gostam de ler portugues misturado com ingles... eu costumo fazer isto bem frequentemente..). []! -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" From monsieur_champs em yahoo.com.br Fri Apr 29 05:49:34 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Fri Apr 29 05:49:44 2005 Subject: [Cascavel-pm] Algoritmos e Estruturas de dados em perl In-Reply-To: 6667 Message-ID: <20050429124934.6966.qmail@web60003.mail.yahoo.com> --- Donato Azevedo escreveu: > Olá, > provavelmente alguns de voces ja fizeram na faculdade um curso de > algoritmos e tal... eu gostaria de saber se alguem conhece alguma > fonte (livro, online resource, papiro ou pintura rupestre, sei lá..) > de perl aplicado a AEDS (algoritmos e estruturas de dados) tipo, > listas encadeadas, filas, arvores binárias. > Eu sei que é simples de implementar mas eu queria uma referencia. Donato, a melhor referência nesta área é um livro baratinho do Niklaus Wirth, chamado "Algorithms+Data=Program". Tem também o fantástico livro do Donald Knuth, que simplesmente esgota o assunto, um dos volumes da coleção "The Art of Computer Programming". Particularmente, eu acho muito complicado usar Perl para falar sobre estruturas de dados. A maior parte delas está implementada como operadores internos da linguagem: qw( pop push shift unshift ) são exemplos simples de implementação de pilhas e filas usando nosso querido array. Fora isso, usar uma linguagem fortemente tipada no começo da carreira ajuda muito o pessoal iniciante a entender como as coisas funcionam dentro do computador. Eu acho muito importante começar programando Pascal ou C, por exemplo... Putamplexos! -- Luis Campos de Carvalho Member of "São Paulo Perl Mongers", Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ From nferraz em gnubis.com.br Fri Apr 29 06:07:46 2005 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Fri Apr 29 06:07:57 2005 Subject: [Cascavel-pm] Algoritmos e Estruturas de dados em perl In-Reply-To: <1746e3e3050428192267e9447e@mail.gmail.com> References: <1746e3e3050428192267e9447e@mail.gmail.com> Message-ID: <20050429130746.12961.qmail@hm101.locaweb.com.br> > perl aplicado a AEDS (algoritmos e estruturas de dados) tipo, > listas encadeadas, filas, arvores binárias. > Eu sei que é simples de implementar mas eu queria uma referencia. Donato, Você pode usar @arrays como se fossem filas, com os comandos shift, unshift, push, e pop. Quanto às árvores binárias e listas encadeadas, dê uma olhada nos seguintes links: http://www.unix.org.ua/orelly/perl/cookbook/ch11_16.htm http://mia.ece.uic.edu/~papers/perl/dhyatt/ex8.html []s Nelson From acid06 em gmail.com Fri Apr 29 09:38:59 2005 From: acid06 em gmail.com (Nilson Santos) Date: Fri Apr 29 09:39:09 2005 Subject: [Cascavel-pm] Algoritmos e Estruturas de dados em perl In-Reply-To: <1746e3e3050428192267e9447e@mail.gmail.com> References: <1746e3e3050428192267e9447e@mail.gmail.com> Message-ID: <9a08c9b405042909386673bb5b@mail.gmail.com> Donato, O livro "Mastering Algorithms with Perl" é exatamente isso: AEDS em Perl. Com adaptações, claro, porque certos problemas nem fazem sentido em Perl. Eu tenho ele em PDF, qualquer coisa, te mando. -Nilson Santos F. Jr. On 4/28/05, Donato Azevedo wrote: > Olá, > provavelmente alguns de voces ja fizeram na faculdade um curso de > algoritmos e tal... eu gostaria de saber se alguem conhece alguma > fonte (livro, online resource, papiro ou pintura rupestre, sei lá..) > de perl aplicado a AEDS (algoritmos e estruturas de dados) tipo, > listas encadeadas, filas, arvores binárias. > Eu sei que é simples de implementar mas eu queria uma referencia. From monsieur_champs em yahoo.com.br Fri Apr 29 09:42:37 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Fri Apr 29 09:42:47 2005 Subject: [Cascavel-pm] Re: Algoritmos e Estruturas de dados em perl In-Reply-To: 6667 Message-ID: <20050429164238.3987.qmail@web60007.mail.yahoo.com> --- Nilson Santos escreveu: > O livro "Mastering Algorithms with Perl" é exatamente isso: AEDS em Perl. > Com adaptações, claro, porque certos problemas nem fazem sentido em Perl. > > Eu tenho ele em PDF, qualquer coisa, te mando. Se a oferta vale para outros membros da lista, eu estou nessa. Me manda uma cópia, isso pode ter alguma coisa interessante... Obrigado pelo feedback interessante. Eu nunca havia me preocupado em formalizar algorítmos em Perl... Putamplexos! -- Luis Campos de Carvalho Member of "São Paulo Perl Mongers", Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ From _narf em aeiou.pt Fri Apr 29 11:02:42 2005 From: _narf em aeiou.pt (_narf@aeiou.pt) Date: Fri Apr 29 11:02:54 2005 Subject: [Cascavel-pm] Para postar a esta lista Message-ID: <200504291802.j3TI2gE27094@ramses.aeiou.pt> hello pra todos os que se encontram ligados a este sitio de discução, e deste modo creio que me sinto preparado pra discutir o melhor assunto...isto é ..... tudo o que voçês discutem ou melhor " gajas e mais gajas porque gajas é que se discute quand nada á pra fazer . grato pela vossa atenção,,nelson o _narf:) _________________________________________________________ CEAC Cursos de formação profissional - peça informações aqui.: http://ceac.online.pt/ From monsieur_champs em yahoo.com.br Fri Apr 29 11:56:52 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Fri Apr 29 11:57:04 2005 Subject: [Cascavel-pm] Para postar a esta lista In-Reply-To: <200504291802.j3TI2gE27094@ramses.aeiou.pt> Message-ID: <20050429185652.55288.qmail@web60004.mail.yahoo.com> --- _narf@aeiou.pt escreveu: > hello pra todos os que se encontram ligados a este sitio de > discução, e deste modo creio que me sinto preparado pra discutir o > melhor assunto...isto é ..... tudo o que voçês discutem ou melhor " > gajas e mais gajas porque gajas é que se discute quand nada á pra > fazer . > grato pela vossa atenção,,nelson o _narf:) Alguém poderia por favor me dizer se isso é um spam ou uma mensagem de algum membro válido da lista? -- Luis Campos de Carvalho Member of "São Paulo Perl Mongers", Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ From donatoaz em gmail.com Fri Apr 29 12:07:31 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Fri Apr 29 12:07:39 2005 Subject: [Cascavel-pm] Win32::Daemon Message-ID: <1746e3e305042912071215dc6e@mail.gmail.com> Pessoal, eu criei um serviço para verificar umas paginas em servidores de alguns clientes porém não estou conseguindo com que o lwp busque as paginas. Alias, quando eu rodo o script sem ser um serviço ele funciona mas quando eu rodo como serviço ele não funciona... alguem tem alguma ideia de como resolver isto? -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" From donatoaz em gmail.com Fri Apr 29 12:08:49 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Fri Apr 29 12:09:00 2005 Subject: [Cascavel-pm] Para postar a esta lista In-Reply-To: <20050429185652.55288.qmail@web60004.mail.yahoo.com> References: <200504291802.j3TI2gE27094@ramses.aeiou.pt> <20050429185652.55288.qmail@web60004.mail.yahoo.com> Message-ID: <1746e3e3050429120879b1a616@mail.gmail.com> alguem tem um dicionario portugues pt - portugues br ???? On 4/29/05, Luis Campos de Carvalho wrote: > --- _narf@aeiou.pt escreveu: > > hello pra todos os que se encontram ligados a este sitio de > > discução, e deste modo creio que me sinto preparado pra discutir o > > melhor assunto...isto é ..... tudo o que voçês discutem ou melhor " > > gajas e mais gajas porque gajas é que se discute quand nada á pra > > fazer . > > grato pela vossa atenção,,nelson o _narf:) > > Alguém poderia por favor me dizer se isso é um spam ou uma mensagem de algum membro válido da > lista? > > -- > Luis Campos de Carvalho > Member of "São Paulo Perl Mongers", > Unix SysAdmin & OCP/DBA Oracle > http://br.geocities.com/monsieur_champs/ > > 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 > -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" From marco.lima em e-via.com.br Fri Apr 29 12:13:19 2005 From: marco.lima em e-via.com.br (Marco Lima) Date: Fri Apr 29 12:13:29 2005 Subject: [Cascavel-pm] Para postar a esta lista Message-ID: Me parece ser um dos membros de Portugal ... existe uma trabalho de relacionamento sendo feito com o pessoal de lá !!! > --- _narf@aeiou.pt escreveu: > > hello pra todos os que se encontram ligados a este sitio de > > discução, e deste modo creio que me sinto preparado pra discutir o > > melhor assunto...isto é ..... tudo o que voçês discutem ou melhor " > > gajas e mais gajas porque gajas é que se discute quand nada á pra > > fazer . > > grato pela vossa atenção,,nelson o _narf:) > > Alguém poderia por favor me dizer se isso é um spam ou uma mensagem de algum membro válido da > lista? > > > -- > Luis Campos de Carvalho > Member of "São Paulo Perl Mongers", > Unix SysAdmin & OCP/DBA Oracle > http://br.geocities.com/monsieur_champs/ > > > > > > 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 > > 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 Fri Apr 29 12:27:54 2005 From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.) Date: Fri Apr 29 12:28:08 2005 Subject: [Cascavel-pm] Para postar a esta lista In-Reply-To: 6667 Message-ID: <20050429192754.81921.qmail@web31504.mail.mud.yahoo.com> Então o sujeito surtou, ou alguém andou brincando com o email dele. Gajas = mulheres --- Marco Lima wrote: > Me parece ser um dos membros de Portugal ... existe > uma trabalho de > relacionamento sendo feito com o pessoal de lá !!! > > > --- _narf@aeiou.pt escreveu: > > > hello pra todos os que se encontram ligados a > este sitio de > > > discução, e deste modo creio que me sinto > preparado pra discutir o > > > melhor assunto...isto é ..... tudo o que voçês > discutem ou melhor " > > > gajas e mais gajas porque gajas é que se discute > quand nada á pra > > > fazer . > > > grato pela vossa atenção,,nelson o _narf:) > > > > Alguém poderia por favor me dizer se isso é um > spam ou uma mensagem > de algum membro válido da > > lista? > > > > > > -- > > Luis Campos de Carvalho > > Member of "São Paulo Perl Mongers", > > Unix SysAdmin & OCP/DBA Oracle > > http://br.geocities.com/monsieur_champs/ > > > > > > > > > > > > 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 > > > > > > 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 > > _______________________________________________ > 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 rafasz em ibestvip.com.br Fri Apr 29 12:47:30 2005 From: rafasz em ibestvip.com.br (Rafael Szarblewski) Date: Fri Apr 29 12:44:19 2005 Subject: [Cascavel-pm] [YAPC::Brasil::2005] Brasil - Rafael Szarblewski References: <20050429190900.46336177F0@x6.develooper.com> Message-ID: <00b501c54cf4$478d4920$24c8a8c0@sistemica> Eu também queria saber como faço para comprar a camiseta do YAPC, falei com o Marco ele disse para falar com o Nelson, mas até agora ele não respondeu meu e-mail. :-( Obrigado! Rafael Szarblewski Perl Developer ----- Original Message ----- From: To: Sent: Friday, April 29, 2005 4:09 PM Subject: Digest Cascavel-pm, volume 92, assunto 4 enviar inscrições da lista de discussão Send Cascavel-pm para cascavel-pm@pm.org Para se cadastrar ou descadastrar via WWW, visite o endereço http://mail.pm.org/mailman/listinfo/cascavel-pm ou, via email, envie uma mensagem com a palavra 'help' no assunto ou corpo da mensagem para cascavel-pm-request@pm.org Você poderá entrar em contato com a pessoa que gerencia a lista pelo endereço cascavel-pm-owner@pm.org Quando responder, por favor edite sua linha Assunto assim ela será mais específica que "Re: Contents of Cascavel-pm digest..." Tópicos de Hoje: 1. [YAPC::Brasil::2005] Brasil (Marco Lima) 2. Algoritmos e Estruturas de dados em perl (Donato Azevedo) 3. Re: Algoritmos e Estruturas de dados em perl (Luis Campos de Carvalho) 4. Re: Algoritmos e Estruturas de dados em perl (Nelson Ferraz) 5. Re: Algoritmos e Estruturas de dados em perl (Nilson Santos) 6. Re: Algoritmos e Estruturas de dados em perl (Luis Campos de Carvalho) 7. Para postar a esta lista (_narf@aeiou.pt) 8. Re: Para postar a esta lista (Luis Campos de Carvalho) 9. Win32::Daemon (Donato Azevedo) 10. Re: Para postar a esta lista (Donato Azevedo) ---------------------------------------------------------------------- Message: 1 Date: Thu, 28 Apr 2005 20:05:58 -0300 From: "Marco Lima" Subject: [Cascavel-pm] [YAPC::Brasil::2005] Brasil To: Luis Campos de Carvalho ,São Paulo Perl Mongers Cc: cascavel-pm@pm.org Message-ID: Content-Type: text/plain; charset=iso-8859-1 Salve Monges ! As camisas vão chegar uma semana antes do evento, estarei enviando para os líderes as reservadas ... no evento as camisas serão mais caras ... mas os membros que realizarem a reserva antecipada podem pegar comigo durante o evento ... é importante fazer a reserva pq não sei se teremos camisas depois do evento. Já temos o CD do Brasil.PM ... só que estamos com problemas de logística .. por isso quem quiser ser voluntário em gravar algumas mídias para serem distribuídas durante o evento ... favor entrar em contato comigo ou com o Fabiano. [ ]'ção > --- Solli Moreira Honorio escreveu: > > Vou estar lá !!! Não por muito tempo, mas estarei lá. > > > > Falando nisto, como é que podemos comprar a camisa do YAPC ? > > > > Eu estou esperando para saber da logística, que não deve estar assim tão complicada... > Mas você pode deixar seu (nome+$15) e pegar a camiseta depois... :-) fale comigo durante o > encontro. > > Te vejo no O'Malley's! > Putamplexos! > > -- > Luis Campos de Carvalho > Member of "São Paulo Perl Mongers", > Unix SysAdmin & OCP/DBA Oracle > http://br.geocities.com/monsieur_champs/ > > __________________________________________________ > Converse com seus amigos em tempo real com o Yahoo! Messenger > http://br.download.yahoo.com/messenger/ > _______________________________________________ > SaoPaulo-pm mailing list > SaoPaulo-pm@pm.org > http://mail.pm.org/mailman/listinfo/saopaulo-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 ------------------------------ Message: 2 Date: Thu, 28 Apr 2005 23:22:32 -0300 From: Donato Azevedo Subject: [Cascavel-pm] Algoritmos e Estruturas de dados em perl To: Cascavel Perl Mongers , perlbr@yahoogrupos.com.br Message-ID: <1746e3e3050428192267e9447e@mail.gmail.com> Content-Type: text/plain; charset=ISO-8859-1 Olá, provavelmente alguns de voces ja fizeram na faculdade um curso de algoritmos e tal... eu gostaria de saber se alguem conhece alguma fonte (livro, online resource, papiro ou pintura rupestre, sei lá..) de perl aplicado a AEDS (algoritmos e estruturas de dados) tipo, listas encadeadas, filas, arvores binárias. Eu sei que é simples de implementar mas eu queria uma referencia. ps: Desculpem me os subscribers das duas listas (e as pessoas que nao gostam de ler portugues misturado com ingles... eu costumo fazer isto bem frequentemente..). []! -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" ------------------------------ Message: 3 Date: Fri, 29 Apr 2005 09:49:34 -0300 (ART) From: Luis Campos de Carvalho Subject: Re: [Cascavel-pm] Algoritmos e Estruturas de dados em perl To: Donato Azevedo , Cascavel Perl Mongers Message-ID: <20050429124934.6966.qmail@web60003.mail.yahoo.com> Content-Type: text/plain; charset=iso-8859-1 --- Donato Azevedo escreveu: > Olá, > provavelmente alguns de voces ja fizeram na faculdade um curso de > algoritmos e tal... eu gostaria de saber se alguem conhece alguma > fonte (livro, online resource, papiro ou pintura rupestre, sei lá..) > de perl aplicado a AEDS (algoritmos e estruturas de dados) tipo, > listas encadeadas, filas, arvores binárias. > Eu sei que é simples de implementar mas eu queria uma referencia. Donato, a melhor referência nesta área é um livro baratinho do Niklaus Wirth, chamado "Algorithms+Data=Program". Tem também o fantástico livro do Donald Knuth, que simplesmente esgota o assunto, um dos volumes da coleção "The Art of Computer Programming". Particularmente, eu acho muito complicado usar Perl para falar sobre estruturas de dados. A maior parte delas está implementada como operadores internos da linguagem: qw( pop push shift unshift ) são exemplos simples de implementação de pilhas e filas usando nosso querido array. Fora isso, usar uma linguagem fortemente tipada no começo da carreira ajuda muito o pessoal iniciante a entender como as coisas funcionam dentro do computador. Eu acho muito importante começar programando Pascal ou C, por exemplo... Putamplexos! -- Luis Campos de Carvalho Member of "São Paulo Perl Mongers", Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ ------------------------------ Message: 4 Date: Fri, 29 Apr 2005 10:07:46 -0300 From: "Nelson Ferraz" Subject: Re: [Cascavel-pm] Algoritmos e Estruturas de dados em perl To: Donato Azevedo , Cascavel Perl Mongers Message-ID: <20050429130746.12961.qmail@hm101.locaweb.com.br> Content-Type: text/plain; charset=ISO-8859-1 > perl aplicado a AEDS (algoritmos e estruturas de dados) tipo, > listas encadeadas, filas, arvores binárias. > Eu sei que é simples de implementar mas eu queria uma referencia. Donato, Você pode usar @arrays como se fossem filas, com os comandos shift, unshift, push, e pop. Quanto às árvores binárias e listas encadeadas, dê uma olhada nos seguintes links: http://www.unix.org.ua/orelly/perl/cookbook/ch11_16.htm http://mia.ece.uic.edu/~papers/perl/dhyatt/ex8.html []s Nelson ------------------------------ Message: 5 Date: Fri, 29 Apr 2005 13:38:59 -0300 From: Nilson Santos Subject: Re: [Cascavel-pm] Algoritmos e Estruturas de dados em perl To: Donato Azevedo , Cascavel Perl Mongers Message-ID: <9a08c9b405042909386673bb5b@mail.gmail.com> Content-Type: text/plain; charset=ISO-8859-1 Donato, O livro "Mastering Algorithms with Perl" é exatamente isso: AEDS em Perl. Com adaptações, claro, porque certos problemas nem fazem sentido em Perl. Eu tenho ele em PDF, qualquer coisa, te mando. -Nilson Santos F. Jr. On 4/28/05, Donato Azevedo wrote: > Olá, > provavelmente alguns de voces ja fizeram na faculdade um curso de > algoritmos e tal... eu gostaria de saber se alguem conhece alguma > fonte (livro, online resource, papiro ou pintura rupestre, sei lá..) > de perl aplicado a AEDS (algoritmos e estruturas de dados) tipo, > listas encadeadas, filas, arvores binárias. > Eu sei que é simples de implementar mas eu queria uma referencia. ------------------------------ Message: 6 Date: Fri, 29 Apr 2005 13:42:37 -0300 (ART) From: Luis Campos de Carvalho Subject: [Cascavel-pm] Re: Algoritmos e Estruturas de dados em perl To: Nilson Santos , Cascavel Perl Mongers Message-ID: <20050429164238.3987.qmail@web60007.mail.yahoo.com> Content-Type: text/plain; charset=iso-8859-1 --- Nilson Santos escreveu: > O livro "Mastering Algorithms with Perl" é exatamente isso: AEDS em Perl. > Com adaptações, claro, porque certos problemas nem fazem sentido em Perl. > > Eu tenho ele em PDF, qualquer coisa, te mando. Se a oferta vale para outros membros da lista, eu estou nessa. Me manda uma cópia, isso pode ter alguma coisa interessante... Obrigado pelo feedback interessante. Eu nunca havia me preocupado em formalizar algorítmos em Perl... Putamplexos! -- Luis Campos de Carvalho Member of "São Paulo Perl Mongers", Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ ------------------------------ Message: 7 Date: Fri, 29 Apr 2005 19:02:42 +0100 From: _narf@aeiou.pt Subject: [Cascavel-pm] Para postar a esta lista To: cascavel-pm@pm.org Message-ID: <200504291802.j3TI2gE27094@ramses.aeiou.pt> Content-Type: text/plain hello pra todos os que se encontram ligados a este sitio de discução, e deste modo creio que me sinto preparado pra discutir o melhor assunto...isto é ..... tudo o que voçês discutem ou melhor " gajas e mais gajas porque gajas é que se discute quand nada á pra fazer . grato pela vossa atenção,,nelson o _narf:) _________________________________________________________ CEAC Cursos de formação profissional - peça informações aqui.: http://ceac.online.pt/ ------------------------------ Message: 8 Date: Fri, 29 Apr 2005 15:56:52 -0300 (ART) From: Luis Campos de Carvalho Subject: Re: [Cascavel-pm] Para postar a esta lista To: Cascavel Perl Mongers Message-ID: <20050429185652.55288.qmail@web60004.mail.yahoo.com> Content-Type: text/plain; charset=iso-8859-1 --- _narf@aeiou.pt escreveu: > hello pra todos os que se encontram ligados a este sitio de > discução, e deste modo creio que me sinto preparado pra discutir o > melhor assunto...isto é ..... tudo o que voçês discutem ou melhor " > gajas e mais gajas porque gajas é que se discute quand nada á pra > fazer . > grato pela vossa atenção,,nelson o _narf:) Alguém poderia por favor me dizer se isso é um spam ou uma mensagem de algum membro válido da lista? -- Luis Campos de Carvalho Member of "São Paulo Perl Mongers", Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ ------------------------------ Message: 9 Date: Fri, 29 Apr 2005 16:07:31 -0300 From: Donato Azevedo Subject: [Cascavel-pm] Win32::Daemon To: Cascavel Perl Mongers Message-ID: <1746e3e305042912071215dc6e@mail.gmail.com> Content-Type: text/plain; charset=ISO-8859-1 Pessoal, eu criei um serviço para verificar umas paginas em servidores de alguns clientes porém não estou conseguindo com que o lwp busque as paginas. Alias, quando eu rodo o script sem ser um serviço ele funciona mas quando eu rodo como serviço ele não funciona... alguem tem alguma ideia de como resolver isto? -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" ------------------------------ Message: 10 Date: Fri, 29 Apr 2005 16:08:49 -0300 From: Donato Azevedo Subject: Re: [Cascavel-pm] Para postar a esta lista To: Cascavel Perl Mongers Message-ID: <1746e3e3050429120879b1a616@mail.gmail.com> Content-Type: text/plain; charset=ISO-8859-1 alguem tem um dicionario portugues pt - portugues br ???? On 4/29/05, Luis Campos de Carvalho wrote: > --- _narf@aeiou.pt escreveu: > > hello pra todos os que se encontram ligados a este sitio de > > discução, e deste modo creio que me sinto preparado pra discutir o > > melhor assunto...isto é ..... tudo o que voçês discutem ou melhor " > > gajas e mais gajas porque gajas é que se discute quand nada á pra > > fazer . > > grato pela vossa atenção,,nelson o _narf:) > > Alguém poderia por favor me dizer se isso é um spam ou uma mensagem de algum membro válido da > lista? > > -- > Luis Campos de Carvalho > Member of "São Paulo Perl Mongers", > Unix SysAdmin & OCP/DBA Oracle > http://br.geocities.com/monsieur_champs/ > > 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 > -- ******************************************* Donato Azevedo Engenharia de Controle e Automação UFMG ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" ------------------------------ _______________________________________________ Cascavel-pm mailing list Cascavel-pm@pm.org http://mail.pm.org/mailman/listinfo/cascavel-pm Fim da Digest Cascavel-pm, volume 92, assunto 4 *********************************************** From shonorio em terra.com.br Fri Apr 29 12:54:15 2005 From: shonorio em terra.com.br (Solli Moreira Honorio) Date: Fri Apr 29 12:54:26 2005 Subject: [Cascavel-pm] Win32::Daemon Message-ID: Donato, Você pode enviar o script para eu analisar ? Solli De:cascavel-pm-bounces@pm.org Para:"Cascavel Perl Mongers" cascavel-pm@pm.org Cópia: Data:Fri, 29 Apr 2005 16:07:31 -0300 Assunto:[Cascavel-pm] Win32::Daemon > Pessoal, eu criei um serviço para verificar umas paginas em servidores > de alguns clientes porém não estou conseguindo com que o lwp busque as > paginas. Alias, quando eu rodo o script sem ser um serviço ele > funciona mas quando eu rodo como serviço ele não funciona... > > alguem tem alguma ideia de como resolver isto? > > -- > ******************************************* > Donato Azevedo > Engenharia de Controle e Automação > UFMG > ******************************************* > We will encourage you to develop the three great virtues > of a programmer: laziness, impatience, and hubris. > "Larry Wall - Programming perl" > _______________________________________________ > 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/20050429/9eac79a4/attachment-0001.htm From monsieur_champs em yahoo.com.br Fri Apr 29 13:28:35 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Fri Apr 29 13:28:48 2005 Subject: [Cascavel-pm] Para postar a esta lista In-Reply-To: 6667 Message-ID: <20050429202835.64555.qmail@web60007.mail.yahoo.com> --- Marco Lima escreveu: > Me parece ser um dos membros de Portugal ... existe uma trabalho de > relacionamento sendo feito com o pessoal de lá !!! Você precisa setar um RSS Feed em algum lugar para a gente ficar sabendo de tudo o que você está aprontando, meu caro... és o nosso monge mais querido, mais ativo, mais lutador, mais evangelizador, mais viajante, mais comerciante, mais impressionante... :-) não gostaria de tratar mal de ti ou dos teus, mas preciso saber o que acontece... Preocupado com a quantidade de atividades em que estás metido, treinando para falaire como os gajos, e tentando descobrir como você consegue fazer tanta coisa e ainda por cima trabalhar... ;-) Putamplexos! -- Luis Campos de Carvalho Member of "São Paulo Perl Mongers", Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ __________________________________________________ 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 Apr 29 14:26:09 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Fri Apr 29 14:26:20 2005 Subject: [Cascavel-pm] Para postar a esta lista In-Reply-To: 6667 Message-ID: <20050429212609.94976.qmail@web60004.mail.yahoo.com> --- Donato Azevedo escreveu: > alguem tem um dicionario portugues pt - portugues br ???? No seu lugar, eu não me preocuparia. Este sujeito está apenas interessado nas menininhas do Brasil... ;-) Coitado... se ele soubesse onde se meteu... > On 4/29/05, Luis Campos de Carvalho wrote: > > --- _narf@aeiou.pt escreveu: > > > hello pra todos os que se encontram ligados a este sitio de > > > discução, e deste modo creio que me sinto preparado pra discutir o > > > melhor assunto...isto é ..... tudo o que voçês discutem ou melhor " > > > gajas e mais gajas porque gajas é que se discute quand nada á pra > > > fazer . > > > grato pela vossa atenção,,nelson o _narf:) > > > > Alguém poderia por favor me dizer se isso é um spam ou uma mensagem de algum membro válido da > > lista? > > > > -- > > Luis Campos de Carvalho > > Member of "São Paulo Perl Mongers", > > Unix SysAdmin & OCP/DBA Oracle > > http://br.geocities.com/monsieur_champs/ > > > > 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 > > > > > -- > ******************************************* > Donato Azevedo > Engenharia de Controle e Automação > UFMG > ******************************************* > We will encourage you to develop the three great virtues > of a programmer: laziness, impatience, and hubris. > "Larry Wall - Programming perl" > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > -- Luis Campos de Carvalho Member of "São Paulo Perl Mongers", Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ __________________________________________________ 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 Apr 29 14:28:49 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Fri Apr 29 14:28:59 2005 Subject: [Cascavel-pm] [YAPC::Brasil::2005] Brasil - Rafael Szarblewski In-Reply-To: <00b501c54cf4$478d4920$24c8a8c0@sistemica> Message-ID: <20050429212849.45416.qmail@web60001.mail.yahoo.com> --- Rafael Szarblewski escreveu: > Eu também queria saber como faço para comprar a camiseta do YAPC, falei com > o Marco ele disse para falar com o Nelson, mas até agora ele não respondeu > meu e-mail. :-( Se você estiver em sampa, está simples. Aparece para o encontro social, amanhã, no O'malley's [http://www.gomalleys.com] e fala comigo, que eu anoto teu nome, recolho a grana e mando entregar a camiseta onde você pedir (aqui em sampa, pega comigo ou no RS, pega com o Marco 'Mago' Lima). Se você não estiver em sampa, talvez a coisa fique um pouco mais complicada... Putamplexos! -- Luis Campos de Carvalho Member of "São Paulo Perl Mongers", Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ From filipe.guelber em gmail.com Fri Apr 29 14:34:37 2005 From: filipe.guelber em gmail.com (Filipe Melo) Date: Fri Apr 29 14:34:46 2005 Subject: [Cascavel-pm] Win32::Daemon In-Reply-To: <1746e3e305042912071215dc6e@mail.gmail.com> References: <1746e3e305042912071215dc6e@mail.gmail.com> Message-ID: <36cce992050429143418e53ef3@mail.gmail.com> Tenta dar uma olhada nas permissoes do usuario com o qual o script eh executado como servico. -- Filipe Em 29/04/05, Donato Azevedo escreveu: > Pessoal, eu criei um serviço para verificar umas paginas em servidores > de alguns clientes porém não estou conseguindo com que o lwp busque as > paginas. Alias, quando eu rodo o script sem ser um serviço ele > funciona mas quando eu rodo como serviço ele não funciona... > > alguem tem alguma ideia de como resolver isto? > > -- > ******************************************* > Donato Azevedo > Engenharia de Controle e Automação > UFMG > ******************************************* > We will encourage you to develop the three great virtues > of a programmer: laziness, impatience, and hubris. > "Larry Wall - Programming perl" > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@pm.org > http://mail.pm.org/mailman/listinfo/cascavel-pm > From donatoaz em gmail.com Fri Apr 29 15:05:06 2005 From: donatoaz em gmail.com (Donato Azevedo) Date: Fri Apr 29 15:05:19 2005 Subject: [Cascavel-pm] Win32::Daemon In-Reply-To: <36cce992050429143418e53ef3@mail.gmail.com> References: <1746e3e305042912071215dc6e@mail.gmail.com> <36cce992050429143418e53ef3@mail.gmail.com> Message-ID: <1746e3e3050429150513227adc@mail.gmail.com> Eu consegui resolver: Problema bobo: eu colocava o usuario mas nao o domínio :/ agora está funcionando legal... how can it feel so nice when it works? On 4/29/05, Filipe Melo wrote: > Tenta dar uma olhada nas permissoes do usuario com o qual o script eh > executado como servico. > -- > Filipe > > Em 29/04/05, Donato Azevedo escreveu: > > Pessoal, eu criei um serviço para verificar umas paginas em servidores > > de alguns clientes porém não estou conseguindo com que o lwp busque as > > paginas. Alias, quando eu rodo o script sem ser um serviço ele > > funciona mas quando eu rodo como serviço ele não funciona... > > > > alguem tem alguma ideia de como resolver isto? > > > > -- > > ******************************************* > > Donato Azevedo > > Engenharia de Controle e Automação > > UFMG > > ******************************************* > > We will encourage you to develop the three great virtues > > of a programmer: laziness, impatience, and hubris. > > "Larry Wall - Programming perl" > > _______________________________________________ > > 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 ******************************************* We will encourage you to develop the three great virtues of a programmer: laziness, impatience, and hubris. "Larry Wall - Programming perl" From edsond2 em cresce.net Sat Apr 30 01:02:02 2005 From: edsond2 em cresce.net (Edsond2) Date: Sat Apr 30 04:02:16 2005 Subject: [Cascavel-pm] ganhe dinheiro Message-ID: <20050430110146.2F39115CE09@smtp1.myway.com.br> Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20050430/6ebdae52/attachment.htm From monsieur_champs em yahoo.com.br Sat Apr 30 07:52:05 2005 From: monsieur_champs em yahoo.com.br (Luis Campos de Carvalho) Date: Sat Apr 30 07:52:16 2005 Subject: [Cascavel-pm] ganhe dinheiro In-Reply-To: <20050430110146.2F39115CE09@smtp1.myway.com.br> Message-ID: <20050430145205.4105.qmail@web60005.mail.yahoo.com> Eu desconfio que isso não deveria passar pela lista. Alguém pode por favor desisncrever este "penetra"? --- Edsond2 escreveu: edsond2, Assinei o CresceNet, um provedor de acesso [snip] -- Luis Campos de Carvalho Member of "São Paulo Perl Mongers", Unix SysAdmin & OCP/DBA Oracle http://br.geocities.com/monsieur_champs/ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/