From ocxy em bsd.sh Wed Jan 1 15:12:02 2003 From: ocxy em bsd.sh (ocxy) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] Material Perl e Feliz 2003 Message-ID: <20030101211202.7C0A142DA@sitemail.everyone.net> Ola pessoal.. bom um dos novos membros da lista, o nosso amigo Ednardo dos Santos Lobo, tem um otimo material em sua pagina pessoal, como um tutorial perl escrito por ele e algumas lib's de sua autoria... eh mais um grande contribuinte da cascavel.pm.org. E aproveitando gostaria de deseja um feliz 2003 a todos os amigos e colaboradores, desejo que este ano seja carregado de bons frutos. ocxy ICQ:1282982 Home:www.ocxy.com _____________________________________________________________ Sign up for FREE email@bsd.sh from bsdpunk at http://www.bsdpunk.com _____________________________________________________________ Select your own custom email address for FREE! Get you@yourchoice.com w/No Ads, 6MB, POP & more! http://www.everyone.net/selectmail?campaign=tag From ednardo em elobo.cjb.net Wed Jan 1 17:43:01 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] Material Perl e Feliz 2003 In-Reply-To: <20030101211202.7C0A142DA@sitemail.everyone.net> References: <20030101211202.7C0A142DA@sitemail.everyone.net> Message-ID: <20030101234301.GB23152@pinguim.elobo.cjb.net> On Wed, Jan 01, 2003 at 01:12:02PM -0800, ocxy wrote: > Ola pessoal.. > > bom um dos novos membros da lista, o nosso amigo Ednardo dos Santos > Lobo, tem um otimo material em sua pagina pessoal, como um tutorial > perl escrito por ele e algumas lib's de sua autoria... eh mais um > grande contribuinte da cascavel.pm.org. > Pessoal as libs estão em desenvolvimento e qualquer sugestão será bem-vinda. Um dia espero publicá-las no CPAN e se alguém já tiver publicado alguma coisa lá, gostaria de saber como procedeu. > E aproveitando gostaria de deseja um feliz 2003 a todos os amigos e > colaboradores, desejo que este ano seja carregado de bons frutos. > Idem e obrigado! > ocxy > ICQ:1282982 > Home:www.ocxy.com É meio off-topic, mas importante: Existe uma petição "Uso de Software Livre no Governo" colentando assinaturas a serem encaminhadas ao agora empossado presidente Lula. Quem puder colaborar assinando-a, acesse http://www.petitiononline.com/mod_perl/signed.cgi?gnu2003. Quanto mais assinaturas coletadas, melhor. Obrigado a todos!! -- Ednardo Lobo - www.elobo.cjb.net -- Bachelors' wives and old maids' children are always perfect. -- Nicolas Chamfort From ocxy em host.sk Thu Jan 2 07:45:37 2003 From: ocxy em host.sk (ocxy) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] GtkPerl Message-ID: <20030102134537.M8008@host.sk> Ola amigos Espero que a passagem de 2k2 para 2k3 tenha sido boa, nao como a minha que passei solito no meu ap hihihihi... Mas aproveitei pra dar uma olhada no GtkPerl, e gostei muito do que vi, instalei o pacote Gtk-Perl-0.7008, que ja vem com algumas libs (tem algumas que estao com problema mas acho que nao vou usar agora, entao nem fui ver direito oque eh), ja rodei alguns coders, e gostei acho que tem muito potencial, pra quem ja mecheu com Java vai achar "algumas iguarias", bom segue alguns links. Home Oficial - http://www.gtkperl.org Tutorial - http://personal.riverusers.com/~swilhelm/gtkperl-tutorial ocxy www.ocxy.com icq: 1282982 ocxy@ocxy.com - ocxy@host.sk From ednardo em elobo.cjb.net Thu Jan 2 16:22:31 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] GtkPerl In-Reply-To: <20030102134537.M8008@host.sk> References: <20030102134537.M8008@host.sk> Message-ID: <20030102222231.GI23152@pinguim.elobo.cjb.net> On Thu, Jan 02, 2003 at 03:45:37PM +0200, ocxy wrote: > Ola amigos > > Espero que a passagem de 2k2 para 2k3 tenha sido boa, nao como a minha > que passei solito no meu ap hihihihi... > A minha passagem não foi muito diverente!! :-) > Mas aproveitei pra dar uma olhada no GtkPerl, e gostei muito do que vi, > instalei o pacote Gtk-Perl-0.7008, que ja vem com algumas libs (tem algumas > que estao com problema mas acho que nao vou usar agora, entao nem fui ver > direito oque eh), ja rodei alguns coders, e gostei acho que tem muito > potencial, pra quem ja mecheu com Java vai achar "algumas iguarias", bom segue > alguns links. > > Home Oficial - http://www.gtkperl.org > Tutorial - http://personal.riverusers.com/~swilhelm/gtkperl-tutorial > Interessante! Será que existe algo semelhante para QT? Eu utilizo a Perl mais para manuteção de servidor e aplicações WEBs, para isso ela é praticamente imbatível. Ultimamente tenho dado alguma olhada na tecnologia XML, que segundo alguns, é o futuro da WEB. Alguém já utilizou ou conhece alguma ferramenta/aplicação que faça uso da Perl em conjunto com o XML. Fora RSS, ainda não vi nada útil, aplicando XML. -- Ednardo Lobo - www.elobo.cjb.net -- Time to be aggressive. Go after a tattooed Virgo. From ocxy em host.sk Fri Jan 3 05:25:25 2003 From: ocxy em host.sk (ocxy) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] GtkPerl In-Reply-To: <20030102222231.GI23152@pinguim.elobo.cjb.net> References: <20030102134537.M8008@host.sk> <20030102222231.GI23152@pinguim.elobo.cjb.net> Message-ID: <20030103112525.M8125@host.sk> On Thu, 2 Jan 2003 20:22:31 -0200, Ednardo Lobo wrote > On Thu, Jan 02, 2003 at 03:45:37PM +0200, ocxy wrote: > > Ola amigos > > > > Espero que a passagem de 2k2 para 2k3 tenha sido boa, nao como a minha > > que passei solito no meu ap hihihihi... > > > > A minha passagem não foi muito diverente!! :-) > > > Mas aproveitei pra dar uma olhada no GtkPerl, e gostei muito do que vi, > > instalei o pacote Gtk-Perl-0.7008, que ja vem com algumas libs (tem algumas > > que estao com problema mas acho que nao vou usar agora, entao nem fui ver > > direito oque eh), ja rodei alguns coders, e gostei acho que tem muito > > potencial, pra quem ja mecheu com Java vai achar "algumas iguarias", bom segue > > alguns links. > > > > Home Oficial - http://www.gtkperl.org > > Tutorial - http://personal.riverusers.com/~swilhelm/gtkperl-tutorial > > > > Interessante! Será que existe algo semelhante para QT? Ainda nao vi nada... > > > Eu utilizo a Perl mais para manuteção de servidor e aplicações > WEBs, para isso ela é praticamente imbatível. Ultimamente tenho > dado alguma olhada na tecnologia XML, que segundo alguns, é o futuro > da WEB. Pois esta eh uma das ideias, criar ferramentas visuais para configuracao de servidores web,firewall, etc... Estou pensando em implementar algo nesse sentido... > > Alguém já utilizou ou conhece alguma ferramenta/aplicação que faça > uso da Perl em conjunto com o XML. Fora RSS, ainda não vi nada > útil, aplicando XML. > > -- > Ednardo Lobo - www.elobo.cjb.net > > -- > Time to be aggressive. Go after a tattooed Virgo. > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm ocxy www.ocxy.com icq: 1282982 ocxy@ocxy.com - ocxy@host.sk From ednardo em elobo.cjb.net Fri Jan 3 16:01:13 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] GtkPerl In-Reply-To: <20030103112525.M8125@host.sk> References: <20030102134537.M8008@host.sk> <20030102222231.GI23152@pinguim.elobo.cjb.net> <20030103112525.M8125@host.sk> Message-ID: <20030103220113.GL23152@pinguim.elobo.cjb.net> On Fri, Jan 03, 2003 at 01:25:25PM +0200, ocxy wrote: > On Thu, 2 Jan 2003 20:22:31 -0200, Ednardo Lobo wrote > > > > Eu utilizo a Perl mais para manuteção de servidor e aplicações > > WEBs, para isso ela é praticamente imbatível. Ultimamente tenho dado > > alguma olhada na tecnologia XML, que segundo alguns, é o futuro da > > WEB. > > Pois esta eh uma das ideias, criar ferramentas visuais para > configuracao de servidores web,firewall, etc... Interessante, mas não se esqueça, que uma das grandes virtudes dos servidores Unix, é a facilidade com podem ser gerenciados remotamente. E isso, a não ser que você possua o X, só é feito através de ferramentas em modo texto, através de uma sessão telnet ou ssh. Penso que hoje, a maior necessidade de ferramentas visuais está em ambientes Dektops, voltadas a outros tipos de usuários, que não sejam administradores de servidores. Hoje, pelo menos eu, um administrador de servidores, procuro automatizar toda a configuração, de forma a não precisar interagir com nenhuma ferramenta. Quando muito, disponibilizo uma interface WEB para que usuários possam personalizar algum serviço que é disponibilizado a eles (ex: senha da sua conta de email). > Estou pensando em implementar algo nesse sentido... Hoje, a perl não é tão popular quanto o PHP para aplicações WEB pois não é especialmente voltada para isso, mas penso que ela tem um potencial muito maior que o PHP. Com o `mod_perl' do Apache, nesses dias já bastante amadurecido, surge uma lacuna para o desenvolvimento de uma infinidade de aplicação voltadas para o ambiente WEB, realmente poderosas e profissinais. Tanto, que gostaria muito de ver o `mod_perl' sendo bem mais explorado do que é ultimamente, quando é difícil encontrar servidores WEB Apache com esse recurso habilitado. Taí um tópico que poderíamos explorar no Cascavel: - Aplicações WEB perl suportadas para `mod_perl' do Apache. O interessante do `mod_perl', é que qualquer aplicação que rode nele, praticamente irá rodar também como uma aplicação CGI através do `mod_cgi', é claro, não terá o mesmo desempenho. O inverso, entretanto, nem sempre é verdadeiro, mas via de regra, se rodar com 'use strict', irá rodar em `mod_perl'. O que acham da sugestão? -- Ednardo Lobo - www.elobo.cjb.net From glasswalk3r em yahoo.com.br Sat Jan 4 09:59:02 2003 From: glasswalk3r em yahoo.com.br (=?iso-8859-1?q?Alceu=20R.=20de=20Freitas=20Jr.?=) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] GtkPerl In-Reply-To: <20030103220113.GL23152@pinguim.elobo.cjb.net> Message-ID: <20030104155902.15649.qmail@web20205.mail.yahoo.com> Ainda so um tanto novato quanto a programação Web com Perl, mas só para aproveitar o gancho, o que é possível se criar usando modPerl? Eu li um pouco a respeito, mas nada prático além de alterar o comportamento do Apache. Como nunca vi necessidade em fazer isso, fico sem referências. --- Ednardo Lobo escreveu: > On Fri, Jan 03, 2003 at 01:25:25PM +0200, ocxy > wrote: > > On Thu, 2 Jan 2003 20:22:31 -0200, Ednardo Lobo > wrote > > > > > > Eu utilizo a Perl mais para manuteção de > servidor e aplicações > > > WEBs, para isso ela é praticamente imbatível. > Ultimamente tenho dado > > > alguma olhada na tecnologia XML, que segundo > alguns, é o futuro da > > > WEB. > > > > > Pois esta eh uma das ideias, criar > ferramentas visuais para > > configuracao de servidores web,firewall, etc... > > Interessante, mas não se esqueça, que uma das > grandes virtudes dos > servidores Unix, é a facilidade com podem ser > gerenciados remotamente. E > isso, a não ser que você possua o X, só é feito > através de ferramentas > em modo texto, através de uma sessão telnet ou ssh. > > Penso que hoje, a maior necessidade de > ferramentas visuais está em > ambientes Dektops, voltadas a outros tipos de > usuários, que não sejam > administradores de servidores. > > Hoje, pelo menos eu, um administrador de > servidores, procuro > automatizar toda a configuração, de forma a não > precisar interagir com > nenhuma ferramenta. Quando muito, disponibilizo uma > interface WEB para > que usuários possam personalizar algum serviço que > é disponibilizado a > eles (ex: senha da sua conta de email). > > > Estou pensando em implementar algo nesse > sentido... > > Hoje, a perl não é tão popular quanto o PHP para > aplicações WEB pois > não é especialmente voltada para isso, mas > penso que ela tem um > potencial muito maior que o PHP. > > Com o `mod_perl' do Apache, nesses dias já > bastante amadurecido, > surge uma lacuna para o desenvolvimento de uma > infinidade de aplicação > voltadas para o ambiente WEB, realmente poderosas e > profissinais. Tanto, > que gostaria muito de ver o `mod_perl' sendo bem > mais explorado do que é > ultimamente, quando é difícil encontrar servidores > WEB Apache com esse > recurso habilitado. > > Taí um tópico que poderíamos explorar no > Cascavel: > > - Aplicações WEB perl suportadas para > `mod_perl' do Apache. > > O interessante do `mod_perl', é que qualquer > aplicação que rode > nele, praticamente irá rodar também como uma > aplicação CGI através do > `mod_cgi', é claro, não terá o mesmo desempenho. O > inverso, entretanto, > nem sempre é verdadeiro, mas via de regra, se > rodar com 'use strict', > irá rodar em `mod_perl'. > > O que acham da sugestão? > > -- > Ednardo Lobo - www.elobo.cjb.net > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm ===== Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net -- O que você ainda está fazendo aqui? O email já acabou! Vá embora! _______________________________________________________________________ Busca Yahoo! O melhor lugar para encontrar tudo o que você procura na Internet http://br.busca.yahoo.com/ From ednardo em elobo.cjb.net Sun Jan 5 12:44:41 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] GtkPerl In-Reply-To: <20030104155902.15649.qmail@web20205.mail.yahoo.com> References: <20030103220113.GL23152@pinguim.elobo.cjb.net> <20030104155902.15649.qmail@web20205.mail.yahoo.com> Message-ID: <20030105184441.GO23152@pinguim.elobo.cjb.net> On Sat, Jan 04, 2003 at 12:59:02PM -0300, Alceu R. de Freitas Jr. wrote: > Ainda so um tanto novato quanto a programação Web com Perl, mas só > para aproveitar o gancho, o que é possível se criar usando modPerl? > > Eu li um pouco a respeito, mas nada prático além de alterar o > comportamento do Apache. Como nunca vi necessidade em fazer isso, fico > sem referências. Bem, vamos ver se consigo explicar ... Em primeiro lugar, o `mod_perl' é basicamente o interpretador 'perl' embutido ao apache. Isso faz com que a execução de um `script Perl' seja feita de forma bem mais eficientemente (rápida) do que da maneira convencional (via `mod_cgi'). Onde o Apache precisa fazer um `fork', conectar-se ao novo processo por meio de um `pipe' e iniciar a execução do interpretador `perl' dentro desse novo processo. Mas há muito mais otimizações além dessa. Por exemplo, um `script perl' chamado mais de uma vez numa mesma conexão será interpretado uma única vez, diferente do ocorre no modo convencional, onde para cada chamada, um novo `fork' e `pipe' será realizado. Além de economizar recursos do servidor 'scripts Perl' rodando em `mod_perl' serão processado bem mais rápidamente, algo em torno de 400% a 2000%, em relação ao modo convencional. É algo extremamente considerável! Além do desempenho, que por si só justifica a sua utilização em detrimento ao modo convencional, o `mod_perl' cria um novo paradigma para a programação de aplicações WEB, o que efetivamente interessa para nós programadores Perl. Eu explorei muito pouco, ainda, esse novo horizonte e portanto, tanto quanto você, não sei efetivamente o que ele tem a oferecer. Mas pelo que já li, pode-se por exemplo, condificar uma aplicação web da mesma maneira que se faz no PHP, embutindo o código no próprio HTML. Apesar de não apreciar esse estilo de programação, ele é bastante prático e é o que torna o PHP e ASP tão popular. Um forma mais prática, principalmente para manutenção, é através do uso de 'templates', veja HTML::Template. Mas não é só isso, existe muito mais, é preciso apenas explorar. Por tornar íntima a aplicação Perl ao servidor Apache, o `mod_perl' permite uma maior interação da aplicação com o servidor, ao contrário do `mod_cgi', onde a única forma de interação, é atraves de vaviáveis ambientes (%ENV). Para constatar isso, basta dar uma olhada em 'man Apache'. Em 'man mod_perl' e 'man cgi_to_mod_perl' há informações interessantes sobre o funcionamento do `mod_perl', porém não muito elucidativas. Boa sorte a quem se interessar por ele! Precisando trocar idéias, estou a disposição! :-) > --- Ednardo Lobo escreveu: > >> Com o `mod_perl' do Apache, nesses dias já bastante amadurecido, >> surge uma lacuna para o desenvolvimento de uma infinidade de >> aplicação voltadas para o ambiente WEB, realmente poderosas e >> profissinais. Tanto, que gostaria muito de ver o `mod_perl' sendo >> bem mais explorado do que é ultimamente, quando é difícil encontrar >> servidores WEB Apache com esse recurso habilitado. >> >> Taí um tópico que poderíamos explorar no Cascavel: >> >> - Aplicações WEB perl suportadas para `mod_perl' do Apache. >> >> O interessante do `mod_perl', é que qualquer aplicação que rode >> nele, praticamente irá rodar também como uma aplicação CGI através >> do `mod_cgi', é claro, não terá o mesmo desempenho. O inverso, >> entretanto, nem sempre é verdadeiro, mas via de regra, se rodar com >> 'use strict', irá rodar em `mod_perl'. >> >> O que acham da sugestão? -- Ednardo Lobo - www.elobo.cjb.net From ednardo em elobo.cjb.net Sun Jan 5 17:24:50 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] Escopo: =?iso-8859-1?Q?D=FAvida?= Message-ID: <20030105232450.GP23152@pinguim.elobo.cjb.net> Em perl o escopo de uma variável, é sempre o bloco em que a mesma foi declarada, por exemplo: ------------------------------------------------------------ use strict; { my $a = 10 my $f = 0; while (not $f) { my $a = 20; $f = 1; print $a # imprime 20 } print $a # imprime 10 print $f # imprime 1 } print $f; # com 'use strict', variável indefinida ------------------------------------------------------------ Minha dúvida: File Handles, também possuem escopo? Por exemplo: ------------------------------------------------------------ use strict; open FH,">>/etc/passwd"; my ($login,$password) = &get(); ... print FH "$login:$password:$UID:$GID::$HOME:$SHELL\n" close FH; # ## Obtem `login' e `password' # sub get { open FH,"/var/tmp/user.tmp"; my ($login,$passwd) = split / /,; close FH; return($login,$password); } ------------------------------------------------------------ O que acontecerá com `FH' após `&get' ter sido executada? -- Ednardo Lobo - www.elobo.cjb.net -- System checkpoint complete. From lup em terra.com.br Sun Jan 5 18:34:32 2003 From: lup em terra.com.br (=?iso-8859-1?Q?lup?=) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] =?iso-8859-1?Q?Re:[Cascavel-pm]_Escopo:_D=FAvida?= Message-ID: Olá Ednardo! Olha amigo, a melhor coisa que eu teria pra te dizer é... Só Deus sabe, realmente não testei isso. Porém eu imagino voltando um pouco ao C que os HANDLERS são globais, portanto quando você faz o segundo open referenciando a stream a FH que já estava aberta você mata a primeira STREAM, seria um reopen. Da minha maneira de ver é isso que acontece. Tanto são globais que você pode referir-se a STDIN e STDOUT de qualquer lugar do programa e não me lembro de existir nenhuma maneira de você explicitar o modo global para uma stream como: global open(FH , ARQUIVO); :-) isso é bem estranho. Um abraço, Luciano Greiner De:cascavel-pm-admin@mail.pm.org Para:cascavel-pm@mail.pm.org Cópia: Data:Sun, 05 Jan 2003 21:24:50 -0200 Assunto:[Cascavel-pm] Escopo: Dúvida > Em perl o escopo de uma variável, é sempre o bloco em que a mesma > foi declarada, por exemplo: > > ------------------------------------------------------------ > use strict; > > { > my $a = 10 > my $f = 0; > > while (not $f) { > my $a = 20; > > $f = 1; > > print $a # imprime 20 > } > > print $a # imprime 10 > print $f # imprime 1 > } > > print $f; # com 'use strict', variável indefinida > ------------------------------------------------------------ > > > Minha dúvida: File Handles, também possuem escopo? > > Por exemplo: > > ------------------------------------------------------------ > use strict; > > open FH,">>/etc/passwd"; > > my ($login,$password) = &get(); > > ... > > print FH "$login:$password:$UID:$GID::$HOME:$SHELL\n" > > close FH; > > # > ## Obtem `login' e `password' > # > sub get { > open FH,"/var/tmp/user.tmp"; > > my ($login,$passwd) = split / /,; > > close FH; > > return($login,$password); > } > ------------------------------------------------------------ > > O que acontecerá com `FH' após `&get' ter sido executada? > > > -- > Ednardo Lobo - www.elobo.cjb.net > > -- > System checkpoint complete. > _______ _______ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > Esta mensagem foi verificada pelo E-mail Protegido Terra. > Scan engine: VirusScan / Atualizado em 30/12/2002 / Versão: 1.3.13 > Proteja o seu e-mail Terra: http://www.emailprotegido.terra.com.br/ > > From fabiano em cascavel.pm.org Sun Jan 5 19:55:08 2003 From: fabiano em cascavel.pm.org (Fabiano) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] Escopo: =?ISO-8859-1?Q?D=FAvida?= In-Reply-To: <20030105232450.GP23152@pinguim.elobo.cjb.net> References: <20030105232450.GP23152@pinguim.elobo.cjb.net> Message-ID: <20030106015508.M22165@cascavel.pm.org> On Sun, 5 Jan 2003 21:24:50 -0200, Ednardo Lobo wrote > Em perl o escopo de uma variável, é sempre o bloco em que a mesma > foi declarada, por exemplo: > > ------------------------------------------------------------ > use strict; > > { > my $a = 10 > my $f = 0; > > while (not $f) { > my $a = 20; > > $f = 1; > > print $a # imprime 20 > } > > print $a # imprime 10 > print $f # imprime 1 > } > > print $f; # com 'use strict', variável indefinida > ------------------------------------------------------------ > > Minha dúvida: File Handles, também possuem escopo? > > Por exemplo: > > ------------------------------------------------------------ > use strict; > > open FH,">>/etc/passwd"; > > my ($login,$password) = &get(); > > ... > > print FH "$login:$password:$UID:$GID::$HOME:$SHELL\n" > > close FH; > > # > ## Obtem `login' e `password' > # > sub get { > open FH,"/var/tmp/user.tmp"; > > my ($login,$passwd) = split / /,; > > close FH; > > return($login,$password); > } > ------------------------------------------------------------ > > O que acontecerá com `FH' após `&get' ter sido executada? > > > -- > Ednardo Lobo - www.elobo.cjb.net > > -- "...(A referência pode ser uma referência simbólica ao nome do handle de arquivos ou uma referência fixa a qualquer objeto que possa ser interpretado como um handle de arquivos. Isso é chamado de handle de arquivos indireto, e qualquer função que use um HANDLEARQUIVOS como seu primeiro argumento pode tratar de handles de arquivos diretos e indiretos... ... { my $fh; # (não inicializado) open($fh, ">arqlog") # $fh é autovivificado or die "Impossível criar arqlog: $!; ... # faz algo com $fh } # $fh fechado aqui A declaração my $fh pode ser inforporada de modo confiável ao open: open my $fh, ">arqlog" or die... " (O'REILLY, Pragramming Perl 3ª Ed., pag. 761) Ola', Ednardo Espero que este pequeno paragrafo que retirei do livro citado acima tenha ajudado. Exemplo: ------------------------------------------------------------ use strict; open my $FH,">>/etc/passwd"; my ($login,$password) = &get(); ... print $FH "$login:$password:$UID:$GID::$HOME:$SHELL\n" close $FH; # ## Obtem `login' e `password' # sub get { open my $FH,"/var/tmp/user.tmp"; my ($login,$passwd) = split / /,<$FH>; close $FH; return($login,$password); } []'s --Fabiano Reese Righetti (fabiano@cascavel.pm.org) From ednardo em elobo.cjb.net Sun Jan 5 23:25:29 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] Re: Escopo: =?iso-8859-1?Q?D=FAvida?= In-Reply-To: References: Message-ID: <20030106052529.GQ23152@pinguim.elobo.cjb.net> Luciano, Acabei fazendo uma pesquisa, além de contar com a ajuda do Fabiano que enviou-me um trecho de um livro (O'REILLY, Pragramming Perl 3ª Ed., pag. 761) que fala sobre isso e elucidou algumas coisas: 1. O `filehandler', de fato é global, porém não tanto. Em Perl, cada pacote possui uma tabela de símbolos própria, ou seja, o escopo do handler é restringido ao pacote que o declarou. Porém há alguma excessões, veja o trecho abaixo. Only identifiers starting with letters (or underscore) are stored in a package's symbol table. All other symbols are kept in package "main", including all punctuation vari­ ables, like $_. In addition, when unqualified, the iden­ tifiers STDIN, STDOUT, STDERR, ARGV, ARGVOUT, ENV, INC, and SIG are forced to be in package "main", even when used for other purposes than their built-in one. If you have a package called "m", "s", or "y", then you can't use the qualified form of an identifier because it would be instead interpreted as a pattern match, a substitution, or a transliteration. (man perlmod) 2. Quando se tenta abrir um `filehandler' previamente aberto, ele será implicitamente fechado primeiro. The "open" function takes two arguments: the first is a filehandle, and the second is a single string comprising both what to open and how to open it. "open" returns true when it works, and when it fails, returns a false value and sets the special variable $! to reflect the system error. If the filehandle was previously opened, it will be implicitly closed first. (man perldata) 3. É possível criar um escopo mais restritivo para um `file handler' usando um tipo interno especial da Perl, `typeglobs'. Typeglobs are also a way to create a local filehandle using the local() operator. These last until their block is exited, but may be passed back. For example: sub newopen { my $path = shift; local *FH; # not my! open(FH,$path) or return undef; return *FH; } $fh = newopen('/etc/passwd'); (man perldata) 4. Todas as funções que criam `filehandlers', o fazem automaticamente anônimo se em vez de um símbolo identificador (ex: FH), for especificado uma variável escalar não inicializada. Com a vantagem, ainda, do `filehandler' ser automaticamente fechado ao final do escopo dessa variável, caso não exista nenhum outra referência a ela fora de seu escopo. All functions that are capable of creating filehandles (open(), opendir(), pipe(), socketpair(), sysopen(), socket(), and accept()) automatically create an anonymous filehandle if the handle passed to them is an uninitialized scalar variable. This allows the constructs such as "open(my $fh, ...)" and "open(local $fh,...)" to be used to create filehandles that will conveniently be closed automatically when the scope ends, provided there are no other references to them. This largely eliminates the need for typeglobs when opening filehandles that must be passed around, as in the following example: sub myopen { open my $fh,"@_" or die "Can't open '@_': $!"; return $fh; } { my $f = myopen("; # $f implicitly closed here } (man perldata) Bem pessoal, a Perl é um grande Oráculo! Muitos segredos e truques, ainda há, a serem explorados e desvendados. O que a faz facinante!! :-) On Sun, Jan 05, 2003 at 10:34:32PM -0200, lup wrote: > Olá Ednardo! > > Olha amigo, a melhor coisa que eu teria pra te dizer é... Só Deus > sabe, realmente não testei isso. Porém eu imagino voltando um pouco ao > C que os HANDLERS são globais, portanto quando você faz o segundo open > referenciando a stream a FH que já estava aberta você mata a primeira > STREAM, seria um reopen. Da minha maneira de ver é isso que acontece. > Tanto são globais que você pode referir-se a STDIN e STDOUT de > qualquer lugar do programa e não me lembro de existir nenhuma maneira > de você explicitar o modo global para uma stream como: > > global open(FH , ARQUIVO); :-) isso é bem estranho. > > Um abraço, > > Luciano Greiner > > > Em perl o escopo de uma variável, é sempre o bloco em que a mesma > > foi declarada, por exemplo: > > > > ------------------------------------------------------------ > > use strict; > > > > { > > my $a = 10 > > my $f = 0; > > > > while (not $f) { > > my $a = 20; > > > > $f = 1; > > > > print $a # imprime 20 > > } > > > > print $a # imprime 10 > > print $f # imprime 1 > > } > > > > print $f; # com 'use strict', variável indefinida > > ------------------------------------------------------------ > > > > > > Minha dúvida: File Handles, também possuem escopo? > > > > Por exemplo: > > > > ------------------------------------------------------------ > > use strict; > > > > open FH,">>/etc/passwd"; > > > > my ($login,$password) = &get(); > > > > ... > > > > print FH "$login:$password:$UID:$GID::$HOME:$SHELL\n" > > > > close FH; > > > > # > > ## Obtem `login' e `password' > > # > > sub get { > > open FH,"/var/tmp/user.tmp"; > > > > my ($login,$passwd) = split / /,; > > > > close FH; > > > > return($login,$password); > > } > > ------------------------------------------------------------ > > > > O que acontecerá com `FH' após `&get' ter sido executada? > > > > > > -- > > Ednardo Lobo - www.elobo.cjb.net > > -- Ednardo Lobo - www.elobo.cjb.net -- Well begun is half done. -- Aristotle From chrisreichel em bol.com.br Tue Jan 7 23:21:40 2003 From: chrisreichel em bol.com.br (chrisreichel) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] =?iso-8859-1?q?Ol=E1=21?= Message-ID: Olá amigos! Meu nome é Christian Reichel e estou aprendendo perl by myself, porque me disseram maravilhas desta linguagem. Gostaria de saber se o livro que ganhei Programação Perl (O´Reilly) 3ª ed. é o suficiente, sendo até mesmo um guia com os principais módulos e pacotes disponíveis. Outra coisa, eu achei bem legal essa idéia de ter um grupo de usuários, pena que é um pouco longe de casa. Obrigado, e um abraço a todos! Christian Reichel __________________________________________________________________________ E-mail Premium BOL Antivírus, anti-spam e até 100 MB de espaço. Assine já! http://email.bol.com.br/ From fabiano em cascavel.pm.org Wed Jan 8 04:40:21 2003 From: fabiano em cascavel.pm.org (Fabiano) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] =?ISO-8859-1?Q?Ol=E1!?= In-Reply-To: References: Message-ID: <20030108104021.M79865@cascavel.pm.org> On Wed, 8 Jan 2003 03:21:40 -0200, chrisreichel wrote > Olá amigos! Ola'. > Meu nome é Christian Reichel e estou aprendendo perl > by myself, porque me disseram maravilhas desta > linguagem. Gostaria de saber se o livro que ganhei > Programação Perl (O´Reilly) 3ª ed. é o suficiente, sendo > até mesmo um guia com os principais módulos e pacotes > disponíveis. Bom, eu tenho este livro e na minha opniao ele e' muito bom, pois quando prescisei sempre encontrei o que queria nele... mas como todos os outros livros nunca e' o suficiente, porque perl evolui a cada dia e tem muito assunto para ser explorado... vai depender do que voce busca e que rumo quer tomar. > Outra coisa, eu achei bem legal essa idéia de ter um > grupo de usuários, pena que é um pouco longe de casa. Isso ae, qualquer duvida/opniao (o que for) mande ae que te ajudaremos. []'s --Fabiano Reese Righetti (fabiano@cascavel.pm.org) From ednardo em elobo.cjb.net Wed Jan 8 07:33:55 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] =?iso-8859-1?Q?Ol=E1!?= In-Reply-To: References: Message-ID: <20030108133355.GW23152@pinguim.elobo.cjb.net> On Wed, Jan 08, 2003 at 03:21:40AM -0200, chrisreichel wrote: > Olá amigos! Olá!! > Meu nome é Christian Reichel e estou aprendendo perl by myself, porque > me disseram maravilhas desta linguagem. Gostaria de saber se o livro > que ganhei Programação Perl (O´Reilly) 3ª ed. é o suficiente, sendo > até mesmo um guia com os principais módulos e pacotes disponíveis. Ela é tudo o que dizem e um pouco mais! O livro é muito bom sim e abrangente!! > Outra coisa, eu achei bem legal essa idéia de ter um grupo de > usuários, pena que é um pouco longe de casa. > Que ótimo! Distância não é problema quando se está na Internet!! > Obrigado, e um abraço a todos! > > Christian Reichel -- Ednardo Lobo - www.elobo.cjb.net From junior3 em smagon.com.br Wed Jan 8 06:04:49 2003 From: junior3 em smagon.com.br (Luiz Gonzaga Pinto Jr) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] IO::Socket e IO::Select Message-ID: <001d01c2b70e$256d9940$1400a8c0@junior> Olá, pessoal, Sou novo na lista. Espero poder contribuir com ela sempre com minha pequena experiência em programação Perl. Porém, meus conhecimentos em perl são bem resumidos, isto é, meus programas têm um formato bem "arroz com feijão", padrão das primeiras versões do perl. Tenho uma grande dúvida. Estou querendo desenvolver um servidor de chat utilizando conexões por sockets. Existem esses dois módulos do perl (IO::Socket::INET e IO::Select), aos quais na Net apenas achei os documentos padrões da perldoc para aprender. As sintaxes deles até não é o problema. O que não consegui foi como aplicá-los num servidor de chat e nos clientes. "O que uso onde?". Se alguém souber de alguma documentação sobre eles especificamente para geração de servidores chat, me avisem, ok? Obrigado, por hora. Luiz Gonzaga Pinto Jr Gerente de Informática ( (42) 219-7000 * junior@smagon.com.br 8 www.smagon.com.br --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.435 / Virus Database: 244 - Release Date: 30/12/2002 -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20030108/be18f245/attachment.htm From mhenke em inf.ufrgs.br Wed Jan 8 08:10:52 2003 From: mhenke em inf.ufrgs.br (Marcia Henke) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] Usando Perl e samba, ssh, smtp, etc .... Message-ID: <001001c2b71f$c169c9c0$4253368f@inf.ufrgs.br> Olá Pessoal !! Sou nova na lista, e gostaria de saber se alguem tem algum script ou conhece a biblioteca para criar um script, onde posso testar se porta 139 (Samba) esta respondendo, bem como ssh, smtp. No aguardo aciosamente Márcia From ednardo em elobo.cjb.net Thu Jan 9 17:10:35 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] Re: Usando Perl e samba, ssh, smtp, etc .... In-Reply-To: <001001c2b71f$c169c9c0$4253368f@inf.ufrgs.br> References: <001001c2b71f$c169c9c0$4253368f@inf.ufrgs.br> Message-ID: <20030109231035.GZ23152@pinguim.elobo.cjb.net> On Wed, Jan 08, 2003 at 12:10:52PM -0200, Marcia Henke wrote: > Olá Pessoal !! > > Sou nova na lista, e gostaria de saber se alguem tem algum script ou > conhece a biblioteca para criar um script, onde posso testar se porta > 139 (Samba) esta respondendo, bem como ssh, smtp. > > No aguardo aciosamente > Márcia > Use a lib `IO::Socket::INE', é um lib padrão! ----------------- use strict; use IO::Socket::INET; my $sock; $sock = IO::Socket::INET->new( PeerAddr => 'localhost', PeerPort => '139', Proto => 'tcp' ); if (not undef $sock) { print "Serviço UP"; } else { print "Serviço DOW\n" } ----------------- Não testei, mas isso deve funcionar !!! -- Ednardo Lobo - www.elobo.cjb.net -- As esplendidas fortunas - como os ventos impetuosos - provocam grandes naufragios. -- Plutarco From ednardo em elobo.cjb.net Thu Jan 9 17:33:21 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] Re: IO::Socket e IO::Select In-Reply-To: <001d01c2b70e$256d9940$1400a8c0@junior> References: <001d01c2b70e$256d9940$1400a8c0@junior> Message-ID: <20030109233321.GA23152@pinguim.elobo.cjb.net> On Wed, Jan 08, 2003 at 10:04:49AM -0200, Luiz Gonzaga Pinto Jr wrote: > Olá, pessoal, > Oi, tudo bom? > Sou novo na lista. Espero poder contribuir com ela sempre com minha > pequena experiência em programação Perl. Porém, meus conhecimentos em > perl são bem resumidos, isto é, meus programas têm um formato bem > "arroz com feijão", padrão das primeiras versões do perl. > Há sempre espaço para qualquer tipo de contribuição. O importante é contribuir de alguma forma! > Tenho uma grande dúvida. Estou querendo desenvolver um servidor de > chat utilizando conexões por sockets. Existem esses dois módulos do > perl (IO::Socket::INET e IO::Select), aos quais na Net apenas achei os > documentos padrões da perldoc para aprender. As sintaxes deles até não > é o problema. O que não consegui foi como aplicá-los num servidor de > chat e nos clientes. "O que uso onde?". > > Se alguém souber de alguma documentação sobre eles especificamente > para geração de servidores chat, me avisem, ok? > Se o que você pretende fazer, é criar um servidor e cliente CHAT, aconselho você dar uma olhada nas primitivas em C das seguintes funções: socket, connect, bind, listen, accept. Elas se relacionam da seguinte forma, dependendo do protocolo utilizado: # SOCKET INTERFACE - TCP Servidor +----------+ +-- | socket() | | +----------+ | +-> +--------+ | bind() | +-- +--------+ Cliente | +-> +----------+ +----------+ | listen() | | socket() | --+ +-- +----------+ +----------+ | | | +-> +----------+ | | accept() | | +-- +----------+ | | | | +-----------+ <-+ | <------------------------ | connect() | | +-----------+ --+ | | +-> +--------+ +---------+ <-+ | read() | <-------------- | write() | +-- +--------+ +---------+ --+ | | | +---------+ +--------+ | +-> | write() | --------------> | read() | <-+ +---------+ +--------+ - UDP Servidor Cliente +----------+ +----------+ +-- | socket() | | socket() | --+ | +----------+ +----------+ | | | +-> +--------+ +--------+ <-+ | bind() | | bind() | +-- +--------+ +--------+ --+ | | +-> +------------+ +----------+ <-+ | recvfrom() | <--------- | sendto() | +-- +------------+ +----------+ --+ | | | +----------+ +------------+ | +-> | sendto() | ---------> | recvfrom() | <-+ +----------+ +------------+ O entendimento dessas primitivas, ajudará bastante na compreensão do funcionamento da lib `IO::Socket::INET'. Boa sorte!! > Obrigado, por hora. > Disponha! -- Ednardo Lobo - www.elobo.cjb.net -- taxidermist, n.: A man who mounts animals. From stdfk em terra.com.br Thu Jan 9 22:35:14 2003 From: stdfk em terra.com.br (Felipe Kellermann) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] Re: Usando Perl e samba, ssh, smtp, etc .... In-Reply-To: <20030109231035.GZ23152@pinguim.elobo.cjb.net> References: <001001c2b71f$c169c9c0$4253368f@inf.ufrgs.br> <20030109231035.GZ23152@pinguim.elobo.cjb.net> Message-ID: On Thu, 9 Jan 2003 9:10pm -0200, Ednardo Lobo wrote: > if (not undef $sock) { Condição sempre verdadeira. Troque, printf("%s/%s!\n", $sock?"aberto":"fechado", getservbyport(139, 'tcp')); close($sock); -- Felipe Kellermann From junior3 em smagon.com.br Fri Jan 10 04:57:08 2003 From: junior3 em smagon.com.br (Luiz Gonzaga Pinto Jr) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] Re: IO::Socket e IO::Select References: <001d01c2b70e$256d9940$1400a8c0@junior> <20030109233321.GA23152@pinguim.elobo.cjb.net> Message-ID: <007301c2b897$0568ec50$1400a8c0@junior> ok, Eduardo, entendi, mas a programação do servidor? use IO::Socket; my $sock = new IO::Socket(LocalPort => 2000, Listen => 30, Reuse, 1); ... utiliza o IO::Select? e como faz isso? e na parte do cliente? utiliza o mesmo que acima? é essa minha dúvida... não consegui entender direito ainda... ----- Original Message ----- From: "Ednardo Lobo" To: Sent: Thursday, January 09, 2003 9:33 PM Subject: [Cascavel-pm] Re: IO::Socket e IO::Select > On Wed, Jan 08, 2003 at 10:04:49AM -0200, Luiz Gonzaga Pinto Jr wrote: > > Olá, pessoal, > > > Oi, tudo bom? > > > Sou novo na lista. Espero poder contribuir com ela sempre com minha > > pequena experiência em programação Perl. Porém, meus conhecimentos em > > perl são bem resumidos, isto é, meus programas têm um formato bem > > "arroz com feijão", padrão das primeiras versões do perl. > > > Há sempre espaço para qualquer tipo de contribuição. > > O importante é contribuir de alguma forma! > > > Tenho uma grande dúvida. Estou querendo desenvolver um servidor de > > chat utilizando conexões por sockets. Existem esses dois módulos do > > perl (IO::Socket::INET e IO::Select), aos quais na Net apenas achei os > > documentos padrões da perldoc para aprender. As sintaxes deles até não > > é o problema. O que não consegui foi como aplicá-los num servidor de > > chat e nos clientes. "O que uso onde?". > > > > Se alguém souber de alguma documentação sobre eles especificamente > > para geração de servidores chat, me avisem, ok? > > > Se o que você pretende fazer, é criar um servidor e cliente CHAT, > aconselho você dar uma olhada nas primitivas em C das seguintes funções: > socket, connect, bind, listen, accept. Elas se relacionam da seguinte > forma, dependendo do protocolo utilizado: > > # SOCKET INTERFACE > > - TCP > > Servidor > > +----------+ > +-- | socket() | > | +----------+ > | > +-> +--------+ > | bind() | > +-- +--------+ Cliente > | > +-> +----------+ +----------+ > | listen() | | socket() | --+ > +-- +----------+ +----------+ | > | | > +-> +----------+ | > | accept() | | > +-- +----------+ | > | | > | +-----------+ <-+ > | <------------------------ | connect() | > | +-----------+ --+ > | | > +-> +--------+ +---------+ <-+ > | read() | <-------------- | write() | > +-- +--------+ +---------+ --+ > | | > | +---------+ +--------+ | > +-> | write() | --------------> | read() | <-+ > +---------+ +--------+ > > > - UDP > > Servidor Cliente > > +----------+ +----------+ > +-- | socket() | | socket() | --+ > | +----------+ +----------+ | > | | > +-> +--------+ +--------+ <-+ > | bind() | | bind() | > +-- +--------+ +--------+ --+ > | | > +-> +------------+ +----------+ <-+ > | recvfrom() | <--------- | sendto() | > +-- +------------+ +----------+ --+ > | | > | +----------+ +------------+ | > +-> | sendto() | ---------> | recvfrom() | <-+ > +----------+ +------------+ > > > O entendimento dessas primitivas, ajudará bastante na compreensão do > funcionamento da lib `IO::Socket::INET'. > > Boa sorte!! > > > Obrigado, por hora. > > > Disponha! > > -- > Ednardo Lobo - www.elobo.cjb.net > > -- > taxidermist, n.: > A man who mounts animals. > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.441 / Virus Database: 247 - Release Date: 09/01/2003 From ednardo em elobo.cjb.net Fri Jan 10 07:25:00 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] Re: IO::Socket e IO::Select In-Reply-To: <007301c2b897$0568ec50$1400a8c0@junior> References: <001d01c2b70e$256d9940$1400a8c0@junior> <20030109233321.GA23152@pinguim.elobo.cjb.net> <007301c2b897$0568ec50$1400a8c0@junior> Message-ID: <20030110132500.GC23152@pinguim.elobo.cjb.net> On Fri, Jan 10, 2003 at 08:57:08AM -0200, Luiz Gonzaga Pinto Jr wrote: > ok, Eduardo, entendi, mas a programação do servidor? > > use IO::Socket; > my $sock = new IO::Socket(LocalPort => 2000, Listen => 30, Reuse, 1); > ... > > utiliza o IO::Select? > e como faz isso? > > e na parte do cliente? utiliza o mesmo que acima? é essa minha > dúvida... não consegui entender direito ainda... > Dê uma olhada na seção 'Sockets: Client/Server Communication' em 'man perlipc'. Existe lá dois exemplos usando a lib 'Socket' e as primitivas que descrevi antes. Acredito que elas se comportem como suas equivalentes em C. Esses exemplos apenas abrem um canal (stream TCP) para a comunicação entre cliente e servidor. A implementação do CHAT e suas funcionalidades, fica por conta do protocolo que você mesmo deverá especificar de acordo com suas necessidades. Você pode até recorrer a algum RFC que especifique algum tipo de protocolo de CHAT e utilizá-lo efetivamente ou como base para a programação do seu. Para mais informações sobre programação utilizando `socket' e a descrição de RFCs, acesse: http://www.ecst.csuchico.edu/~beej/guide/net/html/ http://www.ietf.org/rfc.html Boa sorte !!! -- Ednardo Lobo - www.elobo.cjb.net -- Most people will listen to your unreasonable demands, if you'll consider their unacceptable offer. From ednardo em elobo.cjb.net Fri Jan 10 07:55:21 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:32 2004 Subject: [Cascavel-pm] Re: Cascavel Perl Mongers - Ideia In-Reply-To: <20030107224948.M33445@cascavel.pm.org> References: <20030107224948.M33445@cascavel.pm.org> Message-ID: <20030110135521.GD23152@pinguim.elobo.cjb.net> On Tue, Jan 07, 2003 at 07:49:48PM -0300, Fabiano wrote: > Ola', pessoal. > > Bom, tenho algo em mente para a cascavel-pm. Estou disposto a > elaborar com a ajuda de voces a seguinte ideia: > > "Cascavel Perl Mongers - Tekneeq issue" - a finalidade e' montarmos > periodicamente/semanalmente/mensalmente uma issue contendo dicas, > macetes, tecnicas (apenas alguns assuntos que tive ideia, podemos > discutir algo mais)... Abordando desde "highlevel" ate' "lowlevel", > pois ainda a' muita coisa obscura em perl. > > Estou aberto a sugestoes amigos, deem suas opnioes pois elas serao > muito importante :>. > > > []'s > --Fabiano Reese Righetti (fabiano@cascavel.pm.org) > Fabiano, achei a idéia ótima!! Mas precisamos considerar coisas do tipo: 1. Como será mantido e organizado as informações na issue? 2. Como a mesma será diponibilizada (web, email; html, pdf, etc)? 3. Onde e como será feita a captura das coloborações (textos, artigos e programas)? 4. Quem poderá colaborar? 5. Periodicidade da issue? Penso que no inicio, poderíamos selecionar alguns tópicos mais interessantes, mantendo o foco neles e com o tempo ir diversificando-os. Gostei muito da sua idéia, tomara que os outros colaboradores também tenham se empolgado com ela. Uma dúvida: O que é 'Tekneeq'? :-) Valeu!! -- Ednardo Lobo - www.elobo.cjb.net From junior3 em smagon.com.br Fri Jan 10 08:40:41 2003 From: junior3 em smagon.com.br (Luiz Gonzaga Pinto Jr) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] Re: IO::Socket e IO::Select References: <001d01c2b70e$256d9940$1400a8c0@junior> <20030109233321.GA23152@pinguim.elobo.cjb.net> <007301c2b897$0568ec50$1400a8c0@junior> <20030110132500.GC23152@pinguim.elobo.cjb.net> Message-ID: <009f01c2b8b6$406e14f0$1400a8c0@junior> obrigado, Ednardo, as documentações do perlipc eu já tinha olhado, mas achei insuficientes para eu desenvolver o que quero. Dei uma olhada nos links que vc me passou e achei bem mais interessantes. brigadão ----- Original Message ----- From: "Ednardo Lobo" To: Sent: Friday, January 10, 2003 11:25 AM Subject: Re: [Cascavel-pm] Re: IO::Socket e IO::Select > On Fri, Jan 10, 2003 at 08:57:08AM -0200, Luiz Gonzaga Pinto Jr wrote: > > ok, Eduardo, entendi, mas a programação do servidor? > > > > use IO::Socket; > > my $sock = new IO::Socket(LocalPort => 2000, Listen => 30, Reuse, 1); > > ... > > > > utiliza o IO::Select? > > e como faz isso? > > > > > e na parte do cliente? utiliza o mesmo que acima? é essa minha > > dúvida... não consegui entender direito ainda... > > > > Dê uma olhada na seção 'Sockets: Client/Server Communication' em > 'man perlipc'. Existe lá dois exemplos usando a lib 'Socket' e as > primitivas que descrevi antes. Acredito que elas se comportem como suas > equivalentes em C. > > Esses exemplos apenas abrem um canal (stream TCP) para a > comunicação entre cliente e servidor. A implementação do CHAT e suas > funcionalidades, fica por conta do protocolo que você mesmo deverá > especificar de acordo com suas necessidades. Você pode até recorrer a > algum RFC que especifique algum tipo de protocolo de CHAT e utilizá-lo > efetivamente ou como base para a programação do seu. > > Para mais informações sobre programação utilizando `socket' e a > descrição de RFCs, acesse: > > http://www.ecst.csuchico.edu/~beej/guide/net/html/ > http://www.ietf.org/rfc.html > > > Boa sorte !!! > > > -- > Ednardo Lobo - www.elobo.cjb.net > > -- > Most people will listen to your unreasonable demands, if you'll consider > their unacceptable offer. > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.441 / Virus Database: 247 - Release Date: 09/01/2003 From fabiano em cascavel.pm.org Fri Jan 10 09:35:01 2003 From: fabiano em cascavel.pm.org (Fabiano) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] Re: Cascavel Perl Mongers - Ideia In-Reply-To: <20030110135521.GD23152@pinguim.elobo.cjb.net> References: <20030107224948.M33445@cascavel.pm.org> <20030110135521.GD23152@pinguim.elobo.cjb.net> Message-ID: <20030110153501.M39225@cascavel.pm.org> On Fri, 10 Jan 2003 11:55:21 -0200, Ednardo Lobo wrote > On Tue, Jan 07, 2003 at 07:49:48PM -0300, Fabiano wrote: > > Ola', pessoal. > > > > Bom, tenho algo em mente para a cascavel-pm. Estou disposto a > > elaborar com a ajuda de voces a seguinte ideia: > > > > "Cascavel Perl Mongers - Tekneeq issue" - a finalidade e' montarmos > > periodicamente/semanalmente/mensalmente uma issue contendo dicas, > > macetes, tecnicas (apenas alguns assuntos que tive ideia, podemos > > discutir algo mais)... Abordando desde "highlevel" ate' "lowlevel", > > pois ainda a' muita coisa obscura em perl. > > > > Estou aberto a sugestoes amigos, deem suas opnioes pois elas serao > > muito importante :>. > > > > > > []'s > > --Fabiano Reese Righetti (fabiano@cascavel.pm.org) > > > > Fabiano, achei a idéia ótima!! > > Mas precisamos considerar coisas do tipo: > > 1. Como será mantido e organizado as informações na issue? Sera' mantido atraves dos materiais que serao enviados a cascavel@pm.org e organizados a partir de um modelo. > > 2. Como a mesma será diponibilizada (web, email; html, pdf, etc)? Inicialmente na mailing-list e na pagina http://cascavel.pm.org, e no formato .txt (ou .pdf ?). > > 3. Onde e como será feita a captura das coloborações (textos, > artigos e programas)? Qualquer tipo de informacao devera ser enviada a cascavel@pm.org com o subject "issue". > > 4. Quem poderá colaborar? Todos que participam da Cascavel Perl Mongers (isto inclui a mailing-list e o #perl na irc.redesul.net). > > 5. Periodicidade da issue? Isto vai depender muito do material... mas acredito que vai ser disposta mensalmente. > > Penso que no inicio, poderíamos selecionar alguns tópicos mais > interessantes, mantendo o foco neles e com o tempo ir diversificando-os. Otima ideia, podemos ate' focar assuntos que estejam sendo discutidos na mailing-list. > > Gostei muito da sua idéia, tomara que os outros colaboradores também > tenham se empolgado com ela. > > Uma dúvida: O que é 'Tekneeq'? :-) "Tekneeq" e' uma giria proviniente de tecnica. :> Estou montando um modelo para a issue, se alguem tiver alguma sugestao agradeco. []'s --Fabiano Reese Righetti (fabiano@cascavel.pm.org) From ednardo em elobo.cjb.net Fri Jan 10 10:25:19 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] Re: Cascavel Perl Mongers - Ideia In-Reply-To: <20030110153501.M39225@cascavel.pm.org> References: <20030107224948.M33445@cascavel.pm.org> <20030110135521.GD23152@pinguim.elobo.cjb.net> <20030110153501.M39225@cascavel.pm.org> Message-ID: <20030110162519.GE23152@pinguim.elobo.cjb.net> On Fri, Jan 10, 2003 at 12:35:01PM -0300, Fabiano wrote: >> Fabiano, achei a idéia ótima!! >> >> Mas precisamos considerar coisas do tipo: >> >> 1. Como será mantido e organizado as informações na issue? > Sera' mantido atraves dos materiais que serao enviados a > cascavel@pm.org e organizados a partir de um modelo. > Se esse modelo ainda não tiver sido definido, sugiro a utilização de XML, através de uma DTD pública (não sei existe alguma para `issue') ou através de uma que nos mesmo especificássemos. >> >> 2. Como a mesma será diponibilizada (web, email; html, pdf, etc)? > Inicialmente na mailing-list e na pagina http://cascavel.pm.org, e > no formato .txt (ou .pdf ?). > A utilização de um modelo 'flexível', de fácil conversão para outros formatos fará com que a disponibilização e distribuição da 'issue' não se torne algo complexo. >> >> 3. Onde e como será feita a captura das coloborações (textos, >> artigos e programas)? > Qualquer tipo de informacao devera ser enviada a cascavel@pm.org > com o subject "issue". > Eu sugeriria aos colaboradores que envie colaborações seguindo o modelo definido sempre que possível, afim de agilizar publicação. >> >> 4. Quem poderá colaborar? > Todos que participam da Cascavel Perl Mongers (isto inclui a > mailing-list e o #perl na irc.redesul.net). > Legal! Poderíamos também, criar na issue, uma seção para colunas fixas, de colaboradores ativos e outra para assuntos diversos de colaboradores ocasionais. Acho isso positivo, pois cria um 'status' e incentiva as pessoas a almejá-lo. >> >> 5. Periodicidade da issue? > Isto vai depender muito do material... mas acredito que vai ser > disposta mensalmente. > Realmente isso dependerá da frequência das colaborações, vamos ver no que vai dar. >> >> Penso que no inicio, poderíamos selecionar alguns tópicos mais >> interessantes, mantendo o foco neles e com o tempo ir diversificando-os. > Otima ideia, podemos ate' focar assuntos que estejam sendo > discutidos na mailing-list. > Sim, a mailing-list é um ótimo termômetro!! >> >> Gostei muito da sua idéia, tomara que os outros colaboradores também >> tenham se empolgado com ela. >> >> Uma dúvida: O que é 'Tekneeq'? :-) > "Tekneeq" e' uma giria proviniente de tecnica. :> > Ainda não tinha ouvido falar! Sabe como se pronuncia? :-) > Estou montando um modelo para a issue, se alguem tiver alguma > sugestao agradeco. Minha sugestão, é utilizar o XML, por ser um formato bastante estruturado e que está se popularizando. Vamos precisar de todo tipo de colaboração para a criação de scripts para conversão em formatos publicáveis (html, txt, pdf, etc). Mas gostaria de discutir outras possibilidades, pois existem diversas. -- Ednardo Lobo - www.elobo.cjb.net From ednardo em elobo.cjb.net Mon Jan 13 11:02:47 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] Issue Cascavel: =?iso-8859-1?Q?Especifica?= =?iso-8859-1?B?5+Nv?= Message-ID: <20030113170247.GU23152@pinguim.elobo.cjb.net> Em anexo DTD, XML 'molde', Template, conversor e validador. O modelo em 'HTML', feito pelo Fabiano está publicado em http://www.seng.com.br/fabiano/cascavel-pm/issue.html Bem, a `issue' será mantida em formato XML e a partir deste convertida para qualquer outro formato que quizermos disponibilizar. Já temos um conversor de xml para tmpl que irá contemplater qualquer formato em ASCII (html, txt, etc). Entretanto, precisaremos de conversores para outros formatos não-ASCII (ps, pdf, etc). Acabo de criar uma DTD `issue-artigo.dtd' anexada, a ser utilizada pelos colaboradores. Os artigos aceitos, irão compor a `issue' a ser formatada conforme a DTD `issue.dtd'. O ideal é que esse processo seja automatizado o máximo possível, de forma que as coisas funcionem por si só, sem necessidade de intervenções. Sendo preciso apenas algum(ns) editore(s) para definir(em) que artigos serão ou não incluídos na próxima `issue' a ser publicada. Qualquer sugestão e ajuda é bem vinda!! -- Ednardo Lobo - www.elobo.cjb.net -------------- Próxima Parte ---------- -------------- Próxima Parte ---------- Um anexo não texto foi limpo... Nome : issue.xml Tipo : text/xml Tam : 3217 bytes Descr.: não disponível Url : http://mail.pm.org/pipermail/cascavel-pm/attachments/20030113/c367ea6c/issue.xml -------------- Próxima Parte ---------- - Tekneeq Issue # Data: Home Page: http:// Email:
        
        
- INDICE . , <>, - ARTIGOS . , - <>, - TOPICOS . -------------- Próxima Parte ---------- Um anexo não texto foi limpo... Nome : xml2tmpl.pl Tipo : application/x-perl Tam : 3279 bytes Descr.: não disponível Url : http://mail.pm.org/pipermail/cascavel-pm/attachments/20030113/c367ea6c/xml2tmpl.bin -------------- Próxima Parte ---------- Um anexo não texto foi limpo... Nome : valid.pl Tipo : application/x-perl Tam : 795 bytes Descr.: não disponível Url : http://mail.pm.org/pipermail/cascavel-pm/attachments/20030113/c367ea6c/valid.bin -------------- Próxima Parte ---------- From glasswalk3r em yahoo.com.br Mon Jan 13 10:30:46 2003 From: glasswalk3r em yahoo.com.br (=?iso-8859-1?q?Alceu=20R.=20de=20Freitas=20Jr.?=) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] dúvidas quanto à funções Message-ID: <20030113163046.64523.qmail@web20210.mail.yahoo.com> Olá lista, Estou com duas dúvidas sobre a possibilidade da existência de duas funções, cuja as quais estou precisando: 1 - Uma função no módulo CGI, que permite eu criar um url, que faz a chamada ao próprio CGI, passando os parâmetros e o parâmetro de submit. Eu consegui fazer isso alterando o formulário para utilizar o método get ao invés de post, e simplesmente criando um link HTML com a url. Só que a string é exibida na janela do browser: eu gostaria de enviar isso como método post (de forma que não apareça nada). Isso é possível? A princípio eu achei que a função header() seria a solução, mas a documentação dela é um tanto espartana no CGI.pm. Alguma dica? 2 - Essa deve ser fácil: eu tenho uma variável escalar com data no formato (dd/mm/aaaa) e uma segunda variável escalar, também com data. Eu quero subtrair (ou somar) uma data da outra, de forma que tenha a quantidade de dias (ou meses). Eu poderia converter tudo para segundos e ficar fazendo uma porção de cálculos, mas estou me sentindo meio preguiçoso hoje. Existe alguma função (ou módulo) que resolva isso de uma forma mais simples? Grato, ===== Alceu Rodrigues de Freitas Junior -------------------------------------- glasswalk3r@yahoo.com.br http://www.imortais.cjb.net -- Notice that the stiffest tree is most easily cracked, while the bamboo or willow survives by bending with the wind. ----- Bruce Lee _______________________________________________________________________ Busca Yahoo! O melhor lugar para encontrar tudo o que você procura na Internet http://br.busca.yahoo.com/ From ocxy em host.sk Mon Jan 13 11:27:57 2003 From: ocxy em host.sk (ocxy) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] Projeto Alfandega Message-ID: <20030113172757.M19059@host.sk> Ola Amigos... (estou a ativa novamente hehehe) Voces conhecem o Alfandega eh um software feito em Perl que ajuda na configuracao das tabelas do iptables, uma otima ideia, que ajudara muitos administradores, o projeto e feito por brasileiros, apesar da home page do projeto ser em ingles, os quais estao inclusos em nossa lista cascavel.pm.org Saibam mais em http://alfandega.sourceforge.net ocxy www.ocxy.com icq: 1282982 ocxy@ocxy.com - ocxy@host.sk From ednardo em elobo.cjb.net Mon Jan 13 12:21:00 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] xml2tmpl.pl: =?iso-8859-1?Q?Corre=E7=E3?= =?iso-8859-1?Q?o?= de Problema! Message-ID: <20030113182100.GV23152@pinguim.elobo.cjb.net> Em anexo ... -- Ednardo Lobo - www.elobo.cjb.net -------------- Próxima Parte ---------- Um anexo não texto foi limpo... Nome : xml2tmpl.pl Tipo : application/x-perl Tam : 3755 bytes Descr.: não disponível Url : http://mail.pm.org/pipermail/cascavel-pm/attachments/20030113/c9597f0f/xml2tmpl.bin From alaska em slackroot.net Wed Jan 15 07:00:32 2003 From: alaska em slackroot.net (alaska@slackroot.net) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] dúvidas quanto à funções In-Reply-To: <20030113163046.64523.qmail@web20210.mail.yahoo.com> References: <20030113163046.64523.qmail@web20210.mail.yahoo.com> Message-ID: <20030115110032.41329b2a.alaska@slackroot.net> Aproveitando o embalo... Preciso de uma funcao tipo o unique.... q tire repetidos... Obrigado, Danilo On Mon, 13 Jan 2003 13:30:46 -0300 (ART) "Alceu R. de Freitas Jr." wrote: > Olá lista, > > Estou com duas dúvidas sobre a possibilidade da > existência de duas funções, cuja as quais estou > precisando: > > 1 - Uma função no módulo CGI, que permite eu criar um > url, que faz a chamada ao próprio CGI, passando os > parâmetros e o parâmetro de submit. Eu consegui fazer > isso alterando o formulário para utilizar o método get > ao invés de post, e simplesmente criando um link HTML > com a url. Só que a string é exibida na janela do > browser: eu gostaria de enviar isso como método post > (de forma que não apareça nada). Isso é possível? > A princípio eu achei que a função header() seria a > solução, mas a documentação dela é um tanto espartana > no CGI.pm. Alguma dica? > > 2 - Essa deve ser fácil: eu tenho uma variável escalar > com data no formato (dd/mm/aaaa) e uma segunda > variável escalar, também com data. Eu quero subtrair > (ou somar) uma data da outra, de forma que tenha a > quantidade de dias (ou meses). Eu poderia converter > tudo para segundos e ficar fazendo uma porção de > cálculos, mas estou me sentindo meio preguiçoso hoje. > Existe alguma função (ou módulo) que resolva isso de > uma forma mais simples? > > Grato, > > > ===== > Alceu Rodrigues de Freitas Junior > -------------------------------------- > glasswalk3r@yahoo.com.br > http://www.imortais.cjb.net > -- > Notice that the stiffest tree is most easily cracked, while the bamboo or willow survives by bending with the wind. ----- Bruce Lee > > _______________________________________________________________________ > Busca Yahoo! > O melhor lugar para encontrar tudo o que você procura na Internet > http://br.busca.yahoo.com/ > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > From ednardo em elobo.cjb.net Wed Jan 15 14:47:30 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] Issue Cascavel: =?iso-8859-1?Q?Altera=E7?= =?iso-8859-1?Q?=F5es_na_Especifica=E7=E3o?= Message-ID: <20030115204730.GE23152@pinguim.elobo.cjb.net> Para facilitar o entendimento, por parte dos colaboradores, mudei o nome de alguns elementos da DTD original. -> -> Foi acrescentado a possibilidade de criação de sub-tópicos, ou melhor, agora sub-capítulos. Também foi acrescentado um conjunto de elementos para a definição de referencias bibliográficas (veja DTD em anexo). Sugestões e críticas são bem-vidos! Obrigado, -- Ednardo Lobo - www.elobo.cjb.net -------------- Próxima Parte ---------- -------------- Próxima Parte ---------- - Tekneeq Issue # Data: Home Page: http:// Email:
        
        
- INDICE . , <>, - ARTIGOS . , - <>,
            
            
- CAPITULOS .
                
                
- REFERENCIAS - Online . () - Livros . - "", , Ed., vol. , pp.
-------------- Próxima Parte ---------- Um anexo não texto foi limpo... Nome : xml2tmpl.pl Tipo : application/x-perl Tam : 5522 bytes Descr.: não disponível Url : http://mail.pm.org/pipermail/cascavel-pm/attachments/20030115/6301a023/xml2tmpl.bin From mhenke em inf.ufrgs.br Wed Jan 15 12:50:03 2003 From: mhenke em inf.ufrgs.br (Marcia Henke) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] Hashes buscando pelo nome Message-ID: <000b01c2bcc6$eab879a0$4253368f@inf.ufrgs.br> Olá pessoal !!!!! Sou iniciante em perl. Criei um módulo .pm com um Hash, e estou criando os método para comportamento desse módulo. Meu probleminha é o seguinte : Quero um método que receba como parâmetro o nome da chave e me retorne o valor . Eu gravei esse hash, que criei em um arquivo, e gostaria de ler deste arquivo, pois vai ser com este arquivo que vou interagir o tempo todo. Agradeceria a ajuda. Márcia From ednardo em elobo.cjb.net Wed Jan 15 16:58:36 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] Hashes buscando pelo nome In-Reply-To: <000b01c2bcc6$eab879a0$4253368f@inf.ufrgs.br> References: <000b01c2bcc6$eab879a0$4253368f@inf.ufrgs.br> Message-ID: <20030115225836.GF23152@pinguim.elobo.cjb.net> On Wed, Jan 15, 2003 at 04:50:03PM -0200, Marcia Henke wrote: > Olá pessoal !!!!! > > Sou iniciante em perl. > Criei um módulo .pm com um Hash, e estou criando os método para > comportamento desse módulo. > Meu probleminha é o seguinte : > Quero um método que receba como parâmetro o nome da chave e me retorne > o valor . Eu gravei esse hash, que criei em um arquivo, e gostaria de > ler deste arquivo, pois vai ser com este arquivo que vou interagir o > tempo todo. > > Agradeceria a ajuda. > Márcia > Olá Márcia!! Você poderia ser mais específica no relato do seu problema? Eu entendi o que você quer fazer, mas não consegui perceber onde você está tendo dificuldades. -- Ednardo Lobo - www.elobo.cjb.net From anarquis em mail.ru Thu Jan 16 22:22:19 2003 From: anarquis em mail.ru (Pablo Valerio Polonia) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] " Embedding Perl in HTML with Mason " esta disponivel para download Message-ID: <001e01c2bde0$070c3640$8b00000a@anarquis> O mason é uma ferramenta de modelagem versatil para encaixar o Perl no texto. Oferece muitas características ajudar-lhe criar web sites dinamicos de componentes reciclaveis. Além de modelagem, fornece numerosos outras características como: a.. Manipulacao de parametros integrados para requisições Web. b.. Cache API acessivel aos usuarios. c.. integraçao com o mod_perl (apache). d.. Filtragem de conteudo Você pode encontrar o livro "Embedding Perl in HTML with Mason" disponivel On-line no link abaixo: http://www.masonbook.com/book/ Uma curiosidade o nome do programa: Mason vem do Inglês "pedreiro / Britador" devido a sua capacidade de "esculpir" o texto e encaixa-lo no perl. bejinhos molhados do anarquis. ;******* -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20030117/bfc0995f/attachment.htm From fabiano em cascavel.pm.org Sun Jan 19 13:17:49 2003 From: fabiano em cascavel.pm.org (Fabiano) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] Issue: XML -> PDF Message-ID: <20030119191749.M37795@cascavel.pm.org> Ola' pessoal. Agora a issue tem mais um formato de arquivo (.pdf) para poder se adequar a todos os usuarios. Tive que retirar os acentos, pois estou tendo problemas em converte-los... se alguem tiver alguma solucao eu agradeco. :> Script: http://cascavel.pm.org/~fabiano/xml2pdf.perl Exemplo: http://cascavel.pm.org/issue/issue.pdf []'s --Fabiano Reese Righetti (fabiano@cascavel.pm.org) From mhenke em inf.ufrgs.br Mon Jan 20 06:07:52 2003 From: mhenke em inf.ufrgs.br (Marcia Henke) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] Instanciando um objeto... Message-ID: <003a01c2c07c$8eca5e60$4253368f@inf.ufrgs.br> Olá pessoal !! Estou usando perl 5.6.1, em um SO SuSE7.3. Estou com um pequeno problema na instanciação do meu objeto tipo hashes. Criei um pacote ServicesStatus.pm e quero intanciá-lo, mas estou tendo o seguinte erro: ServicesStatus.pm did not return a true value at ./instanciaHashes.pl line 3. BEGIN failed--compilation aborted at ./instanciaHashes.pl line 3. Meu pacote .pm inicia da seguinte forma : package ServicesStatus; my %flags = (); sub new { my $type = shift; my $self = {}; _readStatusFile(); $self->{status} = \%flags; return bless $self, $type; } sub _readStatusFile { open (FILE, "< services.dat") or die "Impossível abrir services.dat:$!"; while () { chomp; ($key, $value) = split(" ", $_, 2); if ($key && $value) { $flags{$key} = $value; } print "O valor da chave $key é $value.\n"; } close (FILE); } E a classe de instancia é um .pl que esta implementado da seguinte forma : #!/usr/bin/perl -w use ServicesStatus; my $obj = new ServicesStatus(); O que estou fazendo errado ??? Agradeço a atenção Márcia From ednardo em elobo.cjb.net Mon Jan 20 08:44:09 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] Instanciando um objeto... In-Reply-To: <003a01c2c07c$8eca5e60$4253368f@inf.ufrgs.br> References: <003a01c2c07c$8eca5e60$4253368f@inf.ufrgs.br> Message-ID: <20030120144409.GO23152@pinguim.elobo.cjb.net> Oi Márcia!! Você esqueceu um pequeno detalhe, a última instrução em um pacote deve retornar um valor logicamente verdadeiro. No caso do seu pacote, a última instrução 'my %flags = ()', retonará um valor falso, porque você está atribuindo um valor indefinido (logicamente avaliado como falso). Simplesmente acrescente a linha de código '1;' após a última instrução em seu pacote e nenhum erro será mais reportado. Abraços, On Mon, Jan 20, 2003 at 10:07:52AM -0200, Marcia Henke wrote: > Olá pessoal !! > > Estou usando perl 5.6.1, em um SO SuSE7.3. > Estou com um pequeno problema na instanciação do meu objeto tipo > hashes. Criei um pacote ServicesStatus.pm e quero intanciá-lo, mas > estou tendo o seguinte erro: > > ServicesStatus.pm did not return a true value at ./instanciaHashes.pl > line 3. > BEGIN failed--compilation aborted at ./instanciaHashes.pl line 3. > > Meu pacote .pm inicia da seguinte forma : > > package ServicesStatus; > > my %flags = (); > > sub new { > my $type = shift; > my $self = {}; > _readStatusFile(); > $self->{status} = \%flags; > return bless $self, $type; > } > > sub _readStatusFile { > open (FILE, "< services.dat") or die "Impossível abrir services.dat:$!"; > while () { > chomp; > ($key, $value) = split(" ", $_, 2); > if ($key && $value) { > $flags{$key} = $value; > } > print "O valor da chave $key é $value.\n"; > } > close (FILE); > } > > E a classe de instancia é um .pl que esta implementado da seguinte > forma : #!/usr/bin/perl -w > > use ServicesStatus; > > my $obj = new ServicesStatus(); > > O que estou fazendo errado ??? > > Agradeço a atenção > Márcia -- Ednardo Lobo - www.elobo.cjb.net From fabiano em cascavel.pm.org Thu Jan 23 14:29:09 2003 From: fabiano em cascavel.pm.org (Fabiano) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] Tekneeq issue Message-ID: <20030123202909.M48760@cascavel.pm.org> Olá pessoal. Está tudo pronto para começar a ser lançada as issues, e com isto contamos com a ajuda de todos dispostos a escrever algum artigo sobre qualquer assunto relacionado a perl e de qualquer nível de complexidade. Os interessados favor entrar em contato por email (cascavel@pm.org) ou irc (#perl @ irc.tpa.com.br). Exemplos de como ficará as issues: Versão HTML - http://cascavel.pm.org/issue/issue.html Versão PDF - http://cascavel.pm.org/issue/issue.pdf Obrigado. --Fabiano Reese Righetti (fabiano@cascavel.pm.org) From mhenke em inf.ufrgs.br Fri Jan 31 06:40:49 2003 From: mhenke em inf.ufrgs.br (Marcia Henke) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] Erro no envio email com attachment ... Message-ID: <008301c2c925$fc7fc4c0$4253368f@inf.ufrgs.br> Conteúdo pulado do tipo multipart/related-------------- Próxima Parte ---------- Um anexo não texto foi limpo... Nome : Andreia Regalino.vcf Tipo : text/x-vcard Tam : 138 bytes Descr.: não disponível Url : http://mail.pm.org/pipermail/cascavel-pm/attachments/20030131/8b66c4d5/AndreiaRegalino.vcf From lup em terra.com.br Fri Jan 31 09:12:53 2003 From: lup em terra.com.br (Luciano) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] Erro no envio email com attachment ... References: <008301c2c925$fc7fc4c0$4253368f@inf.ufrgs.br> Message-ID: <3E3A9275.2020705@terra.com.br> Oi Márcia, A primeira coisa que eu notei errado no seu código é o seguinte: **$1 = "mhenke@inf.ufrgs.br ";** Antes do @ você deve colocar uma barra invertida \, pois assim a Perl vai saber que tu quer escapar o caractere @ e não pegar o array @inf. Então fica: $1="**mhenke\@inf.ufrgs.br ";** Isso vale para todos os outros caracteres especiais, como $, &, % , ... Para poupar esse trabalho você pode fazer $1= '**mhenke@inf.ufrgs.br'; ** , isso vai garantir que tudo é texto, nada de referências a funções, variáveis ou métodos. Serve como dica você usar nomes de variáveis mais intuitivos do que $1, $2... isso pode te confundir fácilmente ou outra pessoa que venha a trabalhar no teu código. Espero que isso ajude. Um abraço, Luciano Greiner Marcia Henke wrote: > * > Estou tentando mandar um email com attach, mas o seguinte script que > criei esta dando o seguinte erro : > Script é: ################# > #!/usr/bin/perl > > use MIME::Lite; > > $0 = "System09.log"; > $1 = "mhenke@inf.ufrgs.br "; > $2 = "smtp.inf.ufrgs.br"; > $3 = "Teste de email com attach.\n"; > $4 = "Em anexo arquivo.\n"; > $5 = 'TEXT'; > $6 = "/home/monitor/logs/2003/System09.log"; > $7 = "marcia@suryatec.com.br "; > > Mail_File ($0, $1, $2, $3, $4, $5, $6, $7); > > sub Mail_File { > my ($fileName, $myMailAddress, $email_address, $title, > $body_message, $fileType, $fileName, $o > utFileName) = @_; > $fileName = $_[0]; # To attach > $myMailAddress = $_[1]; # Your email address / address e-mail > should appear from > $email_address = $_[2]; # Recipients mail address > $title = $_[3]; # Email title > $body_message = $_[4]; # Text in main part of e-mail > $fileType = $_[5]; # Know whether attachment is 'BINARY' or > 'TEXT' > $fileName = $_[6]; # Name of file to attach (including path) > $outFileName = $_[7]; # Name to give e-mail attachment > > # Create MIME::Lite mail object > my $msg = MIME::Lite->new( > From => $myMailAddress, > To => $email_address, > Subject => $title, > Type => 'multipart/mixed', > ); > # Main Body of message > $msg->attach( > Type => 'TEXT', > Data => $body_message > ); > > # Attach file here > $msg->attach(Type => $fileType, > Path => $fileName, > Filename => $outFileName, > Disposition => 'attachment' > ); > # Send e-mail > $msg->send(); > } # end sub Mail_File > O seguinte erro : ############### > Modification of a read-only value attempted at ./attach.pl line 6. > > Márcia Henke > * > > ------------------------------------------------------------------------ > Esta mensagem foi verificada pelo E-mail Protegido Terra > . > Scan engine: VirusScan / Atualizado em 29/01/2003 / Versão: 1.3.13 > Proteja o seu e-mail Terra: http://www.emailprotegido.terra.com.br/ > From ednardo em elobo.cjb.net Fri Jan 31 09:52:26 2003 From: ednardo em elobo.cjb.net (Ednardo Lobo) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] Erro no envio email com attachment ... In-Reply-To: <008301c2c925$fc7fc4c0$4253368f@inf.ufrgs.br> References: <008301c2c925$fc7fc4c0$4253368f@inf.ufrgs.br> Message-ID: <20030131155225.GL21228@pinguim.elobo.cjb.net> On Fri, Jan 31, 2003 at 10:40:49AM -0200, Marcia Henke wrote: > Citrus Punch > > Estou tentando mandar um email com attach, mas o seguinte script que > criei esta dando o seguinte erro : Script é: ################# > #!/usr/bin/perl > > use MIME::Lite; > > $0 = "System09.log"; > $1 = "mhenke@inf.ufrgs.br"; > $2 = "smtp.inf.ufrgs.br"; > $3 = "Teste de email com attach.\n"; > $4 = "Em anexo arquivo.\n"; > $5 = 'TEXT'; > $6 = "/home/monitor/logs/2003/System09.log"; > $7 = "marcia@suryatec.com.br"; > > Mail_File ($0, $1, $2, $3, $4, $5, $6, $7); > > sub Mail_File { > my ($fileName, $myMailAddress, $email_address, $title, $body_message, $fileType, $fileName, $o > utFileName) = @_; > $fileName = $_[0]; # To attach > $myMailAddress = $_[1]; # Your email address / address e-mail should appear from > $email_address = $_[2]; # Recipients mail address > $title = $_[3]; # Email title > $body_message = $_[4]; # Text in main part of e-mail > $fileType = $_[5]; # Know whether attachment is 'BINARY' or 'TEXT' > $fileName = $_[6]; # Name of file to attach (including path) > $outFileName = $_[7]; # Name to give e-mail attachment > > # Create MIME::Lite mail object > my $msg = MIME::Lite->new( > From => $myMailAddress, > To => $email_address, > Subject => $title, > Type => 'multipart/mixed', > ); > # Main Body of message > $msg->attach( > Type => 'TEXT', > Data => $body_message > ); > > # Attach file here > $msg->attach(Type => $fileType, > Path => $fileName, > Filename => $outFileName, > Disposition => 'attachment' > ); > # Send e-mail > $msg->send(); > } # end sub Mail_File > > O seguinte erro : ############### > Modification of a read-only value attempted at ./attach.pl line 6. > > Márcia Henke As variáveis $0, $1, $2, etc., são reservadas e read-only, não podendo receber valor explícitos como você está fazendo em seu programa. Elas serão implicitamente alteradas quando uma expressão regular avaliada possuir os formatadores agrupadores '(' e ')', sendo inicializadas com o valores agrupados. -- Ednardo Lobo - www.elobo.cjb.net Por favor, evitem enviar anexos no formato MS-Office, obrigado! Veja: http://www.fsf.org/philosophy/no-word-attachments.pt.html From emaildozeh em bol.com.br Fri Jan 31 21:34:53 2003 From: emaildozeh em bol.com.br (Albert Knox) Date: Mon Aug 2 21:26:33 2004 Subject: [Cascavel-pm] msgs mais leves Message-ID: <1044070495.370.3.camel@debian> olá, eu sou novo no grupo e tudo mais. Não quero atrapalhar o andamento da lista mas só queria expor a minha opnião à respeito das mensagens enviadas. Teve uma esses dias que tinha imagem de fundo.. figurinhas.. e tudo que tem direito. Acho que é um caso de bom censo. Sempre que possível seria legal que enviassem as msgs em modo texto, pois estas são super legíveis e mais leves que as em html. Sei lá também.. é a minnha opnião. ;) t+