From edencardim em gmail.com  Thu Jun  1 04:28:28 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Thu, 1 Jun 2006 08:28:28 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Como_obrigar_uma_regex_a_parar_e_um_?=
	=?iso-8859-1?q?determinado_local_durante_a_avalia=E7=E3o=3F?=
In-Reply-To: <9a08c9b40605311550m4d6fcf8cmcc99c984bb9a0674@mail.gmail.com>
References: <3de55ead0605301414wc471396s524f0b8779aa7f43@mail.gmail.com>
	<9a08c9b40605311550m4d6fcf8cmcc99c984bb9a0674@mail.gmail.com>
Message-ID: <3de55ead0606010428p496a3639gc0624a8f7d40d4d4@mail.gmail.com>

On 5/31/06, Nilson Santos Figueiredo Junior <acid06 em gmail.com> wrote:
> Não estou dando uma resposta direta ao seu problema, mas...
>
> Problemas de reconhecimento de substrings e/ou alinhamento de strings
> são coisas bem estudadas na ciência da computação (e bastante
> aplicadas na área de bioinformática). Usar uma expressão regular pra
> esse tipo de tarefa, não costuma apresentar bons resultados, pois a
> engine de expressão regular utiliza um algoritmo de backtracking.
> Existem algoritmos baseados em programação dinâmica pra esse tipo de
> tarefa que a resolvem a tarefa de forma *bem* mais eficiente.

Exatamente, estou montando um protótipo de um sistema de
bioinformatica que precisa funcionar razoavelmente e tenho um prazo
quase impraticável, por isso queria uma solução mais simples e
"straightfoward" pq tenho mais uns 6 algoritmos desse tipo, um
front-end web e um banco de dados para entregar dentro de 2 semanas (e
posso chorar por mais 1 semana). Quando estiver tudo encaixado, vou
aperfeiçoando as partes individuais, seguindo o modelo de
desenvolvimento espiral, etc, eventualmente, vou substituir a regex
por um algorítmo decente.
Eu ainda queria saber (por curiosidade) se existe alguma forma que me
permita instruir ao o mecanismo de reconhecimento de regex quando
parar de consumir os caracteres da string e aceitar ou não a substring
consumida até o momento, algo como:
/((.)(?{$x++ if $2 eq 'X'; accept if $x > 10 }))+/
mesmo sabendo que isso não resolve o meu problema.

From glasswalk3r em yahoo.com.br  Thu Jun  1 05:39:37 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Thu, 1 Jun 2006 09:39:37 -0300 (ART)
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Como_obrigar_uma_regex_a_parar_e_um_?=
 =?iso-8859-1?q?determinado_local_durante_a_avalia=E7=E3o=3F?=
In-Reply-To: <aa47605d0605312006l6d2c61b8i92cfd70ed5a2ada6@mail.gmail.com>
Message-ID: <20060601123937.89187.qmail@web30812.mail.mud.yahoo.com>


--- "Flavio S. Glock" <fglock em gmail.com> escreveu:

> Em 31/05/06, Luis Motta
> Campos<monsieur_champs em yahoo.com.br> escreveu:
> >    Bom, agora que você, mencionou, que diabos vem
> a ser "moving average"???
> 
> É um algoritmo para calcular a média local de um
> stream - você vai
> colocando os itens em uma fifo e tem a média do
> buffer de forma bem
> eficiente - mais ou menos assim:
>   # para cada novo item do stream:
>   push @buf, $x;
>   $soma += $x;
>   $last = pop @buf;
>   $soma -= $last;
>   # media = $soma / scalar @buf

Legal Flávio... mas qual a aplicação dessa média?

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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

__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

From acid06 em gmail.com  Thu Jun  1 07:14:13 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 1 Jun 2006 11:14:13 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Como_obrigar_uma_regex_a_parar_e_um_?=
	=?iso-8859-1?q?determinado_local_durante_a_avalia=E7=E3o=3F?=
In-Reply-To: <3de55ead0606010428p496a3639gc0624a8f7d40d4d4@mail.gmail.com>
References: <3de55ead0605301414wc471396s524f0b8779aa7f43@mail.gmail.com>
	<9a08c9b40605311550m4d6fcf8cmcc99c984bb9a0674@mail.gmail.com>
	<3de55ead0606010428p496a3639gc0624a8f7d40d4d4@mail.gmail.com>
Message-ID: <9a08c9b40606010714qa441ec5td1667e101d8d2efc@mail.gmail.com>

On 6/1/06, Eden Cardim <edencardim em gmail.com> wrote:
> Eu ainda queria saber (por curiosidade) se existe alguma forma que me
> permita instruir ao o mecanismo de reconhecimento de regex quando
> parar de consumir os caracteres da string e aceitar ou não a substring
> consumida até o momento, algo como:
> /((.)(?{$x++ if $2 eq 'X'; accept if $x > 10 }))+/
> mesmo sabendo que isso não resolve o meu problema.

Ao menos "aceitar ou não a substring consumida até o momento" eu sei
que tem jeito, dê uma olhada na seção "Extended patterns" da manpage
perlre. Em particular, leia as formas que estão marcadas como
"experimentais" (elas estão marcadas assim já fazem alguns anos e é
seguro utilizá-las). Mas agora eu realmente não tenho como quebrar a
cabeça e tentar fazê-la para te mostrar um exemplo.

Talvez, se você perguntar no PerlMonks eles possam te dar uma resposta
mostrando como se faz, não sei.

-Nilson Santos F. Jr.

From edencardim em gmail.com  Thu Jun  1 08:35:06 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Thu, 1 Jun 2006 12:35:06 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Como_obrigar_uma_regex_a_parar_e_um_?=
	=?iso-8859-1?q?determinado_local_durante_a_avalia=E7=E3o=3F?=
In-Reply-To: <9a08c9b40606010714qa441ec5td1667e101d8d2efc@mail.gmail.com>
References: <3de55ead0605301414wc471396s524f0b8779aa7f43@mail.gmail.com>
	<9a08c9b40605311550m4d6fcf8cmcc99c984bb9a0674@mail.gmail.com>
	<3de55ead0606010428p496a3639gc0624a8f7d40d4d4@mail.gmail.com>
	<9a08c9b40606010714qa441ec5td1667e101d8d2efc@mail.gmail.com>
Message-ID: <3de55ead0606010835u1dcf1364tf022ea65485beeaf@mail.gmail.com>

On 6/1/06, Nilson Santos Figueiredo Junior <acid06 em gmail.com> wrote:
> perlre. Em particular, leia as formas que estão marcadas como
> "experimentais" (elas estão marcadas assim já fazem alguns anos e é
> seguro utilizá-las).

Achei! Valeu...

From fglock em gmail.com  Thu Jun  1 09:17:15 2006
From: fglock em gmail.com (Flavio S. Glock)
Date: Thu, 1 Jun 2006 13:17:15 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Como_obrigar_uma_regex_a_parar_e_um_?=
	=?iso-8859-1?q?determinado_local_durante_a_avalia=E7=E3o=3F?=
In-Reply-To: <20060601123937.89187.qmail@web30812.mail.mud.yahoo.com>
References: <aa47605d0605312006l6d2c61b8i92cfd70ed5a2ada6@mail.gmail.com>
	<20060601123937.89187.qmail@web30812.mail.mud.yahoo.com>
Message-ID: <aa47605d0606010917h18fefcb1u96d9a2f46d852bc6@mail.gmail.com>

Em 01/06/06, Alceu R. de Freitas Jr.<glasswalk3r em yahoo.com.br> escreveu:
> Legal Flávio... mas qual a aplicação dessa média?

Neste caso, ela pode servir para calcular a densidade de caracteres
"corretos" em cada região do arquivo - indicando onde é mais provável
encontrar a string mais longa.

- Flavio S. Glock

From frighetti em cascavel.pm.org  Thu Jun  1 14:29:43 2006
From: frighetti em cascavel.pm.org (Fabiano Reese Righetti)
Date: Thu, 01 Jun 2006 18:29:43 -0300
Subject: [Cascavel-pm] CGI::Application e mod_perl2
Message-ID: <447F5C47.4040704@cascavel.pm.org>

    Olá Monges!

    Estou encontrando uma certa dificuldade em funcionar de forma
correta uma aplicação CGI::Application sobre mod_perl2.

    A aplicação que estou tentando esta "façanha" é a disponibilizada
pelo grande 'Champs' no seu artigo: "Construindo um Website Dinâmico
com Class::DBI, CGI::Application e Template Toolkit"
http://sao-paulo.pm.org/papers/champs/cgi-app-paper/index.html, e
aproveitando... Belo trabalho 'Champs'! ;)

    Segue abaixo como estou conseguindo rodar a mesma no mod_perl2,
mas gostaria de ver com os Monges se estou cometendo algum pecado
e se existe uma maneira melhor de realizar esta tarefa...

=head1 httpd.conf
...
PerlModule Auth::User
<Location /auth_user.html>
         SetHandler modperl
         PerlResponseHandler Auth::User
         PerlOptions +GlobalRequest
</Location>
...
=cut

    E criei um handler no Auth::User da seguinte forma:

=head1 Auth::User
...
use Apache2::RequestRec;
use Apache2::RequestIO ();

use Apache2::Const -compile => qw/OK/;

sub handler : method
{
	my ($class, $request) = @_;
	
	$request->print (
		( __PACKAGE__->new )->run()
	);
		
	return Apache2::Const::OK;
}
...
=cut

Grato,
--
Fabiano Reese Righetti

From monsieur_champs em yahoo.com.br  Thu Jun  1 15:54:45 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Thu, 01 Jun 2006 23:54:45 +0100
Subject: [Cascavel-pm] CGI::Application e mod_perl2
In-Reply-To: <447F5C47.4040704@cascavel.pm.org>
References: <447F5C47.4040704@cascavel.pm.org>
Message-ID: <447F7035.6040909@yahoo.com.br>

Fabiano Reese Righetti wrote:
>     Olá Monges!
> 
>     Estou encontrando uma certa dificuldade em funcionar de forma
> correta uma aplicação CGI::Application sobre mod_perl2.
> 
>     A aplicação que estou tentando esta "façanha" é a disponibilizada
> pelo grande 'Champs' no seu artigo: "Construindo um Website Dinâmico
> com Class::DBI, CGI::Application e Template Toolkit"
> http://sao-paulo.pm.org/papers/champs/cgi-app-paper/index.html, e
> aproveitando... Belo trabalho 'Champs'! ;)
> 
>     Segue abaixo como estou conseguindo rodar a mesma no mod_perl2,
> mas gostaria de ver com os Monges se estou cometendo algum pecado
> e se existe uma maneira melhor de realizar esta tarefa...
> 
> =head1 httpd.conf
> ...
> PerlModule Auth::User
> <Location /auth_user.html>
>          SetHandler modperl
>          PerlResponseHandler Auth::User
>          PerlOptions +GlobalRequest
> </Location>
> ...
> =cut
> 
>     E criei um handler no Auth::User da seguinte forma:
> 
> =head1 Auth::User
> ...
> use Apache2::RequestRec;
> use Apache2::RequestIO ();
> 
> use Apache2::Const -compile => qw/OK/;
> 
> sub handler : method
> {
> 	my ($class, $request) = @_;
> 	
> 	$request->print (
> 		( __PACKAGE__->new )->run()
> 	);
> 		
> 	return Apache2::Const::OK;
> }
> ...
> =cut

  Hum. Até onde eu sei, esta me parece ser "a" forma correta...
  Talvez você tenha problemas internos.
  Uma mensagem de erro seria muito útil...

-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From frighetti em cascavel.pm.org  Thu Jun  1 16:10:13 2006
From: frighetti em cascavel.pm.org (Fabiano Reese Righetti)
Date: Thu, 01 Jun 2006 20:10:13 -0300
Subject: [Cascavel-pm] CGI::Application e mod_perl2
In-Reply-To: <447F7035.6040909@yahoo.com.br>
References: <447F5C47.4040704@cascavel.pm.org> <447F7035.6040909@yahoo.com.br>
Message-ID: <447F73D5.8090301@cascavel.pm.org>

>   Hum. Até onde eu sei, esta me parece ser "a" forma correta...
>   Talvez você tenha problemas internos.
>   Uma mensagem de erro seria muito útil...

    Não ocorre mensagens de erro... O que estou querendo saber é,
se estou fazendo certo e aproveitando corretamente os recursos
do mod_perl2!?!?

    Dei uma olhada no CGI::Application::Plugin::Apache e o mesmo
só trabalha com mod_perl1, no qual já discartei.

    Esbarrei com o CGI::Application::Dispatch no qual me pareceu
muito interessante... Mas fiquei com receio de utilizá-lo por
funcionar com mod_perl2 somente na sua versão de desenvolvimento.

    Alguém teria mais algo a colocar? Até sobre módulo que poderiam
ser utilizados ou no qual já tiveram experiência com os que citei.

Abraços,
--
Fabiano Reese Righetti

From monsieur_champs em yahoo.com.br  Fri Jun  2 01:19:55 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Fri, 02 Jun 2006 09:19:55 +0100
Subject: [Cascavel-pm] CGI::Application e mod_perl2
In-Reply-To: <447F73D5.8090301@cascavel.pm.org>
References: <447F5C47.4040704@cascavel.pm.org> <447F7035.6040909@yahoo.com.br>
	<447F73D5.8090301@cascavel.pm.org>
Message-ID: <447FF4AB.6020707@yahoo.com.br>

Fabiano Reese Righetti wrote:
>>   Hum. Até onde eu sei, esta me parece ser "a" forma correta...
>>   Talvez você tenha problemas internos.
>>   Uma mensagem de erro seria muito útil...
> 
>     Não ocorre mensagens de erro... O que estou querendo saber é,
> se estou fazendo certo e aproveitando corretamente os recursos
> do mod_perl2!?!?

  Eu acho que sim. Você escreveu um handler genérico para executar o
ciclo CREATE->RUN->DESTROY do seus objectos de aplicação, certo? Olhar
para este pedaço de código poderia ser interessante.

>     Dei uma olhada no CGI::Application::Plugin::Apache e o mesmo
> só trabalha com mod_perl1, no qual já discartei.

  Você tem sorte... pode contar com ModPerl2... tem muitos lugares onde
existe apenas o 1...

>     Esbarrei com o CGI::Application::Dispatch no qual me pareceu
> muito interessante... Mas fiquei com receio de utilizá-lo por
> funcionar com mod_perl2 somente na sua versão de desenvolvimento.
> 
>     Alguém teria mais algo a colocar? Até sobre módulo que poderiam
> ser utilizados ou no qual já tiveram experiência com os que citei

  O CGI::Application, assim como muitos outros módulos-base de
frameworks para aplicações para a internet, não foram projetados tendo
em mente que eventualmente o sistema de execução de scripts deixaria de
ser CGI.

  Neste sentido, o CGI::Application é jurássico, totalmente baseado e
dependente do CGI.pm, um módulo muito antigo e nem sempre funcional.

  Acho que o mais importante mesmo, se você está interessado em saber
sobre os recursos, Fabiano, é dar uma espiada sob o capô do seu motor,
para a gente ver como foi que você colocou o motor da ferrari (ModPerl)
no chassi do fusquinha (CGI::Application).

  Explica para  gente como foi que você adaptou essas duas peças juntas?
Disso podem surgir muitas ouras sugestões.

  Putamplexos!
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From frighetti em cascavel.pm.org  Fri Jun  2 06:19:23 2006
From: frighetti em cascavel.pm.org (Fabiano Reese Righetti)
Date: Fri, 02 Jun 2006 10:19:23 -0300
Subject: [Cascavel-pm] CGI::Application e mod_perl2
In-Reply-To: <447FF4AB.6020707@yahoo.com.br>
References: <447F5C47.4040704@cascavel.pm.org>
	<447F7035.6040909@yahoo.com.br>	<447F73D5.8090301@cascavel.pm.org>
	<447FF4AB.6020707@yahoo.com.br>
Message-ID: <44803ADB.1000608@cascavel.pm.org>

Luis Motta Campos escreveu:
  >   Eu acho que sim. Você escreveu um handler genérico para executar o
> ciclo CREATE->RUN->DESTROY do seus objectos de aplicação, certo? Olhar
> para este pedaço de código poderia ser interessante.

    O único pedaço de código que incluí no seu módulo exemplo Auth::User
de seu artigo foi aquele que descrevi no primeiro e-mail.

>   Você tem sorte... pode contar com ModPerl2... tem muitos lugares onde
> existe apenas o 1...

    Da maneira como implementei o handler para que funcione no mod_perl2
seria perfeitamente possivel utilizá-lo no mod_perl1, onde só precisaria
mudar a declaração do mesmo, trocando o:

sub handler : method
{
	my ($class, $r) = @_;
	...

por:

sub hander ($)
{
	my $r = $_;

*Me corriga se estou errado! Pois realmente não tenho certeza se o
mod_perl1 reconheceria o primeiro handler na forma como esta.

>   O CGI::Application, assim como muitos outros módulos-base de
> frameworks para aplicações para a internet, não foram projetados tendo
> em mente que eventualmente o sistema de execução de scripts deixaria de
> ser CGI.
> 
>   Neste sentido, o CGI::Application é jurássico, totalmente baseado e
> dependente do CGI.pm, um módulo muito antigo e nem sempre funcional.
> 
>   Acho que o mais importante mesmo, se você está interessado em saber
> sobre os recursos, Fabiano, é dar uma espiada sob o capô do seu motor,
> para a gente ver como foi que você colocou o motor da ferrari (ModPerl)
> no chassi do fusquinha (CGI::Application).
> 
>   Explica para  gente como foi que você adaptou essas duas peças juntas?
> Disso podem surgir muitas ouras sugestões.

    A grande jogada foi me preocupar em como fazer um CGI::Aplication
rodar em mod_perl2 sem necessitar de algum outro módulo para auxiliar
nesta tarefa. Foi ai que pensei em simplesmente criar um handler() que
possibilita-se o mod_perl2 "executar" a aplicação. Ficando a magica
assim:

	$r->print (
		( __PACKAGE__->new )->run();
	);

...no qual a aplicação acaba sendo reconhecida como CGI::App, e o
resultado da execução é repassada para o usuário atráves de $r->print().

    Sem nada de excepcional feito a mais para isto acontecer!

    É neste ponto que esta a minha preocupação, eu não deveria fazer
algum controle adicional? Não estou deixando algo para trás que poderia
me trazer grandes transtornos após um tempo de execução desta aplicação?

    Aproveitando o e-mail, mas sem fugir do assunto e abusando um pouco
do conhecimento dos monges. Tenho mais uma questão a levantar:

    CGI::App prove alguma forma de tratamento de run_modes() passados
pelo usuário inexistentes? Já estou pesquisando sobre o assunto e até o
momento não achei uma forma elegante de tratar quando um usuário "mal
intencionado" queira passar um run_mode que não exista na minha
aplicação, causando um erro na mesma (No such run mode...).

o_O,
--
Fabiano Reese Righetti

From ptfzs em yahoo.com.br  Fri Jun  2 19:32:13 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 2 Jun 2006 23:32:13 -0300 (ART)
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <aa47605d0605301105p1b5685ddq27ca6bb59276205f@mail.gmail.com>
Message-ID: <20060603023213.9883.qmail@web31303.mail.mud.yahoo.com>

Ola Flavio...
Desse jeito funcionou porem ele le e imprime as linhas em branco..
como retirar essas linhas??


Obrigada

"Flavio S. Glock" <fglock em gmail.com> escreveu: que tal:

use strict;
my $s = q(
- TESTE

bla bla bla
bla

- TESTE

bla
bla
bla

- TESTE

bla bla bla

- END TEST
);
print "[", join( "]\n[", split(
    /\n?[^\n]*TEST[^\n]*\n?/,
    $s
) ), "]\n";


- Flavio S. Glock

2006/5/30, Igor Sutton :
> Patty,
>
> Mais uma vez... este é o seu arquivo de input, seria interessante que você
> postasse o código que você escreveu. Você quer ler o que esteja entre
> "^-\s+TESTE$" e "^-\s+END\s+TESTE$" ou entre "-\s+TESTE$" e "-\s+TESTE$" ?
> Responda esta mensagem com o seu código também, por favor.
>
>
> On 5/30/06, Patty Silva 
 wrote:
> >
> > Pessoal, ja tentei de tudo(ou quase tudo ) :)
> > mas nao consigo somente ler os dados entre
> > - TESTE
> >
> > bla bla bla
> > bla
> >
> > - TESTE
> >
> > bla
> > bla
> > bla
> >
> > - TESTE
> >
> > bla bla bla
> >
> > - END TEST
> >
> > :(
> >
> > Alguem pode me dar um help/ please.. tentei usar o delimitador mas nao foi
> tb1!
> >
> > Obrigada
> >
> >
> > "Flavio S. Glock" < fglock em gmail.com> escreveu:
> >
> > > Patty Silva wrote:
> > > > {
> > > > local $/ = '\s - TE\n';
> >
> > Experimente usar aspas duplas " - TE\n"
> >
> > - Flavio S. Glock
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> >
> >
> >
> > ________________________________
>  Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular
> e anti-spam realmente eficaz.
> >
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> >
>
>
>
> --
> Igor Sutton Lopes
> http://www.izut.com/
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm



 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060602/ac36ac66/attachment.html 

From joenio em gmail.com  Fri Jun  2 20:13:02 2006
From: joenio em gmail.com (Joenio Marques)
Date: Sat, 3 Jun 2006 00:13:02 -0300
Subject: [Cascavel-pm] YAPC::Brasil no CoberturaWiki atualizado
Message-ID: <65934b450606022013m6f075f37mb5b3466ad20783a4@mail.gmail.com>

Olá Monges,

Dei uma arrumada no post do YAPC::Brasil::2006 da CoberturaWiki em:
http://twiki.softwarelivre.org/bin/view/CoberturaWiki/Post20060419180822

Coloquei algumas fotos postadas aqui por MDA (posso botar aas fotos lá
hein MDA?)
e anexei os slides de algumas palestras que Flavio Glock
disponibilizou, quem tiver mais material sobre as palestras favor
anexar lá...

Att,
-- 
Joenio Marques
- Salvador Perl Mongers

From igor.sutton em gmail.com  Sat Jun  3 09:48:20 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Sat, 3 Jun 2006 13:48:20 -0300
Subject: [Cascavel-pm] YAPC::Brasil no CoberturaWiki atualizado
In-Reply-To: <65934b450606022013m6f075f37mb5b3466ad20783a4@mail.gmail.com>
References: <65934b450606022013m6f075f37mb5b3466ad20783a4@mail.gmail.com>
Message-ID: <6c65a53f0606030948y3ea7f69ahc94d4e34a46617c7@mail.gmail.com>

Creio que as apresentações do David Fetter estão no site dele (
http://www.fetter.org).

On 6/3/06, Joenio Marques <joenio em gmail.com> wrote:
>
> Olá Monges,
>
> Dei uma arrumada no post do YAPC::Brasil::2006 da CoberturaWiki em:
> http://twiki.softwarelivre.org/bin/view/CoberturaWiki/Post20060419180822
>
> Coloquei algumas fotos postadas aqui por MDA (posso botar aas fotos lá
> hein MDA?)
> e anexei os slides de algumas palestras que Flavio Glock
> disponibilizou, quem tiver mais material sobre as palestras favor
> anexar lá...
>
> Att,
> --
> Joenio Marques
> - Salvador Perl Mongers
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
Igor Sutton Lopes
http://www.izut.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060603/bcace822/attachment.html 

From estevao77 em hotmail.com  Sun Jun  4 12:20:28 2006
From: estevao77 em hotmail.com (=?iso-8859-1?B?Q2FybG9zIEVzdGV2428gTW9yZWlyYSBkb3MgU2FudG9z?=)
Date: Sun, 04 Jun 2006 19:20:28 +0000
Subject: [Cascavel-pm] problemas Href
Message-ID: <BAY112-F8A4BE636F709F72F5B600B0970@phx.gbl>

Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060604/cebbfd14/attachment.html 

From pmpoa em galvao.eti.br  Sun Jun  4 14:38:58 2006
From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?=22Er_Galv=E3o_Abbott_-_PortoAlegre=2Epm=22?=)
Date: Sun, 04 Jun 2006 18:38:58 -0300
Subject: [Cascavel-pm] problemas Href
In-Reply-To: <BAY112-F8A4BE636F709F72F5B600B0970@phx.gbl>
References: <BAY112-F8A4BE636F709F72F5B600B0970@phx.gbl>
Message-ID: <448352F2.601@galvao.eti.br>

Perl FAQ 9: 
http://perldoc.perl.org/perlfaq9.html#How-do-I-redirect-to-another-page%3F

use CGI qw/:standard/;

my $url = 'http://www.foo.com.br/teste.html';
print redirect($url);

Ou você pode simplesmente dar "saída" HTML:

print "<a href=\"http://www.foo.com.br/teste.html\">teste</a>";

Parece que você precisa dar uma boa olhada na documentação do módulo CGI:

http://perldoc.perl.org/CGI.html

Abraços,

Galvão

Carlos Estevão Moreira dos Santos wrote:
>
> Usando HREF
>
>  Um HTML chama um PL  da seguinte forma:
>
> <a href='http://localhost/cgi-bin/arquivo.pl'>Pop </a>
>
> certo!
>
>  
>
> Agora como faço pra um PL chamar HTML?
>
> <a href='http://localhost/arquivo.html'>Pop </a>
>
> <a href='c:/arquivo.html'>Pop </a>
>
> não funcionam...
>
>  
>
> O que eu faço?
>
>
>  
>
>
>  
>
>
>
>
> / /"Escolha um trabalho que você ame e não terás que trabalhar um 
> único dia em sua vida"
>
> ------------------------------------------------------------------------
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

From glasswalk3r em yahoo.com.br  Mon Jun  5 04:50:07 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Mon, 5 Jun 2006 08:50:07 -0300 (ART)
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <20060603023213.9883.qmail@web31303.mail.mud.yahoo.com>
Message-ID: <20060605115007.83838.qmail@web30813.mail.mud.yahoo.com>

$_ =~ s/\s+//g;

Isso remove os espaços. Ler o perldoc correspondente
(perlre) remove as dúvidas. ;-)

[]'s
Alceu

--- Patty Silva <ptfzs em yahoo.com.br> escreveu:

> Ola Flavio...
> Desse jeito funcionou porem ele le e imprime as
> linhas em branco..
> como retirar essas linhas??
> 
> 
> Obrigada
> 
> "Flavio S. Glock" <fglock em gmail.com> escreveu: que
> tal:
> 
> use strict;
> my $s = q(
> - TESTE
> 
> bla bla bla
> bla
> 
> - TESTE
> 
> bla
> bla
> bla
> 
> - TESTE
> 
> bla bla bla
> 
> - END TEST
> );
> print "[", join( "]\n[", split(
>     /\n?[^\n]*TEST[^\n]*\n?/,
>     $s
> ) ), "]\n";
> 
> 
> - Flavio S. Glock
> 
> 2006/5/30, Igor Sutton :
> > Patty,
> >
> > Mais uma vez... este é o seu arquivo de input,
> seria interessante que você
> > postasse o código que você escreveu. Você quer ler
> o que esteja entre
> > "^-\s+TESTE$" e "^-\s+END\s+TESTE$" ou entre
> "-\s+TESTE$" e "-\s+TESTE$" ?
> > Responda esta mensagem com o seu código também,
> por favor.
> >
> >
> > On 5/30/06, Patty Silva 
>  wrote:
> > >
> > > Pessoal, ja tentei de tudo(ou quase tudo ) :)
> > > mas nao consigo somente ler os dados entre
> > > - TESTE
> > >
> > > bla bla bla
> > > bla
> > >
> > > - TESTE
> > >
> > > bla
> > > bla
> > > bla
> > >
> > > - TESTE
> > >
> > > bla bla bla
> > >
> > > - END TEST
> > >
> > > :(
> > >
> > > Alguem pode me dar um help/ please.. tentei usar
> o delimitador mas nao foi
> > tb1!
> > >
> > > Obrigada
> > >
> > >
> > > "Flavio S. Glock" < fglock em gmail.com> escreveu:
> > >
> > > > Patty Silva wrote:
> > > > > {
> > > > > local $/ = '\s - TE\n';
> > >
> > > Experimente usar aspas duplas " - TE\n"
> > >
> > > - Flavio S. Glock
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> > >
> > >
> > >
> > > ________________________________
> >  Abra sua conta no Yahoo! Mail - 1GB de espaço,
> alertas de e-mail no celular
> > e anti-spam realmente eficaz.
> > >
> > >
> > > _______________________________________________
> > > Cascavel-pm mailing list
> > > Cascavel-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > >
> > >
> >
> >
> >
> > --
> > Igor Sutton Lopes
> > http://www.izut.com/
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> >
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
> 
>  __________________________________________________
> Fale com seus amigos  de graça com o novo Yahoo!
> Messenger 
> http://br.messenger.yahoo.com/ >
_______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm


__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

From mdacwb em gmail.com  Mon Jun  5 06:22:52 2006
From: mdacwb em gmail.com (Marco A P D'Andrade)
Date: Mon, 05 Jun 2006 10:22:52 -0300
Subject: [Cascavel-pm] YAPC::Brasil no CoberturaWiki atualizado
In-Reply-To: <65934b450606022013m6f075f37mb5b3466ad20783a4@mail.gmail.com>
References: <65934b450606022013m6f075f37mb5b3466ad20783a4@mail.gmail.com>
Message-ID: <4484302C.1010200@gmail.com>

Fala Joenio!

As fotos só foram tiradas por mim, pertencem ao grupo ! ;)


Joenio Marques wrote:

>Olá Monges,
>
>Dei uma arrumada no post do YAPC::Brasil::2006 da CoberturaWiki em:
>http://twiki.softwarelivre.org/bin/view/CoberturaWiki/Post20060419180822
>
>Coloquei algumas fotos postadas aqui por MDA (posso botar aas fotos lá
>hein MDA?)
>e anexei os slides de algumas palestras que Flavio Glock
>disponibilizou, quem tiver mais material sobre as palestras favor
>anexar lá...
>
>Att,
>  
>



From ptfzs em yahoo.com.br  Mon Jun  5 10:29:34 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 5 Jun 2006 14:29:34 -0300 (ART)
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <447C8D42.20802@cascavel.pm.org>
Message-ID: <20060605172934.44475.qmail@web31308.mail.mud.yahoo.com>

Ola Fabiano.. essa solucao nao funcionou.. ele pega tudo do arquivo!!
:)

Fabiano Reese Righetti <frighetti em cascavel.pm.org> escreveu: Patty Silva escreveu:
> Eu ja tinha postado :) mas vai la!!
> 
> while () 
> {
>     local $/ = '\s - TESTE\n';
>     print $_;
>      
> }

my $var   = '';
my %dados = ();
while ()
{
 if ($_ =~ /^- TESTE (\S+)/)
 {
  $var = $1;
  $dados{$var} = [];
 }
 else
 {
  push(@{$dados{$var}}, $_);
 }
}

> 
> No caso nao funcionou..
> 
> eu quero pegar tudo que vem depois de - TESTE ou seja
> meu arquivo
> - TESTE VARIAVEL1
> Joao 23 Minas Centro
> Maria Sao Paulo
> - TESTE VARIAVELT
>   JOSE 32 
> Roberto 34
> - TESTE VARIAVELB
> bla bla bla
> 
> - END TESTE

    Peguei a conversa no final... mas espero que o código acima ajude!

Abraços,
--
Fabiano Reese Righetti
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060605/9f7be451/attachment.html 

From clebergomess em hotmail.com  Mon Jun  5 19:32:26 2006
From: clebergomess em hotmail.com (cleber gomes da silva)
Date: Mon, 05 Jun 2006 23:32:26 -0300
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <20060605172934.44475.qmail@web31308.mail.mud.yahoo.com>
Message-ID: <BAY119-F14C80275726DCF4710845DD0950@phx.gbl>

quem é vc?

_________________________________________________________________
COPA 2006: (¯`·._.·[ Ooooooola ]·._.·´¯) e + frases para seu MSN  Clique 
aqui! http://copa.br.msn.com/extra/frases/


From s.koch em brindestorm.com  Tue Jun  6 03:28:32 2006
From: s.koch em brindestorm.com (Brinde Storm - Steven Koch)
Date: Tue, 06 Jun 2006 11:28:32 +0100
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <BAY119-F14C80275726DCF4710845DD0950@phx.gbl>
Message-ID: <0J0F00G12OCK0N@mail.ahp.pt>

Porque perguntas?

Bomdia

-----Original Message-----
From: cascavel-pm-bounces+s.koch=brindestorm.com em pm.org
[mailto:cascavel-pm-bounces+s.koch=brindestorm.com em pm.org] On Behalf Of
cleber gomes da silva
Sent: terça-feira, 6 de Junho de 2006 3:32
To: cascavel-pm em pm.org
Subject: Re: [Cascavel-pm] Ler Arquivo

quem é vc?

_________________________________________________________________
COPA 2006: (¯`·._.·[ Ooooooola ]·._.·´¯) e + frases para seu MSN  Clique 
aqui! http://copa.br.msn.com/extra/frases/

_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


From edencardim em gmail.com  Tue Jun  6 05:58:10 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Tue, 6 Jun 2006 09:58:10 -0300
Subject: [Cascavel-pm] Catalyst ConfigLoader + Devel::Cover
Message-ID: <3de55ead0606060558u2c62531doc92d94ba0faf2e64@mail.gmail.com>

Saudações Monges,

Estou tendo problemas usando o Devel::Cover junto com o ConfigLoader
do Catalyst.
Quando eu rodo 'make test' sem coletar coverage, tudo funciona
perfeitamente, porém quando eu rodo
'HARNESS_PERL_SWITCHES=-MDevel::Cover make test', o ConfigLoader
simplesmente não carrega os componentes de leitura de configuração
XML, YAML, etc. Consequentemente, a aplicação toda fica sem
configuração, e a maioria dos testes não roda. Quando eu ativo a opção
'-blib' explicitamente, os testes rodam, porém o Devel::Cover coleta
coverage dos testes tb. Dá ateh pra ignorar este detalhe (por
enquanto), mas estou intrigado, já que a opção '-blib' deveria ser
ativada por padrão (segundo a documentação e pelo q entendi do código
do Devel::Cover). Já tentei explicitamente ignorar a coleta de
coverage nos testes com '+inc,t/' etc. e tb n funcionou. A doc do
Devel::Cover diz q o código eh alpha ainda, alguém pode me dizer se
estou fazendo algo errado ou se eh um bug mesmo? Valeu.

From ptfzs em yahoo.com.br  Tue Jun  6 06:35:41 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Tue, 6 Jun 2006 10:35:41 -0300 (ART)
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <447C8D42.20802@cascavel.pm.org>
Message-ID: <20060606133541.40126.qmail@web31308.mail.mud.yahoo.com>

PEssoal :( nenhuma das sugestoes funcionaram :(
alguem da um help!!

Nada de conseguir ler somente o intervalo


Fabiano Reese Righetti <frighetti em cascavel.pm.org> escreveu: Patty Silva escreveu:
> Eu ja tinha postado :) mas vai la!!
> 
> while () 
> {
>     local $/ = '\s - TESTE\n';
>     print $_;
>      
> }

my $var   = '';
my %dados = ();
while ()
{
 if ($_ =~ /^- TESTE (\S+)/)
 {
  $var = $1;
  $dados{$var} = [];
 }
 else
 {
  push(@{$dados{$var}}, $_);
 }
}

> 
> No caso nao funcionou..
> 
> eu quero pegar tudo que vem depois de - TESTE ou seja
> meu arquivo
> - TESTE VARIAVEL1
> Joao 23 Minas Centro
> Maria Sao Paulo
> - TESTE VARIAVELT
>   JOSE 32 
> Roberto 34
> - TESTE VARIAVELB
> bla bla bla
> 
> - END TESTE

    Peguei a conversa no final... mas espero que o código acima ajude!

Abraços,
--
Fabiano Reese Righetti
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060606/e16737e4/attachment.html 

From igor.sutton em gmail.com  Tue Jun  6 06:47:39 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Tue, 6 Jun 2006 10:47:39 -0300
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <20060606133541.40126.qmail@web31308.mail.mud.yahoo.com>
References: <447C8D42.20802@cascavel.pm.org>
	<20060606133541.40126.qmail@web31308.mail.mud.yahoo.com>
Message-ID: <6c65a53f0606060647i10641eb7i3ab741e43996dddb@mail.gmail.com>

Mais uma vez Patty... Não estou vendo o código que você *diz* que fez e
*diz* que não funciona. Todos aqui queremos ajudar, mas apenas podemos para
quem nos dê *algum* subsídio e boa vontade mostrando que está querendo
aprender, e não pedindo algo pronto.

Acho que a maioria está pensando a mesma coisa. Você quer *ajuda*? Envie
então o código que você está trabalhando e não funciona e a definição do que
você precisa.

Chega.

On 6/6/06, Patty Silva <ptfzs em yahoo.com.br> wrote:
>
> PEssoal :( nenhuma das sugestoes funcionaram :(
> alguem da um help!!
>
> Nada de conseguir ler somente o intervalo
>
>
>
> *Fabiano Reese Righetti <frighetti em cascavel.pm.org>* escreveu:
>
> Patty Silva escreveu:
> > Eu ja tinha postado :) mas vai la!!
> >
> > while ()
>
> > {
> > local $/ = '\s - TESTE\n';
> > print $_;
> >
> > }
>
> my $var = '';
> my %dados = ();
> while ()
>
> {
> if ($_ =~ /^- TESTE (\S+)/)
> {
> $var = $1;
> $dados{$var} = [];
> }
> else
> {
> push(@{$dados{$var}}, $_);
> }
> }
>
> >
> > No caso nao funcionou..
> >
> > eu quero pegar tudo que vem depois de - TESTE ou seja
> > meu arquivo
> > - TESTE VARIAVEL1
> > Joao 23 Minas Centro
> > Maria Sao Paulo
> > - TESTE VARIAVELT
> > JOSE 32
> > Roberto 34
> > - TESTE VARIAVELB
> > bla bla bla
> >
> > - END TESTE
>
> Peguei a conversa no final... mas espero que o código acima ajude!
>
> Abraços,
> --
> Fabiano Reese Righetti
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> __________________________________________________
> Fale com seus amigos de graça com o novo Yahoo! Messenger
> http://br.messenger.yahoo.com/
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>


-- 
Igor Sutton Lopes
http://www.izut.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060606/67db3aa4/attachment.html 

From glasswalk3r em yahoo.com.br  Tue Jun  6 07:01:00 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Tue, 6 Jun 2006 11:01:00 -0300 (ART)
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <6c65a53f0606060647i10641eb7i3ab741e43996dddb@mail.gmail.com>
Message-ID: <20060606140100.99419.qmail@web30808.mail.mud.yahoo.com>

Só faltou sugerir aquele RTFM básico...

--- Igor Sutton <igor.sutton em gmail.com> escreveu:

> Mais uma vez Patty... Não estou vendo o código que
> você *diz* que fez e
> *diz* que não funciona. Todos aqui queremos ajudar,
> mas apenas podemos para
> quem nos dê *algum* subsídio e boa vontade mostrando
> que está querendo
> aprender, e não pedindo algo pronto.
> 
> Acho que a maioria está pensando a mesma coisa. Você
> quer *ajuda*? Envie
> então o código que você está trabalhando e não
> funciona e a definição do que
> você precisa.
> 
> Chega.
> 
> On 6/6/06, Patty Silva <ptfzs em yahoo.com.br> wrote:
> >
> > PEssoal :( nenhuma das sugestoes funcionaram :(
> > alguem da um help!!
> >
> > Nada de conseguir ler somente o intervalo


__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

From edencardim em gmail.com  Tue Jun  6 07:06:07 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Tue, 6 Jun 2006 11:06:07 -0300
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <20060530170522.91209.qmail@web31304.mail.mud.yahoo.com>
References: <aa47605d0605251353n34946837qd977d1e189790305@mail.gmail.com>
	<20060530170522.91209.qmail@web31304.mail.mud.yahoo.com>
Message-ID: <3de55ead0606060706o74ac86e8scd86e5b416fb8263@mail.gmail.com>

#bem, o seguinte código funcionou comigo:
local $/;

my @registros = split (/\s*- TESTE\s*/, <DATA>);
shift @registros;
$registros[-1] =~ s/- END TEST$//;

for my $i (0..$#registros) {
	print "Registro $i:\n$registros[$i]\n";
}

__DATA__
- TESTE

bla bla bla
bla

- TESTE

bla
bla
bla

- TESTE

bla bla bla

- END TEST

From nferraz em gmail.com  Tue Jun  6 07:58:02 2006
From: nferraz em gmail.com (Nelson Ferraz)
Date: Tue, 06 Jun 2006 15:58:02 +0100
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <20060606133541.40126.qmail@web31308.mail.mud.yahoo.com>
References: <20060606133541.40126.qmail@web31308.mail.mud.yahoo.com>
Message-ID: <448597FA.8060306@gmail.com>

Patty Silva wrote:
> PEssoal :( nenhuma das sugestoes funcionaram :(
> alguem da um help!!

Patty,

Você não deve mandar um e-mail para a lista a cada pequeno problema que 
encontrar.

Se você não demonstrar que é capaz de aprender, daqui a pouco as pessoas 
vão cansar de ensinar.

Ou você espera que a gente lhe dê a solução de bandeja?

From andre.garcia.carneir em terra.com.br  Tue Jun  6 07:59:43 2006
From: andre.garcia.carneir em terra.com.br (=?iso-8859-1?b?QW5kcukgR2FyY2lhIENhcm5laXJv?=)
Date: Tue,  6 Jun 2006 11:59:43 -0300
Subject: [Cascavel-pm] Ler Arquivo
Message-ID: <J0G1NJ$15C25F266FD6F05DE21BFC2DD0E934DB@terra.com.br>


use strict;


open FILE,"meuarquivo" or die "Nao foi possível abrir o arquivo: $!";

my $line;
while(<FILE>)
{
       $line = $_;
       print $1 if ($line =~ /TESTE(*)/) ;
    
}

close FILE;




Bem tosco mesmo... eheheh !!! Cheers!

---------- Cabeçalho original -----------

De: cascavel-pm-bounces+andre.garcia.carneir=terra.com.br em pm.org
Para: "Cascavel Perl Mongers" cascavel-pm em pm.org
Cópia: 
Data: Tue, 6 Jun 2006 10:35:41 -0300 (ART)
Assunto: Re: [Cascavel-pm] Ler Arquivo

> PEssoal :( nenhuma das sugestoes funcionaram :(
> alguem da um help!!
> 
> Nada de conseguir ler somente o intervalo
> 
> 
> Fabiano Reese Righetti <frighetti em cascavel.pm.org> escreveu: Patty Silva escreveu:
> > Eu ja tinha postado :) mas vai la!!
> > 
> > while () 
> > {
> >     local $/ = '\s - TESTE\n';
> >     print $_;
> >      
> > }
> 
> my $var   = '';
> my %dados = ();
> while ()
> {
>  if ($_ =~ /^- TESTE (\S+)/)
>  {
>   $var = $1;
>   $dados{$var} = [];
>  }
>  else
>  {
>   push(@{$dados{$var}}, $_);
>  }
> }
> 
> > 
> > No caso nao funcionou..
> > 
> > eu quero pegar tudo que vem depois de - TESTE ou seja
> > meu arquivo
> > - TESTE VARIAVEL1
> > Joao 23 Minas Centro
> > Maria Sao Paulo
> > - TESTE VARIAVELT
> >   JOSE 32 
> > Roberto 34
> > - TESTE VARIAVELB
> > bla bla bla
> > 
> > - END TESTE
> 
>     Peguei a conversa no final... mas espero que o código acima ajude!
> 
> Abraços,
> --
> Fabiano Reese Righetti
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
>  __________________________________________________
> Fale com seus amigos  de graça com o novo Yahoo! Messenger 
> http://br.messenger.yahoo.com/ 
> E-mail classificado pelo Identificador de Spam Inteligente Terra.
> Para alterar a categoria classificada, visite
>
http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=andre.garcia.carneir&_l=1,1149600969.967281.30243.caneria.hst.terra.com.br,6433,Des15,Des15
> 
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Scan engine: McAfee VirusScan / Atualizado em 05/06/2006 / Versão: 4.4.00/4777
> Proteja o seu e-mail Terra: http://mail.terra.com.br/
> 

--
André Garcia Carneiro
Developer(Perl)
Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org


From andre.garcia.carneir em terra.com.br  Tue Jun  6 08:04:33 2006
From: andre.garcia.carneir em terra.com.br (=?iso-8859-1?b?QW5kcukgR2FyY2lhIENhcm5laXJv?=)
Date: Tue,  6 Jun 2006 12:04:33 -0300
Subject: [Cascavel-pm] Ler Arquivo
Message-ID: <J0G1VL$AE51939B1198FFD556CBF41021C6606D@terra.com.br>


oops... troque (*) por (.*) - 


sorry!


Cheers!

---------- Cabeçalho original -----------

De: cascavel-pm-bounces+andre.garcia.carneir=terra.com.br em pm.org
Para: "cascavel-pm" cascavel-pm em pm.org
Cópia: 
Data: Tue,  6 Jun 2006 11:59:43 -0300
Assunto: Re: [Cascavel-pm] Ler Arquivo

> 
> use strict;
> 
> 
> open FILE,"meuarquivo" or die "Nao foi possível abrir o arquivo: $!";
> 
> my $line;
> while(<FILE>)
> {
>        $line = $_;
>        print $1 if ($line =~ /TESTE(*)/) ;
>     
> }
> 
> close FILE;
> 
> 
> 
> 
> Bem tosco mesmo... eheheh !!! Cheers!
> 
> ---------- Cabeçalho original -----------
> 
> De: cascavel-pm-bounces+andre.garcia.carneir=terra.com.br em pm.org
> Para: "Cascavel Perl Mongers" cascavel-pm em pm.org
> Cópia: 
> Data: Tue, 6 Jun 2006 10:35:41 -0300 (ART)
> Assunto: Re: [Cascavel-pm] Ler Arquivo
> 
> > PEssoal :( nenhuma das sugestoes funcionaram :(
> > alguem da um help!!
> > 
> > Nada de conseguir ler somente o intervalo
> > 
> > 
> > Fabiano Reese Righetti <frighetti em cascavel.pm.org> escreveu: Patty Silva escreveu:
> > > Eu ja tinha postado :) mas vai la!!
> > > 
> > > while () 
> > > {
> > >     local $/ = '\s - TESTE\n';
> > >     print $_;
> > >      
> > > }
> > 
> > my $var   = '';
> > my %dados = ();
> > while ()
> > {
> >  if ($_ =~ /^- TESTE (\S+)/)
> >  {
> >   $var = $1;
> >   $dados{$var} = [];
> >  }
> >  else
> >  {
> >   push(@{$dados{$var}}, $_);
> >  }
> > }
> > 
> > > 
> > > No caso nao funcionou..
> > > 
> > > eu quero pegar tudo que vem depois de - TESTE ou seja
> > > meu arquivo
> > > - TESTE VARIAVEL1
> > > Joao 23 Minas Centro
> > > Maria Sao Paulo
> > > - TESTE VARIAVELT
> > >   JOSE 32 
> > > Roberto 34
> > > - TESTE VARIAVELB
> > > bla bla bla
> > > 
> > > - END TESTE
> > 
> >     Peguei a conversa no final... mas espero que o código acima ajude!
> > 
> > Abraços,
> > --
> > Fabiano Reese Righetti
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > 
> > 
> >  __________________________________________________
> > Fale com seus amigos  de graça com o novo Yahoo! Messenger 
> > http://br.messenger.yahoo.com/ 
> > E-mail classificado pelo Identificador de Spam Inteligente Terra.
> > Para alterar a categoria classificada, visite
> >
>
http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=andre.garcia.carneir&_l=1,1149600969.967281.30243.caneria.hst.terra.com.br,6433,Des15,Des15
> > 
> > Esta mensagem foi verificada pelo E-mail Protegido Terra.
> > Scan engine: McAfee VirusScan / Atualizado em 05/06/2006 / Versão: 4.4.00/4777
> > Proteja o seu e-mail Terra: http://mail.terra.com.br/
> > 
> 
> --
> André Garcia Carneiro
> Developer(Perl)
> Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> E-mail classificado pelo Identificador de Spam Inteligente Terra.
> Para alterar a categoria classificada, visite
>
http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=andre.garcia.carneir&_l=1,1149606022.148728.302.arrino.hst.terra.com.br,6211,Des15,Des15
> 
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Scan engine: McAfee VirusScan / Atualizado em 05/06/2006 / Versão: 4.4.00/4777
> Proteja o seu e-mail Terra: http://mail.terra.com.br/
> 
> 

--
André Garcia Carneiro
Developer(Perl)
Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org


From ptfzs em yahoo.com.br  Tue Jun  6 09:36:52 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Tue, 6 Jun 2006 13:36:52 -0300 (ART)
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <J0G1VL$AE51939B1198FFD556CBF41021C6606D@terra.com.br>
Message-ID: <20060606163653.26994.qmail@web31315.mail.mud.yahoo.com>

Obrigada Pessoal pela aJUDA de TODOS.. desculpem a chatisse!
Vcs me ajudaram bastante.... estou com alguns livros completos de PERL em PDF.. se alguem se interessar!!
Estou disposta a ajudar a todos

OBRIGADA + uma vez

Paty

André Garcia Carneiro <andre.garcia.carneir em terra.com.br> escreveu: 
oops... troque (*) por (.*) - 


sorry!


Cheers!

---------- Cabeçalho original -----------

De: cascavel-pm-bounces+andre.garcia.carneir=terra.com.br em pm.org
Para: "cascavel-pm" cascavel-pm em pm.org
Cópia: 
Data: Tue,  6 Jun 2006 11:59:43 -0300
Assunto: Re: [Cascavel-pm] Ler Arquivo

> 
> use strict;
> 
> 
> open FILE,"meuarquivo" or die "Nao foi possível abrir o arquivo: $!";
> 
> my $line;
> while()
> {
>        $line = $_;
>        print $1 if ($line =~ /TESTE(*)/) ;
>     
> }
> 
> close FILE;
> 
> 
> 
> 
> Bem tosco mesmo... eheheh !!! Cheers!
> 
> ---------- Cabeçalho original -----------
> 
> De: cascavel-pm-bounces+andre.garcia.carneir=terra.com.br em pm.org
> Para: "Cascavel Perl Mongers" cascavel-pm em pm.org
> Cópia: 
> Data: Tue, 6 Jun 2006 10:35:41 -0300 (ART)
> Assunto: Re: [Cascavel-pm] Ler Arquivo
> 
> > PEssoal :( nenhuma das sugestoes funcionaram :(
> > alguem da um help!!
> > 
> > Nada de conseguir ler somente o intervalo
> > 
> > 
> > Fabiano Reese Righetti  escreveu: Patty Silva escreveu:
> > > Eu ja tinha postado :) mas vai la!!
> > > 
> > > while () 
> > > {
> > >     local $/ = '\s - TESTE\n';
> > >     print $_;
> > >      
> > > }
> > 
> > my $var   = '';
> > my %dados = ();
> > while ()
> > {
> >  if ($_ =~ /^- TESTE (\S+)/)
> >  {
> >   $var = $1;
> >   $dados{$var} = [];
> >  }
> >  else
> >  {
> >   push(@{$dados{$var}}, $_);
> >  }
> > }
> > 
> > > 
> > > No caso nao funcionou..
> > > 
> > > eu quero pegar tudo que vem depois de - TESTE ou seja
> > > meu arquivo
> > > - TESTE VARIAVEL1
> > > Joao 23 Minas Centro
> > > Maria Sao Paulo
> > > - TESTE VARIAVELT
> > >   JOSE 32 
> > > Roberto 34
> > > - TESTE VARIAVELB
> > > bla bla bla
> > > 
> > > - END TESTE
> > 
> >     Peguei a conversa no final... mas espero que o código acima ajude!
> > 
> > Abraços,
> > --
> > Fabiano Reese Righetti
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> > 
> > 
> >  __________________________________________________
> > Fale com seus amigos  de graça com o novo Yahoo! Messenger 
> > http://br.messenger.yahoo.com/ 
> > E-mail classificado pelo Identificador de Spam Inteligente Terra.
> > Para alterar a categoria classificada, visite
> >
>
http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=andre.garcia.carneir&_l=1,1149600969.967281.30243.caneria.hst.terra.com.br,6433,Des15,Des15
> > 
> > Esta mensagem foi verificada pelo E-mail Protegido Terra.
> > Scan engine: McAfee VirusScan / Atualizado em 05/06/2006 / Versão: 4.4.00/4777
> > Proteja o seu e-mail Terra: http://mail.terra.com.br/
> > 
> 
> --
> André Garcia Carneiro
> Developer(Perl)
> Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> E-mail classificado pelo Identificador de Spam Inteligente Terra.
> Para alterar a categoria classificada, visite
>
http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=andre.garcia.carneir&_l=1,1149606022.148728.302.arrino.hst.terra.com.br,6211,Des15,Des15
> 
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Scan engine: McAfee VirusScan / Atualizado em 05/06/2006 / Versão: 4.4.00/4777
> Proteja o seu e-mail Terra: http://mail.terra.com.br/
> 
> 

--
André Garcia Carneiro
Developer(Perl)
Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org

_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060606/ffadb0c3/attachment.html 

From nferraz em gmail.com  Tue Jun  6 09:55:08 2006
From: nferraz em gmail.com (Nelson Ferraz)
Date: Tue, 06 Jun 2006 17:55:08 +0100
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <20060606163653.26994.qmail@web31315.mail.mud.yahoo.com>
References: <20060606163653.26994.qmail@web31315.mail.mud.yahoo.com>
Message-ID: <4485B36C.8000207@gmail.com>

Patty Silva wrote:
> Obrigada Pessoal pela aJUDA de TODOS.. desculpem a chatisse!
> Vcs me ajudaram bastante.... estou com alguns livros completos de PERL 
> em PDF.. se alguem se interessar!!
> Estou disposta a ajudar a todos

Muito bem, Patty! Agora só precisa *ler* estes livros! (Afinal, 
documentos em PDF não devem ser um bom apoio para mesas ;))

Lembre-se de que todos aqui querem ajudar e ser ajudados, mas nós também 
queremos ver nosso esforço frutificar... por isso, continue mandando 
mensagens, mas com problemas cada vez mais difíceis! :D

-- 
Nelson Corrêa de Toledo Ferraz

Segula Technologies (www.segula.fr)
Free Software Foundation Associate Member #3203
Sociedade Perl do Brasil (www.perl.org.br)
Rede Livre de Compartilhamento de Cultura Digital

From ptfzs em yahoo.com.br  Tue Jun  6 10:15:39 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Tue, 6 Jun 2006 14:15:39 -0300 (ART)
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <4485B36C.8000207@gmail.com>
Message-ID: <20060606171539.48789.qmail@web31312.mail.mud.yahoo.com>

:) Claro...
Obrigada pelo apoio.. 
Abracos a todos


Até mais

Paty

Nelson Ferraz <nferraz em gmail.com> escreveu: Patty Silva wrote:
> Obrigada Pessoal pela aJUDA de TODOS.. desculpem a chatisse!
> Vcs me ajudaram bastante.... estou com alguns livros completos de PERL 
> em PDF.. se alguem se interessar!!
> Estou disposta a ajudar a todos

Muito bem, Patty! Agora só precisa *ler* estes livros! (Afinal, 
documentos em PDF não devem ser um bom apoio para mesas ;))

Lembre-se de que todos aqui querem ajudar e ser ajudados, mas nós também 
queremos ver nosso esforço frutificar... por isso, continue mandando 
mensagens, mas com problemas cada vez mais difíceis! :D

-- 
Nelson Corrêa de Toledo Ferraz

Segula Technologies (www.segula.fr)
Free Software Foundation Associate Member #3203
Sociedade Perl do Brasil (www.perl.org.br)
Rede Livre de Compartilhamento de Cultura Digital
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060606/1f204d5b/attachment-0001.html 

From glasswalk3r em yahoo.com.br  Tue Jun  6 15:39:35 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Tue, 6 Jun 2006 19:39:35 -0300 (ART)
Subject: [Cascavel-pm] =?iso-8859-1?q?Perl_realmente_deixou_de_ser_uma_fer?=
 =?iso-8859-1?q?ramenta_=FAtil=3F?=
Message-ID: <20060606223935.25925.qmail@web30810.mail.mud.yahoo.com>

Parece que a Oracle atualmente pensa assim. Vejam esse
trecho que recebi num informe da empresa:

"Oracle OpenWorld 2006 Oracle Develop

More technology. More learning. More value.
Don't miss Oracle Develop, the premier developer
program, coming to Oracle OpenWorld this fall. At
Oracle Develop, you'll hear from world-leading experts
as they share their knowledge on how to simplify
development using popular technologies like Java,
.NET, and PL/SQL, as well as lightweight frameworks
such as Ajax, PHP, Spring, and Groovy on Rails. As an
Oracle Develop participant, you'll advance your
development skills and expand your knowledge over the
course of three days, while attending scores of
expert-led, in-depth technical sessions, hands-on
labs, advanced how-tos, and detailed tutorials. "

Vocês viram Perl ser citado nessa lista? Não seria
surpresa nenhum ver Java sendo citado como solução
opensource (afinal o código desta linguagem foi
recentemente aberto) mas confesso que ver PHP e
Groovy, linguagens scripts muito mais novas que Perl,
aparecerem como soluções "recomendadas".

Alguém com mais experiência em Oracle + Perl poderia
comentar um pouco mais sobre isso? Existe mercado para
essa dobradinha?

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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

__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

From sammuel.souza em gmail.com  Tue Jun  6 16:50:21 2006
From: sammuel.souza em gmail.com (Sammuel Souza)
Date: Tue, 6 Jun 2006 19:50:21 -0400
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <20060606171539.48789.qmail@web31312.mail.mud.yahoo.com>
References: <4485B36C.8000207@gmail.com>
	<20060606171539.48789.qmail@web31312.mail.mud.yahoo.com>
Message-ID: <836d1f310606061650n3df3da68h65ecc7b34318234@mail.gmail.com>

Ola, estou a procura de um script nao achei ate agora pois nao sei qual nome
colocar tambem nas pesquisas

aquele de suporte on-line onde o cliente fica q nem um bate-papo com um
operador!!!


alguem sabe onde achar um em perl?


[]'s Douglas
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060606/cd5b0b58/attachment.html 

From monsieur_champs em yahoo.com.br  Tue Jun  6 17:02:29 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Wed, 07 Jun 2006 01:02:29 +0100
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Perl_realmente_deixou_de_ser_uma_fer?=
 =?iso-8859-1?q?ramenta_=FAtil=3F?=
In-Reply-To: <20060606223935.25925.qmail@web30810.mail.mud.yahoo.com>
References: <20060606223935.25925.qmail@web30810.mail.mud.yahoo.com>
Message-ID: <44861795.7030500@yahoo.com.br>

Alceu R. de Freitas Jr. wrote:
> Parece que a Oracle atualmente pensa assim. Vejam esse
> trecho que recebi num informe da empresa:
> 
> "Oracle OpenWorld 2006 Oracle Develop
> 
> More technology. More learning. More value.
> Don't miss Oracle Develop, the premier developer
> program, coming to Oracle OpenWorld this fall. At
> Oracle Develop, you'll hear from world-leading experts
> as they share their knowledge on how to simplify
> development using popular technologies like Java,
> .NET, and PL/SQL, as well as lightweight frameworks
> such as Ajax, PHP, Spring, and Groovy on Rails. As an
> Oracle Develop participant, you'll advance your
> development skills and expand your knowledge over the
> course of three days, while attending scores of
> expert-led, in-depth technical sessions, hands-on
> labs, advanced how-tos, and detailed tutorials. "
> 
> Vocês viram Perl ser citado nessa lista? Não seria
> surpresa nenhum ver Java sendo citado como solução
> opensource (afinal o código desta linguagem foi
> recentemente aberto) mas confesso que ver PHP e
> Groovy, linguagens scripts muito mais novas que Perl,
> aparecerem como soluções "recomendadas".

  Calma aí com esta história do Java "Open-Source".
  Eles disseram que pretendem, mas ainda não sabem como.
  Eu não vi fonte nenhum para entrega no website da sun, recentemente.
  Também quero saber que tipo de licensa "open-source" eles pretendem
usar. Licensas que permitem que se leia o fonte e não o alterem sem que
a sua alma seja automaticamente vendida para o demônio nunca
interessaram para a comunidade e normalmente é aqui que o pessoal "peca"
mais.

  Vamos esperar para ver.
  E ver para crer.
  Por enquanto, quer a Oracle goste ou não, somos úteis, fortes e temos
muita entrada em lugares onde bancos de dados são gerenciados por
pessoal sério e competente.

> Alguém com mais experiência em Oracle + Perl poderia
> comentar um pouco mais sobre isso? Existe mercado para
> essa dobradinha?

  Acho que eu posso comentar, certo? Parece que tenho as "competências"
necessárias... ;-)

  Acho que é desnecessário falar em "mercado" para a dobradinha Perl +
Oracle: basta citar que o DBI só existe por causa dela (e que o Tim
Bunce, inventor do DBI, trabalha ainda hoje com isso).

  Também tem um outro aspecto: quando Oracle deixar se suportar
oficialmente o Perl, vai perder MUITO mercado para uma outra dobradinha
que, aqui na Europa, é fortíssima especialmente nos bancos: Perl +
Sybase. Dá para ganhar fortunas programando Perl sobre Sybase...

  Espero não ter me excedido muito.
  Putamplexos!
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From acid06 em gmail.com  Tue Jun  6 17:23:40 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Tue, 6 Jun 2006 21:23:40 -0300
Subject: [Cascavel-pm] Catalyst ConfigLoader + Devel::Cover
In-Reply-To: <3de55ead0606060558u2c62531doc92d94ba0faf2e64@mail.gmail.com>
References: <3de55ead0606060558u2c62531doc92d94ba0faf2e64@mail.gmail.com>
Message-ID: <9a08c9b40606061723g54c7bac9pb0a96f54e2bd20c3@mail.gmail.com>

On 6/6/06, Eden Cardim <edencardim em gmail.com> wrote:
> Estou tendo problemas usando o Devel::Cover junto com o ConfigLoader
> do Catalyst.

Apesar de eu ter bastante experiência com Catalyst e alguma com o
Devel::Cover, nunca utilizei os dois em conjunto.

Pelo que me parece, o Catalyst ainda não é tão usado assim pelos
usuários dessa lista (corrijam-me se eu estiver errado!) portanto,
talvez valha um pouco mais à pena se você perguntasse na lista oficial
do Catalyst, se não tiver problemas com inglês.

Caso você tenha problemas com inglês, eu poderia realizar essa
pergunta por lá pra você e depois reportar as possíveis respostas. Mas
isso não seria uma situação ideal porque eu, provavelmente, cometeria
algum erro ao explicar sua situação exatamente. Mas é melhor do que
nada. ;-)

Caso você não tenha problemas, poste uma mensagem por lá e depois, se
possível, reporte os resultados conseguidos por aqui na lista, para
começarmos a ter algumas referências sobre o Catalyst em português
(algo que talvez seja interessante).

-Nilson Santos F. Jr.

From acid06 em gmail.com  Tue Jun  6 17:30:01 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Tue, 6 Jun 2006 21:30:01 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Perl_realmente_deixou_de_ser_uma_fer?=
	=?iso-8859-1?q?ramenta_=FAtil=3F?=
In-Reply-To: <20060606223935.25925.qmail@web30810.mail.mud.yahoo.com>
References: <20060606223935.25925.qmail@web30810.mail.mud.yahoo.com>
Message-ID: <9a08c9b40606061730y7e870b97q85a01ac5e3e0fd52@mail.gmail.com>

On 6/6/06, Alceu R. de Freitas Jr. <glasswalk3r em yahoo.com.br> wrote:
> Vocês viram Perl ser citado nessa lista? Não seria
> surpresa nenhum ver Java sendo citado como solução
> opensource (afinal o código desta linguagem foi
> recentemente aberto) mas confesso que ver PHP e
> Groovy, linguagens scripts muito mais novas que Perl,
> aparecerem como soluções "recomendadas".

Perl não é mais "da moda". Na verdade, Perl é visto por muitos como a
"anti-moda".
Inevitavelmente, isso leva a um declínio no uso geral da linguagem,
infelizmente.

Mas isso só afeta a vida de quem depende de buzzwords pra vender seu
produto (ou seja, *boa parte* das pessoas, infelizmente).

Quem sabe o poder de Perl, não larga. Porém, pra uma empresa um pouco
mais tradicional baseada em Java, por exemplo, que deseja se
modernizar aderindo aos novos paradigmas de desenvolvimento de
software, uma rota como Plone/Zope com Python é muito mais atraente
que Perl. De fato, até Ruby, com o Rails, ainda é mais atraente, pois
o Rails é uma forma sem (muita) flexibilidade enquanto o Catalyst é
feito pra ser bem flexível (e, portanto, mais poderoso). Mas empresas
com tendências tradicionais gostam de trocar flexibilidade por
segurança (i.e. não deixa os desenvolvedores atirarem em seus próprios
pés).

Enfim, tudo isso é muito complicado.

-Nilson Santos F. Jr.

From edencardim em gmail.com  Tue Jun  6 17:51:58 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Tue, 6 Jun 2006 21:51:58 -0300
Subject: [Cascavel-pm] Catalyst ConfigLoader + Devel::Cover
In-Reply-To: <9a08c9b40606061723g54c7bac9pb0a96f54e2bd20c3@mail.gmail.com>
References: <3de55ead0606060558u2c62531doc92d94ba0faf2e64@mail.gmail.com>
	<9a08c9b40606061723g54c7bac9pb0a96f54e2bd20c3@mail.gmail.com>
Message-ID: <3de55ead0606061751l678adddjdc38a3ecfe04130d@mail.gmail.com>

On 6/6/06, Nilson Santos Figueiredo Junior <acid06 em gmail.com> wrote:
> Apesar de eu ter bastante experiência com Catalyst e alguma com o
> Devel::Cover, nunca utilizei os dois em conjunto.

Hum... Eu praticamente não consigo desenvolver sem Devel::Cover, é meu
parceiro fiel desde que descobri como q se usa esse treco. Tem alguma
coisa q se use no lugar dele?

> Pelo que me parece, o Catalyst ainda não é tão usado assim pelos
> usuários dessa lista (corrijam-me se eu estiver errado!) portanto,
> talvez valha um pouco mais à pena se você perguntasse na lista oficial
> do Catalyst, se não tiver problemas com inglês.

Eu procurei por lá e não encontrei nada, fiquei com preguiça de postar.

> Caso você tenha problemas com inglês, eu poderia realizar essa
> pergunta por lá pra você e depois reportar as possíveis respostas. Mas
> isso não seria uma situação ideal porque eu, provavelmente, cometeria
> algum erro ao explicar sua situação exatamente. Mas é melhor do que
> nada. ;-)

Felizmente, tal sacrifício não será necessário, seria muito complicado
mesmo, passei umas 2 horas fuçando nas entranhas do Catalyst e
Devel::Cover até me situar no problema... Mesmo assim, muito obrigado
pela prontidão. Guarde pra quando eu pedir ajuda com o
ConfigurablePathTo. ;-)

> Caso você não tenha problemas, poste uma mensagem por lá e depois, se
> possível, reporte os resultados conseguidos por aqui na lista, para
> começarmos a ter algumas referências sobre o Catalyst em português
> (algo que talvez seja interessante).

Eh, eu postei aqui na tentativa de promover uma discussão
enriquecedora pra lista.

From edencardim em gmail.com  Tue Jun  6 18:05:22 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Tue, 6 Jun 2006 22:05:22 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Perl_realmente_deixou_de_ser_uma_fer?=
	=?iso-8859-1?q?ramenta_=FAtil=3F?=
In-Reply-To: <9a08c9b40606061730y7e870b97q85a01ac5e3e0fd52@mail.gmail.com>
References: <20060606223935.25925.qmail@web30810.mail.mud.yahoo.com>
	<9a08c9b40606061730y7e870b97q85a01ac5e3e0fd52@mail.gmail.com>
Message-ID: <3de55ead0606061805t6b9bfccesd70c1a4263164f0c@mail.gmail.com>

On 6/6/06, Nilson Santos Figueiredo Junior <acid06 em gmail.com> wrote:
> Perl não é mais "da moda". Na verdade, Perl é visto por muitos como a
> "anti-moda".
> Inevitavelmente, isso leva a um declínio no uso geral da linguagem,
> infelizmente.
>
> Mas isso só afeta a vida de quem depende de buzzwords pra vender seu
> produto (ou seja, *boa parte* das pessoas, infelizmente).

O Randal me falou exatamente a mesma coisa lá no FISL: "Perl não é
mais uma linguagem 'sexy' porque já faz parte do cotidiano. Perl
resolve problemas que as pessoas nem sabem que existem, porque o Perl
já os resolveu há tempos e continua resolvendo sem ninguem perceber.
Agora, espere só pra ver o que vai acontecer quando sair o Perl 6!"
;-)

> Quem sabe o poder de Perl, não larga. Porém, pra uma empresa um pouco
> mais tradicional baseada em Java, por exemplo, que deseja se
> modernizar aderindo aos novos paradigmas de desenvolvimento de
> software, uma rota como Plone/Zope com Python é muito mais atraente
> que Perl. De fato, até Ruby, com o Rails, ainda é mais atraente, pois
> o Rails é uma forma sem (muita) flexibilidade enquanto o Catalyst é
> feito pra ser bem flexível (e, portanto, mais poderoso). Mas empresas
> com tendências tradicionais gostam de trocar flexibilidade por
> segurança (i.e. não deixa os desenvolvedores atirarem em seus próprios
> pés).

É isso mesmo, o Michael Radwin em 2002, por exemplo, mencionou o lema
do Perl "There's more than one way to do it" como sendo um dos motivos
pelo qual o Yahoo migrou (parcialmente) de Perl para PHP:
http://public.yahoo.com/~radwin/talks/yahoo-phpcon2002.htm

From acid06 em gmail.com  Tue Jun  6 18:10:55 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Tue, 6 Jun 2006 22:10:55 -0300
Subject: [Cascavel-pm] Catalyst ConfigLoader + Devel::Cover
In-Reply-To: <3de55ead0606061751l678adddjdc38a3ecfe04130d@mail.gmail.com>
References: <3de55ead0606060558u2c62531doc92d94ba0faf2e64@mail.gmail.com>
	<9a08c9b40606061723g54c7bac9pb0a96f54e2bd20c3@mail.gmail.com>
	<3de55ead0606061751l678adddjdc38a3ecfe04130d@mail.gmail.com>
Message-ID: <9a08c9b40606061810hd428618t5711d24d71a5a8ab@mail.gmail.com>

On 6/6/06, Eden Cardim <edencardim em gmail.com> wrote:
> Felizmente, tal sacrifício não será necessário, seria muito complicado
> mesmo, passei umas 2 horas fuçando nas entranhas do Catalyst e
> Devel::Cover até me situar no problema... Mesmo assim, muito obrigado
> pela prontidão.

Então diga-nos como solucionou o problema.
Talvez eu tente depois dar uma olhada no Devel::Cover com o Catalyst.

O meu problema é que ultimamente ando num ritmo muito acelerado e não
estou tendo tempo pra fazer test-driven development, ou seja: sistemas
sem testes unitários. Por sorte, tudo tem funcionado bem (por
enquanto).

-Nilson Santos F. Jr.

From acid06 em gmail.com  Tue Jun  6 18:12:39 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Tue, 6 Jun 2006 22:12:39 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Perl_realmente_deixou_de_ser_uma_fer?=
	=?iso-8859-1?q?ramenta_=FAtil=3F?=
In-Reply-To: <3de55ead0606061805t6b9bfccesd70c1a4263164f0c@mail.gmail.com>
References: <20060606223935.25925.qmail@web30810.mail.mud.yahoo.com>
	<9a08c9b40606061730y7e870b97q85a01ac5e3e0fd52@mail.gmail.com>
	<3de55ead0606061805t6b9bfccesd70c1a4263164f0c@mail.gmail.com>
Message-ID: <9a08c9b40606061812p66d7af45v77e9f8c6931753c0@mail.gmail.com>

On 6/6/06, Eden Cardim <edencardim em gmail.com> wrote:
> O Randal me falou exatamente a mesma coisa lá no FISL: "Perl não é
> mais uma linguagem 'sexy' porque já faz parte do cotidiano. Perl
> resolve problemas que as pessoas nem sabem que existem, porque o Perl
> já os resolveu há tempos e continua resolvendo sem ninguem perceber.
> Agora, espere só pra ver o que vai acontecer quando sair o Perl 6!"

Infelizmente, eu não sou tão otimista quanto ele.
Mas eu, sinceramente, espero estar errado.

-Nilson Santos F. Jr.

From edencardim em gmail.com  Tue Jun  6 18:14:11 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Tue, 6 Jun 2006 22:14:11 -0300
Subject: [Cascavel-pm] Catalyst ConfigLoader + Devel::Cover
In-Reply-To: <9a08c9b40606061810hd428618t5711d24d71a5a8ab@mail.gmail.com>
References: <3de55ead0606060558u2c62531doc92d94ba0faf2e64@mail.gmail.com>
	<9a08c9b40606061723g54c7bac9pb0a96f54e2bd20c3@mail.gmail.com>
	<3de55ead0606061751l678adddjdc38a3ecfe04130d@mail.gmail.com>
	<9a08c9b40606061810hd428618t5711d24d71a5a8ab@mail.gmail.com>
Message-ID: <3de55ead0606061814o550b0858gbf22a3c0404d606e@mail.gmail.com>

On 6/6/06, Nilson Santos Figueiredo Junior <acid06 em gmail.com> wrote:
> Então diga-nos como solucionou o problema.
> Talvez eu tente depois dar uma olhada no Devel::Cover com o Catalyst.

Não solucionei ainda, as horas q perdi foi soh pra descobrir o motivo
do problema... :-o

From acid06 em gmail.com  Tue Jun  6 18:19:04 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Tue, 6 Jun 2006 22:19:04 -0300
Subject: [Cascavel-pm] Catalyst ConfigLoader + Devel::Cover
In-Reply-To: <3de55ead0606061814o550b0858gbf22a3c0404d606e@mail.gmail.com>
References: <3de55ead0606060558u2c62531doc92d94ba0faf2e64@mail.gmail.com>
	<9a08c9b40606061723g54c7bac9pb0a96f54e2bd20c3@mail.gmail.com>
	<3de55ead0606061751l678adddjdc38a3ecfe04130d@mail.gmail.com>
	<9a08c9b40606061810hd428618t5711d24d71a5a8ab@mail.gmail.com>
	<3de55ead0606061814o550b0858gbf22a3c0404d606e@mail.gmail.com>
Message-ID: <9a08c9b40606061819x1a998b31n4f92768401468f8a@mail.gmail.com>

On 6/6/06, Eden Cardim <edencardim em gmail.com> wrote:
> Não solucionei ainda, as horas q perdi foi soh pra descobrir o motivo
> do problema... :-o

Se você conseguir solucionar então, avise.

Às vezes você pode ter encontrado algum bug e/ou uma incompatibilidade
insignificante e o pessoal do Catalyst provavelmente gostaria de saber
disso (e, provavelmente, pedir pra você mandar um patch corrigindo ;-)
).

De qualquer forma, eu acho que se você realmente pretende continuar
utilizando o Catalyst, é bastante importante participar da lista
oficial - tanto seu benefício quanto do framework. Muitas partes do
Catalyst ainda são ativamente desenvolvidas e melhoradas e com o seu
feedback ele, possivelmente, poderá ser melhorado mais ainda e, às
vezes, até mesmo ter certas partes moldadas a seu gosto (desde que seu
gosto seja considerado como uma boa solução ;-) ).

-Nilson Santos F. Jr.

From frederico em gmail.com  Wed Jun  7 04:21:54 2006
From: frederico em gmail.com (Frederico Recsky)
Date: Wed, 7 Jun 2006 08:21:54 -0300
Subject: [Cascavel-pm]
	=?utf-8?q?Perl_realmente_deixou_de_ser_uma_ferramen?=
	=?utf-8?b?dGEgw7p0aWw/?=
In-Reply-To: <9a08c9b40606061812p66d7af45v77e9f8c6931753c0@mail.gmail.com>
References: <20060606223935.25925.qmail@web30810.mail.mud.yahoo.com>
	<9a08c9b40606061730y7e870b97q85a01ac5e3e0fd52@mail.gmail.com>
	<3de55ead0606061805t6b9bfccesd70c1a4263164f0c@mail.gmail.com>
	<9a08c9b40606061812p66d7af45v77e9f8c6931753c0@mail.gmail.com>
Message-ID: <88fe68ee0606070421j2311a3fdif513976198e75af3@mail.gmail.com>

Ola,

On 6/6/06, Nilson Santos Figueiredo Junior <acid06 em gmail.com> wrote:
> On 6/6/06, Eden Cardim <edencardim em gmail.com> wrote:
> > O Randal me falou exatamente a mesma coisa lá no FISL: "Perl não é
> > mais uma linguagem 'sexy' porque já faz parte do cotidiano. Perl
> > resolve problemas que as pessoas nem sabem que existem, porque o Perl
> > já os resolveu há tempos e continua resolvendo sem ninguem perceber.
> > Agora, espere só pra ver o que vai acontecer quando sair o Perl 6!"
>Infelizmente, eu não sou tão otimista quanto ele.
>Mas eu, sinceramente, espero estar errado.

Tenho um pensamento diferente, inclusive no meu trabalho se referimos
a maioria dos programadores como "average programmers".  De fato é uma
minoria que estuda a ferramenta/linguagem que usa de verdade.
Atualmente estou num projeto que usa python, e quando fui saber o
porque da escolha, originamente era um projeto em perl, e que a
maioria sem conhecer profundamente o perl trocou para python. Os
argumentos eram porque Perl era "write-only"  e coisas do genero.
Eu mostrei a eles o codigo identado e sem "magias" e todo mundo ficou pensando.

Entre a maioria é tudo coisa de "moda" infelizmente. Eu também acho
que o Perl6 vai trazer o Perl de volta para a "moda".

-- 
____________________________
Frederico Recsky
Linux User: 253572
http://www.gulivap.org
http://sao-paulo.pm.org/

From glasswalk3r em yahoo.com.br  Wed Jun  7 06:54:12 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Wed, 7 Jun 2006 10:54:12 -0300 (ART)
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Perl_realmente_deixou_de_ser_uma_fer?=
 =?iso-8859-1?q?ramenta_=FAtil=3F?=
In-Reply-To: <44861795.7030500@yahoo.com.br>
Message-ID: <20060607135412.40263.qmail@web30809.mail.mud.yahoo.com>

Olá Champs,

--- Luis Motta Campos <monsieur_champs em yahoo.com.br>
escreveu:

>   Calma aí com esta história do Java "Open-Source".
>   Eles disseram que pretendem, mas ainda não sabem
> como.
>   Eu não vi fonte nenhum para entrega no website da
> sun, recentemente.

Já abriram sim. Mas a licensa, obviamente, não é GPL.
Mais detalhes aqui:
http://www.sun.com/software/communitysource/j2se/java2/download.xml

>   Também quero saber que tipo de licensa
> "open-source" eles pretendem
> usar. Licensas que permitem que se leia o fonte e
> não o alterem sem que
> a sua alma seja automaticamente vendida para o
> demônio nunca
> interessaram para a comunidade e normalmente é aqui
> que o pessoal "peca"
> mais.

Eu não li, mas suponho que não seja assim tão livre
quanto gostaríamos.

>   Por enquanto, quer a Oracle goste ou não, somos
> úteis, fortes e temos
> muita entrada em lugares onde bancos de dados são
> gerenciados por
> pessoal sério e competente.

Uma das coisas que não entendo bem é porque a Oracle
não gostaria. Ainda me lembro que eles proibiram a
Active State de colocar os drivers do Oracle para
download junto com o DBI.

>   Também tem um outro aspecto: quando Oracle deixar
> se suportar
> oficialmente o Perl, vai perder MUITO mercado para
> uma outra dobradinha
> que, aqui na Europa, é fortíssima especialmente nos
> bancos: Perl +
> Sybase. Dá para ganhar fortunas programando Perl
> sobre Sybase...

Acho que vou mudar de país... rs
Champs, alguma coisa parecida com isso por esses
lados?

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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

__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

From fernandolouis em terra.com.br  Wed Jun  7 08:31:00 2006
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Wed, 7 Jun 2006 12:31:00 -0300
Subject: [Cascavel-pm] Erro no apache
References: <1746e3e30605231003i3a697507vefd3b8a825a5db4c@mail.gmail.com><20060523171815.39521.qmail@web31303.mail.mud.yahoo.com>
	<6c65a53f0605231037g11413a32h3eeddb125340dd57@mail.gmail.com>
Message-ID: <002a01c68a47$638e0240$0201a8c0@CICERO>

Utilizo o Apache 1.3.28 para rodar a linguagem PERL.

Sempre funcionou tudo ok, e agora que formatei meu computador e instalaei
tudo.
Quando vou executar um programa em PERL... dá a seguinte msg de erro no
apache:

exec() may not be safe

O que é isso?

Valeu amigos
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060607/dbfe66e6/attachment.html 

From ptfzs em yahoo.com.br  Wed Jun  7 09:41:05 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 7 Jun 2006 13:41:05 -0300 (ART)
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <3de55ead0606060706o74ac86e8scd86e5b416fb8263@mail.gmail.com>
Message-ID: <20060607164105.60415.qmail@web31312.mail.mud.yahoo.com>

Eden so uma OBSERvacao no seu codigo!!

Se vc incluir + coisas a baixo do END ele tb pega!! vou tentar resolver!! e posto a msg :)

Abraços
Patty

Eden Cardim <edencardim em gmail.com> escreveu: #bem, o seguinte código funcionou comigo:
local $/;

my @registros = split (/\s*- TESTE\s*/, );
shift @registros;
$registros[-1] =~ s/- END TEST$//;

for my $i (0..$#registros) {
 print "Registro $i:\n$registros[$i]\n";
}

__DATA__
- TESTE

bla bla bla
bla

- TESTE

bla
bla
bla

- TESTE

bla bla bla

- END TEST
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060607/3e738b92/attachment.html 

From edencardim em gmail.com  Wed Jun  7 10:16:10 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Wed, 7 Jun 2006 14:16:10 -0300
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <20060607164105.60415.qmail@web31312.mail.mud.yahoo.com>
References: <3de55ead0606060706o74ac86e8scd86e5b416fb8263@mail.gmail.com>
	<20060607164105.60415.qmail@web31312.mail.mud.yahoo.com>
Message-ID: <3de55ead0606071016o1d810548y337093967ffa192@mail.gmail.com>

#Um dos possíveis consertos (não testei):

local $/;

(my $data) = split(/- END TEST/, <DATA>);
my @registros = split (/\s*- TESTE\s*/, $data);
shift @registros;

for my $i (0..$#registros) {
print "Registro $i:\n$registros[$i]\n";
}

__DATA__
- TESTE

bla bla bla
bla

- TESTE

bla
bla
bla

- TESTE

bla bla bla

- END TEST
deveria ignorar
estes dados

From edencardim em gmail.com  Wed Jun  7 10:21:09 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Wed, 7 Jun 2006 14:21:09 -0300
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <3de55ead0606071016o1d810548y337093967ffa192@mail.gmail.com>
References: <3de55ead0606060706o74ac86e8scd86e5b416fb8263@mail.gmail.com>
	<20060607164105.60415.qmail@web31312.mail.mud.yahoo.com>
	<3de55ead0606071016o1d810548y337093967ffa192@mail.gmail.com>
Message-ID: <3de55ead0606071021g13f762cdq674923577e46e4ce@mail.gmail.com>

Ah, um aviso: Este código é apenas uma prova de conceito, pelo amor de
deus não use-o se seu arquivo de entrada for muuuuuito grande ;-)

On 6/7/06, Eden Cardim <edencardim em gmail.com> wrote:
> #Um dos possíveis consertos (não testei):
>
> local $/;
>
> (my $data) = split(/- END TEST/, <DATA>);
> my @registros = split (/\s*- TESTE\s*/, $data);
> shift @registros;
>
> for my $i (0..$#registros) {
> print "Registro $i:\n$registros[$i]\n";
> }
>
> __DATA__
> - TESTE
>
> bla bla bla
> bla
>
> - TESTE
>
> bla
> bla
> bla
>
> - TESTE
>
> bla bla bla
>
> - END TEST
> deveria ignorar
> estes dados
>

From ptfzs em yahoo.com.br  Wed Jun  7 11:39:52 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 7 Jun 2006 15:39:52 -0300 (ART)
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <3de55ead0606071016o1d810548y337093967ffa192@mail.gmail.com>
Message-ID: <20060607183952.27496.qmail@web31307.mail.mud.yahoo.com>

è isso msm EDEN!! :) funcionou perfeitamente


ficou assim:

#!/usr/bin/perl

local $/;


$arquivo="$ENV{HOME}/file.txt";

open(FH, "<$arquivo") or die("Arquivo nao encontrado");

while ($_=<FH>)
{


(my $data) = split(/- END TESTE/, $_);
my @registros = split (/\s*- TESTE\s*/, $data);
shift @registros;

for my $i (0..$#registros) {
print "Registro $i:\n$registros[$i]\n";
}

}



So nao entendi uma coisa.. pode me explicar essa parte??
(my $data) = split(/- END TESTE/, $_);
 my @registros = split (/\s*- TESTE\s*/, $data);

e o que significa 
for my $i (0..$#registros)  <--- $#registros :)


Obrigada
[]ss

Paty

Eden Cardim <edencardim em gmail.com> escreveu: #Um dos possíveis consertos (não testei):

local $/;

(my $data) = split(/- END TEST/, );
my @registros = split (/\s*- TESTE\s*/, $data);
shift @registros;

for my $i (0..$#registros) {
print "Registro $i:\n$registros[$i]\n";
}

__DATA__
- TESTE

bla bla bla
bla

- TESTE

bla
bla
bla

- TESTE

bla bla bla

- END TEST
deveria ignorar
estes dados
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060607/f0ee8eff/attachment.html 

From lists em xms.com.br  Wed Jun  7 11:37:32 2006
From: lists em xms.com.br (Antonio Carlos I. Paes)
Date: Wed, 7 Jun 2006 14:37:32 -0400
Subject: [Cascavel-pm] Acessando funcoes dentro de um while
Message-ID: <200606071437.32517.lists@xms.com.br>

Lista,

	Estou tentando escrever um codigo onde o script ira ler um FIFO e executar 
uma sub-rotina, porem dentro do "while" nao consigo executa-la, alguem pode 
me ajudar?

#! /usr/bin/perl -w

$fifo = 'fifo';

sub Teste {
        print 'cof\n';
}

while (1) {
        open(FIFO,"$fifo") || die("$!");
        $string = <FIFO>;
        close(FIFO);
        
        print "Saindo na tela do programa em execucao: " . $string;
        &Teste;
}

So vejo na tela de execucao do programa o "Saindo na tela....", porem se tiro 
do "while" o &Teste executa normal!

Desde ja,
Obrigado.

From fglock em gmail.com  Wed Jun  7 11:57:42 2006
From: fglock em gmail.com (Flavio S. Glock)
Date: Wed, 7 Jun 2006 15:57:42 -0300
Subject: [Cascavel-pm] Acessando funcoes dentro de um while
In-Reply-To: <200606071437.32517.lists@xms.com.br>
References: <200606071437.32517.lists@xms.com.br>
Message-ID: <aa47605d0606071157g342e5badtc5bef1ac9ae1128c@mail.gmail.com>

Depois que você lê a fifo, você espera que ela fique vazia, não?

- Flavio S. Glock

Em 07/06/06, Antonio Carlos I. Paes<lists em xms.com.br> escreveu:
> Lista,
>
>         Estou tentando escrever um codigo onde o script ira ler um FIFO e executar
> uma sub-rotina, porem dentro do "while" nao consigo executa-la, alguem pode
> me ajudar?
>
> #! /usr/bin/perl -w
>
> $fifo = 'fifo';
>
> sub Teste {
>         print 'cof\n';
> }
>
> while (1) {
>         open(FIFO,"$fifo") || die("$!");
>         $string = <FIFO>;
>         close(FIFO);
>
>         print "Saindo na tela do programa em execucao: " . $string;
>         &Teste;
> }
>
> So vejo na tela de execucao do programa o "Saindo na tela....", porem se tiro
> do "while" o &Teste executa normal!
>
> Desde ja,
> Obrigado.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From lists em xms.com.br  Wed Jun  7 11:57:16 2006
From: lists em xms.com.br (Antonio Carlos I. Paes)
Date: Wed, 7 Jun 2006 14:57:16 -0400
Subject: [Cascavel-pm] Acessando funcoes dentro de um while
In-Reply-To: <aa47605d0606071157g342e5badtc5bef1ac9ae1128c@mail.gmail.com>
References: <200606071437.32517.lists@xms.com.br>
	<aa47605d0606071157g342e5badtc5bef1ac9ae1128c@mail.gmail.com>
Message-ID: <200606071457.16104.lists@xms.com.br>

Sim, ao abrilo, pegar o conteudo e fecha-lo ele tem que ficar vazio!
No outro terminal onde executo:
$ echo palavrinha > fifo
a shell volta e retorna erro level '0'..

On Wednesday 07 June 2006 14:57, Flavio S. Glock wrote:
> Depois que você lê a fifo, você espera que ela fique vazia, não?
>
> - Flavio S. Glock
>
> Em 07/06/06, Antonio Carlos I. Paes<lists em xms.com.br> escreveu:
> > Lista,
> >
> >         Estou tentando escrever um codigo onde o script ira ler um FIFO e
> > executar uma sub-rotina, porem dentro do "while" nao consigo executa-la,
> > alguem pode me ajudar?
> >
> > #! /usr/bin/perl -w
> >
> > $fifo = 'fifo';
> >
> > sub Teste {
> >         print 'cof\n';
> > }
> >
> > while (1) {
> >         open(FIFO,"$fifo") || die("$!");
> >         $string = <FIFO>;
> >         close(FIFO);
> >
> >         print "Saindo na tela do programa em execucao: " . $string;
> >         &Teste;
> > }
> >
> > So vejo na tela de execucao do programa o "Saindo na tela....", porem se
> > tiro do "while" o &Teste executa normal!
> >
> > Desde ja,
> > Obrigado.
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

From edencardim em gmail.com  Wed Jun  7 12:08:58 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Wed, 7 Jun 2006 16:08:58 -0300
Subject: [Cascavel-pm] Ler Arquivo
In-Reply-To: <20060607183952.27496.qmail@web31307.mail.mud.yahoo.com>
References: <3de55ead0606071016o1d810548y337093967ffa192@mail.gmail.com>
	<20060607183952.27496.qmail@web31307.mail.mud.yahoo.com>
Message-ID: <3de55ead0606071208p4931f9f8oa53119e4d7c8d4a9@mail.gmail.com>

On 6/7/06, Patty Silva <ptfzs em yahoo.com.br> wrote:
> So nao entendi uma coisa.. pode me explicar essa parte??
> (my $data) = split(/- END TESTE/, $_);

Bem, isso aí quebra a string $_ onde houver '- END TESTE' e coloca o
primeiro elemento da lista resultante na variável $data. Se o código
fosse
my($data, $restante) = split(/- END TESTE/, $_);

$restante conteria a string 'deveria ignorar...'

Para entender melhor:
perldoc -f split
perldoc perldata

> e o que significa
> for my $i (0..$#registros)  <--- $#registros :)

$#registros contém o último índice do array @registros. Nesse caso,
escrever '@registros - 1' teria o mesmo efeito.

From mdacwb em gmail.com  Wed Jun  7 12:29:19 2006
From: mdacwb em gmail.com (Marco A P D'Andrade)
Date: Wed, 07 Jun 2006 16:29:19 -0300
Subject: [Cascavel-pm] Acessando funcoes dentro de um while
In-Reply-To: <200606071457.16104.lists@xms.com.br>
References: <200606071437.32517.lists@xms.com.br>	<aa47605d0606071157g342e5badtc5bef1ac9ae1128c@mail.gmail.com>
	<200606071457.16104.lists@xms.com.br>
Message-ID: <4487290F.30000@gmail.com>

Bem...

Considerando que vc leu um fifo, que fica aguardando...

Os dados enviados pela rotina Teste estão em buffer ... O \n é 
considerado como uma sequencia de caracteres, não uma quebra de linha ...

$|++; # --> desativa buffers ... considero mais uma boa pratica (além do 
use strict, use warnings)
print "cof\n"; # --> quebra de linha, o buffer não é mantido ...


Sds,
Marco Antonio

Antonio Carlos I. Paes wrote:

>Sim, ao abrilo, pegar o conteudo e fecha-lo ele tem que ficar vazio!
>No outro terminal onde executo:
>$ echo palavrinha > fifo
>a shell volta e retorna erro level '0'..
>
>On Wednesday 07 June 2006 14:57, Flavio S. Glock wrote:
>  
>
>>Depois que você lê a fifo, você espera que ela fique vazia, não?
>>
>>- Flavio S. Glock
>>
>>Em 07/06/06, Antonio Carlos I. Paes<lists em xms.com.br> escreveu:
>>    
>>
>>>Lista,
>>>
>>>        Estou tentando escrever um codigo onde o script ira ler um FIFO e
>>>executar uma sub-rotina, porem dentro do "while" nao consigo executa-la,
>>>alguem pode me ajudar?
>>>
>>>#! /usr/bin/perl -w
>>>
>>>$fifo = 'fifo';
>>>
>>>sub Teste {
>>>        print 'cof\n';
>>>}
>>>
>>>while (1) {
>>>        open(FIFO,"$fifo") || die("$!");
>>>        $string = <FIFO>;
>>>        close(FIFO);
>>>
>>>        print "Saindo na tela do programa em execucao: " . $string;
>>>        &Teste;
>>>}
>>>
>>>So vejo na tela de execucao do programa o "Saindo na tela....", porem se
>>>tiro do "while" o &Teste executa normal!
>>>
>>>Desde ja,
>>>Obrigado.
>>>_______________________________________________
>>>Cascavel-pm mailing list
>>>Cascavel-pm em pm.org
>>>http://mail.pm.org/mailman/listinfo/cascavel-pm
>>>      
>>>
>>_______________________________________________
>>Cascavel-pm mailing list
>>Cascavel-pm em pm.org
>>http://mail.pm.org/mailman/listinfo/cascavel-pm
>>    
>>
>_______________________________________________
>Cascavel-pm mailing list
>Cascavel-pm em pm.org
>http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>  
>



From lists em xms.com.br  Wed Jun  7 12:38:20 2006
From: lists em xms.com.br (Antonio Carlos I. Paes)
Date: Wed, 7 Jun 2006 15:38:20 -0400
Subject: [Cascavel-pm] Acessando funcoes dentro de um while
In-Reply-To: <4487290F.30000@gmail.com>
References: <200606071437.32517.lists@xms.com.br>
	<200606071457.16104.lists@xms.com.br> <4487290F.30000@gmail.com>
Message-ID: <200606071538.20747.lists@xms.com.br>

Entao, se ele esta em buffer ele vai esperar o "while" terminar a execucao, 
certo?

On Wednesday 07 June 2006 15:29, Marco A P D'Andrade wrote:
> Bem...
>
> Considerando que vc leu um fifo, que fica aguardando...
>
> Os dados enviados pela rotina Teste estão em buffer ... O \n é
> considerado como uma sequencia de caracteres, não uma quebra de linha ...
>
> $|++; # --> desativa buffers ... considero mais uma boa pratica (além do
> use strict, use warnings)
> print "cof\n"; # --> quebra de linha, o buffer não é mantido ...
>
>
> Sds,
> Marco Antonio
>
> Antonio Carlos I. Paes wrote:
> >Sim, ao abrilo, pegar o conteudo e fecha-lo ele tem que ficar vazio!
> >No outro terminal onde executo:
> >$ echo palavrinha > fifo
> >a shell volta e retorna erro level '0'..
> >
> >On Wednesday 07 June 2006 14:57, Flavio S. Glock wrote:
> >>Depois que você lê a fifo, você espera que ela fique vazia, não?
> >>
> >>- Flavio S. Glock
> >>
> >>Em 07/06/06, Antonio Carlos I. Paes<lists em xms.com.br> escreveu:
> >>>Lista,
> >>>
> >>>        Estou tentando escrever um codigo onde o script ira ler um FIFO
> >>> e executar uma sub-rotina, porem dentro do "while" nao consigo
> >>> executa-la, alguem pode me ajudar?
> >>>
> >>>#! /usr/bin/perl -w
> >>>
> >>>$fifo = 'fifo';
> >>>
> >>>sub Teste {
> >>>        print 'cof\n';
> >>>}
> >>>
> >>>while (1) {
> >>>        open(FIFO,"$fifo") || die("$!");
> >>>        $string = <FIFO>;
> >>>        close(FIFO);
> >>>
> >>>        print "Saindo na tela do programa em execucao: " . $string;
> >>>        &Teste;
> >>>}
> >>>
> >>>So vejo na tela de execucao do programa o "Saindo na tela....", porem se
> >>>tiro do "while" o &Teste executa normal!
> >>>
> >>>Desde ja,
> >>>Obrigado.
> >>>_______________________________________________
> >>>Cascavel-pm mailing list
> >>>Cascavel-pm em pm.org
> >>>http://mail.pm.org/mailman/listinfo/cascavel-pm
> >>
> >>_______________________________________________
> >>Cascavel-pm mailing list
> >>Cascavel-pm em pm.org
> >>http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> >_______________________________________________
> >Cascavel-pm mailing list
> >Cascavel-pm em pm.org
> >http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm


From mdacwb em gmail.com  Wed Jun  7 12:54:33 2006
From: mdacwb em gmail.com (Marco A P D'Andrade)
Date: Wed, 07 Jun 2006 16:54:33 -0300
Subject: [Cascavel-pm] Acessando funcoes dentro de um while
In-Reply-To: <200606071538.20747.lists@xms.com.br>
References: <200606071437.32517.lists@xms.com.br>	<200606071457.16104.lists@xms.com.br>
	<4487290F.30000@gmail.com> <200606071538.20747.lists@xms.com.br>
Message-ID: <44872EF9.80500@gmail.com>

Não... acredito que quando vc diz que tira do while, o script encerra. 
Certo ?

uma comparação simples...


perl -e 'foreach ( 1 .. 100 ) { print $_; sleep 1; <> if ( $_%10 == 0 ); }'
    # a cada 10 segundos lista tudo ...
       #>> porque a cada 10 ? Por haver outra operação, desta vez de entrada

perl -e '$|++; foreach ( 1 .. 100 ) { print $_; sleep 1; <> if ( $_%10 
== 0 ); }'
    # a cada segundo imprime um numero
       #>> porque a cada segundo ? Buffer desativado ...


Sds,
Marco Antonio


Antonio Carlos I. Paes wrote:

>Entao, se ele esta em buffer ele vai esperar o "while" terminar a execucao, 
>certo?
>
>On Wednesday 07 June 2006 15:29, Marco A P D'Andrade wrote:
>  
>

... cut ...


From lists em xms.com.br  Wed Jun  7 13:00:11 2006
From: lists em xms.com.br (Antonio Carlos I. Paes)
Date: Wed, 7 Jun 2006 16:00:11 -0400
Subject: [Cascavel-pm] Acessando funcoes dentro de um while
In-Reply-To: <44872EF9.80500@gmail.com>
References: <200606071437.32517.lists@xms.com.br>
	<200606071538.20747.lists@xms.com.br> <44872EF9.80500@gmail.com>
Message-ID: <200606071600.11701.lists@xms.com.br>

E', o script encerra de fato..
Mas valeu pela atencao, vou continuar os testes por aqui!

On Wednesday 07 June 2006 15:54, Marco A P D'Andrade wrote:
> Não... acredito que quando vc diz que tira do while, o script encerra.
> Certo ?
>
> uma comparação simples...
>
>
> perl -e 'foreach ( 1 .. 100 ) { print $_; sleep 1; <> if ( $_%10 == 0 ); }'
>     # a cada 10 segundos lista tudo ...
>        #>> porque a cada 10 ? Por haver outra operação, desta vez de
> entrada
>
> perl -e '$|++; foreach ( 1 .. 100 ) { print $_; sleep 1; <> if ( $_%10
> == 0 ); }'
>     # a cada segundo imprime um numero
>        #>> porque a cada segundo ? Buffer desativado ...
>
>
> Sds,
> Marco Antonio
>
> Antonio Carlos I. Paes wrote:
> >Entao, se ele esta em buffer ele vai esperar o "while" terminar a
> > execucao, certo?
> >
> >On Wednesday 07 June 2006 15:29, Marco A P D'Andrade wrote:
>
> ... cut ...
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

From glasswalk3r em yahoo.com.br  Wed Jun  7 16:09:40 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Wed, 7 Jun 2006 20:09:40 -0300 (ART)
Subject: [Cascavel-pm] Erro no apache
In-Reply-To: <002a01c68a47$638e0240$0201a8c0@CICERO>
Message-ID: <20060607230940.86861.qmail@web30802.mail.mud.yahoo.com>

Qual a versão do seu Perl Fernando?
A versão 5.8 possui alguns recursos do modo Taint que
não eram checados na versão 5.6. Pode ser isso.

Adicione a linha:

use diagnostics;

E execute o seu CGI novamente. Você provavelmente vai
receber mais detalhes.

[]'s
Alceu

--- fernandolouis em terra.com.br escreveu:

> Utilizo o Apache 1.3.28 para rodar a linguagem PERL.
> 
> Sempre funcionou tudo ok, e agora que formatei meu
> computador e instalaei
> tudo.
> Quando vou executar um programa em PERL... dá a
> seguinte msg de erro no
> apache:
> 
> exec() may not be safe
> 
> O que é isso?
> 
> Valeu amigos
> > _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm


__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

From monsieur_champs em yahoo.com.br  Wed Jun  7 17:20:59 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Thu, 08 Jun 2006 01:20:59 +0100
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Perl_realmente_deixou_de_ser_uma_fer?=
 =?iso-8859-1?q?ramenta_=FAtil=3F?=
In-Reply-To: <20060607135412.40263.qmail@web30809.mail.mud.yahoo.com>
References: <20060607135412.40263.qmail@web30809.mail.mud.yahoo.com>
Message-ID: <44876D6B.5030406@yahoo.com.br>

Alceu R. de Freitas Jr. wrote:
> Olá Champs,
> 
> --- Luis Motta Campos <monsieur_champs em yahoo.com.br>
> escreveu:
> 
>>   Calma aí com esta história do Java "Open-Source".
>>   Eles disseram que pretendem, mas ainda não sabem
>> como.
>>   Eu não vi fonte nenhum para entrega no website da
>> sun, recentemente.
> 
> Já abriram sim. Mas a licensa, obviamente, não é GPL.
> Mais detalhes aqui:
> http://www.sun.com/software/communitysource/j2se/java2/download.xml
> 
>>   Também quero saber que tipo de licensa
>> "open-source" eles pretendem
>> usar. Licensas que permitem que se leia o fonte e
>> não o alterem sem que
>> a sua alma seja automaticamente vendida para o
>> demônio nunca
>> interessaram para a comunidade e normalmente é aqui
>> que o pessoal "peca"
>> mais.
> 
> Eu não li, mas suponho que não seja assim tão livre
> quanto gostaríamos.
> 
>>   Por enquanto, quer a Oracle goste ou não, somos
>> úteis, fortes e temos
>> muita entrada em lugares onde bancos de dados são
>> gerenciados por
>> pessoal sério e competente.
> 
> Uma das coisas que não entendo bem é porque a Oracle
> não gostaria. Ainda me lembro que eles proibiram a
> Active State de colocar os drivers do Oracle para
> download junto com o DBI.
> 
>>   Também tem um outro aspecto: quando Oracle deixar
>> se suportar
>> oficialmente o Perl, vai perder MUITO mercado para
>> uma outra dobradinha
>> que, aqui na Europa, é fortíssima especialmente nos
>> bancos: Perl +
>> Sybase. Dá para ganhar fortunas programando Perl
>> sobre Sybase...
> 
> Acho que vou mudar de país... rs
> Champs, alguma coisa parecida com isso por esses
> lados?

  Dá uma espiada nos websites de busca de empregos do Reino Unido. Eu
recomendo especialmente o www.monster.co.uk (é sério, a pesar do
monstrinho).

  Outra boa fonte de informação é o website da União Européia.
  Claro, nem tudo o que se vê por ali é exatamente anúncios de empregos.
Eles tem muitas informações interessantes sober viver e trabalha para a
UE, e principalmente como conseguir vistos de trabalho exibindo
habilidades que o Mercado Comum Europeu considera escassas (como
programar Perl+Sybase). Para quem não conhece: www.eu.int.

  Putamplexos, e te vejo no YAPC::Europe::2006.

-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From acid06 em gmail.com  Wed Jun  7 18:29:01 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Wed, 7 Jun 2006 22:29:01 -0300
Subject: [Cascavel-pm] Acessando funcoes dentro de um while
In-Reply-To: <4487290F.30000@gmail.com>
References: <200606071437.32517.lists@xms.com.br>
	<aa47605d0606071157g342e5badtc5bef1ac9ae1128c@mail.gmail.com>
	<200606071457.16104.lists@xms.com.br> <4487290F.30000@gmail.com>
Message-ID: <9a08c9b40606071829s3acb6ab9ue0dfe8b09d0051cd@mail.gmail.com>

On 6/7/06, Marco A P D'Andrade <mdacwb em gmail.com> wrote:
> $|++; # --> desativa buffers ...

Note que $|++ é um meme que "pegou" e não é considerado uma boa prática.
Ao invés disso, tente utilizar a forma explícita: $| = 1.

A idéia é que associar $|++ com ligar o autoflush implicaria que, para
manter a consistência entre as operações equivalentes, $|-- desligaria
o autoflush. O que nem sempre é verdade, já que utilizando $|++ em
mais de um lugar no código poderia fazer com que a variável $| tivesse
valores como 2, 3, etc.

Utilizando $| = 1 e $| = 0 explícitamente esse problema é evitado.

-Nilson Santos F. Jr.

From ptfzs em yahoo.com.br  Thu Jun  8 06:22:41 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 8 Jun 2006 10:22:41 -0300 (ART)
Subject: [Cascavel-pm] File::Linting nao funciona
Message-ID: <20060608132241.8156.qmail@web31302.mail.mud.yahoo.com>

Pesssoal.. troquei de maquina e o File::Listing nao funciona..:( ja instalei pelo modo CPAN e nada
meu script de teste:

#!/usr/bin/perl

use File::Listing qw(parse_dir);

for (parse_dir(`ls -l`))
{
print "teste";
     ($name, $type, $size, $mtime, $mode) = @$_;
     next if $type ne 'f'; # plain file
}


O que pode estar acontecendo?? o pior eh que meus scripts estao usando esse parse_dir ...


Obrigada

 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/02b476ee/attachment.html 

From igor.sutton em gmail.com  Thu Jun  8 06:25:31 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Thu, 8 Jun 2006 10:25:31 -0300
Subject: [Cascavel-pm] File::Linting nao funciona
In-Reply-To: <20060608132241.8156.qmail@web31302.mail.mud.yahoo.com>
References: <20060608132241.8156.qmail@web31302.mail.mud.yahoo.com>
Message-ID: <6c65a53f0606080625g51adcd5bsc94f5b729f67d0c1@mail.gmail.com>

Patty,

Você não aprendeu ainda? Se você quer ajuda, você tem que mostrar o erro.
Não somos adivinhos, se é que você ainda não percebeu.

Mas primeiro de tudo, como você não aprendeu:

use strict;
use warnings;
use diagnostics;


On 6/8/06, Patty Silva <ptfzs em yahoo.com.br> wrote:
>
> Pesssoal.. troquei de maquina e o File::Listing nao funciona..:( ja
> instalei pelo modo CPAN e nada
> meu script de teste:
>
> #!/usr/bin/perl
>
> use File::Listing qw(parse_dir);
>
> for (parse_dir(`ls -l`))
> {
> print "teste";
>      ($name, $type, $size, $mtime, $mode) = @$_;
>      next if $type ne 'f'; # plain file
> }
>
>
> O que pode estar acontecendo?? o pior eh que meus scripts estao usando
> esse parse_dir ...
>
>
> Obrigada
>
> __________________________________________________
> Fale com seus amigos de graça com o novo Yahoo! Messenger
> http://br.messenger.yahoo.com/
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>


-- 
Igor Sutton Lopes
http://www.izut.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/d66a1e46/attachment.html 

From andre.garcia.carneir em terra.com.br  Thu Jun  8 06:29:55 2006
From: andre.garcia.carneir em terra.com.br (=?iso-8859-1?b?QW5kcukgR2FyY2lhIENhcm5laXJv?=)
Date: Thu,  8 Jun 2006 10:29:55 -0300
Subject: [Cascavel-pm] [Spam]  File::Linting nao funciona
Message-ID: <J0JMTV$884E22DD5791D4794F80D048F08B698D@terra.com.br>

Qual a mensagem de erro?


Cheers!


---------- Cabeçalho original -----------

De: cascavel-pm-bounces+andre.garcia.carneir=terra.com.br em pm.org
Para: cascavel-pm em pm.org
Cópia: 
Data: Thu, 8 Jun 2006 10:22:41 -0300 (ART)
Assunto: [Spam] [Cascavel-pm] File::Linting nao funciona

> Pesssoal.. troquei de maquina e o File::Listing nao funciona..:( ja instalei pelo modo CPAN e nada
> meu script de teste:
> 
> #!/usr/bin/perl
> 
> use File::Listing qw(parse_dir);
> 
> for (parse_dir(`ls -l`))
> {
> print "teste";
>      ($name, $type, $size, $mtime, $mode) = @$_;
>      next if $type ne 'f'; # plain file
> }
> 
> 
> O que pode estar acontecendo?? o pior eh que meus scripts estao usando esse parse_dir ...
> 
> 
> Obrigada
> 
>  __________________________________________________
> Fale com seus amigos  de graça com o novo Yahoo! Messenger 
> http://br.messenger.yahoo.com/ 
> E-mail classificado pelo Identificador de Spam Inteligente Terra.
> Para alterar a categoria classificada, visite
>
http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=andre.garcia.carneir&_l=1,1149773012.889760.8089.tulear.hst.terra.com.br,4905,20031127114101,20031127114101
> 
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Scan engine: McAfee VirusScan / Atualizado em 07/06/2006 / Versão: 4.4.00/4779
> Proteja o seu e-mail Terra: http://mail.terra.com.br/
> 

--
André Garcia Carneiro
Developer(Perl)
Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org


From lgonzaga em lncc.br  Thu Jun  8 06:33:46 2006
From: lgonzaga em lncc.br (Luiz Gonzaga)
Date: Thu, 8 Jun 2006 10:33:46 -0300
Subject: [Cascavel-pm] File::Linting nao funciona
In-Reply-To: <20060608132241.8156.qmail@web31302.mail.mud.yahoo.com>
References: <20060608132241.8156.qmail@web31302.mail.mud.yahoo.com>
Message-ID: <200606081033.47053.lgonzaga@lncc.br>

Patty, serei repetitivo: O que significa nao funcionar ? Qual a mensagem de 
erro que he gerada ? Voce jah procurou nos manuais o que significa esta 
mensagem ?

Coloque nos seus scripts estas duas linhas:
use warnings;
use diagnostics;

E nos relate de forma mais precisa o que ocorre. Soh assim podemos ajudah-la.

Luiz.

Em Quinta 08 Junho 2006 10:22, Patty Silva escreveu:
> Pesssoal.. troquei de maquina e o File::Listing nao funciona..:( ja
> instalei pelo modo CPAN e nada meu script de teste:
>
> #!/usr/bin/perl
>
> use File::Listing qw(parse_dir);
>
> for (parse_dir(`ls -l`))
> {
> print "teste";
>      ($name, $type, $size, $mtime, $mode) = @$_;
>      next if $type ne 'f'; # plain file
> }
>
>
> O que pode estar acontecendo?? o pior eh que meus scripts estao usando esse
> parse_dir ...
>
>
> Obrigada
>
>  __________________________________________________
> Fale com seus amigos  de graça com o novo Yahoo! Messenger
> http://br.messenger.yahoo.com/

-- 
Luiz G. P. de Almeida
Analista de Sistemas
Laboratório Nacional de Computação Científica / MCT

From ptfzs em yahoo.com.br  Thu Jun  8 06:33:53 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 8 Jun 2006 10:33:53 -0300 (ART)
Subject: [Cascavel-pm] File::Linting nao funciona
In-Reply-To: <6c65a53f0606080625g51adcd5bsc94f5b729f67d0c1@mail.gmail.com>
Message-ID: <20060608133353.58282.qmail@web31312.mail.mud.yahoo.com>

SEU GROSSO STUPIDO!!
Nao da nenhum erro.. so nao funciona!!

SCROTO.. nao precisa aJUDAR se vc for scrotar!!



Igor Sutton <igor.sutton em gmail.com> escreveu: Patty,

Você não aprendeu ainda? Se você quer ajuda, você tem que mostrar o erro. Não somos adivinhos, se é que você ainda não percebeu.

Mas primeiro de tudo, como você não aprendeu:

use strict;
use warnings; 
use diagnostics;


On 6/8/06, Patty Silva <ptfzs em yahoo.com.br> wrote: Pesssoal.. troquei de maquina e o File::Listing nao funciona..:( ja instalei pelo modo CPAN e nada
meu script de teste:

#!/usr/bin/perl

use File::Listing qw(parse_dir);

for (parse_dir(`ls -l`)) 
{
print "teste";
     ($name, $type, $size, $mtime, $mode) = @$_;
     next if $type ne 'f'; # plain file
}


O que pode estar acontecendo?? o pior eh que meus scripts estao usando esse parse_dir ... 


Obrigada

 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
 http://br.messenger.yahoo.com/  


_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
 http://mail.pm.org/mailman/listinfo/cascavel-pm





-- 
Igor Sutton Lopes
http://www.izut.com/ _______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm

 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/9d8a3068/attachment.html 

From ptfzs em yahoo.com.br  Thu Jun  8 06:37:30 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 8 Jun 2006 10:37:30 -0300 (ART)
Subject: [Cascavel-pm] File::Linting nao funciona
In-Reply-To: <6c65a53f0606080625g51adcd5bsc94f5b729f67d0c1@mail.gmail.com>
Message-ID: <20060608133730.25337.qmail@web31301.mail.mud.yahoo.com>

Pois é Pessoal..

testei como vcs falaram e nao aparece nenhuma msg de erro e nao lista nada

mudei um pouquinho o script

#!/usr/bin/perl
use warnings;
use diagnostics;
use File::Listing qw(parse_dir);

for (parse_dir(`ls -l`))
{
print "teste";
($arquivo) = @$_;

print "ARQUIVO $arquivo\n";
}







Igor Sutton <igor.sutton em gmail.com> escreveu: Patty,

Você não aprendeu ainda? Se você quer ajuda, você tem que mostrar o erro. Não somos adivinhos, se é que você ainda não percebeu.

Mas primeiro de tudo, como você não aprendeu:

use strict;
use warnings; 
use diagnostics;


On 6/8/06, Patty Silva <ptfzs em yahoo.com.br> wrote: Pesssoal.. troquei de maquina e o File::Listing nao funciona..:( ja instalei pelo modo CPAN e nada
meu script de teste:

#!/usr/bin/perl

use File::Listing qw(parse_dir);

for (parse_dir(`ls -l`)) 
{
print "teste";
     ($name, $type, $size, $mtime, $mode) = @$_;
     next if $type ne 'f'; # plain file
}


O que pode estar acontecendo?? o pior eh que meus scripts estao usando esse parse_dir ... 


Obrigada

 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
 http://br.messenger.yahoo.com/  


_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
 http://mail.pm.org/mailman/listinfo/cascavel-pm





-- 
Igor Sutton Lopes
http://www.izut.com/ _______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm

 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/866b1861/attachment-0001.html 

From andre.garcia.carneir em terra.com.br  Thu Jun  8 06:37:20 2006
From: andre.garcia.carneir em terra.com.br (=?iso-8859-1?b?QW5kcukgR2FyY2lhIENhcm5laXJv?=)
Date: Thu,  8 Jun 2006 10:37:20 -0300
Subject: [Cascavel-pm] [Spam] Re:  File::Linting nao funciona
Message-ID: <J0JN68$9F1FF9CDD0541985560448864DBC4D26@terra.com.br>

Não precisa ser grosseiro. 


---------- Cabeçalho original -----------

De: cascavel-pm-bounces+andre.garcia.carneir=terra.com.br em pm.org
Para: "Cascavel Perl Mongers" cascavel-pm em pm.org
Cópia: 
Data: Thu, 8 Jun 2006 10:25:31 -0300
Assunto: [Spam] Re: [Cascavel-pm] File::Linting nao funciona

> Patty,
> 
> Você não aprendeu ainda? Se você quer ajuda, você tem que mostrar o erro.
> Não somos adivinhos, se é que você ainda não percebeu.
> 
> Mas primeiro de tudo, como você não aprendeu:
> 
> use strict;
> use warnings;
> use diagnostics;
> 
> 
> On 6/8/06, Patty Silva <ptfzs em yahoo.com.br> wrote:
> >
> > Pesssoal.. troquei de maquina e o File::Listing nao funciona..:( ja
> > instalei pelo modo CPAN e nada
> > meu script de teste:
> >
> > #!/usr/bin/perl
> >
> > use File::Listing qw(parse_dir);
> >
> > for (parse_dir(`ls -l`))
> > {
> > print "teste";
> >      ($name, $type, $size, $mtime, $mode) = @$_;
> >      next if $type ne 'f'; # plain file
> > }
> >
> >
> > O que pode estar acontecendo?? o pior eh que meus scripts estao usando
> > esse parse_dir ...
> >
> >
> > Obrigada
> >
> > __________________________________________________
> > Fale com seus amigos de graça com o novo Yahoo! Messenger
> > http://br.messenger.yahoo.com/
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> >
> 
> 
> -- 
> Igor Sutton Lopes
> http://www.izut.com/
> 
> E-mail classificado pelo Identificador de Spam Inteligente Terra.
> Para alterar a categoria classificada, visite
>
http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=andre.garcia.carneir&_l=1,1149773180.684390.8028.ambrose.hst.terra.com.br,7235,20031127114101,20031127114101
> 
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Scan engine: McAfee VirusScan / Atualizado em 07/06/2006 / Versão: 4.4.00/4779
> Proteja o seu e-mail Terra: http://mail.terra.com.br/
> 
> 

--
André Garcia Carneiro
Developer(Perl)
Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org


From igor.sutton em gmail.com  Thu Jun  8 06:39:38 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Thu, 8 Jun 2006 10:39:38 -0300
Subject: [Cascavel-pm] File::Linting nao funciona
In-Reply-To: <20060608133353.58282.qmail@web31312.mail.mud.yahoo.com>
References: <6c65a53f0606080625g51adcd5bsc94f5b729f67d0c1@mail.gmail.com>
	<20060608133353.58282.qmail@web31312.mail.mud.yahoo.com>
Message-ID: <6c65a53f0606080639x3c2af01ep868ed82a7076e3da@mail.gmail.com>

Patty,

Esse tipo de comentário você não precisa enviar para a lista, pode enviar
direto para o meu email.

Como você deu a liberdade de fazer este tipo de comentário para uma lista,
vou responder da seguinte maneira:

Enquanto você não se *esforçar* para aprender, as pessoas da lista vão cada
vez mais perder a paciência e ninguém mais vai responder email algum prá
você. Como o Nelson disse em uma mensagem anterior, mostre que você está
aprendendo e todos ajudarão.

Além disso não estou sendo "escroto" (acho que você teve um typo algumas
vezes), e sim tentando fazer você entender que:

1) use strict;
2) use warnings;
3) use diagnostics;
4) envie o erro, e avise explicitamente caso não encontre erro algum
5) quando tiver dúvida em algum algorítimo ou programa, envie sua prova de
conceito junto.

Porém, se você está se achando a última bolacha do pacote e quer que todos
façam a sua vontade, está no lugar errado.

On 6/8/06, Patty Silva <ptfzs em yahoo.com.br> wrote:
>
> SEU GROSSO STUPIDO!!
> Nao da nenhum erro.. so nao funciona!!
>
> SCROTO.. nao precisa aJUDAR se vc for scrotar!!
>
>
>
> *Igor Sutton <igor.sutton em gmail.com>* escreveu:
>
> Patty,
>
> Você não aprendeu ainda? Se você quer ajuda, você tem que mostrar o erro.
> Não somos adivinhos, se é que você ainda não percebeu.
>
> Mas primeiro de tudo, como você não aprendeu:
>
> use strict;
> use warnings;
> use diagnostics;
>
>
> On 6/8/06, Patty Silva <ptfzs em yahoo.com.br> wrote:
> >
> > Pesssoal.. troquei de maquina e o File::Listing nao funciona..:( ja
> > instalei pelo modo CPAN e nada
> > meu script de teste:
> >
> > #!/usr/bin/perl
> >
> > use File::Listing qw(parse_dir);
> >
> > for (parse_dir(`ls -l`))
> > {
> > print "teste";
> >      ($name, $type, $size, $mtime, $mode) = @$_;
> >      next if $type ne 'f'; # plain file
> > }
> >
> >
> > O que pode estar acontecendo?? o pior eh que meus scripts estao usando
> > esse parse_dir ...
> >
> >
> > Obrigada
> > __________________________________________________
> > Fale com seus amigos de graça com o novo Yahoo! Messenger
> > http://br.messenger.yahoo.com/
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> >
>
>
> --
> Igor Sutton Lopes
> http://www.izut.com/ _______________________________________________
>
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> __________________________________________________
> Fale com seus amigos de graça com o novo Yahoo! Messenger
> http://br.messenger.yahoo.com/
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>


-- 
Igor Sutton Lopes
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/88ad8fd2/attachment.html 

From lists em xms.com.br  Thu Jun  8 06:33:24 2006
From: lists em xms.com.br (Antonio Carlos I. Paes)
Date: Thu, 8 Jun 2006 09:33:24 -0400
Subject: [Cascavel-pm] Duvida sobre variaveis
Message-ID: <200606080933.24220.lists@xms.com.br>

Lista,

	Surgiu outra duvida a respeito de variaveis,

Seguindo o conselho, estou usando strict e warnings, mas ele me gera essas 
mensagens:
"my" variable $mesg masks earlier declaration in same scope at ./syslog2db.pl 
line 48.
"my" variable $mesg masks earlier declaration in same scope at ./syslog2db.pl 
line 49.
Global symbol "$mesg" requires explicit package name at ./syslog2db.pl line 
57.
Execution of ./syslog2db.pl aborted due to compilation errors.

O codigo abaixo representa essas linhas:
  # $mesg
  if (@mesg) {
    my $mesg = "@mesg";
    my $mesg =~ s/\\/\\\\/g;
    my $mesg = $dsn->quote("$mesg");
  }
  else { return; }

Pergunto: Nao ha uma forma mais facil de se definir tudo isso numa linha so? 
Como o Perl interpreta esse tipo de situacao, onde a variavel e' substituida 
por ela mesmo.

Obs.: Utilizei o "s/\\/\\\\/g" para "escapar" as barras (\), o quote() nao me 
fez isso...

From andre.garcia.carneir em terra.com.br  Thu Jun  8 06:46:15 2006
From: andre.garcia.carneir em terra.com.br (=?iso-8859-1?b?QW5kcukgR2FyY2lhIENhcm5laXJv?=)
Date: Thu,  8 Jun 2006 10:46:15 -0300
Subject: [Cascavel-pm] Duvida sobre variaveis
Message-ID: <J0JNL3$DC9D8A633A4CE6C53AE2FA0311F608B5@terra.com.br>

Essa variável não foi declarada(my $mesg) em algum outro lugar do seu script mais de uma vez? Pode ser isso.


---------- Cabeçalho original -----------

De: cascavel-pm-bounces+andre.garcia.carneir=terra.com.br em pm.org
Para: "Perl Mongers" cascavel-pm em pm.org
Cópia: 
Data: Thu, 8 Jun 2006 09:33:24 -0400
Assunto: [Cascavel-pm] Duvida sobre variaveis

> Lista,
> 
> 	Surgiu outra duvida a respeito de variaveis,
> 
> Seguindo o conselho, estou usando strict e warnings, mas ele me gera essas 
> mensagens:
> "my" variable $mesg masks earlier declaration in same scope at ./syslog2db.pl 
> line 48.
> "my" variable $mesg masks earlier declaration in same scope at ./syslog2db.pl 
> line 49.
> Global symbol "$mesg" requires explicit package name at ./syslog2db.pl line 
> 57.
> Execution of ./syslog2db.pl aborted due to compilation errors.
> 
> O codigo abaixo representa essas linhas:
>   # $mesg
>   if (@mesg) {
>     my $mesg = "@mesg";
>     my $mesg =~ s/\\/\\\\/g;
>     my $mesg = $dsn->quote("$mesg");
>   }
>   else { return; }
> 
> Pergunto: Nao ha uma forma mais facil de se definir tudo isso numa linha so? 
> Como o Perl interpreta esse tipo de situacao, onde a variavel e' substituida 
> por ela mesmo.
> 
> Obs.: Utilizei o "s/\\/\\\\/g" para "escapar" as barras (\), o quote() nao me 
> fez isso...
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> E-mail classificado pelo Identificador de Spam Inteligente Terra.
> Para alterar a categoria classificada, visite
>
http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=andre.garcia.carneir&_l=1,1149774158.912503.4666.alcala.hst.terra.com.br,4099,Des15,Des15
> 
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Scan engine: McAfee VirusScan / Atualizado em 07/06/2006 / Versão: 4.4.00/4779
> Proteja o seu e-mail Terra: http://mail.terra.com.br/
> 
> 

--
André Garcia Carneiro
Developer(Perl)
Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org


From ptfzs em yahoo.com.br  Thu Jun  8 06:46:43 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 8 Jun 2006 10:46:43 -0300 (ART)
Subject: [Cascavel-pm] File::Linting nao funciona
In-Reply-To: <6c65a53f0606080639x3c2af01ep868ed82a7076e3da@mail.gmail.com>
Message-ID: <20060608134643.38423.qmail@web31309.mail.mud.yahoo.com>

IGOR.. eu vou inventar um erro para te mandar OK?

Owwwwwwwwwwwwww nao ta dando erro.. so nao lista o que eu quero nao imprime dentro do FOR so isso!!

So que o problema eh que funcionava antes na outra maquina e quando mudei de maquina nao funciona +
ENTENDEU AGORA??
Nao tenho erro para mandar pois nao apareceu nenhum erro!! 
Fiz o que vc sempre me pediu para postar o codigo.. postei.. agora tirar erro da onde nao tem...
tsc tsc tsc tsc tsc


OBRIGADA VIU!!




Igor Sutton <igor.sutton em gmail.com> escreveu: Patty,

Esse tipo de comentário você não precisa enviar para a lista, pode enviar direto para o meu email.

Como você deu a liberdade de fazer este tipo de comentário para uma lista, vou responder da seguinte maneira: 

Enquanto você não se *esforçar* para aprender, as pessoas da lista vão cada vez mais perder a paciência e ninguém mais vai responder email algum prá você. Como o Nelson disse em uma mensagem anterior, mostre que você está aprendendo e todos ajudarão. 

Além disso não estou sendo "escroto" (acho que você teve um typo algumas vezes), e sim tentando fazer você entender que:

1) use strict;
2) use warnings;
3) use diagnostics;
4) envie o erro, e avise explicitamente caso não encontre erro algum 
5) quando tiver dúvida em algum algorítimo ou programa, envie sua prova de conceito junto.

Porém, se você está se achando a última bolacha do pacote e quer que todos façam a sua vontade, está no lugar errado.
 
On 6/8/06, Patty Silva <ptfzs em yahoo.com.br> wrote: SEU GROSSO STUPIDO!!
Nao da nenhum erro.. so nao funciona!!

SCROTO.. nao precisa aJUDAR se vc for scrotar!!



Igor Sutton < igor.sutton em gmail.com> escreveu:
 Patty,
 
Você não aprendeu ainda? Se você quer ajuda, você tem que mostrar o erro. Não somos adivinhos, se é que você ainda não percebeu.

Mas primeiro de tudo, como você não aprendeu:

use strict;
use warnings;  
use diagnostics;


On 6/8/06, Patty Silva < ptfzs em yahoo.com.br> wrote: Pesssoal.. troquei de maquina e o File::Listing nao funciona..:( ja instalei pelo modo CPAN e nada 
meu  script de teste:

#!/usr/bin/perl

use File::Listing qw(parse_dir);

for (parse_dir(`ls -l`)) 
{
print "teste";
     ($name, $type, $size, $mtime, $mode) = @$_;
     next if $type ne 'f'; # plain file 
}


O que pode estar acontecendo?? o pior eh que meus scripts estao usando esse parse_dir ... 


Obrigada

 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger  
 http://br.messenger.yahoo.com/  


_______________________________________________ 
Cascavel-pm mailing list
Cascavel-pm em pm.org
  http://mail.pm.org/mailman/listinfo/cascavel-pm





-- 
Igor Sutton Lopes

 http://www.izut.com/ _______________________________________________

Cascavel-pm mailing list
 Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm
 

 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
 http://br.messenger.yahoo.com/  


_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
 http://mail.pm.org/mailman/listinfo/cascavel-pm





-- 
Igor Sutton Lopes
 _______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm

 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/91fa1a8d/attachment-0001.html 

From nferraz em gmail.com  Thu Jun  8 06:52:21 2006
From: nferraz em gmail.com (Nelson Ferraz)
Date: Thu, 08 Jun 2006 14:52:21 +0100
Subject: [Cascavel-pm] File::Linting nao funciona
In-Reply-To: <20060608133353.58282.qmail@web31312.mail.mud.yahoo.com>
References: <20060608133353.58282.qmail@web31312.mail.mud.yahoo.com>
Message-ID: <44882B95.6020107@gmail.com>

Patty,

O Igor só quis ajudar, explicando a maneira apropriada de fazer 
perguntas em uma lista de discussão.

Só para lembrar, pois você já deve ter lido "Como Fazer Perguntas de 
Forma Inteligente", de Eric Raymond, aqui vão dois trechos importantes:


Seja preciso e informativo sobre o seu problema
-----------------------------------------------

     * Descreva os sintomas do seu problema ou bug cuidadosa e claramente.
     * Descreva o ambiente em que o mesmo ocorre (máquina, SO, 
aplicação, o que for)
     * Descreva a pesquisa que você fez para experimenta resolver e 
entender o problema antes de ter feito a pergunta
     * Descreva os passos de diagnóstico que você tomou para resolver o 
problema por conta própria antes de ter feito a pergunta
     * Descreva qualquer alteração recente no seu computador ou 
configuração de software que possa ser relevante

Faça o melhor que puder para antecipar as perguntas que um hacker possa 
fazer, e para responder as mesmas previamente no seu pedido de ajuda. (...)


Não Reaja como um Perdedor
--------------------------

Eventualmente você vai se dar mal algumas vezes em fóruns da comunidade 
hacker -- em formas detalhadas neste artigo, ou parecidas. E vai ser 
dito para você exatamente onde você se deu mal, possivelmente com termos 
coloridos. Em público.

Quando isto acontecer, a pior coisa que você pode fazer é se queixar da 
experiência, alegar ter sido verbalmente atacado, exigir que se 
desculpem, gritar, prender a respiração, ameaçar com processos legais, 
reclamar com os chefes das pessoas, deixar a tampa do vaso levantada, 
etc. Ao invés disso, aqui está o que você deve fazer:"

Supere isto. É normal. De fato, é saudável e apropriado. (...)

Lembre-se: quando aquele hacker te disser que você errou, e (não importa 
o quão rude) te diz para não fazer isto novamente, ele está agindo por 
preocupação (1) por ti e (2) pela comunidade. Seria mais fácil para ele 
ignorar você e filtrar você fora da vida dele. Se você não consegue ser 
grato, pelo menos tenha um pouco de dignidade, não chore, e não espere 
ser tratado como uma boneca frágil só por que você é um novato com uma 
alma teatralmente hipersensível e ilusões de merecimento.

http://br.geocities.com/cesarakg/smart-questions-pt_BR.html

From glasswalk3r em yahoo.com.br  Thu Jun  8 06:54:54 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Thu, 8 Jun 2006 10:54:54 -0300 (ART)
Subject: [Cascavel-pm] File::Listing nao funciona
In-Reply-To: <20060608134643.38423.qmail@web31309.mail.mud.yahoo.com>
Message-ID: <20060608135455.53811.qmail@web30801.mail.mud.yahoo.com>

Ok pequena gafanhota... com ofensas você não vai
longe, então tente não se apegar emocionalmente às
críticas feitas.

Está na hora de você aprender então a usar um debug e
logging para descobrir o que está acontecendo. Existe
documentação online do Perl para aprender a usar o
debug. Sobre logging, uma pesquisa no Google deve lhe
ajudar a descobrir o que está acontecendo. Uma das
formas de usar logging é modificar isto daqui:

for (parse_dir(`ls -l`))

por 

my @list_of_files = parse_dir(`ls -l`);
warn "A lista está vazia" unless(@list_of_files);

Se você habilitar as pragmas warnings, strict e
diagnostics você pode obter algumas mensagens de aviso
que normalmente não abortariam seu programa.

Revise o processo de instalação do módulo Perl nessa
nova máquina (se você instalou isso do CPAN) para
verificar se o problema não está no módulo e não no
seu código.

Se nada disso solucionar seu problema, nos traga os
resultados dos testes.

[]'s
Alceu

--- Patty Silva <ptfzs em yahoo.com.br> escreveu:

> IGOR.. eu vou inventar um erro para te mandar OK?
> 
> Owwwwwwwwwwwwww nao ta dando erro.. so nao lista o
> que eu quero nao imprime dentro do FOR so isso!!
> 
> So que o problema eh que funcionava antes na outra
> maquina e quando mudei de maquina nao funciona +
> ENTENDEU AGORA??
> Nao tenho erro para mandar pois nao apareceu nenhum
> erro!! 
> Fiz o que vc sempre me pediu para postar o codigo..
> postei.. agora tirar erro da onde nao tem...
> tsc tsc tsc tsc tsc


__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

From diogoleal em gawab.com  Thu Jun  8 06:59:07 2006
From: diogoleal em gawab.com (Diogo Leal)
Date: Thu, 08 Jun 2006 13:59:07 GMT
Subject: [Cascavel-pm] File::Linting nao funciona
In-Reply-To: <20060608134643.38423.qmail@web31309.mail.mud.yahoo.com>
References: <20060608134643.38423.qmail@web31309.mail.mud.yahoo.com>
Message-ID: <20060608135910.22586.qmail@info6.gawab.com>



> Owwwwwwwwwwwwww nao ta dando erro.. so nao lista o que eu quero nao imprime dentro do FOR so isso!!

já tentou alterar o código ?
dê cabeçadas antes de pedir ajuda pra alguém isso lhe ajuda
muito.

> 
> So que o problema eh que funcionava antes na outra maquina e quando mudei de maquina nao funciona +
> ENTENDEU AGORA??
calma.
as versões são as mesmas  ? 
tudo o que tem instalado em uma tem na outra ? 



> Nao tenho erro para mandar pois nao apareceu nenhum erro!! 
> Fiz o que vc sempre me pediu para postar o codigo.. postei.. agora tirar erro da onde nao tem...
> tsc tsc tsc tsc tsc
> 
> 
> OBRIGADA VIU!!

não precisa gritar e nem descer dos tamancos .. 


Diogo Leal 
http://my.opera.com/diogoleal
JID: diogo_andrade em jabber.org | ICQ #282411638 
http://slackbookptbr.sf.net/ --> projeto de tradução do
slackbook
---------------------------------------------
Free POP3 Email from www.Gawab.com 
Sign up NOW and get your account @gawab.com!!

From edencardim em gmail.com  Thu Jun  8 06:57:25 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Thu, 8 Jun 2006 10:57:25 -0300
Subject: [Cascavel-pm] Duvida sobre variaveis
In-Reply-To: <200606080933.24220.lists@xms.com.br>
References: <200606080933.24220.lists@xms.com.br>
Message-ID: <3de55ead0606080657v17bbc3ev90b4f31de2e6b541@mail.gmail.com>

On 6/8/06, Antonio Carlos I. Paes <lists em xms.com.br> wrote:
> Lista,
>
>         Surgiu outra duvida a respeito de variaveis,
>
> Seguindo o conselho, estou usando strict e warnings, mas ele me gera essas
> mensagens:
> "my" variable $mesg masks earlier declaration in same scope at ./syslog2db.pl
> line 48.
> "my" variable $mesg masks earlier declaration in same scope at ./syslog2db.pl
> line 49.
> Global symbol "$mesg" requires explicit package name at ./syslog2db.pl line
> 57.
> Execution of ./syslog2db.pl aborted due to compilation errors.
>
> O codigo abaixo representa essas linhas:
>   # $mesg
>   if (@mesg) {
>     my $mesg = "@mesg";
>     my $mesg =~ s/\\/\\\\/g;
>     my $mesg = $dsn->quote("$mesg");
>   }
>   else { return; }

Bem, você está re-declarando o escalar $mesg 2 vezes, e não está
declarando o array @mesg, por isso os avisos na compilação. Use o my
na primeira aparição da variável apenas.

> Pergunto: Nao ha uma forma mais facil de se definir tudo isso numa linha so?
Não, mas dá pra fazer em duas:
my($mesg = "@mesg") =~ s/\\/\\\\/g;
$mesg = $dsn->quote("$mesg");

> Como o Perl interpreta esse tipo de situacao, onde a variavel e' substituida
> por ela mesmo.
Como qualquer outra linguagem, o lado direito da expressão de
atribuição é avaliado primeiro na pilha.

> Obs.: Utilizei o "s/\\/\\\\/g" para "escapar" as barras (\), o quote() nao me
> fez isso...
se você tirar as aspas de "$mesg", o perl não vai interpolar as barras
e você não vai precisar as barras e o código final vai ficar assim:

my $mesg = $dsn->quote("@mesg");

bem mais simples né? ;)

From nferraz em gmail.com  Thu Jun  8 06:58:34 2006
From: nferraz em gmail.com (Nelson Ferraz)
Date: Thu, 08 Jun 2006 14:58:34 +0100
Subject: [Cascavel-pm] Duvida sobre variaveis
In-Reply-To: <200606080933.24220.lists@xms.com.br>
References: <200606080933.24220.lists@xms.com.br>
Message-ID: <44882D0A.7060401@gmail.com>

Antonio Carlos I. Paes wrote:
> O codigo abaixo representa essas linhas:
>   # $mesg
>   if (@mesg) {
>     my $mesg = "@mesg";
>     my $mesg =~ s/\\/\\\\/g;
>     my $mesg = $dsn->quote("$mesg");
>   }
>   else { return; }

Para eliminar os warnings, você só precisa definir o "my $mesg" uma 
única vez...

if (@mesg) {
     my $mesg = "@mesg";
     $mesg =~ s/\\/\\\\/g;
     $mesg = $dsn->quote("$mesg");
}

Verifique se você não está usando a variável $mesg antes ou depois deste 
"if"; se você precisar que a variável sobreviva depois do bloco, precisa 
declará-la fora dele:

my $mesg;

if (@mesg) {
     $mesg = "@mesg";
     $mesg =~ s/\\/\\\\/g;
     $mesg = $dsn->quote("$mesg");
}

# $mesg continua a existir

-- 
Nelson Corrêa de Toledo Ferraz

Segula Technologies (www.segula.fr)
Free Software Foundation Associate Member #3203
Sociedade Perl do Brasil (www.perl.org.br)
Rede Livre de Compartilhamento de Cultura Digital

From lists em xms.com.br  Thu Jun  8 07:10:46 2006
From: lists em xms.com.br (Antonio Carlos I. Paes)
Date: Thu, 8 Jun 2006 10:10:46 -0400
Subject: [Cascavel-pm] Duvida sobre variaveis
In-Reply-To: <3de55ead0606080657v17bbc3ev90b4f31de2e6b541@mail.gmail.com>
References: <200606080933.24220.lists@xms.com.br>
	<3de55ead0606080657v17bbc3ev90b4f31de2e6b541@mail.gmail.com>
Message-ID: <200606081010.46940.lists@xms.com.br>

Calma, ta ficando simples hehe
Eu preciso de na verdade uma barra antes de cada barra, para que o mysql 
insira direito na tabela...
Se mandar eu inserir '\\string', sera inserido na tabela '\string'...

Mas nao entendi muito bem essa jogada das variaveis, eu tenho o array 
declarado la em cima:
my ($month, $day, $hour, $hostname, $daemon, @mesg) = @ARGV;

Mesmo utilizando a forma abaixo ele me da erros declaracao:
my ($mesg = "@mesg") =~ s/\\/\\\\/;

On Thursday 08 June 2006 09:57, Eden Cardim wrote:
> On 6/8/06, Antonio Carlos I. Paes <lists em xms.com.br> wrote:
> > Lista,
> >
> >         Surgiu outra duvida a respeito de variaveis,
> >
> > Seguindo o conselho, estou usando strict e warnings, mas ele me gera
> > essas mensagens:
> > "my" variable $mesg masks earlier declaration in same scope at
> > ./syslog2db.pl line 48.
> > "my" variable $mesg masks earlier declaration in same scope at
> > ./syslog2db.pl line 49.
> > Global symbol "$mesg" requires explicit package name at ./syslog2db.pl
> > line 57.
> > Execution of ./syslog2db.pl aborted due to compilation errors.
> >
> > O codigo abaixo representa essas linhas:
> >   # $mesg
> >   if (@mesg) {
> >     my $mesg = "@mesg";
> >     my $mesg =~ s/\\/\\\\/g;
> >     my $mesg = $dsn->quote("$mesg");
> >   }
> >   else { return; }
>
> Bem, você está re-declarando o escalar $mesg 2 vezes, e não está
> declarando o array @mesg, por isso os avisos na compilação. Use o my
> na primeira aparição da variável apenas.
>
> > Pergunto: Nao ha uma forma mais facil de se definir tudo isso numa linha
> > so?
>
> Não, mas dá pra fazer em duas:
> my($mesg = "@mesg") =~ s/\\/\\\\/g;
> $mesg = $dsn->quote("$mesg");
>
> > Como o Perl interpreta esse tipo de situacao, onde a variavel e'
> > substituida por ela mesmo.
>
> Como qualquer outra linguagem, o lado direito da expressão de
> atribuição é avaliado primeiro na pilha.
>
> > Obs.: Utilizei o "s/\\/\\\\/g" para "escapar" as barras (\), o quote()
> > nao me fez isso...
>
> se você tirar as aspas de "$mesg", o perl não vai interpolar as barras
> e você não vai precisar as barras e o código final vai ficar assim:
>
> my $mesg = $dsn->quote("@mesg");
>
> bem mais simples né? ;)
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

From edencardim em gmail.com  Thu Jun  8 07:15:30 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Thu, 8 Jun 2006 11:15:30 -0300
Subject: [Cascavel-pm] File::Linting nao funciona
In-Reply-To: <20060608134643.38423.qmail@web31309.mail.mud.yahoo.com>
References: <6c65a53f0606080639x3c2af01ep868ed82a7076e3da@mail.gmail.com>
	<20060608134643.38423.qmail@web31309.mail.mud.yahoo.com>
Message-ID: <3de55ead0606080715h3caeef01ua134d8c3b426758e@mail.gmail.com>

On 6/8/06, Patty Silva <ptfzs em yahoo.com.br> wrote:
> IGOR.. eu vou inventar um erro para te mandar OK?
>
> Owwwwwwwwwwwwww nao ta dando erro.. so nao lista o que eu quero nao imprime
> dentro do FOR so isso!!
>
> So que o problema eh que funcionava antes na outra maquina e quando mudei de
> maquina nao funciona +
> ENTENDEU AGORA??
> Nao tenho erro para mandar pois nao apareceu nenhum erro!!
> Fiz o que vc sempre me pediu para postar o codigo.. postei.. agora tirar
> erro da onde nao tem...
> tsc tsc tsc tsc tsc
>
>
> OBRIGADA VIU!!

Patty, quanto mais informação você nos der, mais rápido terá uma
solução pro seu problema, pense nisso antes de perguntar. As vezes na
hora de reunir a informação disponível para nos ajudar a resolver seu
problema, você mesma vai acabar descobrindo por conta própria a
solução. Nós queremos lhe ajudar, mas se você mesma, que está aí na
frente da máquina, já está tendo dificuldades, imagine nós que estamos
a léguas de distância! Experimente resolver o problema com seu monitor
desligado... É assim que nos sentimos!

From igor.sutton em gmail.com  Thu Jun  8 07:16:44 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Thu, 8 Jun 2006 11:16:44 -0300
Subject: [Cascavel-pm] File::Linting nao funciona
In-Reply-To: <20060608134643.38423.qmail@web31309.mail.mud.yahoo.com>
References: <6c65a53f0606080639x3c2af01ep868ed82a7076e3da@mail.gmail.com>
	<20060608134643.38423.qmail@web31309.mail.mud.yahoo.com>
Message-ID: <6c65a53f0606080716h480b1f02j1a014617093315ba@mail.gmail.com>

Patty,

Eu não sou tão mau assim, os que me conhecem pode confirmá-lo. Vamos começar
do início, que é: qual é o seu problema? Se você quer listar o conteúdo de
um diretório, existem maneiras mais fáceis de fazê-lo, como por exemplo:

<code>
use strict;
use warnings;

my $basedir = "/var/www";

opendir my $dir, $basedir or die "Problemas ao abrir diretório: $!";
while (defined(my $file = readdir($dir))) {
    print "Arquivo: $file\n";
}
</code>

Outra opção que você tem é utilizar glob (assumindo que o trecho modificado
seja o de depois da definição de variável $basedir:

<code>
foreach my $file (glob("${basedir}/*")) {
    print "Arquivo: $file\n";
}
</code>

Porém esta utilização é desaconselhada.

Eu preferiria uma solução dessas pois é independente do sistema operacional.

[snip]
>
> #!/usr/bin/perl
> > >
> > > use File::Listing qw(parse_dir);
> > >
> > > for (parse_dir(`ls -l`))
> > > {
> > > print "teste";
> > >      ($name, $type, $size, $mtime, $mode) = @$_;
> > >      next if $type ne 'f'; # plain file
> > > }
> > >
> > > [snip]

-- 
Igor Sutton Lopes
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/2bf2a89c/attachment-0001.html 

From lists em xms.com.br  Thu Jun  8 07:14:19 2006
From: lists em xms.com.br (Antonio Carlos I. Paes)
Date: Thu, 8 Jun 2006 10:14:19 -0400
Subject: [Cascavel-pm] Duvida sobre variaveis
In-Reply-To: <44882D0A.7060401@gmail.com>
References: <200606080933.24220.lists@xms.com.br> <44882D0A.7060401@gmail.com>
Message-ID: <200606081014.19373.lists@xms.com.br>

Bom, eu uso o @mesg, teria algo a ver?

  # $daemon
  if ("$daemon" =~ "--" && "@mesg" =~ "MARK --") {
    my $daemon = "";
    my @mesg = "-- MARK --";
  }

Duvida: Ta certo isso? if ("variavel" =~ "string") para obter uma condicao sem 
ER? Eu tentei == mas deu erro que nao era numerico :)
  
  # $mesg
  if (@mesg) {
    my ($mesg = "@mesg") =~ s/\\/\\\\/g;
    $mesg = $dsn->quote("$mesg");
  }
  else { return; }
  print $mesg . "\n";
  return;

On Thursday 08 June 2006 09:58, Nelson Ferraz wrote:
> Antonio Carlos I. Paes wrote:
> > O codigo abaixo representa essas linhas:
> >   # $mesg
> >   if (@mesg) {
> >     my $mesg = "@mesg";
> >     my $mesg =~ s/\\/\\\\/g;
> >     my $mesg = $dsn->quote("$mesg");
> >   }
> >   else { return; }
>
> Para eliminar os warnings, você só precisa definir o "my $mesg" uma
> única vez...
>
> if (@mesg) {
>      my $mesg = "@mesg";
>      $mesg =~ s/\\/\\\\/g;
>      $mesg = $dsn->quote("$mesg");
> }
>
> Verifique se você não está usando a variável $mesg antes ou depois deste
> "if"; se você precisar que a variável sobreviva depois do bloco, precisa
> declará-la fora dele:
>
> my $mesg;
>
> if (@mesg) {
>      $mesg = "@mesg";
>      $mesg =~ s/\\/\\\\/g;
>      $mesg = $dsn->quote("$mesg");
> }
>
> # $mesg continua a existir

From igor.sutton em gmail.com  Thu Jun  8 07:19:48 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Thu, 8 Jun 2006 11:19:48 -0300
Subject: [Cascavel-pm] Duvida sobre variaveis
In-Reply-To: <200606081010.46940.lists@xms.com.br>
References: <200606080933.24220.lists@xms.com.br>
	<3de55ead0606080657v17bbc3ev90b4f31de2e6b541@mail.gmail.com>
	<200606081010.46940.lists@xms.com.br>
Message-ID: <6c65a53f0606080719t4b35d238h1116409c9713eedb@mail.gmail.com>

Se você utilizar placeholders ao invés de compor sua query, o Perl fará isso
prá você.

<code>
my $stmt = $dbh->prepare(qq{INSERT INTO table VALUES (?)}) or die
$dbh->error; # acho que é este o método de erro, pode estar errado :P

my $str = "lala\nlele\nlili";
</code>

$stmt->execute($str) or die $dbh->error; # denovo.

On 6/8/06, Antonio Carlos I. Paes <lists em xms.com.br> wrote:
>
> Calma, ta ficando simples hehe
> Eu preciso de na verdade uma barra antes de cada barra, para que o mysql
> insira direito na tabela...
> Se mandar eu inserir '\\string', sera inserido na tabela '\string'...
>
> Mas nao entendi muito bem essa jogada das variaveis, eu tenho o array
> declarado la em cima:
> my ($month, $day, $hour, $hostname, $daemon, @mesg) = @ARGV;
>
> Mesmo utilizando a forma abaixo ele me da erros declaracao:
> my ($mesg = "@mesg") =~ s/\\/\\\\/;
>
> On Thursday 08 June 2006 09:57, Eden Cardim wrote:
> > On 6/8/06, Antonio Carlos I. Paes <lists em xms.com.br> wrote:
> > > Lista,
> > >
> > >         Surgiu outra duvida a respeito de variaveis,
> > >
> > > Seguindo o conselho, estou usando strict e warnings, mas ele me gera
> > > essas mensagens:
> > > "my" variable $mesg masks earlier declaration in same scope at
> > > ./syslog2db.pl line 48.
> > > "my" variable $mesg masks earlier declaration in same scope at
> > > ./syslog2db.pl line 49.
> > > Global symbol "$mesg" requires explicit package name at ./syslog2db.pl
> > > line 57.
> > > Execution of ./syslog2db.pl aborted due to compilation errors.
> > >
> > > O codigo abaixo representa essas linhas:
> > >   # $mesg
> > >   if (@mesg) {
> > >     my $mesg = "@mesg";
> > >     my $mesg =~ s/\\/\\\\/g;
> > >     my $mesg = $dsn->quote("$mesg");
> > >   }
> > >   else { return; }
> >
> > Bem, você está re-declarando o escalar $mesg 2 vezes, e não está
> > declarando o array @mesg, por isso os avisos na compilação. Use o my
> > na primeira aparição da variável apenas.
> >
> > > Pergunto: Nao ha uma forma mais facil de se definir tudo isso numa
> linha
> > > so?
> >
> > Não, mas dá pra fazer em duas:
> > my($mesg = "@mesg") =~ s/\\/\\\\/g;
> > $mesg = $dsn->quote("$mesg");
> >
> > > Como o Perl interpreta esse tipo de situacao, onde a variavel e'
> > > substituida por ela mesmo.
> >
> > Como qualquer outra linguagem, o lado direito da expressão de
> > atribuição é avaliado primeiro na pilha.
> >
> > > Obs.: Utilizei o "s/\\/\\\\/g" para "escapar" as barras (\), o quote()
> > > nao me fez isso...
> >
> > se você tirar as aspas de "$mesg", o perl não vai interpolar as barras
> > e você não vai precisar as barras e o código final vai ficar assim:
> >
> > my $mesg = $dsn->quote("@mesg");
> >
> > bem mais simples né? ;)
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
Igor Sutton Lopes
http://www.izut.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/c4008723/attachment.html 

From igor.sutton em gmail.com  Thu Jun  8 07:25:02 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Thu, 8 Jun 2006 11:25:02 -0300
Subject: [Cascavel-pm] Duvida sobre variaveis
In-Reply-To: <200606081014.19373.lists@xms.com.br>
References: <200606080933.24220.lists@xms.com.br> <44882D0A.7060401@gmail.com>
	<200606081014.19373.lists@xms.com.br>
Message-ID: <6c65a53f0606080725ic98bc50tfc5daf13341b1a5b@mail.gmail.com>

Sim, você tem que usar apenas uma vez a declaração em cada escopo. Por
exemplo:

<code>
my $var1 = "a";
{
    my $var1 = "b";
    print "$var1\n";
}
print "$var1\n";
</code>

No seu caso, você já deve ter declarado @mesg antes do seu 'if'. Por favor,
dê uma olhada em 'perldoc perlintro' e 'perldoc strict'.

On 6/8/06, Antonio Carlos I. Paes <lists em xms.com.br> wrote:
>
> Bom, eu uso o @mesg, teria algo a ver?
>
>   # $daemon
>   if ("$daemon" =~ "--" && "@mesg" =~ "MARK --") {
>     my $daemon = "";
>     my @mesg = "-- MARK --";
>   }
>
> Duvida: Ta certo isso? if ("variavel" =~ "string") para obter uma condicao
> sem
> ER? Eu tentei == mas deu erro que nao era numerico :)
>
>   # $mesg
>   if (@mesg) {
>     my ($mesg = "@mesg") =~ s/\\/\\\\/g;
>     $mesg = $dsn->quote("$mesg");
>   }
>   else { return; }
>   print $mesg . "\n";
>   return;
>
> On Thursday 08 June 2006 09:58, Nelson Ferraz wrote:
> > Antonio Carlos I. Paes wrote:
> > > O codigo abaixo representa essas linhas:
> > >   # $mesg
> > >   if (@mesg) {
> > >     my $mesg = "@mesg";
> > >     my $mesg =~ s/\\/\\\\/g;
> > >     my $mesg = $dsn->quote("$mesg");
> > >   }
> > >   else { return; }
> >
> > Para eliminar os warnings, você só precisa definir o "my $mesg" uma
> > única vez...
> >
> > if (@mesg) {
> >      my $mesg = "@mesg";
> >      $mesg =~ s/\\/\\\\/g;
> >      $mesg = $dsn->quote("$mesg");
> > }
> >
> > Verifique se você não está usando a variável $mesg antes ou depois deste
> > "if"; se você precisar que a variável sobreviva depois do bloco, precisa
> > declará-la fora dele:
> >
> > my $mesg;
> >
> > if (@mesg) {
> >      $mesg = "@mesg";
> >      $mesg =~ s/\\/\\\\/g;
> >      $mesg = $dsn->quote("$mesg");
> > }
> >
> > # $mesg continua a existir
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
Igor Sutton Lopes
http://www.izut.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/5f37fa74/attachment.html 

From ptfzs em yahoo.com.br  Thu Jun  8 07:25:49 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 8 Jun 2006 11:25:49 -0300 (ART)
Subject: [Cascavel-pm] File::Linting nao funciona
In-Reply-To: <20060608135910.22586.qmail@info6.gawab.com>
Message-ID: <20060608142549.66151.qmail@web31310.mail.mud.yahoo.com>

Pessoal.. acho que o problema esta...................]
a maquina eh de 64 bits!! :(
Onde acho bilbiotecas para 64 bits

Obrigada

Diogo Leal <diogoleal em gawab.com> escreveu: 

> Owwwwwwwwwwwwww nao ta dando erro.. so nao lista o que eu quero nao imprime dentro do FOR so isso!!

já tentou alterar o código ?
dê cabeçadas antes de pedir ajuda pra alguém isso lhe ajuda
muito.

> 
> So que o problema eh que funcionava antes na outra maquina e quando mudei de maquina nao funciona +
> ENTENDEU AGORA??
calma.
as versões são as mesmas  ? 
tudo o que tem instalado em uma tem na outra ? 



> Nao tenho erro para mandar pois nao apareceu nenhum erro!! 
> Fiz o que vc sempre me pediu para postar o codigo.. postei.. agora tirar erro da onde nao tem...
> tsc tsc tsc tsc tsc
> 
> 
> OBRIGADA VIU!!

não precisa gritar e nem descer dos tamancos .. 


Diogo Leal 
http://my.opera.com/diogoleal
JID: diogo_andrade em jabber.org | ICQ #282411638 
http://slackbookptbr.sf.net/ --> projeto de tradução do
slackbook
---------------------------------------------
Free POP3 Email from www.Gawab.com 
Sign up NOW and get your account @gawab.com!!
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/eba5ae0c/attachment.html 

From igor.sutton em gmail.com  Thu Jun  8 07:29:51 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Thu, 8 Jun 2006 11:29:51 -0300
Subject: [Cascavel-pm] File::Linting nao funciona
In-Reply-To: <20060608142549.66151.qmail@web31310.mail.mud.yahoo.com>
References: <20060608135910.22586.qmail@info6.gawab.com>
	<20060608142549.66151.qmail@web31310.mail.mud.yahoo.com>
Message-ID: <6c65a53f0606080729m4bb11e0bxe6d044fec1393078@mail.gmail.com>

Creio que não deva ser este o problema pois você instalou via CPAN, e se ele
precisasse iria compilar as bibliotecas necessárias. Você tentou algum dos
outros modos que sugeri? Qual é o sistema operacional? Versão do Perl?
Distribuição, caso seja Linux?

On 6/8/06, Patty Silva <ptfzs em yahoo.com.br> wrote:
>
> Pessoal.. acho que o problema esta...................]
> a maquina eh de 64 bits!! :(
> Onde acho bilbiotecas para 64 bits
>
> Obrigada
>
> *Diogo Leal <diogoleal em gawab.com>* escreveu:
>
>
>
> > Owwwwwwwwwwwwww nao ta dando erro.. so nao lista o que eu quero nao
> imprime dentro do FOR so isso!!
>
> já tentou alterar o código ?
> dê cabeçadas antes de pedir ajuda pra alguém isso lhe ajuda
> muito.
>
> >
> > So que o problema eh que funcionava antes na outra maquina e quando
> mudei de maquina nao funciona +
> > ENTENDEU AGORA??
> calma.
> as versões são as mesmas ?
> tudo o que tem instalado em uma tem na outra ?
>
>
>
> > Nao tenho erro para mandar pois nao apareceu nenhum erro!!
> > Fiz o que vc sempre me pediu para postar o codigo.. postei.. agora tirar
> erro da onde nao tem...
> > tsc tsc tsc tsc tsc
> >
> >
> > OBRIGADA VIU!!
>
> não precisa gritar e nem descer dos tamancos ..
>
>
> Diogo Leal
> http://my.opera.com/diogoleal
> JID: diogo_andrade em jabber.org | ICQ #282411638
> http://slackbookptbr.sf.net/ --> projeto de tradução do
> slackbook
> ---------------------------------------------
> Free POP3 Email from www.Gawab.com
> Sign up NOW and get your account @gawab.com!!
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
> __________________________________________________
> Fale com seus amigos de graça com o novo Yahoo! Messenger
> http://br.messenger.yahoo.com/
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>


-- 
Igor Sutton Lopes
http://www.izut.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/d27166d4/attachment-0001.html 

From ptfzs em yahoo.com.br  Thu Jun  8 07:34:17 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 8 Jun 2006 11:34:17 -0300 (ART)
Subject: [Cascavel-pm] File::Linting nao funciona
In-Reply-To: <6c65a53f0606080716h480b1f02j1a014617093315ba@mail.gmail.com>
Message-ID: <20060608143417.82602.qmail@web31306.mail.mud.yahoo.com>

Eu sei que vc eh uma pessoa Boa :-) porem um pouco sem paciencia com os menos favorecidos :) huahuaha
Eu entendo.. fico meio bravinha.. masssssssssss entendo!! e desculpe alguma ignorancia!! :)

Entao.. a maquina q estou testando eh 64 bits achu que eh poir isso que nao esta rodando...

A solucao que vc me deu eu uso em outros casos.. eu entro em um diretorio porem quero listar somente arquivos que comecem com filesys* entao.. u usei o parsedir que achei + facil!!
:)


Obrigada



Igor Sutton <igor.sutton em gmail.com> escreveu: Patty,

Eu não sou tão mau assim, os que me conhecem pode confirmá-lo. Vamos começar do início, que é: qual é o seu problema? Se você quer listar o conteúdo de um diretório, existem maneiras mais fáceis de fazê-lo, como por exemplo: 

<code>
use strict;
use warnings;

my $basedir = "/var/www";

opendir my $dir, $basedir or die "Problemas ao abrir diretório: $!";
while (defined(my $file = readdir($dir))) { 
    print "Arquivo: $file\n";
}
</code>

Outra opção que você tem é utilizar glob (assumindo que o trecho modificado seja o de depois da definição de variável $basedir:

<code>
 foreach my $file (glob("${basedir}/*")) {
    print "Arquivo: $file\n";
}
</code>

Porém esta utilização é desaconselhada.

Eu preferiria uma solução dessas pois é independente do sistema operacional. 

[snip]  #!/usr/bin/perl

use File::Listing qw(parse_dir);

for (parse_dir(`ls -l`))  
{
print "teste";
     ($name, $type, $size, $mtime, $mode) = @$_;
     next if $type ne 'f'; # plain file 
}






 
[snip]

-- 
Igor Sutton Lopes
 _______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm

 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/b642edf8/attachment.html 

From lists em xms.com.br  Thu Jun  8 07:40:07 2006
From: lists em xms.com.br (Antonio Carlos I. Paes)
Date: Thu, 8 Jun 2006 10:40:07 -0400
Subject: [Cascavel-pm] Duvida sobre variaveis
In-Reply-To: <6c65a53f0606080725ic98bc50tfc5daf13341b1a5b@mail.gmail.com>
References: <200606080933.24220.lists@xms.com.br>
	<200606081014.19373.lists@xms.com.br>
	<6c65a53f0606080725ic98bc50tfc5daf13341b1a5b@mail.gmail.com>
Message-ID: <200606081040.07424.lists@xms.com.br>

Opa, legal a "intro" do perldoc.. eu deveria ter olhado isso antes hehe

  # $daemon
  if ("$daemon" =~ "--" && "@mesg" =~ "MARK --") {
    my $daemon = "";
    my $mesg = "-- MARK --";
  }

  # $mesg
  if ($mesg) {
# So pra esclarecer, eu devo definir apenas uma vez o "my" numa secao? (if, 
while, etc.)
    my $mesg;
    ($mesg = "@mesg") =~ s/\\/\\\\/g;
    $mesg = $dsn->quote("$mesg");
  }
  else { return; }

Pergunta:
Impactaria em algo eu utilizar o metodo abaixo?

unless (@mesg) { return; }
my $mesg;
($mesg = "@mesg") =~ s/\\/\\\\/g;
$mesg = $dsn->quote("$mesg");

No lugar do if, else ?
Ah, agora o codigo ficou limpinho, sem mensagem de erro!

On Thursday 08 June 2006 10:25, Igor Sutton wrote:
> Sim, você tem que usar apenas uma vez a declaração em cada escopo. Por
> exemplo:
>
> <code>
> my $var1 = "a";
> {
>     my $var1 = "b";
>     print "$var1\n";
> }
> print "$var1\n";
> </code>
>
> No seu caso, você já deve ter declarado @mesg antes do seu 'if'. Por favor,
> dê uma olhada em 'perldoc perlintro' e 'perldoc strict'.
>
> On 6/8/06, Antonio Carlos I. Paes <lists em xms.com.br> wrote:
> > Bom, eu uso o @mesg, teria algo a ver?
> >
> >   # $daemon
> >   if ("$daemon" =~ "--" && "@mesg" =~ "MARK --") {
> >     my $daemon = "";
> >     my @mesg = "-- MARK --";
> >   }
> >
> > Duvida: Ta certo isso? if ("variavel" =~ "string") para obter uma
> > condicao sem
> > ER? Eu tentei == mas deu erro que nao era numerico :)
> >
> >   # $mesg
> >   if (@mesg) {
> >     my ($mesg = "@mesg") =~ s/\\/\\\\/g;
> >     $mesg = $dsn->quote("$mesg");
> >   }
> >   else { return; }
> >   print $mesg . "\n";
> >   return;
> >
> > On Thursday 08 June 2006 09:58, Nelson Ferraz wrote:
> > > Antonio Carlos I. Paes wrote:
> > > > O codigo abaixo representa essas linhas:
> > > >   # $mesg
> > > >   if (@mesg) {
> > > >     my $mesg = "@mesg";
> > > >     my $mesg =~ s/\\/\\\\/g;
> > > >     my $mesg = $dsn->quote("$mesg");
> > > >   }
> > > >   else { return; }
> > >
> > > Para eliminar os warnings, você só precisa definir o "my $mesg" uma
> > > única vez...
> > >
> > > if (@mesg) {
> > >      my $mesg = "@mesg";
> > >      $mesg =~ s/\\/\\\\/g;
> > >      $mesg = $dsn->quote("$mesg");
> > > }
> > >
> > > Verifique se você não está usando a variável $mesg antes ou depois
> > > deste "if"; se você precisar que a variável sobreviva depois do bloco,
> > > precisa declará-la fora dele:
> > >
> > > my $mesg;
> > >
> > > if (@mesg) {
> > >      $mesg = "@mesg";
> > >      $mesg =~ s/\\/\\\\/g;
> > >      $mesg = $dsn->quote("$mesg");
> > > }
> > >
> > > # $mesg continua a existir
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm

From igor.sutton em gmail.com  Thu Jun  8 08:43:25 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Thu, 8 Jun 2006 12:43:25 -0300
Subject: [Cascavel-pm] File::Linting nao funciona
In-Reply-To: <20060608143417.82602.qmail@web31306.mail.mud.yahoo.com>
References: <6c65a53f0606080716h480b1f02j1a014617093315ba@mail.gmail.com>
	<20060608143417.82602.qmail@web31306.mail.mud.yahoo.com>
Message-ID: <6c65a53f0606080843i54287f3fyc23013ba4b45cf00@mail.gmail.com>

Então faça desta maneira:

<code>
use strict;
use warnings;

my $basedir = "/var/www";

opendir my $dir, $basedir or die "Problemas ao abrir diretório: $!";
while (defined(my $file = readdir($dir))) {
    next unless $file =~ m/^filesys/;
    print "Arquivo: $file\n";
}
</code>

Outra opção que você tem é o File::Find, que é padrão nas distribuições
Perl. Ficaria mais ou menos assim:

<code>
use strict;
use warnings;
use File::Find;

my $basedir = "/path/to/files";

sub wanted {
    next unless m/^filesys/;
    print "$_\n";
}

find(\&wanted, $basedir);
</code>

Esta é a maneira que eu julgo mais portável e menos repetitiva.
-- 
Igor Sutton Lopes
http://www.izut.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/5ed21754/attachment.html 

From igor.sutton em gmail.com  Thu Jun  8 08:47:46 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Thu, 8 Jun 2006 12:47:46 -0300
Subject: [Cascavel-pm] Duvida sobre variaveis
In-Reply-To: <200606081040.07424.lists@xms.com.br>
References: <200606080933.24220.lists@xms.com.br>
	<200606081014.19373.lists@xms.com.br>
	<6c65a53f0606080725ic98bc50tfc5daf13341b1a5b@mail.gmail.com>
	<200606081040.07424.lists@xms.com.br>
Message-ID: <6c65a53f0606080847t59696dadt93e094d38b088c73@mail.gmail.com>

> Pergunta:
> Impactaria em algo eu utilizar o metodo abaixo?
>
> unless (@mesg) { return; }
> my $mesg;
> ($mesg = "@mesg") =~ s/\\/\\\\/g;
> $mesg = $dsn->quote("$mesg");
>

Não. outra maneira que você pode escrever isto mais "perlish" é:

<code>
return unless @mesg;
(my $mesg = "@mesg") =~ s{\}{\\}g;
$mesg = $dsn->quote($mesg);
</code>

Você vai utilizar estes dados para qual finalidade? Se é para colocar em
banco de dados, o próprio Perl através do DBI e driver do banco fazem isto
prá você, se utilizar placeholders, como eu disse na mensagem anterior.

-- 
Igor Sutton Lopes
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/f39bbf26/attachment.html 

From lists em xms.com.br  Thu Jun  8 08:59:18 2006
From: lists em xms.com.br (Antonio Carlos I. Paes)
Date: Thu, 8 Jun 2006 11:59:18 -0400
Subject: [Cascavel-pm] Duvida sobre variaveis
In-Reply-To: <6c65a53f0606080847t59696dadt93e094d38b088c73@mail.gmail.com>
References: <200606080933.24220.lists@xms.com.br>
	<200606081040.07424.lists@xms.com.br>
	<6c65a53f0606080847t59696dadt93e094d38b088c73@mail.gmail.com>
Message-ID: <200606081159.18035.lists@xms.com.br>

Vai ser inserido em banco de dados sim.. Quanto aos 'placeholders' ja tou 
mexendo neles :P

Essas variaveis: dbh, stmt, str seriam abreviacoes de que?

On Thursday 08 June 2006 11:47, Igor Sutton wrote:
> > Pergunta:
> > Impactaria em algo eu utilizar o metodo abaixo?
> >
> > unless (@mesg) { return; }
> > my $mesg;
> > ($mesg = "@mesg") =~ s/\\/\\\\/g;
> > $mesg = $dsn->quote("$mesg");
>
> Não. outra maneira que você pode escrever isto mais "perlish" é:
>
> <code>
> return unless @mesg;
> (my $mesg = "@mesg") =~ s{\}{\\}g;
> $mesg = $dsn->quote($mesg);
> </code>
>
> Você vai utilizar estes dados para qual finalidade? Se é para colocar em
> banco de dados, o próprio Perl através do DBI e driver do banco fazem isto
> prá você, se utilizar placeholders, como eu disse na mensagem anterior.

From gilmarjr em dcc.ufba.br  Thu Jun  8 09:04:10 2006
From: gilmarjr em dcc.ufba.br (Gilmar Santos Jr)
Date: Thu, 08 Jun 2006 13:04:10 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Medir_uso_de_mem=F3ria_=5BEra=3A_Fil?=
 =?iso-8859-1?q?e=3A=3ALinting_nao_funciona=5D?=
In-Reply-To: <6c65a53f0606080843i54287f3fyc23013ba4b45cf00@mail.gmail.com>
References: <6c65a53f0606080716h480b1f02j1a014617093315ba@mail.gmail.com>	<20060608143417.82602.qmail@web31306.mail.mud.yahoo.com>
	<6c65a53f0606080843i54287f3fyc23013ba4b45cf00@mail.gmail.com>
Message-ID: <44884A7A.8010101@dcc.ufba.br>

Igor Sutton wrote:
> <code>
> use strict;
> use warnings;
>
> my $basedir = "/var/www";
>
> opendir my $dir, $basedir or die "Problemas ao abrir diretório: $!";
> while (defined(my $file = readdir($dir))) {
>     next unless $file =~ m/^filesys/;
>     print "Arquivo: $file\n";
> }
> </code>
Aproveitando que tocamos nesse método... eu sempre uso dessa forma:

<code>
foreach (readdir $dir) {
   (...)
}
</code>

A documentação do readdir diz que quando avaliado em contexto escalar
retorna o próximo item ou undef caso não existam mais itens. Em contexto
de lista retorna todos os elementos encontrados.

A primeira pergunta é: qual dos dois métodos é mais rápido? (isso pode
ser respondido com um benchmark simples) e a segunda é:

existe diferença no uso de memória nas duas maneiras?

A princípio parece óbvio que sim, pois colocar uma lista inteira na
memória gasta mais do que pegar item a item, porém o contexto de lista é
no foreach, daí, a princípio o compilador poderia fazer essa otimização
e pegar de um em um.

Para medir tempo de execução tenho o Benchmark... e para medir o uso de
memória?

Eu poderia criar um diretório com milhões de entradas e executar o
script pra esse diretório, e então medir o tamanho do segmento de dados
do processo, mas isso é tão impreciso quanto colocar pra rodar com o
'time' do bash (em linux) querendo medir tempo.
Alguém conhece um módulo similar pra medir uso de memória? Buscando por
'memory usage' na CPAN só achei o Benchmark::Harness::MemoryUsage
<http://search.cpan.org/%7Eglennwood/Benchmark-Harness-1.07/lib/Benchmark/Harness/MemoryUsage.pm#Benchmark%3A%3AHarness%3A%3AMemoryUsage>,
mas não sei até onde ele é funcional (não tem documentação e é de 2004).

E alguém já fez essa comparação que disse acima?

Valeu!

Gilmar.
- Salvador Perl Mongers

From igor.sutton em gmail.com  Thu Jun  8 09:09:45 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Thu, 8 Jun 2006 13:09:45 -0300
Subject: [Cascavel-pm] Duvida sobre variaveis
In-Reply-To: <200606081159.18035.lists@xms.com.br>
References: <200606080933.24220.lists@xms.com.br>
	<200606081040.07424.lists@xms.com.br>
	<6c65a53f0606080847t59696dadt93e094d38b088c73@mail.gmail.com>
	<200606081159.18035.lists@xms.com.br>
Message-ID: <6c65a53f0606080909o11aac6aaud288cf8d1752e6df@mail.gmail.com>

On 6/8/06, Antonio Carlos I. Paes <lists em xms.com.br> wrote:
>
> Vai ser inserido em banco de dados sim.. Quanto aos 'placeholders' ja tou
> mexendo neles :P


Muito bom :)

Essas variaveis: dbh, stmt, str seriam abreviacoes de que?


dbh = Database Handler
stmt = Statement
str = String :P

Os dois primeiros são geralmente utilizados por quem faz uso de DBI (mais
uma vez, 'perldoc DBI').

On Thursday 08 June 2006 11:47, Igor Sutton wrote:
> > > Pergunta:
> > > Impactaria em algo eu utilizar o metodo abaixo?
> > >
> > > unless (@mesg) { return; }
> > > my $mesg;
> > > ($mesg = "@mesg") =~ s/\\/\\\\/g;
> > > $mesg = $dsn->quote("$mesg");
> >
> > Não. outra maneira que você pode escrever isto mais "perlish" é:
> >
> > <code>
> > return unless @mesg;
> > (my $mesg = "@mesg") =~ s{\}{\\}g;
> > $mesg = $dsn->quote($mesg);
> > </code>
> >
> > Você vai utilizar estes dados para qual finalidade? Se é para colocar em
> > banco de dados, o próprio Perl através do DBI e driver do banco fazem
> isto
> > prá você, se utilizar placeholders, como eu disse na mensagem anterior.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
Igor Sutton Lopes
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/74aa8a2d/attachment-0001.html 

From gilmarjr em dcc.ufba.br  Thu Jun  8 09:09:37 2006
From: gilmarjr em dcc.ufba.br (Gilmar Santos Jr)
Date: Thu, 08 Jun 2006 13:09:37 -0300
Subject: [Cascavel-pm] Mirror CPAN
Message-ID: <44884BC1.8040607@dcc.ufba.br>

Oi, Pessoal!

Alguém sabe onde posso conseguir estatísticas de consumo de recursos de
um mirror CPAN? (espaço em disco necessário, banda, informações sobre o
crescimento [tanto de espaço quanto de banda], etc).
Tecnicamente é complicado montar esse mirror? Já tem
ferramentas/documentação pra auxiliar na instalação, configuração e
sincronização?
Como é o procedimento pra fazer com que o mirror montado seja
"oficializado"? (se é que isso é necessário...)

Valeu,

Gilmar.
- Salvador Perl Mongers

From ptfzs em yahoo.com.br  Thu Jun  8 09:23:14 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 8 Jun 2006 16:23:14 +0000 (GMT)
Subject: [Cascavel-pm] File::Linting nao funciona
In-Reply-To: <6c65a53f0606080729m4bb11e0bxe6d044fec1393078@mail.gmail.com>
Message-ID: <20060608162315.26481.qmail@web31314.mail.mud.yahoo.com>

Entao..
Versao do Perl:
This is perl, v5.8.8 built for x86_64-linux

Linux 2.6.11.4-21.12  x86_64 x86_64 x86_64 GNU/Linux SUSE 9.3

Vou testar as suas sugestoes.. 

Obrigada

Igor Sutton <igor.sutton em gmail.com> escreveu: Creio que não deva ser este o problema pois você instalou via CPAN, e se ele precisasse iria compilar as bibliotecas necessárias. Você tentou algum dos outros modos que sugeri? Qual é o sistema operacional? Versão do Perl? Distribuição, caso seja Linux? 

On 6/8/06, Patty Silva <ptfzs em yahoo.com.br> wrote: Pessoal.. acho que o problema esta...................]
a maquina eh de 64 bits!! :(
Onde acho bilbiotecas para 64 bits

Obrigada

Diogo Leal < diogoleal em gawab.com> escreveu:
 

> Owwwwwwwwwwwwww nao ta dando erro.. so nao lista o que eu quero nao imprime dentro do FOR so isso!! 

já tentou alterar o código ?
dê cabeçadas antes de pedir ajuda pra alguém isso lhe ajuda
muito.

> 
> So que o problema eh que funcionava antes na outra maquina e quando mudei de maquina nao funciona + 
> ENTENDEU AGORA??
calma.
as versões são as mesmas  ? 
tudo o que tem instalado em uma tem na outra ? 



> Nao tenho erro para mandar pois nao apareceu nenhum erro!! 
> Fiz o que vc sempre me pediu para postar o codigo.. postei.. agora tirar erro da onde nao tem... 
> tsc tsc  tsc tsc tsc
> 
> 
> OBRIGADA VIU!!

não precisa gritar e nem descer dos tamancos .. 


Diogo Leal 
 http://my.opera.com/diogoleal
JID: diogo_andrade em jabber.org | ICQ #282411638 
 http://slackbookptbr.sf.net/ --> projeto de tradução do
slackbook
---------------------------------------------
Free POP3 Email from  www.Gawab.com 
Sign up NOW and get your account @gawab.com!!
_______________________________________________
 Cascavel-pm mailing list
Cascavel-pm em pm.org
 http://mail.pm.org/mailman/listinfo/cascavel-pm


 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger  
http://br.messenger.yahoo.com/  


_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
 http://mail.pm.org/mailman/listinfo/cascavel-pm





-- 
Igor Sutton Lopes
http://www.izut.com/ _______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm

 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/2697e0c9/attachment.html 

From igor.sutton em gmail.com  Thu Jun  8 09:27:39 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Thu, 8 Jun 2006 13:27:39 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Medir_uso_de_mem=F3ria_=5BEra=3A_Fil?=
	=?iso-8859-1?q?e=3A=3ALinting_nao_funciona=5D?=
In-Reply-To: <44884A7A.8010101@dcc.ufba.br>
References: <6c65a53f0606080716h480b1f02j1a014617093315ba@mail.gmail.com>
	<20060608143417.82602.qmail@web31306.mail.mud.yahoo.com>
	<6c65a53f0606080843i54287f3fyc23013ba4b45cf00@mail.gmail.com>
	<44884A7A.8010101@dcc.ufba.br>
Message-ID: <6c65a53f0606080927g427d181fqbd28d4970ebd2af6@mail.gmail.com>

>
> Aproveitando que tocamos nesse método... eu sempre uso dessa forma:
>
> <code>
> foreach (readdir $dir) {
>    (...)
> }
> </code>
>
> A documentação do readdir diz que quando avaliado em contexto escalar
> retorna o próximo item ou undef caso não existam mais itens. Em contexto
> de lista retorna todos os elementos encontrados.
>
> A primeira pergunta é: qual dos dois métodos é mais rápido? (isso pode
> ser respondido com um benchmark simples) e a segunda é:
>
> existe diferença no uso de memória nas duas maneiras?
>
> A princípio parece óbvio que sim, pois colocar uma lista inteira na
> memória gasta mais do que pegar item a item, porém o contexto de lista é
> no foreach, daí, a princípio o compilador poderia fazer essa otimização
> e pegar de um em um.


Creio que o interpretador não faz esta optimização. Ele irá executar o
readdir() em contexto de lista, que internamente executará algo como 'if
(wantarray) { ... }' e devolverá uma lista para o foreach(), que a iterará
normalmente. Se alguém aí souber algo diferente, nos deixe ficar sabendo :)

Para medir tempo de execução tenho o Benchmark... e para medir o uso de
> memória?
>
> Eu poderia criar um diretório com milhões de entradas e executar o
> script pra esse diretório, e então medir o tamanho do segmento de dados
> do processo, mas isso é tão impreciso quanto colocar pra rodar com o
> 'time' do bash (em linux) querendo medir tempo.
> Alguém conhece um módulo similar pra medir uso de memória? Buscando por
> 'memory usage' na CPAN só achei o Benchmark::Harness::MemoryUsage
> <
> http://search.cpan.org/%7Eglennwood/Benchmark-Harness-1.07/lib/Benchmark/Harness/MemoryUsage.pm#Benchmark%3A%3AHarness%3A%3AMemoryUsage
> >,
> mas não sei até onde ele é funcional (não tem documentação e é de 2004).
>
> E alguém já fez essa comparação que disse acima?


Eu particularmente nunca fiz isso.

Valeu!
>
> Gilmar.
> - Salvador Perl Mongers
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
Igor Sutton Lopes
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/7e81838e/attachment.html 

From igor.sutton em gmail.com  Thu Jun  8 09:31:11 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Thu, 8 Jun 2006 13:31:11 -0300
Subject: [Cascavel-pm] Mirror CPAN
In-Reply-To: <44884BC1.8040607@dcc.ufba.br>
References: <44884BC1.8040607@dcc.ufba.br>
Message-ID: <6c65a53f0606080931s345042f6jb0c47cfc599c3c0f@mail.gmail.com>

Eu não tenho um mirror oficial, mas mantenho em minha estação uma cópia das
últimas versões dos módulos disponíveis no CPAN utilizando o CPAN::Mini,
encontrado você sabe onde :)

On 6/8/06, Gilmar Santos Jr <gilmarjr em dcc.ufba.br> wrote:
>
> Oi, Pessoal!
>
> Alguém sabe onde posso conseguir estatísticas de consumo de recursos de
> um mirror CPAN? (espaço em disco necessário, banda, informações sobre o
> crescimento [tanto de espaço quanto de banda], etc).
> Tecnicamente é complicado montar esse mirror? Já tem
> ferramentas/documentação pra auxiliar na instalação, configuração e
> sincronização?
> Como é o procedimento pra fazer com que o mirror montado seja
> "oficializado"? (se é que isso é necessário...)
>
> Valeu,
>
> Gilmar.
> - Salvador Perl Mongers
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
Igor Sutton Lopes
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/d5c7c8ce/attachment.html 

From igor.sutton em gmail.com  Thu Jun  8 09:34:57 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Thu, 8 Jun 2006 13:34:57 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Medir_uso_de_mem=F3ria_=5BEra=3A_Fil?=
	=?iso-8859-1?q?e=3A=3ALinting_nao_funciona=5D?=
In-Reply-To: <6c65a53f0606080927g427d181fqbd28d4970ebd2af6@mail.gmail.com>
References: <6c65a53f0606080716h480b1f02j1a014617093315ba@mail.gmail.com>
	<20060608143417.82602.qmail@web31306.mail.mud.yahoo.com>
	<6c65a53f0606080843i54287f3fyc23013ba4b45cf00@mail.gmail.com>
	<44884A7A.8010101@dcc.ufba.br>
	<6c65a53f0606080927g427d181fqbd28d4970ebd2af6@mail.gmail.com>
Message-ID: <6c65a53f0606080934l30410481ub89c68fed5a95f16@mail.gmail.com>

Ninguém no #perl do freenode soube me dizer se utiliza algum módulo deste
tipo, porém passaram este módulo de nome bem sugestivo chamado Memchmark :)

http://search.cpan.org/~salva/Memchmark-0.01/lib/Memchmark.pm

Vale a pena testar.

[snip]

> Eu poderia criar um diretório com milhões de entradas e executar o
> > script pra esse diretório, e então medir o tamanho do segmento de dados
> > do processo, mas isso é tão impreciso quanto colocar pra rodar com o
> > 'time' do bash (em linux) querendo medir tempo.
> > Alguém conhece um módulo similar pra medir uso de memória? Buscando por
> > 'memory usage' na CPAN só achei o Benchmark::Harness::MemoryUsage
> > <http://search.cpan.org/%7Eglennwood/Benchmark-Harness-1.07/lib/Benchmark/Harness/MemoryUsage.pm#Benchmark%3A%3AHarness%3A%3AMemoryUsage
> > >,
> > mas não sei até onde ele é funcional (não tem documentação e é de 2004).
> >
> [snip]
-- 
Igor Sutton Lopes
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/8f0e84dc/attachment-0001.html 

From joenio em gmail.com  Thu Jun  8 09:44:10 2006
From: joenio em gmail.com (Joenio Marques)
Date: Thu, 8 Jun 2006 13:44:10 -0300
Subject: [Cascavel-pm] Mirror CPAN
In-Reply-To: <6c65a53f0606080931s345042f6jb0c47cfc599c3c0f@mail.gmail.com>
References: <44884BC1.8040607@dcc.ufba.br>
	<6c65a53f0606080931s345042f6jb0c47cfc599c3c0f@mail.gmail.com>
Message-ID: <65934b450606080944q3a2b317etf12dde3b0cf812a3@mail.gmail.com>

Acho que a oficialização pode ser feita por aqui:
http://mirrors.cpan.org/mirror.cgi

Algum tempo atras fiz um mirror em casa e pesquei informações aqui:
http://www.cpan.org/misc/cpan-faq.html#How_mirror_CPAN

sobre consumo de recursos...     não sei. :(

[ ]'s

2006/6/8, Igor Sutton <igor.sutton em gmail.com>:
> Eu não tenho um mirror oficial, mas mantenho em minha estação uma cópia das
> últimas versões dos módulos disponíveis no CPAN utilizando o CPAN::Mini,
> encontrado você sabe onde :)
>
>
> On 6/8/06, Gilmar Santos Jr <gilmarjr em dcc.ufba.br> wrote:
> > Oi, Pessoal!
> >
> > Alguém sabe onde posso conseguir estatísticas de consumo de recursos de
> > um mirror CPAN? (espaço em disco necessário, banda, informações sobre o
> > crescimento [tanto de espaço quanto de banda], etc).
> > Tecnicamente é complicado montar esse mirror? Já tem
> > ferramentas/documentação pra auxiliar na instalação, configuração e
> > sincronização?
> > Como é o procedimento pra fazer com que o mirror montado seja
> > "oficializado"? (se é que isso é necessário...)
> >
> > Valeu,
> >
> > Gilmar.
> > - Salvador Perl Mongers
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
>
> --
> Igor Sutton Lopes
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>


-- 
Joenio Marques
- Salvador Perl Mongers

From glasswalk3r em yahoo.com.br  Thu Jun  8 09:48:37 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Thu, 8 Jun 2006 13:48:37 -0300 (ART)
Subject: [Cascavel-pm] File::Linting nao funciona
In-Reply-To: <20060608162315.26481.qmail@web31314.mail.mud.yahoo.com>
Message-ID: <20060608164837.13601.qmail@web30812.mail.mud.yahoo.com>

Veja também se o SuSe já não possui esse módulo Perl
empacotado (RPM) para instalação. Módulos Perl
"famosos" normalmente já se enquadram nesse caso.

--- Patty Silva <ptfzs em yahoo.com.br> escreveu:

> Entao..
> Versao do Perl:
> This is perl, v5.8.8 built for x86_64-linux
> 
> Linux 2.6.11.4-21.12  x86_64 x86_64 x86_64 GNU/Linux
> SUSE 9.3
> 
> Vou testar as suas sugestoes.. 
> 
> Obrigada


__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

From igor.sutton em gmail.com  Thu Jun  8 09:49:01 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Thu, 8 Jun 2006 13:49:01 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Medir_uso_de_mem=F3ria_=5BEra=3A_Fil?=
	=?iso-8859-1?q?e=3A=3ALinting_nao_funciona=5D?=
In-Reply-To: <6c65a53f0606080934l30410481ub89c68fed5a95f16@mail.gmail.com>
References: <6c65a53f0606080716h480b1f02j1a014617093315ba@mail.gmail.com>
	<20060608143417.82602.qmail@web31306.mail.mud.yahoo.com>
	<6c65a53f0606080843i54287f3fyc23013ba4b45cf00@mail.gmail.com>
	<44884A7A.8010101@dcc.ufba.br>
	<6c65a53f0606080927g427d181fqbd28d4970ebd2af6@mail.gmail.com>
	<6c65a53f0606080934l30410481ub89c68fed5a95f16@mail.gmail.com>
Message-ID: <6c65a53f0606080949g687d2c94le6c8c8ff23fb87a0@mail.gmail.com>

Ó, veja mais um:

http://search.cpan.org/~tels/Devel-Size-Report-0.10/lib/Devel/Size/Report.pm

On 6/8/06, Igor Sutton <igor.sutton em gmail.com> wrote:
>
> Ninguém no #perl do freenode soube me dizer se utiliza algum módulo deste
> tipo, porém passaram este módulo de nome bem sugestivo chamado Memchmark :)
>
> http://search.cpan.org/~salva/Memchmark-0.01/lib/Memchmark.pm<http://search.cpan.org/%7Esalva/Memchmark-0.01/lib/Memchmark.pm>
>
> Vale a pena testar.
>
> [snip]
>
> Eu poderia criar um diretório com milhões de entradas e executar o
> > > script pra esse diretório, e então medir o tamanho do segmento de
> > > dados
> > > do processo, mas isso é tão impreciso quanto colocar pra rodar com o
> > > 'time' do bash (em linux) querendo medir tempo.
> > > Alguém conhece um módulo similar pra medir uso de memória? Buscando
> > > por
> > > 'memory usage' na CPAN só achei o Benchmark::Harness::MemoryUsage
> > > <http://search.cpan.org/%7Eglennwood/Benchmark-Harness-1.07/lib/Benchmark/Harness/MemoryUsage.pm#Benchmark%3A%3AHarness%3A%3AMemoryUsage
> > > >,
> > > mas não sei até onde ele é funcional (não tem documentação e é de
> > > 2004).
> > >
> > [snip]
> --
> Igor Sutton Lopes
>



-- 
Igor Sutton Lopes
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/ead8f5a0/attachment.html 

From mdacwb em gmail.com  Thu Jun  8 10:39:53 2006
From: mdacwb em gmail.com (Marco A P D'Andrade)
Date: Thu, 08 Jun 2006 14:39:53 -0300
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Medir_uso_de_mem=F3ria_=5BEra=3A_Fil?=
 =?iso-8859-1?q?e=3A=3ALinting_nao_funciona=5D?=
In-Reply-To: <6c65a53f0606080949g687d2c94le6c8c8ff23fb87a0@mail.gmail.com>
References: <6c65a53f0606080716h480b1f02j1a014617093315ba@mail.gmail.com>	<20060608143417.82602.qmail@web31306.mail.mud.yahoo.com>	<6c65a53f0606080843i54287f3fyc23013ba4b45cf00@mail.gmail.com>	<44884A7A.8010101@dcc.ufba.br>	<6c65a53f0606080927g427d181fqbd28d4970ebd2af6@mail.gmail.com>	<6c65a53f0606080934l30410481ub89c68fed5a95f16@mail.gmail.com>
	<6c65a53f0606080949g687d2c94le6c8c8ff23fb87a0@mail.gmail.com>
Message-ID: <448860E9.3080806@gmail.com>

Acredito que este seja o mais indicado...

A algum tempo utilizei Devel::Size e Devel::Leak para identificar 
problemas em um daemon mantido para webservices, além de uma fração de 
script, se não me engano do Perl Cookbook, DUMPVAR.

Agora, voltando alguns passos atrás...

Antes de pensar em otimizar o acesso, ocupação de memoria, etc... Não 
crie diretorios com milhoes de entradas... é extremamente ineficiente!!!

Só para fins de comparação, tentando otimizar um procedimento a alguns 
meses, e não ter ganho com varias mexidas, resolvi renomear o diretorio, 
reduzindo seu tamanho, com arquivos apagados anteriormente,  e tornou-se 
muito mais rapido o acesso, independente do meio...

Antes era glob e mudando para readdir, em contexto escalar tive um ganho 
minimo... ao reduzir o tamanho do diretorio, o ganho com esta ação foi 
muito maior que todas as demais...


Ih! Espero que neste emaranhado de informações, algo lhe seja útil ;)



Igor Sutton wrote:

> Ó, veja mais um:
>
> http://search.cpan.org/~tels/Devel-Size-Report-0.10/lib/Devel/Size/Report.pm 
> <http://search.cpan.org/%7Etels/Devel-Size-Report-0.10/lib/Devel/Size/Report.pm>
>
> On 6/8/06, *Igor Sutton* <igor.sutton em gmail.com 
> <mailto:igor.sutton em gmail.com>> wrote:
>
>     Ninguém no #perl do freenode soube me dizer se utiliza algum
>     módulo deste tipo, porém passaram este módulo de nome bem
>     sugestivo chamado Memchmark :)
>
>     http://search.cpan.org/~salva/Memchmark-0.01/lib/Memchmark.pm
>     <http://search.cpan.org/%7Esalva/Memchmark-0.01/lib/Memchmark.pm>
>
>     Vale a pena testar.
>
>     [snip]
>
>             Eu poderia criar um diretório com milhões de entradas e
>             executar o
>             script pra esse diretório, e então medir o tamanho do
>             segmento de dados
>             do processo, mas isso é tão impreciso quanto colocar pra
>             rodar com o
>             'time' do bash (em linux) querendo medir tempo.
>             Alguém conhece um módulo similar pra medir uso de memória?
>             Buscando por
>             'memory usage' na CPAN só achei o
>             Benchmark::Harness::MemoryUsage
>             <
>             http://search.cpan.org/%7Eglennwood/Benchmark-Harness-1.07/lib/Benchmark/Harness/MemoryUsage.pm#Benchmark%3A%3AHarness%3A%3AMemoryUsage>,
>             mas não sei até onde ele é funcional (não tem documentação
>             e é de 2004).
>
>     [snip]
>     -- 
>     Igor Sutton Lopes
>
>
>
>
> -- 
> Igor Sutton Lopes
>
>------------------------------------------------------------------------
>
>_______________________________________________
>Cascavel-pm mailing list
>Cascavel-pm em pm.org
>http://mail.pm.org/mailman/listinfo/cascavel-pm
>



From acid06 em gmail.com  Thu Jun  8 11:16:51 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 8 Jun 2006 15:16:51 -0300
Subject: [Cascavel-pm] Mirror CPAN
In-Reply-To: <44884BC1.8040607@dcc.ufba.br>
References: <44884BC1.8040607@dcc.ufba.br>
Message-ID: <9a08c9b40606081116y63254358oc38ab13bd41da852@mail.gmail.com>

On 6/8/06, Gilmar Santos Jr <gilmarjr em dcc.ufba.br> wrote:
> Alguém sabe onde posso conseguir estatísticas de consumo de recursos de
> um mirror CPAN? (espaço em disco necessário, banda, informações sobre o
> crescimento [tanto de espaço quanto de banda], etc).

Talvez valha a pena você mandar um email para cpan em perl.org
perguntando essas coisas.
Seria bastante interessante mais um mirror brasileiro (especialmente,
se fosse HTTP ao invés de FTP).

-Nilson Santos F. Jr.

From acid06 em gmail.com  Thu Jun  8 11:44:59 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 8 Jun 2006 15:44:59 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Medir_uso_de_mem=F3ria_=5BEra=3A_Fil?=
	=?iso-8859-1?q?e=3A=3ALinting_nao_funciona=5D?=
In-Reply-To: <448860E9.3080806@gmail.com>
References: <6c65a53f0606080716h480b1f02j1a014617093315ba@mail.gmail.com>
	<20060608143417.82602.qmail@web31306.mail.mud.yahoo.com>
	<6c65a53f0606080843i54287f3fyc23013ba4b45cf00@mail.gmail.com>
	<44884A7A.8010101@dcc.ufba.br>
	<6c65a53f0606080927g427d181fqbd28d4970ebd2af6@mail.gmail.com>
	<6c65a53f0606080934l30410481ub89c68fed5a95f16@mail.gmail.com>
	<6c65a53f0606080949g687d2c94le6c8c8ff23fb87a0@mail.gmail.com>
	<448860E9.3080806@gmail.com>
Message-ID: <9a08c9b40606081144y5e75c24bo3a686a1d812d5a26@mail.gmail.com>

On 6/8/06, Marco A P D'Andrade <mdacwb em gmail.com> wrote:
> Antes de pensar em otimizar o acesso, ocupação de memoria, etc... Não
> crie diretorios com milhoes de entradas... é extremamente ineficiente!!!

Meio off-topic mas... na verdade, isso depende do sistema de arquivos.
Em particular, esse problema é grave em volumes que utilizam ext2 (se
não me engano, ext3 também sofre do mesmo problema). Porém, o
ReiserFS, por exemplo não sofre desses problemas.

Isso acontece porque as entradas de diretórios em ext2 são guardadas
numa simples estrutura de lista, portanto, procurar um arquivo em um
diretório é uma operação O(n). Já o ReiserFS guarda as entradas de
diretórios em uma árvore B+, o que faz com que o tempo de acesso seja
da ordem de O(log n).

Sob Windows, o NTFS também é O(log n), ou seja, não sofre desses
problemas, enquanto, acredito eu, FAT32 apresenta um comportamento
linear.

-Nilson Santos F. Jr.

From ivocarv em cais.rnp.br  Thu Jun  8 12:24:07 2006
From: ivocarv em cais.rnp.br (Ivo Peixinho)
Date: Thu, 8 Jun 2006 16:24:07 -0300 (BRT)
Subject: [Cascavel-pm] "dump" de site usando Perl
Message-ID: <Pine.LNX.4.64.0606081621240.7104@exocet.cais.rnp.br>


  Pessoal,

    Alguem sabe de algum modulo/recurso do Perl que seja capaz (de uma 
forma bem simples) fazer um "dump" formatado de um site em modo texto, 
algo igual ao que obtenho com um lynx -dump?

    PS: Nao vale $dump=`lynx -dump $site`; ok?

          Ivo.

From acid06 em gmail.com  Thu Jun  8 12:29:19 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 8 Jun 2006 16:29:19 -0300
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <Pine.LNX.4.64.0606081621240.7104@exocet.cais.rnp.br>
References: <Pine.LNX.4.64.0606081621240.7104@exocet.cais.rnp.br>
Message-ID: <9a08c9b40606081229l1aa8c44au7b399bbfc066bd44@mail.gmail.com>

On 6/8/06, Ivo Peixinho <ivocarv em cais.rnp.br> wrote:
>     Alguem sabe de algum modulo/recurso do Perl que seja capaz (de uma
> forma bem simples) fazer um "dump" formatado de um site em modo texto,
> algo igual ao que obtenho com um lynx -dump?

Algo assim?

  perl -MLWP::Simple -e "print get('http://www.google.com')"

-Nilson Santos F. Jr.

From ivocarv em cais.rnp.br  Thu Jun  8 12:37:51 2006
From: ivocarv em cais.rnp.br (Ivo Peixinho)
Date: Thu, 8 Jun 2006 16:37:51 -0300 (BRT)
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <9a08c9b40606081229l1aa8c44au7b399bbfc066bd44@mail.gmail.com>
References: <Pine.LNX.4.64.0606081621240.7104@exocet.cais.rnp.br>
	<9a08c9b40606081229l1aa8c44au7b399bbfc066bd44@mail.gmail.com>
Message-ID: <Pine.LNX.4.64.0606081636160.7104@exocet.cais.rnp.br>



   Acho que nao expliquei direito o que estou querendo, deixa dar um 
exemplo.

rodando perl -MLWP::Simple -e "print get('http://www.google.com')" temos:

<html><head><meta http-equiv="content-type" content="text/html; 
charset=ISO-8859-1"><title>Google</title><style><!--
body,td,a,p,.h{font-family:arial,sans-serif;}
.h{font-size: 20px;}
.q{color:#0000cc;}-->
(etc...)

rodando lynx -dump http://www.google.com temos:

              [1]Pgina inicial personalizada | [2]Efetuar login

                                    Google

    Web    [3]Imagens    [4]Grupos    [5]Diretrio    [6]Notcias    [7]ma
    is

      _______________________________________________________
    Pesquisa Google Estou com sorte   [8]Pesquisa avanada


       Ivo.


On Thu, 8 Jun 2006, Nilson Santos Figueiredo Junior wrote:

> On 6/8/06, Ivo Peixinho <ivocarv em cais.rnp.br> wrote:
>>     Alguem sabe de algum modulo/recurso do Perl que seja capaz (de uma
>> forma bem simples) fazer um "dump" formatado de um site em modo texto,
>> algo igual ao que obtenho com um lynx -dump?
>
> Algo assim?
>
>  perl -MLWP::Simple -e "print get('http://www.google.com')"
>
> -Nilson Santos F. Jr.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From acid06 em gmail.com  Thu Jun  8 12:46:19 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 8 Jun 2006 16:46:19 -0300
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <Pine.LNX.4.64.0606081636160.7104@exocet.cais.rnp.br>
References: <Pine.LNX.4.64.0606081621240.7104@exocet.cais.rnp.br>
	<9a08c9b40606081229l1aa8c44au7b399bbfc066bd44@mail.gmail.com>
	<Pine.LNX.4.64.0606081636160.7104@exocet.cais.rnp.br>
Message-ID: <9a08c9b40606081246h3d1f938k7b93d705c2e911ac@mail.gmail.com>

On 6/8/06, Ivo Peixinho <ivocarv em cais.rnp.br> wrote:
>    Acho que nao expliquei direito o que estou querendo, deixa dar um
> exemplo.

Então você quer extrair os links de uma página?
Ou simplesmente quer uma saída idêntica à do Lynx?

No primeiro caso, use o módulo: HTML::LinkExtor.
No segundo caso, bem, use o Lynx.

Se você explicar o que você deseja fazer no final das contas fica mais
fácil de ajudar.

-Nilson Santos F. Jr.

From ivocarv em cais.rnp.br  Thu Jun  8 12:49:27 2006
From: ivocarv em cais.rnp.br (Ivo Peixinho)
Date: Thu, 8 Jun 2006 16:49:27 -0300 (BRT)
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <9a08c9b40606081246h3d1f938k7b93d705c2e911ac@mail.gmail.com>
References: <Pine.LNX.4.64.0606081621240.7104@exocet.cais.rnp.br>
	<9a08c9b40606081229l1aa8c44au7b399bbfc066bd44@mail.gmail.com>
	<Pine.LNX.4.64.0606081636160.7104@exocet.cais.rnp.br>
	<9a08c9b40606081246h3d1f938k7b93d705c2e911ac@mail.gmail.com>
Message-ID: <Pine.LNX.4.64.0606081648370.7104@exocet.cais.rnp.br>


   Eu quero algo "perl native" que faca IGUAL ao que o lynx -dump faz. Eu 
atualmente uso o proprio lynx, mas queria usar algo nativo para nao ter 
que ficar executando binarios externos e torna-lo mais portavel (Windows 
por exemplo).

       Ivo.

On Thu, 8 Jun 2006, Nilson Santos Figueiredo Junior wrote:

> On 6/8/06, Ivo Peixinho <ivocarv em cais.rnp.br> wrote:
>>    Acho que nao expliquei direito o que estou querendo, deixa dar um
>> exemplo.
>
> Então você quer extrair os links de uma página?
> Ou simplesmente quer uma saída idêntica à do Lynx?
>
> No primeiro caso, use o módulo: HTML::LinkExtor.
> No segundo caso, bem, use o Lynx.
>
> Se você explicar o que você deseja fazer no final das contas fica mais
> fácil de ajudar.
>
> -Nilson Santos F. Jr.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From glasswalk3r em yahoo.com.br  Thu Jun  8 12:57:16 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Thu, 8 Jun 2006 16:57:16 -0300 (ART)
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <Pine.LNX.4.64.0606081648370.7104@exocet.cais.rnp.br>
Message-ID: <20060608195716.82183.qmail@web30803.mail.mud.yahoo.com>

Use o LWP. Existe uma opção para você enviar a saída
depois de um GET diretamente para um arquivo... e com
direito a poder criar uma barra de progresso. :-)

Instale o LWP do CPAN mais próximo e na instalação
mande ele instalar os programas de exemplo (entre eles
o lwp-download) e observe o código desse programa para
entender melhor a funcionalidade que descrevi aqui.

[]'s
Alceu

--- Ivo Peixinho <ivocarv em cais.rnp.br> escreveu:

> 
>    Eu quero algo "perl native" que faca IGUAL ao que
> o lynx -dump faz. Eu 
> atualmente uso o proprio lynx, mas queria usar algo
> nativo para nao ter 
> que ficar executando binarios externos e torna-lo
> mais portavel (Windows 
> por exemplo).
> 
>        Ivo.
> 
> On Thu, 8 Jun 2006, Nilson Santos Figueiredo Junior
> wrote:
> 
> > On 6/8/06, Ivo Peixinho <ivocarv em cais.rnp.br>
> wrote:
> >>    Acho que nao expliquei direito o que estou
> querendo, deixa dar um
> >> exemplo.
> >
> > Então você quer extrair os links de uma página?
> > Ou simplesmente quer uma saída idêntica à do Lynx?
> >
> > No primeiro caso, use o módulo: HTML::LinkExtor.
> > No segundo caso, bem, use o Lynx.
> >
> > Se você explicar o que você deseja fazer no final
> das contas fica mais
> > fácil de ajudar.
> >
> > -Nilson Santos F. Jr.
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm


__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

From acid06 em gmail.com  Thu Jun  8 13:00:05 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 8 Jun 2006 17:00:05 -0300
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <Pine.LNX.4.64.0606081648370.7104@exocet.cais.rnp.br>
References: <Pine.LNX.4.64.0606081621240.7104@exocet.cais.rnp.br>
	<9a08c9b40606081229l1aa8c44au7b399bbfc066bd44@mail.gmail.com>
	<Pine.LNX.4.64.0606081636160.7104@exocet.cais.rnp.br>
	<9a08c9b40606081246h3d1f938k7b93d705c2e911ac@mail.gmail.com>
	<Pine.LNX.4.64.0606081648370.7104@exocet.cais.rnp.br>
Message-ID: <9a08c9b40606081300m35d083dep90a389b0ad825283@mail.gmail.com>

>    Eu quero algo "perl native" que faca IGUAL ao que o lynx -dump faz. Eu
> atualmente uso o proprio lynx, mas queria usar algo nativo para nao ter
> que ficar executando binarios externos e torna-lo mais portavel (Windows
> por exemplo).

Mas você quer isso para que?
Você quer poder usar um browser somente texto em qualquer plataforma?

O Lynx é uma aplicação multi-plataforma e você pode baixar uma versão
para Windows, pré-compilada, nesse endereço:

http://csant.info/lynx.htm

Alternativamente, você também pode compilar dos fontes em qualquer plataforma.

Caso contrário, você pode implementar seu próprio "lynx -dump" em Perl
utilizando LWP junto dos vários módulos de manipulação de HTML
existentes. Não que eu veja muito sentido em fazer isso.

-Nilson Santos F. Jr.

From ivocarv em cais.rnp.br  Thu Jun  8 13:09:28 2006
From: ivocarv em cais.rnp.br (Ivo Peixinho)
Date: Thu, 8 Jun 2006 17:09:28 -0300 (BRT)
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <9a08c9b40606081300m35d083dep90a389b0ad825283@mail.gmail.com>
References: <Pine.LNX.4.64.0606081621240.7104@exocet.cais.rnp.br>
	<9a08c9b40606081229l1aa8c44au7b399bbfc066bd44@mail.gmail.com>
	<Pine.LNX.4.64.0606081636160.7104@exocet.cais.rnp.br>
	<9a08c9b40606081246h3d1f938k7b93d705c2e911ac@mail.gmail.com>
	<Pine.LNX.4.64.0606081648370.7104@exocet.cais.rnp.br>
	<9a08c9b40606081300m35d083dep90a389b0ad825283@mail.gmail.com>
Message-ID: <Pine.LNX.4.64.0606081708371.7104@exocet.cais.rnp.br>


   Eu tenho uma aplicacao em perl, ja' em funcionamento, que precisa deste 
recurso. Fui no CPAN e testei varios modulos e nao vi nada que me desse um 
output do jeito que eu queria, entao resolvi perguntar aqui para ver se 
alguem ja tinha trabalhado em algo parecido.

         Ivo.

On Thu, 8 Jun 2006, Nilson Santos Figueiredo Junior wrote:

>>    Eu quero algo "perl native" que faca IGUAL ao que o lynx -dump faz. Eu
>> atualmente uso o proprio lynx, mas queria usar algo nativo para nao ter
>> que ficar executando binarios externos e torna-lo mais portavel (Windows
>> por exemplo).
>
> Mas você quer isso para que?
> Você quer poder usar um browser somente texto em qualquer plataforma?
>
> O Lynx é uma aplicação multi-plataforma e você pode baixar uma versão
> para Windows, pré-compilada, nesse endereço:
>
> http://csant.info/lynx.htm
>
> Alternativamente, você também pode compilar dos fontes em qualquer plataforma.
>
> Caso contrário, você pode implementar seu próprio "lynx -dump" em Perl
> utilizando LWP junto dos vários módulos de manipulação de HTML
> existentes. Não que eu veja muito sentido em fazer isso.
>
> -Nilson Santos F. Jr.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From ivocarv em cais.rnp.br  Thu Jun  8 13:10:44 2006
From: ivocarv em cais.rnp.br (Ivo Peixinho)
Date: Thu, 8 Jun 2006 17:10:44 -0300 (BRT)
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <20060608195716.82183.qmail@web30803.mail.mud.yahoo.com>
References: <20060608195716.82183.qmail@web30803.mail.mud.yahoo.com>
Message-ID: <Pine.LNX.4.64.0606081709410.7104@exocet.cais.rnp.br>


   Alceu,

     Mas o LWP nao vai me retornar o codigo HTML? Nao e' isso que eu quero, 
eu quero uma "interpretacao" da pagina em modo texto, algo como o output 
de um browser em modo texto.

        Ivo.

On Thu, 8 Jun 2006, Alceu R. de Freitas Jr. wrote:

> Use o LWP. Existe uma opção para você enviar a saída
> depois de um GET diretamente para um arquivo... e com
> direito a poder criar uma barra de progresso. :-)
>
> Instale o LWP do CPAN mais próximo e na instalação
> mande ele instalar os programas de exemplo (entre eles
> o lwp-download) e observe o código desse programa para
> entender melhor a funcionalidade que descrevi aqui.
>
> []'s
> Alceu
>
> --- Ivo Peixinho <ivocarv em cais.rnp.br> escreveu:
>
>>
>>    Eu quero algo "perl native" que faca IGUAL ao que
>> o lynx -dump faz. Eu
>> atualmente uso o proprio lynx, mas queria usar algo
>> nativo para nao ter
>> que ficar executando binarios externos e torna-lo
>> mais portavel (Windows
>> por exemplo).
>>
>>        Ivo.
>>
>> On Thu, 8 Jun 2006, Nilson Santos Figueiredo Junior
>> wrote:
>>
>>> On 6/8/06, Ivo Peixinho <ivocarv em cais.rnp.br>
>> wrote:
>>>>    Acho que nao expliquei direito o que estou
>> querendo, deixa dar um
>>>> exemplo.
>>>
>>> Então você quer extrair os links de uma página?
>>> Ou simplesmente quer uma saída idêntica à do Lynx?
>>>
>>> No primeiro caso, use o módulo: HTML::LinkExtor.
>>> No segundo caso, bem, use o Lynx.
>>>
>>> Se você explicar o que você deseja fazer no final
>> das contas fica mais
>>> fácil de ajudar.
>>>
>>> -Nilson Santos F. Jr.
>>> _______________________________________________
>>> Cascavel-pm mailing list
>>> Cascavel-pm em pm.org
>>> http://mail.pm.org/mailman/listinfo/cascavel-pm
>>>> _______________________________________________
>> Cascavel-pm mailing list
>> Cascavel-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
> __________________________________________________
> Fale com seus amigos  de graça com o novo Yahoo! Messenger
> http://br.messenger.yahoo.com/
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From acid06 em gmail.com  Thu Jun  8 13:23:30 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 8 Jun 2006 17:23:30 -0300
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <Pine.LNX.4.64.0606081708371.7104@exocet.cais.rnp.br>
References: <Pine.LNX.4.64.0606081621240.7104@exocet.cais.rnp.br>
	<9a08c9b40606081229l1aa8c44au7b399bbfc066bd44@mail.gmail.com>
	<Pine.LNX.4.64.0606081636160.7104@exocet.cais.rnp.br>
	<9a08c9b40606081246h3d1f938k7b93d705c2e911ac@mail.gmail.com>
	<Pine.LNX.4.64.0606081648370.7104@exocet.cais.rnp.br>
	<9a08c9b40606081300m35d083dep90a389b0ad825283@mail.gmail.com>
	<Pine.LNX.4.64.0606081708371.7104@exocet.cais.rnp.br>
Message-ID: <9a08c9b40606081323j63c2b01brb97ee33dcaf3c535@mail.gmail.com>

On 6/8/06, Ivo Peixinho <ivocarv em cais.rnp.br> wrote:
>    Eu tenho uma aplicacao em perl, ja' em funcionamento, que precisa deste
> recurso. Fui no CPAN e testei varios modulos e nao vi nada que me desse um
> output do jeito que eu queria, entao resolvi perguntar aqui para ver se
> alguem ja tinha trabalhado em algo parecido.

A melhor sugestão que eu posso te dar é sugerir que você reestruture
sua aplicação para utilizar o LWP ao invés de chamar um browser texto,
que tem a saída em um formato arbitrário, e interpretar sua saída. Sua
aplicação ficará muito mais elegante e simples.

Se isso não for viável, não faz muito sentido deixar de usar o Lynx,
na minha opinião.
Se você realmente quiser, vai ter que implementar você mesmo, não tem
outro jeito.

-Nilson Santos F. Jr.

From joenio em gmail.com  Thu Jun  8 13:26:44 2006
From: joenio em gmail.com (Joenio Marques)
Date: Thu, 8 Jun 2006 17:26:44 -0300
Subject: [Cascavel-pm] Mirror CPAN
In-Reply-To: <9a08c9b40606081116y63254358oc38ab13bd41da852@mail.gmail.com>
References: <44884BC1.8040607@dcc.ufba.br>
	<9a08c9b40606081116y63254358oc38ab13bd41da852@mail.gmail.com>
Message-ID: <65934b450606081326i337ec41dge7ab1c11202b3a7c@mail.gmail.com>

Nilson,

> Seria bastante interessante mais um mirror brasileiro (especialmente,
> se fosse HTTP ao invés de FTP).

Fiquei curioso pra saber por que preferencia pelo HTTP ? é melhor?

Sds,
-- 
Joenio Marques
- Salvador Perl Mongers

From acid06 em gmail.com  Thu Jun  8 13:35:48 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 8 Jun 2006 17:35:48 -0300
Subject: [Cascavel-pm] Mirror CPAN
In-Reply-To: <65934b450606081326i337ec41dge7ab1c11202b3a7c@mail.gmail.com>
References: <44884BC1.8040607@dcc.ufba.br>
	<9a08c9b40606081116y63254358oc38ab13bd41da852@mail.gmail.com>
	<65934b450606081326i337ec41dge7ab1c11202b3a7c@mail.gmail.com>
Message-ID: <9a08c9b40606081335s3061defcp38272c22bb192d07@mail.gmail.com>

On 6/8/06, Joenio Marques <joenio em gmail.com> wrote:
> Fiquei curioso pra saber por que preferencia pelo HTTP ? é melhor?

Quando você está por trás de um firewall e acessando a CPAN via LWP, é
comum você não conseguir acessar algum mirror da CPAN via FTP. Há
alguns meses atrás eu descobri que uma solução pra isso é setar a
variável de ambiente: FTP_PASSIVE=1.

Mas ainda assim, já tive problemas em alguns lugares onde o acesso a
FTP era bloqueado mesmo, por políticas da empresa, assim só HTTP
funcionava.

-Nilson Santos F. Jr.

From glasswalk3r em yahoo.com.br  Thu Jun  8 14:16:24 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Thu, 8 Jun 2006 18:16:24 -0300 (ART)
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <Pine.LNX.4.64.0606081709410.7104@exocet.cais.rnp.br>
Message-ID: <20060608211624.56116.qmail@web30813.mail.mud.yahoo.com>



--- Ivo Peixinho <ivocarv em cais.rnp.br> escreveu:

>      Mas o LWP nao vai me retornar o codigo HTML?

Sim. Eu entendi como dump exatamente isso. :-)

> Nao e' isso que eu quero, 
> eu quero uma "interpretacao" da pagina em modo
> texto, algo como o output 
> de um browser em modo texto.

Você pode usar a funcionalidade do lwp-download então
combinada com um módulo no CPAN que extraia o texto de
um HTML... deve haver mais de um módulo que implemente
isso que você quer.

[]'s



Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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

__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

From sammuel.souza em gmail.com  Thu Jun  8 16:16:33 2006
From: sammuel.souza em gmail.com (Sammuel Souza)
Date: Thu, 8 Jun 2006 20:16:33 -0300
Subject: [Cascavel-pm] File::Linting nao funciona
In-Reply-To: <20060608164837.13601.qmail@web30812.mail.mud.yahoo.com>
References: <20060608162315.26481.qmail@web31314.mail.mud.yahoo.com>
	<20060608164837.13601.qmail@web30812.mail.mud.yahoo.com>
Message-ID: <836d1f310606081616p237c598ch91878e7487279826@mail.gmail.com>

kkkkkkkkk vamos e venhamos isto aqui ficou mais uma aula de educacao do que
tudo... vamos ser educados.

[]`s Douglas
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060608/15782491/attachment.html 

From studio_artes em hotmail.com  Thu Jun  8 19:59:45 2006
From: studio_artes em hotmail.com (studio artes)
Date: Thu, 08 Jun 2006 23:59:45 -0300
Subject: [Cascavel-pm] wat
In-Reply-To: <mailman.1129.1149797499.18728.cascavel-pm@pm.org>
Message-ID: <BAY113-F363F9263C77310E54D616AF1880@phx.gbl>

oi! quem são vocês?

_________________________________________________________________
Seja um dos primeiros a testar o novo Windows Live Mail Beta- grátis. Acesse 
http://www.ideas.live.com/programpage.aspx?versionId=5d21c51a-b161-4314-9b0e-4911fb2b2e6d


From monsieur_champs em yahoo.com.br  Fri Jun  9 02:34:29 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Fri, 09 Jun 2006 10:34:29 +0100
Subject: [Cascavel-pm] wat
In-Reply-To: <BAY113-F363F9263C77310E54D616AF1880@phx.gbl>
References: <BAY113-F363F9263C77310E54D616AF1880@phx.gbl>
Message-ID: <448940A5.5040101@yahoo.com.br>

studio artes wrote:
> oi! quem são vocês?

  Somos um grupo de usuários de uma linguagem de programação chamada
"Perl". Somos parte de uma organização mundial chamada "Perl Mongers",
que tem como objetivo divulgar a linguagem e oferecer suporte técnico
aos usuários.

  Para saber mais sobre o grupo: http://cascavel.pm.org/
  Para saber mais sobre os Perl Mongers: http://www.pm.org/
  Para saber mais sobre o Perl: http://www.perl.org/

  Se precisar de mais informações, por favor me contate off-list.
  Abraço!
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From joenio em gmail.com  Fri Jun  9 09:34:35 2006
From: joenio em gmail.com (Joenio Marques)
Date: Fri, 9 Jun 2006 13:34:35 -0300
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <20060608211624.56116.qmail@web30813.mail.mud.yahoo.com>
References: <Pine.LNX.4.64.0606081709410.7104@exocet.cais.rnp.br>
	<20060608211624.56116.qmail@web30813.mail.mud.yahoo.com>
Message-ID: <65934b450606090934g94ab8dchcd8feefc75723766@mail.gmail.com>

> combinada com um módulo no CPAN que extraia o texto de
> um HTML... deve haver mais de um módulo que implemente
> isso que você quer.

Sim...

Procure por HTML::Strip ou HTML::Sanitizer.
Geralmente utilizo eles quando preciso remover marcacao HTML de alguma coisa.

Att,
-- 
Joenio Marques
- Salvador Perl Mongers

From ivocarv em cais.rnp.br  Fri Jun  9 09:38:46 2006
From: ivocarv em cais.rnp.br (Ivo Peixinho)
Date: Fri, 9 Jun 2006 13:38:46 -0300 (BRT)
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <65934b450606090934g94ab8dchcd8feefc75723766@mail.gmail.com>
References: <Pine.LNX.4.64.0606081709410.7104@exocet.cais.rnp.br>
	<20060608211624.56116.qmail@web30813.mail.mud.yahoo.com>
	<65934b450606090934g94ab8dchcd8feefc75723766@mail.gmail.com>
Message-ID: <Pine.LNX.4.64.0606091337580.1973@exocet.cais.rnp.br>


   Fala conterraneo,

      O WWW::Mechanizer tem uma rotina que "retira" as tags, mas a pagina 
nao sai formatada. Roda o lynx -dump ai' pra voce ver como sai tudo 
formatadinho.

           Ivo.

On Fri, 9 Jun 2006, Joenio Marques wrote:

>> combinada com um módulo no CPAN que extraia o texto de
>> um HTML... deve haver mais de um módulo que implemente
>> isso que você quer.
>
> Sim...
>
> Procure por HTML::Strip ou HTML::Sanitizer.
> Geralmente utilizo eles quando preciso remover marcacao HTML de alguma coisa.
>
> Att,
> -- 
> Joenio Marques
> - Salvador Perl Mongers
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From glasswalk3r em yahoo.com.br  Fri Jun  9 10:18:42 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Fri, 9 Jun 2006 14:18:42 -0300 (ART)
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <Pine.LNX.4.64.0606091337580.1973@exocet.cais.rnp.br>
Message-ID: <20060609171842.3298.qmail@web30801.mail.mud.yahoo.com>


--- Ivo Peixinho <ivocarv em cais.rnp.br> escreveu:

>       O WWW::Mechanizer tem uma rotina que "retira"
> as tags, mas a pagina 
> nao sai formatada. Roda o lynx -dump ai' pra voce
> ver como sai tudo 
> formatadinho.

Dependendo do que você considera como "formatadinho"
você só tem que manipular os dados para que eles
fiquem do jeito que você quer. Defina como seria essa
formatação que aí podemos dar sugestões.

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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

__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

From acid06 em gmail.com  Fri Jun  9 10:34:45 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 9 Jun 2006 14:34:45 -0300
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <20060609171842.3298.qmail@web30801.mail.mud.yahoo.com>
References: <Pine.LNX.4.64.0606091337580.1973@exocet.cais.rnp.br>
	<20060609171842.3298.qmail@web30801.mail.mud.yahoo.com>
Message-ID: <9a08c9b40606091034y9b7d10exa809ccb1802931a2@mail.gmail.com>

On 6/9/06, Alceu R. de Freitas Jr. <glasswalk3r em yahoo.com.br> wrote:
> Dependendo do que você considera como "formatadinho"
> você só tem que manipular os dados para que eles
> fiquem do jeito que você quer. Defina como seria essa
> formatação que aí podemos dar sugestões.

Ele já definiu: ele quer uma saída igual à do "lynx -dump".

-Nilson Santos F. Jr.

From glasswalk3r em yahoo.com.br  Fri Jun  9 11:19:20 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Fri, 9 Jun 2006 15:19:20 -0300 (ART)
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <9a08c9b40606091034y9b7d10exa809ccb1802931a2@mail.gmail.com>
Message-ID: <20060609181920.37576.qmail@web30807.mail.mud.yahoo.com>


--- Nilson Santos Figueiredo Junior <acid06 em gmail.com>
escreveu:

> On 6/9/06, Alceu R. de Freitas Jr.
> <glasswalk3r em yahoo.com.br> wrote:
> > Dependendo do que você considera como
> "formatadinho"
> > você só tem que manipular os dados para que eles
> > fiquem do jeito que você quer. Defina como seria
> essa
> > formatação que aí podemos dar sugestões.
> 
> Ele já definiu: ele quer uma saída igual à do "lynx
> -dump".

E que tal uma saída exemplo então? Eu não tenho lynx
instalado aqui (e nem quero ter).



Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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

__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

From ivocarv em cais.rnp.br  Fri Jun  9 11:24:33 2006
From: ivocarv em cais.rnp.br (Ivo Peixinho)
Date: Fri, 9 Jun 2006 15:24:33 -0300 (BRT)
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <20060609181920.37576.qmail@web30807.mail.mud.yahoo.com>
References: <20060609181920.37576.qmail@web30807.mail.mud.yahoo.com>
Message-ID: <Pine.LNX.4.64.0606091524210.1973@exocet.cais.rnp.br>


   Eu ja' mandei um exemplo na lista. Deve ter no historico.

      Ivo.

On Fri, 9 Jun 2006, Alceu R. de Freitas Jr. wrote:

>
> --- Nilson Santos Figueiredo Junior <acid06 em gmail.com>
> escreveu:
>
>> On 6/9/06, Alceu R. de Freitas Jr.
>> <glasswalk3r em yahoo.com.br> wrote:
>>> Dependendo do que você considera como
>> "formatadinho"
>>> você só tem que manipular os dados para que eles
>>> fiquem do jeito que você quer. Defina como seria
>> essa
>>> formatação que aí podemos dar sugestões.
>>
>> Ele já definiu: ele quer uma saída igual à do "lynx
>> -dump".
>
> E que tal uma saída exemplo então? Eu não tenho lynx
> instalado aqui (e nem quero ter).
>
>
>
> Alceu Rodrigues de Freitas Junior
> --------------------------------------
> glasswalk3r em 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
>
> __________________________________________________
> Fale com seus amigos  de graça com o novo Yahoo! Messenger
> http://br.messenger.yahoo.com/
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From glasswalk3r em yahoo.com.br  Fri Jun  9 11:36:58 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Fri, 9 Jun 2006 15:36:58 -0300 (ART)
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <Pine.LNX.4.64.0606091524210.1973@exocet.cais.rnp.br>
Message-ID: <20060609183658.43857.qmail@web30807.mail.mud.yahoo.com>


--- Ivo Peixinho <ivocarv em cais.rnp.br> escreveu:

> 
>    Eu ja' mandei um exemplo na lista. Deve ter no
> historico.

Isto aqui?

"rodando lynx -dump http://www.google.com temos:

              [1]Pgina inicial personalizada |
[2]Efetuar login

                                    Google

    Web    [3]Imagens    [4]Grupos    [5]Diretrio   
[6]Notcias    [7]ma
    is

     
_______________________________________________________
    Pesquisa Google Estou com sorte   [8]Pesquisa
avanada"

Dá para fazer o mesmo... mas para quê você precisa
disso afinal? Se o que eu entendi do dump (e o
histórico da lista não estragou as tabulações) parece
que a saída e tabulada de acordo com as tags que são
lidas (por exemplo, <title> parece ter "Google"
centralizado).

Sinceramente estou achando mais fácil você continuar
usando lynx e cuidar de distribuir ele com sua
aplicação: dependendo do que você quer fazer, vai ter
que implementar isso com bastante trabalho da sua
parte... ou então dar um jeito de usar as bibliotecas
do Lynx usando XS ou algo do gênero (mas ainda acho
trabalho demais).

[]'s



Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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

__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

From ivocarv em cais.rnp.br  Fri Jun  9 11:40:12 2006
From: ivocarv em cais.rnp.br (Ivo Peixinho)
Date: Fri, 9 Jun 2006 15:40:12 -0300 (BRT)
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <20060609183658.43857.qmail@web30807.mail.mud.yahoo.com>
References: <20060609183658.43857.qmail@web30807.mail.mud.yahoo.com>
Message-ID: <Pine.LNX.4.64.0606091538570.1973@exocet.cais.rnp.br>


   Tranquilo... vou deixar o lynx mesmo, resolvi colocar isso na lista, na 
esperanca de existir algo simples que fizesse a mesma coisa.

   Sobre o uso do lynx, e' para uma aplicacao interna aqui. Nos *realmente* 
precisamos de uma "copia txt" da pagina, com todas as tabulacoes e 
formatacoes possiveis.

    Valeu pela ajuda!

        Ivo.

On Fri, 9 Jun 2006, Alceu R. de Freitas Jr. wrote:

>
> --- Ivo Peixinho <ivocarv em cais.rnp.br> escreveu:
>
>>
>>    Eu ja' mandei um exemplo na lista. Deve ter no
>> historico.
>
> Isto aqui?
>
> "rodando lynx -dump http://www.google.com temos:
>
>              [1]Pgina inicial personalizada |
> [2]Efetuar login
>
>                                    Google
>
>    Web    [3]Imagens    [4]Grupos    [5]Diretrio
> [6]Notcias    [7]ma
>    is
>
>
> _______________________________________________________
>    Pesquisa Google Estou com sorte   [8]Pesquisa
> avanada"
>
> Dá para fazer o mesmo... mas para quê você precisa
> disso afinal? Se o que eu entendi do dump (e o
> histórico da lista não estragou as tabulações) parece
> que a saída e tabulada de acordo com as tags que são
> lidas (por exemplo, <title> parece ter "Google"
> centralizado).
>
> Sinceramente estou achando mais fácil você continuar
> usando lynx e cuidar de distribuir ele com sua
> aplicação: dependendo do que você quer fazer, vai ter
> que implementar isso com bastante trabalho da sua
> parte... ou então dar um jeito de usar as bibliotecas
> do Lynx usando XS ou algo do gênero (mas ainda acho
> trabalho demais).
>
> []'s
>
>
>
> Alceu Rodrigues de Freitas Junior
> --------------------------------------
> glasswalk3r em 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
>
> __________________________________________________
> Fale com seus amigos  de graça com o novo Yahoo! Messenger
> http://br.messenger.yahoo.com/
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From glasswalk3r em yahoo.com.br  Fri Jun  9 11:45:49 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Fri, 9 Jun 2006 15:45:49 -0300 (ART)
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <Pine.LNX.4.64.0606091538570.1973@exocet.cais.rnp.br>
Message-ID: <20060609184549.40991.qmail@web30806.mail.mud.yahoo.com>


--- Ivo Peixinho <ivocarv em cais.rnp.br> escreveu:

>    Sobre o uso do lynx, e' para uma aplicacao
> interna aqui. Nos *realmente* 
> precisamos de uma "copia txt" da pagina, com todas
> as tabulacoes e 
> formatacoes possiveis.

Você diz com a posição (em termos de caracter) exata
do texto utilizado dentro de uma tag HTML qualquer?

Talvez você possa revisar um dos parses HTML
informados por outros monges e verificar se você não
tem como modificar esses módulos para eles não
removerem as posições dos textos desejados.

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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

__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

From fglock em gmail.com  Fri Jun  9 13:02:42 2006
From: fglock em gmail.com (Flavio S. Glock)
Date: Fri, 9 Jun 2006 17:02:42 -0300
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <Pine.LNX.4.64.0606081621240.7104@exocet.cais.rnp.br>
References: <Pine.LNX.4.64.0606081621240.7104@exocet.cais.rnp.br>
Message-ID: <aa47605d0606091302w70cece9bv677edc878aeaa0fe@mail.gmail.com>

Aqui tem um exemplo de como fazer a conversão de html em texto - achei
o resultado bem razoável:

http://www.sozlukcu.org/html-to-text.html

- Flavio S. Glock

Em 08/06/06, Ivo Peixinho<ivocarv em cais.rnp.br> escreveu:
>
>   Pessoal,
>
>     Alguem sabe de algum modulo/recurso do Perl que seja capaz (de uma
> forma bem simples) fazer um "dump" formatado de um site em modo texto,
> algo igual ao que obtenho com um lynx -dump?
>
>     PS: Nao vale $dump=`lynx -dump $site`; ok?
>
>           Ivo.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From breno em clavis.com.br  Fri Jun  9 16:02:52 2006
From: breno em clavis.com.br (Breno G. de Oliveira)
Date: Fri, 09 Jun 2006 20:02:52 -0300
Subject: [Cascavel-pm] "dump" de site usando Perl
In-Reply-To: <aa47605d0606091302w70cece9bv677edc878aeaa0fe@mail.gmail.com>
References: <Pine.LNX.4.64.0606081621240.7104@exocet.cais.rnp.br>
	<aa47605d0606091302w70cece9bv677edc878aeaa0fe@mail.gmail.com>
Message-ID: <4489FE1C.1010008@clavis.com.br>

Fala Ivo,

Testei a solução apontada pelo Flávio aqui e me parece a mais próxima do
que você quer fazer. Naturalmente algumas perfumarias que o lynx
implementa no "dump" ficaram ausentes, mas acho que são facilmente
adicionadas por você mesmo.

Alguns pontos são facilmente observados:

- nao há "simulacao" do que nao é texto. No lynx, por exemplo, comando
de botao de rádio aparece com (_) antes do texto;

- botões não aparecem (nem o texto dentro deles), pelo mesmo motivo acima;

- links não são marcados e aparecem como referência no final do "dump";

Mas isso tudo é facilmente resolvido. O que notadamente pode ser um
problema para sua migração é o fato de que tabelas não me parecem ser
manipuladas (leia-se formatadas) corretamente, texto centralizado, etc.
Não sou capaz de dizer até que ponto isso afeta seu projeto nem quão
difícil seria implementar.

Abaixo segue uma comparação simples dos dois. Note que o google é um
site muito simples, não sei como a solução (nem o lynx) se comportam em
casos de sites mais rebuscados.

[]s

breno


---------------lynx -dump---------------------

             [1]Página inicial personalizada | [2]Efetuar login

                          [3]Brasil rumo ao hexa!

   Web    [4]Imagens    [5]Grupos    [6]Diretório    [7]Notícias    [8]ma
   is »

     _______________________________________________________
   Pesquisa Google Estou com sorte   [9]Pesquisa avançada
     [10]Preferências
     [11]Ferramentas de idiomas
   Pesquisar: (_) a web (_) páginas em português (_) páginas do Brasil

     Novo! [12]Adicione os placares e programação da Copa a esta página
   [13]Soluções de publicidade - [14]Tudo sobre o Google - [15]Google.com
                                 in English

                                ©2006 Google
References

   1.
http://www.google.com.br/url?sa=p&pref=ig&pval=3&q=http://www.google.com.br/ig%3Fhl%3Dpt-BR
   2.
https://www.google.com/accounts/Login?continue=http://www.google.com.br/&hl=pt-BR
   3. http://www.google.com.br/search?q=2006+world+football
   4. http://www.google.com.br/imghp?hl=pt-BR&tab=wi&ie=UTF-8
   5. http://groups.google.com.br/grphp?hl=pt-BR&tab=wg&ie=UTF-8
   6. http://www.google.com.br/dirhp?hl=pt-BR&tab=wd&ie=UTF-8
   7. http://news.google.com.br/nwshp?hl=pt-BR&tab=wn&ie=UTF-8
   8. http://www.google.com.br/intl/pt-BR/options/
   9. http://www.google.com.br/advanced_search?hl=pt-BR
  10. http://www.google.com.br/preferences?hl=pt-BR
  11. http://www.google.com.br/language_tools?hl=pt-BR
  12. http://www.google.com.br/ig/worldcup?source=wchp
  13. http://www.google.com.br/intl/pt/ads/
  14. http://www.google.com.br/intl/pt-BR/about.html
  15. http://www.google.com/ncr
---------------lynx -dump---------------------

---------------html2text.pl---------------------
Google

Página inicial personalizada | Efetuar login


Web    Imagens    Grupos    Diretório    Notícias    mais » 
  Pesquisa avançada
  Preferências
  Ferramentas de idiomasPesquisar:  a web  páginas em português  páginas
do Brasil
Novo! Adicione os placares e programação da Copa a esta página


Soluções de publicidade - Tudo sobre o Google - Google.com in English
---------------html2text.pl---------------------

Flavio S. Glock wrote:
> Aqui tem um exemplo de como fazer a conversão de html em texto - achei
> o resultado bem razoável:
> 
> http://www.sozlukcu.org/html-to-text.html
> 
> - Flavio S. Glock
> 
> Em 08/06/06, Ivo Peixinho<ivocarv em cais.rnp.br> escreveu:
> 
>>  Pessoal,
>>
>>    Alguem sabe de algum modulo/recurso do Perl que seja capaz (de uma
>>forma bem simples) fazer um "dump" formatado de um site em modo texto,
>>algo igual ao que obtenho com um lynx -dump?
>>
>>    PS: Nao vale $dump=`lynx -dump $site`; ok?
>>
>>          Ivo.
>>_______________________________________________
>>Cascavel-pm mailing list
>>Cascavel-pm em pm.org
>>http://mail.pm.org/mailman/listinfo/cascavel-pm
>>
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 

From breno em clavis.com.br  Sun Jun 11 11:36:01 2006
From: breno em clavis.com.br (Breno G. de Oliveira)
Date: Sun, 11 Jun 2006 15:36:01 -0300
Subject: [Cascavel-pm] problemas com Tk::Columns
Message-ID: <448C6291.6070908@clavis.com.br>

Salve pessoal,

alguém teve sucesso com o Tk::Columns ou pode me indicar um bom substituto?

Preciso de um widget que exiba uma lista de elementos separados por
colunas, com cabeçalho que eu possa clicar para ordenar pelos elementos
da coluna, além de poder redimensionar cada coluna...

Tk::HList faz quase isso, mas não permite ordenar a lista clicando no
cabeçalho nem mudar a largura de cada coluna.

O Tk::Columns teoricamente faz isso tudo, mas embora tenha sido
instalado do CPAN sem erros, nem o exemplo do autor funciona :(

Só para constar caso alguém possa testar esse funcionamento ou me dar
algum retorno sobre esse (ou outros módulos equivalentes), estou usando:

perl             versão  5.8.8
Tk               versão  804.027
Tk::Configure    versão  4.008
Tk::Derived      versão  4.010
Tk::TiedListbox  versão  2.5
Tk::Pane         versão  4.007
Tk::Columns      versão  1.01


Qualquer ajuda e/ou indicação será muito bem vinda.


Obrigado!

breno


From diogoleal em gawab.com  Mon Jun 12 07:04:51 2006
From: diogoleal em gawab.com (Diogo Leal)
Date: Mon, 12 Jun 2006 14:04:51 GMT
Subject: [Cascavel-pm] II Linux Install Fest
Message-ID: <20060612140452.24130.qmail@info6.gawab.com>


Dia 24 de junho de 2006 acontecerá um evento importante para
comunidade de software livre do Rio de Janeiro, o 2º Linux
Install Fest na Faculdade Simonsen em Padre Miguel.

Personalidades da comunidade com presença garantida, tais como,
Julio Cesar Neves (guru do shell), o pessoal do Perl Monges do
Rio, Antonio Marcelo, Marcos Pitanga, Eduardo Ochs (edrx) entre
outros.

A grade completa com as palestras e os horários é possível
visualizar no site do evento: www.simonsen.br/lif

Para os interessados no evento é necessário fazer um cadastro no
site e levar um quilo de alimento não perecível, um agasalho ou
um brinquedo, de acordo com o interesse em palestra, mini-curso
ou workshop.

site do evento: www.simonsen.br/lif


Diogo Leal 
http://my.opera.com/diogoleal
JID: diogo_andrade em jabber.org | ICQ #282411638 
http://slackbookptbr.sf.net/ --> projeto de tradução do
slackbook
---------------------------------------------
Free POP3 Email from www.Gawab.com 
Sign up NOW and get your account @gawab.com!!

From breno em clavis.com.br  Mon Jun 12 10:03:36 2006
From: breno em clavis.com.br (Breno G. de Oliveira)
Date: Mon, 12 Jun 2006 14:03:36 -0300
Subject: [Cascavel-pm] problemas com Tk::Columns
In-Reply-To: <448C6291.6070908@clavis.com.br>
References: <448C6291.6070908@clavis.com.br>
Message-ID: <448D9E68.8060902@clavis.com.br>

Olá,

conversei com o Damion, autor do Tk::Columns, e ele me ajudou a
identificar o problema. Aparentemente havia algo de errado com a
instalação do Tk feita via CPAN, e tive que reinstalá-lo manualmente.

Agora está tudo funcionando corretamente e, embora ainda esteja com
alguma dificuldade com o widget, o problema está mais relacionado à
minha dificuldade em entender como o Perl-Tk funciona.

Após o "pack()" do widget, por exemplo, minha janela principal é
redimensionada para uma largura muito menor que a definida em seu
"-width", que funciona quando o widget não é carregado. Se alguém tiver
alguma dica, agradeço ;)


[]s

breno

Breno G. de Oliveira wrote:
> Salve pessoal,
> 
> alguém teve sucesso com o Tk::Columns ou pode me indicar um bom substituto?
> 
> Preciso de um widget que exiba uma lista de elementos separados por
> colunas, com cabeçalho que eu possa clicar para ordenar pelos elementos
> da coluna, além de poder redimensionar cada coluna...
> 
> Tk::HList faz quase isso, mas não permite ordenar a lista clicando no
> cabeçalho nem mudar a largura de cada coluna.
> 
> O Tk::Columns teoricamente faz isso tudo, mas embora tenha sido
> instalado do CPAN sem erros, nem o exemplo do autor funciona :(
> 
> Só para constar caso alguém possa testar esse funcionamento ou me dar
> algum retorno sobre esse (ou outros módulos equivalentes), estou usando:
> 
> perl             versão  5.8.8
> Tk               versão  804.027
> Tk::Configure    versão  4.008
> Tk::Derived      versão  4.010
> Tk::TiedListbox  versão  2.5
> Tk::Pane         versão  4.007
> Tk::Columns      versão  1.01
> 
> 
> Qualquer ajuda e/ou indicação será muito bem vinda.
> 
> 
> Obrigado!
> 
> breno
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 

From breno em clavis.com.br  Mon Jun 12 20:52:58 2006
From: breno em clavis.com.br (breno em clavis.com.br)
Date: Tue, 13 Jun 2006 00:52:58 -0300 (BRT)
Subject: [Cascavel-pm] problema em match de arquivos
Message-ID: <30588.200.179.201.28.1150170778.squirrel@200.155.11.82>

Salve pessoal,

estou com o seguinte problema: tenho uma lista de arquivos a serem lidos (expandidos via
glob) e outra lista de arquivos a serem ignorados. Mas devo estar comendo mosca em algum
lugar pois não sei pq não está funcionando.

O código abaixo reproduz o problema (obs: o código é PARA WINDOWS, isso é importante
frisar por causa das barras e do exemplo em si):

esse código lê dois arquivos: "ignorado.txt" contendo apenas a linha:

\pagefile.sys

e "diretorio.txt", contendo apenas a linha:

\*

esse é o código que reproduz o problema:

--------------------8<----------------------
open(ARQ, '<', 'ignorado.txt') or die "$!\n";
chomp(my $ignorado = <ARQ>); # aqui eu leio '\pagefile.sys'
close(ARQ);

open(ARQ, '<', 'diretorio.txt') or die "$!\n";
chomp(my $dir = <ARQ>);  # aqui eu leio '\*'
close(ARQ);
my @lista_expandida = glob($dir);

foreach(@lista_expandida) {
    print "comparando \"$_\" com \"$ignorado\"...\n";
    if($_ =~ /^$ignorado/) {
        print "*** ignorei $_ ***";
    }
}
--------------------8<----------------------

note que coloquei dois print() dentro do foreach() para depurar, e ele simplesmente não
entra dentro do if()... recebo até a saída:

comparando "\pagefile.sys" com "\pagefile.sys"...

alguém tem idéia do que pode estar acontecendo????

o problema acredito que esteja relacionado com a barra invertida, mas não sei como
solucioná-lo e não posso retirar a barra...

curiosamente, se tiro o "^" do match dentro do if(), logo que ele compara
"\pagefile.sys" com "\pagefile.sys" (onde deveria entrar, ele morre com o erro:

Can't find Unicode property definition "a"


Qualquer ajuda ou indicação será *muito* bem vinda, especialmente dos monges que usam
Windows (não é muito a minha praia ;-)

à título de curiosidade, caso possa ajudar:
------------------
This is perl, v5.8.7 built for MSWin32-x86-multi-thread
(with 7 registered patches, see perl -V for more detail)
------------------

[]s

breno


From glasswalk3r em yahoo.com.br  Tue Jun 13 06:19:37 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Tue, 13 Jun 2006 10:19:37 -0300 (ART)
Subject: [Cascavel-pm] problema em match de arquivos
In-Reply-To: <30588.200.179.201.28.1150170778.squirrel@200.155.11.82>
Message-ID: <20060613131937.33269.qmail@web30803.mail.mud.yahoo.com>

Oi,

--- breno em clavis.com.br escreveu:

> O código abaixo reproduz o problema (obs: o código é
> PARA WINDOWS, isso é importante
> frisar por causa das barras e do exemplo em si):

Use o módulo Config para identificar automaticamente o
separador de diretórios. Assim seu código vira
multiplaforma.

> esse código lê dois arquivos: "ignorado.txt"
> contendo apenas a linha:
> 
> \pagefile.sys
> 
> e "diretorio.txt", contendo apenas a linha:
> 
> \*
> 
> esse é o código que reproduz o problema:
> 
> --------------------8<----------------------
> open(ARQ, '<', 'ignorado.txt') or die "$!\n";
> chomp(my $ignorado = <ARQ>); # aqui eu leio
> '\pagefile.sys'
> close(ARQ);
> 
> open(ARQ, '<', 'diretorio.txt') or die "$!\n";
> chomp(my $dir = <ARQ>);  # aqui eu leio '\*'
> close(ARQ);
> my @lista_expandida = glob($dir);
> 
> foreach(@lista_expandida) {
>     print "comparando \"$_\" com
> \"$ignorado\"...\n";
>     if($_ =~ /^$ignorado/) {
>         print "*** ignorei $_ ***";
>     }
> }
> --------------------8<----------------------
> 
> note que coloquei dois print() dentro do foreach()
> para depurar, e ele simplesmente não
> entra dentro do if()... recebo até a saída:
> 
> comparando "\pagefile.sys" com "\pagefile.sys"...
> 
> alguém tem idéia do que pode estar acontecendo????
> 
> o problema acredito que esteja relacionado com a
> barra invertida, mas não sei como
> solucioná-lo e não posso retirar a barra...
> 
> curiosamente, se tiro o "^" do match dentro do if(),
> logo que ele compara
> "\pagefile.sys" com "\pagefile.sys" (onde deveria
> entrar, ele morre com o erro:
> 
> Can't find Unicode property definition "a"

Esses seus arquivos estão usando Unicode? Usar unicode
com Perl é meio chato (eu tentei um tempo depois
deixei pra lá).

Tente fazer comparação de strings usando eq ao invés
de expressões regulares: assumindo que a lista de
arquivos recuperada via glob não inseriu quebras de
linha ou outras coisas, você consegue fazer essa
comparação de forma máis rápida (e talvez resolva seu
problema).

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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

__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

From edencardim em gmail.com  Tue Jun 13 08:17:15 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Tue, 13 Jun 2006 12:17:15 -0300
Subject: [Cascavel-pm] problema em match de arquivos
In-Reply-To: <20060613131937.33269.qmail@web30803.mail.mud.yahoo.com>
References: <30588.200.179.201.28.1150170778.squirrel@200.155.11.82>
	<20060613131937.33269.qmail@web30803.mail.mud.yahoo.com>
Message-ID: <3de55ead0606130817q3751eeb3r874eaa16fdf58189@mail.gmail.com>

On 6/13/06, Alceu R. de Freitas Jr. <glasswalk3r em yahoo.com.br> wrote:
> Oi,
>
> --- breno em clavis.com.br escreveu:
>
> > O código abaixo reproduz o problema (obs: o código é
> > PARA WINDOWS, isso é importante
> > frisar por causa das barras e do exemplo em si):
>
> Use o módulo Config para identificar automaticamente o
> separador de diretórios. Assim seu código vira
> multiplaforma.

Uma opção mais simples e completa IMHO é o módulo File::Spec

From breno em clavis.com.br  Tue Jun 13 08:22:00 2006
From: breno em clavis.com.br (Breno G. de Oliveira)
Date: Tue, 13 Jun 2006 12:22:00 -0300
Subject: [Cascavel-pm] problema em match de arquivos
In-Reply-To: <20060613131937.33269.qmail@web30803.mail.mud.yahoo.com>
References: <20060613131937.33269.qmail@web30803.mail.mud.yahoo.com>
Message-ID: <448ED818.6070906@clavis.com.br>

Oi Alceu,

Alceu R. de Freitas Jr. wrote:
> 
> Use o módulo Config para identificar automaticamente o
> separador de diretórios. Assim seu código vira
> multiplaforma.
> 

O problema é que quem escreve os arquivos a serem ignorados e a serem
incluídos é o usuário, e ele coloca os separadores de acordo com seu
sistema operacional. Na verdade o código que eu mandei é só uma espécie
de PoC que reproduz o erro que estou tendo em uma aplicação maior, que
trata os separadores corretamente. O problema é que está ignorando
arquivos com sucesso no Linux (onde o separador é '/'), mas não no
Windows (onde o separador é '\\').

> 
> Esses seus arquivos estão usando Unicode? Usar unicode
> com Perl é meio chato (eu tentei um tempo depois
> deixei pra lá).
> 

Até onde eu sei, não estão não... Não uso nenhum módulo de Unicode e
trato tudo como texto puro. Aliás, não sei nem como se usa Unicode no
Windows... Se ajuda, é uma instalação "vanilla" do Windows XP, em
inglês, e tudo que fiz foi escolher:

Novo->Novo Documento de Texto (*.txt)

cliquei duas vezes, abri o bloco de notas, escrevi "\pagefile.sys",
salvei, saí. Fiz o mesmo para o que contém a lista de arquivos,
colocando "\*" no conteúdo. Note que os prints exibem os valores
"corretos" do conteúdo, e o glob() expande corretamente também.

> Tente fazer comparação de strings usando eq ao invés
> de expressões regulares: assumindo que a lista de
> arquivos recuperada via glob não inseriu quebras de
> linha ou outras coisas, você consegue fazer essa
> comparação de forma máis rápida (e talvez resolva seu
> problema).
> 

Não posso, preciso prever o caso em que o sujeito ignora um diretório
enquanto estou listando os subdiretórios. Por exemplo, se eu colocar no
arquivo de ignorados:

\windows

ele deve ignorar o "\windows", "\windows\system32", etc...

Por isso coloquei a expressão regular com o ^ no início, e por isso não
posso usar o "eq" (a menos que exista um meio de pular um diretório no
File::Find e eu não tenha RTFM corretamente ;)

A moral da história é que quero contornar o problema apenas em último
caso. A idéia é aprender pq isso está acontecendo e como evitar que
aconteça (a menos que seja o comportamento esperado do Perl - aí eu
contorno ;)


[]s

breno

From frighetti em cascavel.pm.org  Tue Jun 13 08:50:37 2006
From: frighetti em cascavel.pm.org (Fabiano Reese Righetti)
Date: Tue, 13 Jun 2006 12:50:37 -0300
Subject: [Cascavel-pm] problema em match de arquivos
In-Reply-To: <30588.200.179.201.28.1150170778.squirrel@200.155.11.82>
References: <30588.200.179.201.28.1150170778.squirrel@200.155.11.82>
Message-ID: <448EDECD.3050205@cascavel.pm.org>

breno em clavis.com.br escreveu:
> Salve pessoal,
> 
> estou com o seguinte problema: tenho uma lista de arquivos a serem lidos (expandidos via
> glob) e outra lista de arquivos a serem ignorados. Mas devo estar comendo mosca em algum
> lugar pois não sei pq não está funcionando.
> 
> O código abaixo reproduz o problema (obs: o código é PARA WINDOWS, isso é importante
> frisar por causa das barras e do exemplo em si):
> 
> esse código lê dois arquivos: "ignorado.txt" contendo apenas a linha:
> 
> \pagefile.sys
> 
> e "diretorio.txt", contendo apenas a linha:
> 
> \*
> 
> esse é o código que reproduz o problema:
> 
> --------------------8<----------------------
> open(ARQ, '<', 'ignorado.txt') or die "$!\n";
> chomp(my $ignorado = <ARQ>); # aqui eu leio '\pagefile.sys'
> close(ARQ);
> 
> open(ARQ, '<', 'diretorio.txt') or die "$!\n";
> chomp(my $dir = <ARQ>);  # aqui eu leio '\*'
> close(ARQ);
> my @lista_expandida = glob($dir);
> 
> foreach(@lista_expandida) {
>     print "comparando \"$_\" com \"$ignorado\"...\n";
>     if($_ =~ /^$ignorado/) {
>         print "*** ignorei $_ ***";
>     }
> }
> --------------------8<----------------------
> 
> note que coloquei dois print() dentro do foreach() para depurar, e ele simplesmente não
> entra dentro do if()... recebo até a saída:
> 
> comparando "\pagefile.sys" com "\pagefile.sys"...
> 
> alguém tem idéia do que pode estar acontecendo????
> 
> o problema acredito que esteja relacionado com a barra invertida, mas não sei como
> solucioná-lo e não posso retirar a barra...
> 
> curiosamente, se tiro o "^" do match dentro do if(), logo que ele compara
> "\pagefile.sys" com "\pagefile.sys" (onde deveria entrar, ele morre com o erro:
> 
> Can't find Unicode property definition "a"
> 
> 
> Qualquer ajuda ou indicação será *muito* bem vinda, especialmente dos monges que usam
> Windows (não é muito a minha praia ;-)
> 
> à título de curiosidade, caso possa ajudar:
> ------------------
> This is perl, v5.8.7 built for MSWin32-x86-multi-thread
> (with 7 registered patches, see perl -V for more detail)
> ------------------

    O problema é o '\' que contém dentro da variável $ignorado é
interpretado pelo match.

    Esse problema pode ser solucionado com um:

$ignorado =~ s/\\([a-z])/\\\\$1/g;

Abraços,
--
Fabiano Reese Righetti

From bones_pf em yahoo.com.br  Tue Jun 13 19:16:21 2006
From: bones_pf em yahoo.com.br (=?iso-8859-1?q?Iber=EA=20Oliveira=20Kuntz=20se=20Souza?=)
Date: Tue, 13 Jun 2006 23:16:21 -0300 (ART)
Subject: [Cascavel-pm] Enviar pacotes icmp
Message-ID: <20060614021621.80636.qmail@web31412.mail.mud.yahoo.com>

Olá. Gostaria de saber como eu posso enviar pacotes icmp(sem usar módulos da CPAN). Jah tentei:
socket(FH, AF_INET, SOCK_RAW, getprotobyname('icmp'));
...
...
send(FH,0,$end);

mas n deu certo
se alguem puder me ajudar eu agradeço.
Obrigado. flw!

 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060613/c3356b56/attachment.html 

From acid06 em gmail.com  Tue Jun 13 19:23:10 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Tue, 13 Jun 2006 23:23:10 -0300
Subject: [Cascavel-pm] Enviar pacotes icmp
In-Reply-To: <20060614021621.80636.qmail@web31412.mail.mud.yahoo.com>
References: <20060614021621.80636.qmail@web31412.mail.mud.yahoo.com>
Message-ID: <9a08c9b40606131923tc393fa6k162753720d37728d@mail.gmail.com>

On 6/13/06, Iberê Oliveira Kuntz se Souza <bones_pf em yahoo.com.br> wrote:
> Olá. Gostaria de saber como eu posso enviar pacotes icmp(sem usar módulos da
> CPAN).

Você pode tentar ver como o módulo Net::Packet::ICMPv4 da CPAN é implementado.
Note que a utilização de SOCK_RAW não é portável (não funciona em
Windows, por exemplo).

-Nilson Santos F. Jr.

From pmpoa em galvao.eti.br  Tue Jun 13 20:39:05 2006
From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?=22Er_Galv=E3o_Abbott_-_PortoAlegre=2Epm=22?=)
Date: Wed, 14 Jun 2006 00:39:05 -0300
Subject: [Cascavel-pm] Projeto: DBWTK
Message-ID: <448F84D9.8030301@galvao.eti.br>

Pessoal:

Há um tempo atrás comentei aqui sobre um projeto de interface web com um 
banco de dados PostgreSQL. Bem, desenvolvi melhor os conceitos do 
projeto e o submeti para aprovação na SourceForge.

O projeto foi aprovado hoje e o design da interface principal já está 
pronto. O DBWTK (DataBase Web Tool Kit) passou por duas principais 
reformulações:

1) Ele será produzido em dois "sabores" para prover uma maior 
compatibilidade e alcance da ferramenta: Perl e PHP. A interface será a 
mesma para ambos, o que mudará será apenas o código por trás do 
funcionamento da ferramenta. Em Perl utilizaremos DBI. Em PHP a classe 
ADODB.

2) A partir de agora a aplicação trabalhará com mais de um RDBMS, 
começando por PostgreSQL e posteriormente mySQL. Outros seguirão 
conforme a disponibilidade da equipe de desenvolvimento e o interesse 
dos usuários.

A página do projeto pode ser encontrada em: 
http://sourceforge.net/projects/dbwtk/ e em breve estarei postando lá 
mais informações sobre o projeto, além de instruções de como ter acesso 
ao design da interface.

Aguardo pelos interessados em participar.

Abraços,

Galvão

From breno em clavis.com.br  Tue Jun 13 20:45:38 2006
From: breno em clavis.com.br (breno em clavis.com.br)
Date: Wed, 14 Jun 2006 00:45:38 -0300 (BRT)
Subject: [Cascavel-pm] Enviar pacotes icmp
In-Reply-To: <20060614021621.80636.qmail@web31412.mail.mud.yahoo.com>
References: <20060614021621.80636.qmail@web31412.mail.mud.yahoo.com>
Message-ID: <44498.200.179.201.28.1150256738.squirrel@200.155.11.82>

Olá Iberê,

pode especificar um pouco mais o "não deu certo"? Ele gerou alguma mensagem de erro?
algum warning? O código não acusou problemas mas o pacote não foi enviado?

Posso estar falando besteira, mas tenho dois comentários que talvez possam te ajudar:

1) não deveria ser PF_INET ao invés de AF_INET?

2) a sintaxe do send() pra icmp não é send(FH, $pacote, 0, $endereco)? onde $pacote é a
mensagem a ser enviada (dentro da estrutura do protocolo ICMP) e $endereco é tal que:
$endereco = sockaddr_in(0, $ip); ?

espero ter ajudado  ;-)

[]s

breno

> Olá. Gostaria de saber como eu posso enviar pacotes icmp(sem usar módulos da CPAN). Jah
> tentei:
> socket(FH, AF_INET, SOCK_RAW, getprotobyname('icmp'));
> ...
> ...
> send(FH,0,$end);
>
> mas n deu certo
> se alguem puder me ajudar eu agradeço.
> Obrigado. flw!
>
>  __________________________________________________
> Fale com seus amigos  de graça com o novo Yahoo! Messenger
> http://br.messenger.yahoo.com/ _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm



From monsieur_champs em yahoo.com.br  Wed Jun 14 09:12:36 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Wed, 14 Jun 2006 17:12:36 +0100
Subject: [Cascavel-pm] problema em match de arquivos
In-Reply-To: <448EDECD.3050205@cascavel.pm.org>
References: <30588.200.179.201.28.1150170778.squirrel@200.155.11.82>
	<448EDECD.3050205@cascavel.pm.org>
Message-ID: <44903574.5060808@yahoo.com.br>

Fabiano Reese Righetti wrote:
>     O problema é o '\' que contém dentro da variável $ignorado é
> interpretado pelo match.
> 
>     Esse problema pode ser solucionado com um:
> 
> $ignorado =~ s/\\([a-z])/\\\\$1/g;

  Se o problema diagnosticado for realmente esse, eu acho que é possível
prevenir este tipo de comportamento construindo regular expressions com
o operador qr//, o que pode facilitar inclusive o debugging, já que
podemos imprimir para STDERR o que o Perl enxerga como sendo a expressão
regular, e não ficar apenas olhando para os resultados e tentando
adivinhar o que existe na caixa-preta.

  Putamplexos!
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From glasswalk3r em yahoo.com.br  Wed Jun 14 09:40:46 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Wed, 14 Jun 2006 13:40:46 -0300 (ART)
Subject: [Cascavel-pm] problema em match de arquivos
In-Reply-To: <448ED818.6070906@clavis.com.br>
Message-ID: <20060614164046.46819.qmail@web30801.mail.mud.yahoo.com>


--- "Breno G. de Oliveira" <breno em clavis.com.br>
escreveu:

> Alceu R. de Freitas Jr. wrote:
> > 
> > Tente fazer comparação de strings usando eq ao
> invés
> > de expressões regulares: assumindo que a lista de
> > arquivos recuperada via glob não inseriu quebras
> de
> > linha ou outras coisas, você consegue fazer essa
> > comparação de forma máis rápida (e talvez resolva
> seu
> > problema).
> > 
> 
> Não posso, preciso prever o caso em que o sujeito
> ignora um diretório
> enquanto estou listando os subdiretórios. Por
> exemplo, se eu colocar no
> arquivo de ignorados:
> 
> \windows
> 
> ele deve ignorar o "\windows", "\windows\system32",
> etc...

Bem, já foi comentado em emails anteriores que "\"
pode estar funcionando como caracter de escape e
causando essa bagunça toda. Oriente o usuário a
duplicar a contra barra (assim: \\) e talvez você pare
te der esses problemas. De qualquer forma, você
deveria tornar esse processo de escrever o dado a ser
lido de forma mais fácil e que possa validar a entrada
do usuário.

> A moral da história é que quero contornar o problema
> apenas em último
> caso. A idéia é aprender pq isso está acontecendo e
> como evitar que
> aconteça (a menos que seja o comportamento esperado
> do Perl - aí eu
> contorno ;)

Eu considero que o problema esteja na contrabarra.
Talvez o operador qr seja uma boa idéia também.

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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

__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

From ptfzs em yahoo.com.br  Wed Jun 14 11:16:49 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 14 Jun 2006 15:16:49 -0300 (ART)
Subject: [Cascavel-pm] Varrer Array
In-Reply-To: <3de55ead0606071208p4931f9f8oa53119e4d7c8d4a9@mail.gmail.com>
Message-ID: <20060614181649.14705.qmail@web31301.mail.mud.yahoo.com>

Pessoal.. Tudo Bem??

Tenho um array com diversos elementos, porem esses elementos sao textos..

como varrer esses elementos em busca de linhas comecadas com B ??


Obrigada



 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060614/712539bf/attachment.html 

From ivocarv em cais.rnp.br  Wed Jun 14 11:21:22 2006
From: ivocarv em cais.rnp.br (Ivo Peixinho)
Date: Wed, 14 Jun 2006 15:21:22 -0300 (BRT)
Subject: [Cascavel-pm] Varrer Array
In-Reply-To: <20060614181649.14705.qmail@web31301.mail.mud.yahoo.com>
References: <20060614181649.14705.qmail@web31301.mail.mud.yahoo.com>
Message-ID: <Pine.LNX.4.64.0606141519450.3936@exocet.cais.rnp.br>


    @mygrep = grep(/^B/, @array);

   Ou interativo:

   foreach $elem (@array) {

  	if ($elem =~ /^B/) {
            ...
         }

   }

        Ivo.

On Wed, 14 Jun 2006, Patty Silva wrote:

> Pessoal.. Tudo Bem??
>
> Tenho um array com diversos elementos, porem esses elementos sao textos..
>
> como varrer esses elementos em busca de linhas comecadas com B ??
>
>
> Obrigada
>
>
>
> __________________________________________________
> Fale com seus amigos  de graça com o novo Yahoo! Messenger
> http://br.messenger.yahoo.com/

From marco.lima em e-via.com.br  Wed Jun 14 11:21:43 2006
From: marco.lima em e-via.com.br (marco.lima em e-via.com.br)
Date: Wed, 14 Jun 2006 15:21:43 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?=5BPerl-Coordenacao=5D_Abertura_de_i?=
	=?iso-8859-1?q?nscri=E7=F5es?=
In-Reply-To: <aa47605d0606141115r40fcceafs5c6be5bf3906248f@mail.gmail.com>
References: <aa47605d0606141115r40fcceafs5c6be5bf3906248f@mail.gmail.com>
Message-ID: <20060614152143.6182scqzrhzkccgw@www.e-via.com.br>

Salve Flávio !

Gostaria de lembrar a todos que as palestras do YAPC::SA devem ser  
inscritas da mesma maneira que as do CONISLI, teremos alguns espaços e  
a SPB quem vai selecionar as palestras.

[  ]'s

Quoting "Flavio S. Glock" <fglock em gmail.com>:

> Já estão abertas as inscrições para o CONISLI, onde acontecerá o  
> YAPC::SA::2006.
>
> ---------
> CONISLI 2006 - Chamada de Trabalhos
>
> O IDEPES, Instituto de Desenvolvimento e Pesquisas de Software convida a
> todos profissionais de TIC (Tecnologia da Informação e Comunicação),
> Acadêmicos, Desenvolvedores, Entusiastas, Artistas culturais com propostas
> livres envolvidos com Cultura digital livre para submeterem seus
> trabalhos, bem como palestras, tutoriais, mesas de debate e minicursos
> para a 4a Edição do Congresso Internacional de Software Livre - CONISLI,
> que acontecerá nos dias 07 a 11 de novembro no SESC - Vila Mariana em São
> Paulo/Brasil.
>
> *** Uma atenção maior para este ano, para as pessoas que já participaram
> de alguma outra versão do evento é que o site não é mais
> www.conisli.org.br e sim www.conisli.org ***
>
> Participem inscrevendo seus trabalhos a partir de 12/06 através do site
> http://www.conisli.org
>
> A Organização do evento espera este ano receber trabalhos inovadores, na
> área de Desenvolvimento de Software, Gestão de Negócios com SL,
> Infra-estrutura, Cultura Digital e Segurança, para tanto vejam detalhes na
> lista de macrotemas do evento.
>
> Grande abraço,
>
> Ralf Braga
> _______________________________________________
> Perl-Coordenacao mailing list
> Perl-Coordenacao em listas.softwarelivre.org
> http://listas.softwarelivre.org/cgi-bin/mailman/listinfo/perl-coordenacao



From ptfzs em yahoo.com.br  Wed Jun 14 11:35:51 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 14 Jun 2006 15:35:51 -0300 (ART)
Subject: [Cascavel-pm] Varrer Array
In-Reply-To: <Pine.LNX.4.64.0606141519450.3936@exocet.cais.rnp.br>
Message-ID: <20060614183552.39057.qmail@web31304.mail.mud.yahoo.com>

Bom.. Ivo. Obrigada pela ajuda porem, meu array possui
1 elemento:
La La la La La la
la la la
lala  lal lal al al
asdkaj aksjdk
2 elemento
sadj
sadasd
sada asd  asd asd 
asd a
as 
ad 
asd 
3 elemento
sad
asd 
sddddd dsd sds dsd
ds sd ds
.
.
para imprimer os elemento do array faco:

for my $i (0..$#array)
Agora apartir daqui quero varrer dentro de cada elemento
:P




Ivo Peixinho <ivocarv em cais.rnp.br> escreveu: 
    @mygrep = grep(/^B/, @array);

   Ou interativo:

   foreach $elem (@array) {

   if ($elem =~ /^B/) {
            ...
         }

   }

        Ivo.

On Wed, 14 Jun 2006, Patty Silva wrote:

> Pessoal.. Tudo Bem??
>
> Tenho um array com diversos elementos, porem esses elementos sao textos..
>
> como varrer esses elementos em busca de linhas comecadas com B ??
>
>
> Obrigada
>
>
>
> __________________________________________________
> Fale com seus amigos  de graça com o novo Yahoo! Messenger
> http://br.messenger.yahoo.com/_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm

 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060614/2d216455/attachment.html 

From glasswalk3r em yahoo.com.br  Wed Jun 14 11:49:12 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Wed, 14 Jun 2006 18:49:12 +0000 (GMT)
Subject: [Cascavel-pm] Varrer Array
In-Reply-To: <20060614183552.39057.qmail@web31304.mail.mud.yahoo.com>
Message-ID: <20060614184912.65395.qmail@web30805.mail.mud.yahoo.com>


--- Patty Silva <ptfzs em yahoo.com.br> escreveu:

> Bom.. Ivo. Obrigada pela ajuda porem, meu array
> possui
> 1 elemento:
> La La la La La la
> la la la
> lala  lal lal al al
> asdkaj aksjdk
> 2 elemento
> sadj
> sadasd
> sada asd  asd asd 
> asd a
> as 
> ad 
> asd 
> 3 elemento
> sad
> asd 
> sddddd dsd sds dsd
> ds sd ds
> .
> .
> para imprimer os elemento do array faco:
> 
> for my $i (0..$#array)
> Agora apartir daqui quero varrer dentro de cada
> elemento

Defina "varrer". E diga por que você precisa fazer
isso.
Pelo que entendi cada elemento do seu array possui
conteúdo com quebras de linha. É possível especificar
uma REGEX multilinha, mas não sei se é isso que você
quer.
No mais, daonde vem essa informação que é inserida no
array? Ou esse é um exercício conceitual? O mais
natural seria ter, para cada linha, uma posição no
array.

[]'s
Alceu



__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

From breno em clavis.com.br  Wed Jun 14 12:11:08 2006
From: breno em clavis.com.br (breno em clavis.com.br)
Date: Wed, 14 Jun 2006 16:11:08 -0300 (BRT)
Subject: [Cascavel-pm] problema em match de arquivos
In-Reply-To: <44903574.5060808@yahoo.com.br>
References: <30588.200.179.201.28.1150170778.squirrel@200.155.11.82>
	<448EDECD.3050205@cascavel.pm.org> <44903574.5060808@yahoo.com.br>
Message-ID: <54020.146.164.251.93.1150312268.squirrel@200.155.11.82>

Fabiano, (e Alceu)

o problema é exatamente esse, e fazendo o escape a ER funciona corretamente. Obrigado!

Luis, (ou quem mais puder)

pode elaborar mais a idéia de como evitar que o Perl interprete a '\' dentro do conteúdo
da variável?

Obrigado!

breno

> Fabiano Reese Righetti wrote:
>>     O problema é o '\' que contém dentro da variável $ignorado é
>> interpretado pelo match.
>>
>>     Esse problema pode ser solucionado com um:
>>
>> $ignorado =~ s/\\([a-z])/\\\\$1/g;
>
>   Se o problema diagnosticado for realmente esse, eu acho que é possível
> prevenir este tipo de comportamento construindo regular expressions com
> o operador qr//, o que pode facilitar inclusive o debugging, já que
> podemos imprimir para STDERR o que o Perl enxerga como sendo a expressão
> regular, e não ficar apenas olhando para os resultados e tentando
> adivinhar o que existe na caixa-preta.
>
>   Putamplexos!
> --
> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Luis Motta Campos is
> Software Engineer, Oracle OCP/DBA, Un*x
>  Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
>  Perl Mongers and Perl Fanatic Evangelist
> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-_______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



From fglock em gmail.com  Wed Jun 14 12:27:18 2006
From: fglock em gmail.com (Flavio S. Glock)
Date: Wed, 14 Jun 2006 16:27:18 -0300
Subject: [Cascavel-pm] problema em match de arquivos
In-Reply-To: <54020.146.164.251.93.1150312268.squirrel@200.155.11.82>
References: <30588.200.179.201.28.1150170778.squirrel@200.155.11.82>
	<448EDECD.3050205@cascavel.pm.org> <44903574.5060808@yahoo.com.br>
	<54020.146.164.251.93.1150312268.squirrel@200.155.11.82>
Message-ID: <aa47605d0606141227q10709debs24800faf71d94340@mail.gmail.com>

Em 14/06/06, breno em clavis.com.br<breno em clavis.com.br> escreveu:
> pode elaborar mais a idéia de como evitar que o Perl interprete a '\' dentro do conteúdo
> da variável?

Pode ser usado o switch \Q - compare:

  perl -e ' $r = qr(\Q \/\/ ); print $r '
  perl -e ' $r = qr( \/\/ ); print $r '

- Flavio S. Glock

From bones_pf em yahoo.com.br  Wed Jun 14 22:13:29 2006
From: bones_pf em yahoo.com.br (=?iso-8859-1?q?Iber=EA=20Oliveira=20Kuntz=20se=20Souza?=)
Date: Thu, 15 Jun 2006 02:13:29 -0300 (ART)
Subject: [Cascavel-pm] Enviar pacotes icmp
Message-ID: <20060615051329.86612.qmail@web31414.mail.mud.yahoo.com>

Então.. acontece q eu não sei como cria a estrutura icmp. Na verdade eu gostaria de verificar se tal pacote(icmp) chegou ou não, pois meu objetivo eh criar um udp-scan(envia pacote udp pra vitima, se receber "ICMP port unreachable", porta fechada, do contrario esta aberta). E tbm tenho mta curiosidade em conhecer a fundo o protocolo icmp, ele eh mto importante para mim.
Obrigado.

 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060615/8faa9e94/attachment.html 

From breno em clavis.com.br  Wed Jun 14 23:22:32 2006
From: breno em clavis.com.br (Breno G. de Oliveira)
Date: Thu, 15 Jun 2006 03:22:32 -0300
Subject: [Cascavel-pm] Enviar pacotes icmp
In-Reply-To: <20060615051329.86612.qmail@web31414.mail.mud.yahoo.com>
References: <20060615051329.86612.qmail@web31414.mail.mud.yahoo.com>
Message-ID: <4490FCA8.2010407@clavis.com.br>

Iberê,

nesse caso, acho melhor você ler a fundo o RFC 792 que especifica o ICMP
(http://www.ietf.org/rfc/rfc792.txt) e a documentação do uso de sockets
em Perl (o capítulo 16 do Programming Perl acho que fala bem sobre
isso). Note que vc estava tentando em seu exemplo *enviar* um pacote
ICMP, e não receber, como é no caso de um UDP scan. Não é à toa que não
funcionou ;)

Apenas para constar, não receber "ICMP port unreachable" após enviar um
UDP vazio não quer dizer que ela está aberta, ela pode tb estar sendo
filtrada...

Finalmente, se o seu objetivo é o que disse então realmente acho que vc
deveria tentar não reinventar a roda e utilizar os módulos disponíveis
no CPAN (a menos que tenha uma razão *realmente* muito boa para isso).
Há até modulos que fazem interface com ou mesmo implementam as
varreduras do nmap (que incluem a de UDP) em Perl disponíveis por lá.

[]s

breno

Iberê Oliveira Kuntz se Souza wrote:
> Então.. acontece q eu não sei como cria a estrutura icmp. Na verdade eu
> gostaria de verificar se tal pacote(icmp) chegou ou não, pois meu
> objetivo eh criar um udp-scan(envia pacote udp pra vitima, se receber
> "ICMP port unreachable", porta fechada, do contrario esta aberta). E tbm
> tenho mta curiosidade em conhecer a fundo o protocolo icmp, ele eh mto
> importante para mim.
> Obrigado.
> 
> __________________________________________________
> Fale com seus amigos de graça com o novo Yahoo! Messenger
> http://br.messenger.yahoo.com/
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

From danielrantunes em yahoo.com.br  Fri Jun 16 11:52:52 2006
From: danielrantunes em yahoo.com.br (Daniel R. Antunes)
Date: Fri, 16 Jun 2006 15:52:52 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Teste_de_vari=E1vel_na_inicializa=E7?=
 =?iso-8859-1?q?=E3o_de_um_m=F3dulo=2E?=
Message-ID: <4492FE04.8050404@yahoo.com.br>

    Olá amigos da lista...
    Eu postei esta mensagem no "perl-br" mas infelizmente ninguém respondeu, desculpem se minha pergunta for obvia por demais, mas é uma dificuldade que estou tendo e não conseguindo resolver. Eu venho da linguagem C/C++ e ainda apanho com alguns aspectos do Perl, principalmente as questões relacionadas a namespaces, variáveis de pacote, escopos léxicos, enfim... Acho que tenho me saido bem na migração, mas... Obs: Eu encomendei o livro "Perl for C programmers" para ver se paro de encher a paciência dos amigos com estas perguntas. :)
    Bom, vamos ao problema que estou tendo :

package modules::G;
require Exporter;
use strict;
use LWP::UserAgent;
use funcs;
# Export some symbols
our @ISA                =    qw(Exporter);
our @EXPORT            =    qw(    &construct_G_XML_doc
                                            submit_G
                                            &g_start
                                            &g_char
                                            &g_end);
our @EXPORT_OK    =    qw();
our $VERSION        =    0.01;
# Global variables
my $false=0;
my $true=1;
my $gsubmission_url;
my $gretrieval_url;
my $glogin;
my $gpass;
# Used by parsers
my %audit_info;
my %summary_info;
my %product;
my $spCode;

    Isto faz parte do módulo G de meu sistema (um daemon) e está funcionando 
perfeitamente.
    Mas... Eu tenho uma variável chamada TEST que é setada na 
inicialização do serviço usando "-t", o getopt pega esta informação e 
torna o TEST true ou false, isto está no main; eu gostaria de testá-la 
no ponto inicial deste módulo assim :

if ($main::TEST){
   $gsubmission_url='http://url/de/testes';
   $gretrieval_url='http://url/de/testes/RetrieveListenerServlet';
   $glogin='LOGIN';
   $gpass='PASS';   
}
else{
   $gsubmission_url='http://url/live';
   $gretrieval_url='http://url/live/RetrieveListenerServlet';
   $glogin='LOGIN_OFICIAL';
   $gpass='SENHA_OFICIAL';
}

    Mas eu não estou conseguindo, ele sempre entra no else por que o main::TEST 
não existe neste ponto (inicio do módulo), eu utilizo o "strict" e o "-w" na inicialização do serviço, no entanto nenhum erro é reportado. Se eu coloco em qualquer das subs do módulo funciona, e é 
como está por hora.  :( 
    Alguém poderia me ajudar ?
    Desde já muito obrigado.


-- 
|---------------------------------------------.---.-\
| Daniel R. Antunes (Profiss. de informática) )\-/( |
| ...... www.daniel-antunes.com.br (Web Site) (OvO) |
| ... danielrantunes em sorria.com.br (M$Nmsger) (( )) |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"~"~~|
| ICQº 107888741 ~ GNU/Linuxº 238553 ~ GotNiX 'ÜÜÜ' |
\---------------------------------------------------|


	

	
		
_______________________________________________________ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 


From igor.sutton em gmail.com  Fri Jun 16 12:06:31 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Fri, 16 Jun 2006 16:06:31 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Teste_de_vari=E1vel_na_inicializa=E7?=
	=?iso-8859-1?q?=E3o_de_um_m=F3dulo=2E?=
In-Reply-To: <4492FE04.8050404@yahoo.com.br>
References: <4492FE04.8050404@yahoo.com.br>
Message-ID: <6c65a53f0606161206g1c2a4098o1cf3a90f35d69a7e@mail.gmail.com>

Daniel,

Segue um exemplo:

t.pl:
<code>
use strict;
use warnings;

use G;

# é necessário para que o módulo G possa enxergar a variável.
our $TEST = 1;

G->run();
</code>

G.pm:
<code>
package G;

sub run {
    my $instance = "live";
    $instance = "test" if ($main::TEST);
    print "$instance\n";
}
1;
</code>

Então, o *our* é necessário para que a variável possa ser vista fora do
escopo do pacote main.

Espero que ajude.

On 6/16/06, Daniel R. Antunes <danielrantunes em yahoo.com.br> wrote:
>
>     Olá amigos da lista...
>     Eu postei esta mensagem no "perl-br" mas infelizmente ninguém
> respondeu, desculpem se minha pergunta for obvia por demais, mas é uma
> dificuldade que estou tendo e não conseguindo resolver. Eu venho da
> linguagem C/C++ e ainda apanho com alguns aspectos do Perl, principalmente
> as questões relacionadas a namespaces, variáveis de pacote, escopos léxicos,
> enfim... Acho que tenho me saido bem na migração, mas... Obs: Eu encomendei
> o livro "Perl for C programmers" para ver se paro de encher a paciência dos
> amigos com estas perguntas. :)
>     Bom, vamos ao problema que estou tendo :
>
> package modules::G;
> require Exporter;
> use strict;
> use LWP::UserAgent;
> use funcs;
> # Export some symbols
> our @ISA                =    qw(Exporter);
> our @EXPORT            =    qw(    &construct_G_XML_doc
>                                             submit_G
>                                             &g_start
>                                             &g_char
>                                             &g_end);
> our @EXPORT_OK    =    qw();
> our $VERSION        =    0.01;
> # Global variables
> my $false=0;
> my $true=1;
> my $gsubmission_url;
> my $gretrieval_url;
> my $glogin;
> my $gpass;
> # Used by parsers
> my %audit_info;
> my %summary_info;
> my %product;
> my $spCode;
>
>     Isto faz parte do módulo G de meu sistema (um daemon) e está
> funcionando
> perfeitamente.
>     Mas... Eu tenho uma variável chamada TEST que é setada na
> inicialização do serviço usando "-t", o getopt pega esta informação e
> torna o TEST true ou false, isto está no main; eu gostaria de testá-la
> no ponto inicial deste módulo assim :
>
> if ($main::TEST){
>    $gsubmission_url='http://url/de/testes';
>    $gretrieval_url='http://url/de/testes/RetrieveListenerServlet';
>    $glogin='LOGIN';
>    $gpass='PASS';
> }
> else{
>    $gsubmission_url='http://url/live';
>    $gretrieval_url='http://url/live/RetrieveListenerServlet';
>    $glogin='LOGIN_OFICIAL';
>    $gpass='SENHA_OFICIAL';
> }
>
>     Mas eu não estou conseguindo, ele sempre entra no else por que o
> main::TEST
> não existe neste ponto (inicio do módulo), eu utilizo o "strict" e o "-w"
> na inicialização do serviço, no entanto nenhum erro é reportado. Se eu
> coloco em qualquer das subs do módulo funciona, e é
> como está por hora.  :(
>     Alguém poderia me ajudar ?
>     Desde já muito obrigado.
>
>
> --
> |---------------------------------------------.---.-\
> | Daniel R. Antunes (Profiss. de informática) )\-/( |
> | ...... www.daniel-antunes.com.br (Web Site) (OvO) |
> | ... danielrantunes em sorria.com.br (M$Nmsger) (( )) |
> |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"~"~~|
> | ICQº 107888741 ~ GNU/Linuxº 238553 ~ GotNiX 'ÜÜÜ' |
> \---------------------------------------------------|
>
>
>
>
>
>
> _______________________________________________________
> Yahoo! doce lar. Faça do Yahoo! sua homepage.
> http://br.yahoo.com/homepageset.html
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
Igor Sutton Lopes
http://www.izut.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060616/0d6c0757/attachment.html 

From igor.sutton em gmail.com  Fri Jun 16 12:17:12 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Fri, 16 Jun 2006 16:17:12 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Teste_de_vari=E1vel_na_inicializa=E7?=
	=?iso-8859-1?q?=E3o_de_um_m=F3dulo=2E?=
In-Reply-To: <6c65a53f0606161206g1c2a4098o1cf3a90f35d69a7e@mail.gmail.com>
References: <4492FE04.8050404@yahoo.com.br>
	<6c65a53f0606161206g1c2a4098o1cf3a90f35d69a7e@mail.gmail.com>
Message-ID: <6c65a53f0606161217k6bcf083cob36a8ccd41e74384@mail.gmail.com>

Hum... Se bem que uma solução melhor para o seu problema seria passar a flag
na inicialização do seu objeto:

<code>
use G;

my $g = G->new(test => $test);
$g->run();
</code>

Igor.

On 6/16/06, Igor Sutton <igor.sutton em gmail.com> wrote:
>
> Daniel,
>
> Segue um exemplo:
>
> t.pl:
> <code>
> use strict;
> use warnings;
>
> use G;
>
> # é necessário para que o módulo G possa enxergar a variável.
> our $TEST = 1;
>
> G->run();
> </code>
>
> G.pm:
> <code>
> package G;
>
> sub run {
>     my $instance = "live";
>     $instance = "test" if ($main::TEST);
>     print "$instance\n";
> }
> 1;
> </code>
>
> Então, o *our* é necessário para que a variável possa ser vista fora do
> escopo do pacote main.
>
> Espero que ajude.
>
>
> On 6/16/06, Daniel R. Antunes <danielrantunes em yahoo.com.br> wrote:
> >
> >     Olá amigos da lista...
> >     Eu postei esta mensagem no "perl-br" mas infelizmente ninguém
> > respondeu, desculpem se minha pergunta for obvia por demais, mas é uma
> > dificuldade que estou tendo e não conseguindo resolver. Eu venho da
> > linguagem C/C++ e ainda apanho com alguns aspectos do Perl, principalmente
> > as questões relacionadas a namespaces, variáveis de pacote, escopos léxicos,
> > enfim... Acho que tenho me saido bem na migração, mas... Obs: Eu encomendei
> > o livro "Perl for C programmers" para ver se paro de encher a paciência dos
> > amigos com estas perguntas. :)
> >     Bom, vamos ao problema que estou tendo :
> >
> > package modules::G;
> > require Exporter;
> > use strict;
> > use LWP::UserAgent;
> > use funcs;
> > # Export some symbols
> > our @ISA                =    qw(Exporter);
> > our @EXPORT            =    qw(    &construct_G_XML_doc
> >                                             submit_G
> >                                             &g_start
> >                                             &g_char
> >                                             &g_end);
> > our @EXPORT_OK    =    qw();
> > our $VERSION        =    0.01;
> > # Global variables
> > my $false=0;
> > my $true=1;
> > my $gsubmission_url;
> > my $gretrieval_url;
> > my $glogin;
> > my $gpass;
> > # Used by parsers
> > my %audit_info;
> > my %summary_info;
> > my %product;
> > my $spCode;
> >
> >     Isto faz parte do módulo G de meu sistema (um daemon) e está
> > funcionando
> > perfeitamente.
> >     Mas... Eu tenho uma variável chamada TEST que é setada na
> > inicialização do serviço usando "-t", o getopt pega esta informação e
> > torna o TEST true ou false, isto está no main; eu gostaria de testá-la
> > no ponto inicial deste módulo assim :
> >
> > if ($main::TEST){
> >    $gsubmission_url='http://url/de/testes';
> >    $gretrieval_url=' http://url/de/testes/RetrieveListenerServlet';
> >    $glogin='LOGIN';
> >    $gpass='PASS';
> > }
> > else{
> >    $gsubmission_url='http://url/live';
> >    $gretrieval_url=' http://url/live/RetrieveListenerServlet';
> >    $glogin='LOGIN_OFICIAL';
> >    $gpass='SENHA_OFICIAL';
> > }
> >
> >     Mas eu não estou conseguindo, ele sempre entra no else por que o
> > main::TEST
> > não existe neste ponto (inicio do módulo), eu utilizo o "strict" e o
> > "-w" na inicialização do serviço, no entanto nenhum erro é reportado. Se eu
> > coloco em qualquer das subs do módulo funciona, e é
> > como está por hora.  :(
> >     Alguém poderia me ajudar ?
> >     Desde já muito obrigado.
> >
> >
> > --
> > |---------------------------------------------.---.-\
> > | Daniel R. Antunes (Profiss. de informática) )\-/( |
> > | ...... www.daniel-antunes.com.br (Web Site) (OvO) |
> > | ... danielrantunes em sorria.com.br (M$Nmsger) (( )) |
> > |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"~"~~|
> > | ICQº 107888741 ~ GNU/Linuxº 238553 ~ GotNiX 'ÜÜÜ' |
> > \---------------------------------------------------|
> >
> >
> >
> >
> >
> >
> > _______________________________________________________
> > Yahoo! doce lar. Faça do Yahoo! sua homepage.
> > http://br.yahoo.com/homepageset.html
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
>
> --
> Igor Sutton Lopes
> http://www.izut.com/
>



-- 
Igor Sutton Lopes
http://www.izut.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060616/15ad097b/attachment.html 

From fglock em gmail.com  Fri Jun 16 12:30:51 2006
From: fglock em gmail.com (Flavio S. Glock)
Date: Fri, 16 Jun 2006 16:30:51 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Teste_de_vari=E1vel_na_inicializa=E7?=
	=?iso-8859-1?q?=E3o_de_um_m=F3dulo=2E?=
In-Reply-To: <4492FE04.8050404@yahoo.com.br>
References: <4492FE04.8050404@yahoo.com.br>
Message-ID: <aa47605d0606161230h6a18d010v9e6913f7b8cb2b3@mail.gmail.com>

Isso resolve?
---
package A;

INIT {
    print $main::T;
}

package main;

BEGIN {
    our $T = "ok\n";
}
---
Blocos INIT são executados somente depois que toda a compilação
termina; blocos BEGIN são executados durante a compilação.

- Flavio S. Glock

Em 16/06/06, Daniel R. Antunes<danielrantunes em yahoo.com.br> escreveu:
>     Olá amigos da lista...
>     Eu postei esta mensagem no "perl-br" mas infelizmente ninguém respondeu, desculpem se minha pergunta for obvia por demais, mas é uma dificuldade que estou tendo e não conseguindo resolver. Eu venho da linguagem C/C++ e ainda apanho com alguns aspectos do Perl, principalmente as questões relacionadas a namespaces, variáveis de pacote, escopos léxicos, enfim... Acho que tenho me saido bem na migração, mas... Obs: Eu encomendei o livro "Perl for C programmers" para ver se paro de encher a paciência dos amigos com estas perguntas. :)
>     Bom, vamos ao problema que estou tendo :
>
> package modules::G;
> require Exporter;
> use strict;
> use LWP::UserAgent;
> use funcs;
> # Export some symbols
> our @ISA                =    qw(Exporter);
> our @EXPORT            =    qw(    &construct_G_XML_doc
>                                             submit_G
>                                             &g_start
>                                             &g_char
>                                             &g_end);
> our @EXPORT_OK    =    qw();
> our $VERSION        =    0.01;
> # Global variables
> my $false=0;
> my $true=1;
> my $gsubmission_url;
> my $gretrieval_url;
> my $glogin;
> my $gpass;
> # Used by parsers
> my %audit_info;
> my %summary_info;
> my %product;
> my $spCode;
>
>     Isto faz parte do módulo G de meu sistema (um daemon) e está funcionando
> perfeitamente.
>     Mas... Eu tenho uma variável chamada TEST que é setada na
> inicialização do serviço usando "-t", o getopt pega esta informação e
> torna o TEST true ou false, isto está no main; eu gostaria de testá-la
> no ponto inicial deste módulo assim :
>
> if ($main::TEST){
>    $gsubmission_url='http://url/de/testes';
>    $gretrieval_url='http://url/de/testes/RetrieveListenerServlet';
>    $glogin='LOGIN';
>    $gpass='PASS';
> }
> else{
>    $gsubmission_url='http://url/live';
>    $gretrieval_url='http://url/live/RetrieveListenerServlet';
>    $glogin='LOGIN_OFICIAL';
>    $gpass='SENHA_OFICIAL';
> }
>
>     Mas eu não estou conseguindo, ele sempre entra no else por que o main::TEST
> não existe neste ponto (inicio do módulo), eu utilizo o "strict" e o "-w" na inicialização do serviço, no entanto nenhum erro é reportado. Se eu coloco em qualquer das subs do módulo funciona, e é
> como está por hora.  :(
>     Alguém poderia me ajudar ?
>     Desde já muito obrigado.
>
>
> --
> |---------------------------------------------.---.-\
> | Daniel R. Antunes (Profiss. de informática) )\-/( |
> | ...... www.daniel-antunes.com.br (Web Site) (OvO) |
> | ... danielrantunes em sorria.com.br (M$Nmsger) (( )) |
> |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"~"~~|
> | ICQº 107888741 ~ GNU/Linuxº 238553 ~ GotNiX 'ÜÜÜ' |
> \---------------------------------------------------|
>
>
>
>
>
>
> _______________________________________________________
> Yahoo! doce lar. Faça do Yahoo! sua homepage.
> http://br.yahoo.com/homepageset.html
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>

From danielrantunes em yahoo.com.br  Fri Jun 16 13:31:46 2006
From: danielrantunes em yahoo.com.br (Daniel R. Antunes)
Date: Fri, 16 Jun 2006 17:31:46 -0300
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Teste_de_vari=E1vel_na_inicializa=E7?=
 =?iso-8859-1?q?=E3o_de_um_m=F3dulo=2E?=
In-Reply-To: <6c65a53f0606161206g1c2a4098o1cf3a90f35d69a7e@mail.gmail.com>
References: <4492FE04.8050404@yahoo.com.br>
	<6c65a53f0606161206g1c2a4098o1cf3a90f35d69a7e@mail.gmail.com>
Message-ID: <44931532.1020304@yahoo.com.br>

    Oi Igor, muito grato pela ajuda.
    Na verdade o módulo G é um "adendo" de um objeto chamado Inq; este 
objeto se comporta diferente de acordo com a informação fornecida em um 
XML e neste caso eu não posso setar na inicialização do objeto pois este 
já existe qdo o módulo G é invocado. Assim como o módulo G eu tenho o T, 
TP, GT e J que se conectam a lugares diferentes com senhas diferentes e 
enviando solicitações em formatos diferentes. O "-t" é uma forma de 
debug na conexão com estes servidores. É realmente complicado. :)
    Conforme sugestão do caro amigo Flávio eu tentei o INIT e o BEGIN da 
seguinte forma :

package modules::G;
require Exporter;
use strict;
use LWP::UserAgent;
use funcs;
# Export some symbols
our @ISA                =    qw(Exporter);
our @EXPORT            =    qw(    &construct_G_XML_doc
                                            submit_G
                                            &g_start
                                            &g_char
                                            &g_end);
our @EXPORT_OK    =    qw();
our $VERSION        =    0.01;
# Global variables
my $false=0;
my $true=1;
my $gsubmission_url;
my $gretrieval_url;
my $glogin;
my $gpass;
INIT{
    if ($main::TEST){
       $gsubmission_url='http://url/de/testes';
       $gretrieval_url=' http://url/de/testes/RetrieveListenerServlet';
       $glogin='LOGIN';
       $gpass='PASS';
    }
    else{
       $gsubmission_url='http://url/live';
       $gretrieval_url=' http://url/live/RetrieveListenerServlet';
       $glogin='LOGIN_OFICIAL';
       $gpass='SENHA_OFICIAL';
    }
}
# Used by parsers
my %audit_info;
my %summary_info;
my %product;
my $spCode;

    Ambos não funcionaram tbem.
    Um exemplo de sub dentro do módulo G seria este :

sub construct_T_XML_doc{
    my $obj=shift;
    if ($obj->{searchingByID}){
        $obj->{xml}.="<?xml version=\"1.0\" encoding=\"utf-8\"?>\n";
        $obj->{xml}.="<SByID xmlns=\"http://g.com/webservices/\">\n";
        $obj->{xml}.="\t<clIdInfo>";
        $obj->{xml}.=$obj->parse_block("\t\t\t\t<IdInfo id=\"{svccode}\" 
/>",'services');
        $obj->{xml}.="\t</clIdInfo>";
        $obj->{xml}.="</SByID>\n";
        $obj->{soapaction}="SByID"
    }
    ... <-Aqui ele se conecta usando as variáveis gsubmission_url, etc...
}

    Se eu coloco o if dentro desta sub (por exemplo) o danado funciona.
    Neste caso Flávio creio que seja necessário testar a variável "TEST" 
em tempo de execução.
    Obrigado amigos.


Igor Sutton wrote:

> Daniel,
>
> Segue um exemplo:
>
> t.pl:
> <code>
> use strict;
> use warnings;
>
> use G;
>
> # é necessário para que o módulo G possa enxergar a variável.
> our $TEST = 1;
>
> G->run();
> </code>
>
> G.pm <http://G.pm>:
> <code>
> package G;
>
> sub run {
>     my $instance = "live";
>     $instance = "test" if ($main::TEST);
>     print "$instance\n";
> }
> 1;
> </code>
>
> Então, o *our* é necessário para que a variável possa ser vista fora 
> do escopo do pacote main.
>
> Espero que ajude.
>
> On 6/16/06, * Daniel R. Antunes* <danielrantunes em yahoo.com.br 
> <mailto:danielrantunes em yahoo.com.br>> wrote:
>
>         Olá amigos da lista...
>         Eu postei esta mensagem no "perl-br" mas infelizmente ninguém
>     respondeu, desculpem se minha pergunta for obvia por demais, mas é
>     uma dificuldade que estou tendo e não conseguindo resolver. Eu
>     venho da linguagem C/C++ e ainda apanho com alguns aspectos do
>     Perl, principalmente as questões relacionadas a namespaces,
>     variáveis de pacote, escopos léxicos, enfim... Acho que tenho me
>     saido bem na migração, mas... Obs: Eu encomendei o livro "Perl for
>     C programmers" para ver se paro de encher a paciência dos amigos
>     com estas perguntas. :)
>         Bom, vamos ao problema que estou tendo :
>
>     package modules::G;
>     require Exporter;
>     use strict;
>     use LWP::UserAgent;
>     use funcs;
>     # Export some symbols
>     our @ISA                =    qw(Exporter);
>     our @EXPORT            =    qw(    &construct_G_XML_doc
>                                                 submit_G
>                                                 &g_start
>                                                 &g_char
>                                                 &g_end);
>     our @EXPORT_OK    =    qw();
>     our $VERSION        =    0.01;
>     # Global variables
>     my $false=0;
>     my $true=1;
>     my $gsubmission_url;
>     my $gretrieval_url;
>     my $glogin;
>     my $gpass;
>     # Used by parsers
>     my %audit_info;
>     my %summary_info;
>     my %product;
>     my $spCode;
>
>         Isto faz parte do módulo G de meu sistema (um daemon) e está
>     funcionando
>     perfeitamente.
>         Mas... Eu tenho uma variável chamada TEST que é setada na
>     inicialização do serviço usando "-t", o getopt pega esta informação e
>     torna o TEST true ou false, isto está no main; eu gostaria de
>     testá-la
>     no ponto inicial deste módulo assim :
>
>     if ($main::TEST){
>        $gsubmission_url='http://url/de/testes';
>        $gretrieval_url=' http://url/de/testes/RetrieveListenerServlet';
>        $glogin='LOGIN';
>        $gpass='PASS';
>     }
>     else{
>        $gsubmission_url='http://url/live';
>        $gretrieval_url=' http://url/live/RetrieveListenerServlet';
>        $glogin='LOGIN_OFICIAL';
>        $gpass='SENHA_OFICIAL';
>     }
>
>         Mas eu não estou conseguindo, ele sempre entra no else por que
>     o main::TEST
>     não existe neste ponto (inicio do módulo), eu utilizo o "strict" e
>     o "-w" na inicialização do serviço, no entanto nenhum erro é
>     reportado. Se eu coloco em qualquer das subs do módulo funciona, e é
>     como está por hora.  :(
>         Alguém poderia me ajudar ?
>         Desde já muito obrigado.
>
>
>
>
>
>
>
>     _______________________________________________________
>     Yahoo! doce lar. Faça do Yahoo! sua homepage.
>     http://br.yahoo.com/homepageset.html
>
>     _______________________________________________
>     Cascavel-pm mailing list
>     Cascavel-pm em pm.org <mailto:Cascavel-pm em pm.org>
>     http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
>
>
> -- 
> Igor Sutton Lopes
> http://www.izut.com/
>
>------------------------------------------------------------------------
>
>_______________________________________________
>Cascavel-pm mailing list
>Cascavel-pm em pm.org
>http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
|---------------------------------------------.---.-\
| Daniel R. Antunes (Profiss. de informática) )\-/( |
| ...... www.daniel-antunes.com.br (Web Site) (OvO) |
| ... danielrantunes em sorria.com.br (M$Nmsger) (( )) |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"~"~~|
| ICQº 107888741 ~ GNU/Linuxº 238553 ~ GotNiX 'ÜÜÜ' |
\---------------------------------------------------|


		
_______________________________________________________ 
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale 
o discador agora! 
http://br.acesso.yahoo.com

From igor.sutton em gmail.com  Fri Jun 16 16:18:41 2006
From: igor.sutton em gmail.com (Igor Sutton)
Date: Fri, 16 Jun 2006 20:18:41 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Teste_de_vari=E1vel_na_inicializa=E7?=
	=?iso-8859-1?q?=E3o_de_um_m=F3dulo=2E?=
In-Reply-To: <44931532.1020304@yahoo.com.br>
References: <4492FE04.8050404@yahoo.com.br>
	<6c65a53f0606161206g1c2a4098o1cf3a90f35d69a7e@mail.gmail.com>
	<44931532.1020304@yahoo.com.br>
Message-ID: <6c65a53f0606161618h4910d2a8i453ac2785eaf929d@mail.gmail.com>

E se você utilizar uma variável de ambiente?

$ TEST=1 perl -e 'print (($ENV{TEST})?"TESTE!":"PRODUÇÃO"); print "\n"'

Você pode encapsular este teste dentro da função que gera os dados deste
conector, por exemplo. Mas seguindo a sua linha de raciocínio:

<code>
    if ($ENV{TEST}){
       $gsubmission_url='http://url/de/testes';
       $gretrieval_url=' http://url/de/testes/RetrieveListenerServlet';
       $glogin='LOGIN';
       $gpass='PASS';
    }
    else{
       $gsubmission_url='http://url/live';
       $gretrieval_url=' http://url/live/RetrieveListenerServlet';
       $glogin='LOGIN_OFICIAL';
       $gpass='SENHA_OFICIAL';
    }
</code>

On 6/16/06, Daniel R. Antunes <danielrantunes em yahoo.com.br> wrote:
>
>     Oi Igor, muito grato pela ajuda.
>     Na verdade o módulo G é um "adendo" de um objeto chamado Inq; este
> objeto se comporta diferente de acordo com a informação fornecida em um
> XML e neste caso eu não posso setar na inicialização do objeto pois este
> já existe qdo o módulo G é invocado. Assim como o módulo G eu tenho o T,
> TP, GT e J que se conectam a lugares diferentes com senhas diferentes e
> enviando solicitações em formatos diferentes. O "-t" é uma forma de
> debug na conexão com estes servidores. É realmente complicado. :)
>     Conforme sugestão do caro amigo Flávio eu tentei o INIT e o BEGIN da
> seguinte forma :
>
> package modules::G;
> require Exporter;
> use strict;
> use LWP::UserAgent;
> use funcs;
> # Export some symbols
> our @ISA                =    qw(Exporter);
> our @EXPORT            =    qw(    &construct_G_XML_doc
>                                             submit_G
>                                             &g_start
>                                             &g_char
>                                             &g_end);
> our @EXPORT_OK    =    qw();
> our $VERSION        =    0.01;
> # Global variables
> my $false=0;
> my $true=1;
> my $gsubmission_url;
> my $gretrieval_url;
> my $glogin;
> my $gpass;
> INIT{
>     if ($main::TEST){
>        $gsubmission_url='http://url/de/testes';
>        $gretrieval_url=' http://url/de/testes/RetrieveListenerServlet';
>        $glogin='LOGIN';
>        $gpass='PASS';
>     }
>     else{
>        $gsubmission_url='http://url/live';
>        $gretrieval_url=' http://url/live/RetrieveListenerServlet';
>        $glogin='LOGIN_OFICIAL';
>        $gpass='SENHA_OFICIAL';
>     }
> }
> # Used by parsers
> my %audit_info;
> my %summary_info;
> my %product;
> my $spCode;
>
>     Ambos não funcionaram tbem.
>     Um exemplo de sub dentro do módulo G seria este :
>
> sub construct_T_XML_doc{
>     my $obj=shift;
>     if ($obj->{searchingByID}){
>         $obj->{xml}.="<?xml version=\"1.0\" encoding=\"utf-8\"?>\n";
>         $obj->{xml}.="<SByID xmlns=\"http://g.com/webservices/\">\n";
>         $obj->{xml}.="\t<clIdInfo>";
>         $obj->{xml}.=$obj->parse_block("\t\t\t\t<IdInfo id=\"{svccode}\"
> />",'services');
>         $obj->{xml}.="\t</clIdInfo>";
>         $obj->{xml}.="</SByID>\n";
>         $obj->{soapaction}="SByID"
>     }
>     ... <-Aqui ele se conecta usando as variáveis gsubmission_url, etc...
> }
>
>     Se eu coloco o if dentro desta sub (por exemplo) o danado funciona.
>     Neste caso Flávio creio que seja necessário testar a variável "TEST"
> em tempo de execução.
>     Obrigado amigos.
>
>
> Igor Sutton wrote:
>
> > Daniel,
> >
> > Segue um exemplo:
> >
> > t.pl:
> > <code>
> > use strict;
> > use warnings;
> >
> > use G;
> >
> > # é necessário para que o módulo G possa enxergar a variável.
> > our $TEST = 1;
> >
> > G->run();
> > </code>
> >
> > G.pm <http://G.pm>:
> > <code>
> > package G;
> >
> > sub run {
> >     my $instance = "live";
> >     $instance = "test" if ($main::TEST);
> >     print "$instance\n";
> > }
> > 1;
> > </code>
> >
> > Então, o *our* é necessário para que a variável possa ser vista fora
> > do escopo do pacote main.
> >
> > Espero que ajude.
> >
> > On 6/16/06, * Daniel R. Antunes* <danielrantunes em yahoo.com.br
> > <mailto:danielrantunes em yahoo.com.br>> wrote:
> >
> >         Olá amigos da lista...
> >         Eu postei esta mensagem no "perl-br" mas infelizmente ninguém
> >     respondeu, desculpem se minha pergunta for obvia por demais, mas é
> >     uma dificuldade que estou tendo e não conseguindo resolver. Eu
> >     venho da linguagem C/C++ e ainda apanho com alguns aspectos do
> >     Perl, principalmente as questões relacionadas a namespaces,
> >     variáveis de pacote, escopos léxicos, enfim... Acho que tenho me
> >     saido bem na migração, mas... Obs: Eu encomendei o livro "Perl for
> >     C programmers" para ver se paro de encher a paciência dos amigos
> >     com estas perguntas. :)
> >         Bom, vamos ao problema que estou tendo :
> >
> >     package modules::G;
> >     require Exporter;
> >     use strict;
> >     use LWP::UserAgent;
> >     use funcs;
> >     # Export some symbols
> >     our @ISA                =    qw(Exporter);
> >     our @EXPORT            =    qw(    &construct_G_XML_doc
> >                                                 submit_G
> >                                                 &g_start
> >                                                 &g_char
> >                                                 &g_end);
> >     our @EXPORT_OK    =    qw();
> >     our $VERSION        =    0.01;
> >     # Global variables
> >     my $false=0;
> >     my $true=1;
> >     my $gsubmission_url;
> >     my $gretrieval_url;
> >     my $glogin;
> >     my $gpass;
> >     # Used by parsers
> >     my %audit_info;
> >     my %summary_info;
> >     my %product;
> >     my $spCode;
> >
> >         Isto faz parte do módulo G de meu sistema (um daemon) e está
> >     funcionando
> >     perfeitamente.
> >         Mas... Eu tenho uma variável chamada TEST que é setada na
> >     inicialização do serviço usando "-t", o getopt pega esta informação
> e
> >     torna o TEST true ou false, isto está no main; eu gostaria de
> >     testá-la
> >     no ponto inicial deste módulo assim :
> >
> >     if ($main::TEST){
> >        $gsubmission_url='http://url/de/testes';
> >        $gretrieval_url=' http://url/de/testes/RetrieveListenerServlet';
> >        $glogin='LOGIN';
> >        $gpass='PASS';
> >     }
> >     else{
> >        $gsubmission_url='http://url/live';
> >        $gretrieval_url=' http://url/live/RetrieveListenerServlet';
> >        $glogin='LOGIN_OFICIAL';
> >        $gpass='SENHA_OFICIAL';
> >     }
> >
> >         Mas eu não estou conseguindo, ele sempre entra no else por que
> >     o main::TEST
> >     não existe neste ponto (inicio do módulo), eu utilizo o "strict" e
> >     o "-w" na inicialização do serviço, no entanto nenhum erro é
> >     reportado. Se eu coloco em qualquer das subs do módulo funciona, e é
> >     como está por hora.  :(
> >         Alguém poderia me ajudar ?
> >         Desde já muito obrigado.
> >
> >
> >
> >
> >
> >
> >
> >     _______________________________________________________
> >     Yahoo! doce lar. Faça do Yahoo! sua homepage.
> >     http://br.yahoo.com/homepageset.html
> >
> >     _______________________________________________
> >     Cascavel-pm mailing list
> >     Cascavel-pm em pm.org <mailto:Cascavel-pm em pm.org>
> >     http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> >
> >
> >
> > --
> > Igor Sutton Lopes
> > http://www.izut.com/
> >
> >------------------------------------------------------------------------
> >
> >_______________________________________________
> >Cascavel-pm mailing list
> >Cascavel-pm em pm.org
> >http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
> --
> |---------------------------------------------.---.-\
> | Daniel R. Antunes (Profiss. de informática) )\-/( |
> | ...... www.daniel-antunes.com.br (Web Site) (OvO) |
> | ... danielrantunes em sorria.com.br (M$Nmsger) (( )) |
> |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"~"~~|
> | ICQº 107888741 ~ GNU/Linuxº 238553 ~ GotNiX 'ÜÜÜ' |
> \---------------------------------------------------|
>
>
>
> _______________________________________________________
> 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 em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
Igor Sutton Lopes
http://www.izut.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060616/e7f23699/attachment-0001.html 

From mdacwb em gmail.com  Fri Jun 16 18:42:52 2006
From: mdacwb em gmail.com (Marco A P D'Andrade)
Date: Fri, 16 Jun 2006 22:42:52 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Teste_de_vari=E1vel_na_inicializa=E7?=
	=?iso-8859-1?q?=E3o_de_um_m=F3dulo=2E?=
In-Reply-To: <6c65a53f0606161618h4910d2a8i453ac2785eaf929d@mail.gmail.com>
References: <4492FE04.8050404@yahoo.com.br>
	<6c65a53f0606161206g1c2a4098o1cf3a90f35d69a7e@mail.gmail.com>
	<44931532.1020304@yahoo.com.br>
	<6c65a53f0606161618h4910d2a8i453ac2785eaf929d@mail.gmail.com>
Message-ID: <42dcdd750606161842s4f512bd4m7f02e729746254eb@mail.gmail.com>

Ou...

Que tal vc acionar uma configuração apropriada quanto for opção "-t" ??

#main.pl
...
if ($TEST){
  G::AssignTest();
} else{
  G::Assign();
}
...


package modules::G;

sub AssignTest {
  $gsubmission_url='http://url/de/testes';
  $gretrieval_url='http://url/de/testes/RetrieveListenerServlet';
  $glogin='LOGIN';
  $gpass='PASS';
}

sub Assign {
  $gsubmission_url='http://url/live';
  $gretrieval_url='http://url/live/RetrieveListenerServlet';
  $glogin='LOGIN_OFICIAL';
  $gpass='SENHA_OFICIAL';
}
#---

Não tenho conhecimento conceitual suficiente para afirmar com certeza,
mas acho que caberia ao modulo principal definir o comportamento do
modulo (ou classe) inicializada...

Com um comportamento variavel de acordo com uma variavel global vc
eleva o acoplamento por variaveis globais ...

Claro... outra opção, que eu possivelmente utilizaria é chamar um
modulo de inicialização, passando os parametros (não default), do
tipo:


  if ( $test ) {
     G::Init( submit =>  'http://url/de/testes', ... );
  }

package modules::G;

our ( $gsubmission_url, $gretrieval_url, $glogin, $gpass );


sub Init {
 my %args = @_;
  $gsubmission_url='http://url/live';
  $gretrieval_url='http://url/live/RetrieveListenerServlet';
  $glogin='LOGIN_OFICIAL';
  $gpass='SENHA_OFICIAL';
  if ( exists($args{submit}) ) {
     $gsubmission_url=$args{submit};
  }

  ...

}

2006/6/16, Igor Sutton <igor.sutton em gmail.com>:
> E se você utilizar uma variável de ambiente?
>
>  $ TEST=1 perl -e 'print
> (($ENV{TEST})?"TESTE!":"PRODUÇÃO"); print "\n"'
>
>  Você pode encapsular este teste dentro da função que gera os dados deste
> conector, por exemplo. Mas seguindo a sua linha de raciocínio:
>
--- cut ---

From joenio em gmail.com  Mon Jun 19 05:23:20 2006
From: joenio em gmail.com (Joenio Marques)
Date: Mon, 19 Jun 2006 09:23:20 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?=5BNot=EDcias_do_Mundo_GNU/Linux=5D_?=
	=?iso-8859-1?q?High_Level_Virtual_Machine_v0=2E1?=
Message-ID: <65934b450606190523q621422bdh691a3276c5b55888@mail.gmail.com>

Isto tem alguma coisa a ver com o Parrot?

------ ------ ------ ------ ------

Notícias do dia: 18 de Jun de 2006

» High Level Virtual Machine v0.1

A Máquina Virtual de Alto Nível (High Level Virtual Machine) pretende
construir uma infraestrutura comum para o desenvolvimento de
linguagens dinâmicas (Ruby, Python, Haskell, etc.) direcionada à
Máquina Virtual de Baixo Nível (Low Level Virtual Machine). Provê uma
plataforma runtime de máquina virtual, sobre a LLVM, que é capaz de
interpretar, compilar 'just-in-time' ou estaticamente qualquer
linguagem suportada. Uma vez que todas as linguagens usam a mesma
máquina virtual por baixo, é fácil conseguir interoperabilidade de
código e dados entre diferentes linguagens. A versão 0.1 foi lançada
recentemente.

Confira na página do projeto: http://hlvm.org/

Fonte: http://www.osnews.com/story.php?news_id=14920


-- 
Joenio Marques
- Salvador Perl Mongers

From fglock em gmail.com  Mon Jun 19 06:59:03 2006
From: fglock em gmail.com (Flavio S. Glock)
Date: Mon, 19 Jun 2006 10:59:03 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?=5BNot=EDcias_do_Mundo_GNU/Linux=5D_?=
	=?iso-8859-1?q?High_Level_Virtual_Machine_v0=2E1?=
In-Reply-To: <65934b450606190523q621422bdh691a3276c5b55888@mail.gmail.com>
References: <65934b450606190523q621422bdh691a3276c5b55888@mail.gmail.com>
Message-ID: <aa47605d0606190659h7c37edf3x56966a202a29e973@mail.gmail.com>

2006/6/19, Joenio Marques <joenio em gmail.com>:
> Isto tem alguma coisa a ver com o Parrot?
>
> » High Level Virtual Machine v0.1

Joênio:

A HLVM é um projeto bem novo, com uma idéia parecida com a do Parrot.

Infelizmente eles ainda estão quase no zero, senão poderia ser
interessante para fazer experiências com o Perl 5/6.

- Flavio S. Glock

From monsieur_champs em yahoo.com.br  Mon Jun 19 07:41:58 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Mon, 19 Jun 2006 15:41:58 +0100
Subject: [Cascavel-pm]
 =?iso-8859-1?q?=5BNot=EDcias_do_Mundo_GNU/Linux=5D_?=
 =?iso-8859-1?q?High_Level_Virtual_Machine_v0=2E1?=
In-Reply-To: <aa47605d0606190659h7c37edf3x56966a202a29e973@mail.gmail.com>
References: <65934b450606190523q621422bdh691a3276c5b55888@mail.gmail.com>
	<aa47605d0606190659h7c37edf3x56966a202a29e973@mail.gmail.com>
Message-ID: <4496B7B6.4080501@yahoo.com.br>

Flavio S. Glock wrote:
> 2006/6/19, Joenio Marques <joenio em gmail.com>:
>> Isto tem alguma coisa a ver com o Parrot?
>>
>> » High Level Virtual Machine v0.1
> 
> Joênio:
> 
> A HLVM é um projeto bem novo, com uma idéia parecida com a do Parrot.
> 
> Infelizmente eles ainda estão quase no zero, senão poderia ser
> interessante para fazer experiências com o Perl 5/6.

  Mas, se todas as linguagens começarem a convergir, mesmo que seja
apenas em baixo nível, elas não vão acabar "condensando" em uma
linguagem única?

  Eu acho ter uma única linguagem mau, por duas coisas:

  1. Vamos acabar com a diversidade: todo mundo vai fazer as mesmas
coisas, eventualmente da mesma forma, já que a máquina virtual por baixo
implementa as mesmas funcionalidades
  2. Vamos ficar "engessados": quando precisarmos mudar a máquina
virtual para implementar coisas diferentes vamos ter de fazer isso em
muitas linguagens, o que pode não ser exatamente prático.

  Apenas meditando...
  Putamplexos!

-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From fglock em gmail.com  Mon Jun 19 08:22:58 2006
From: fglock em gmail.com (Flavio S. Glock)
Date: Mon, 19 Jun 2006 12:22:58 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?=5BNot=EDcias_do_Mundo_GNU/Linux=5D_?=
	=?iso-8859-1?q?High_Level_Virtual_Machine_v0=2E1?=
In-Reply-To: <4496B7B6.4080501@yahoo.com.br>
References: <65934b450606190523q621422bdh691a3276c5b55888@mail.gmail.com>
	<aa47605d0606190659h7c37edf3x56966a202a29e973@mail.gmail.com>
	<4496B7B6.4080501@yahoo.com.br>
Message-ID: <aa47605d0606190822h3679b620v2134d9d7e6335803@mail.gmail.com>

Em 19/06/06, Luis Motta Campos<monsieur_champs em yahoo.com.br> escreveu:
>   Mas, se todas as linguagens começarem a convergir, mesmo que seja
> apenas em baixo nível, elas não vão acabar "condensando" em uma
> linguagem única?

Essa "condensação" já aconteceu com a máquina x86 à vários anos -
temos os exemplos dos Transmeta, Alpha e tantos outros que tratam x86
como um layer de software.

>   1. Vamos acabar com a diversidade: todo mundo vai fazer as mesmas
> coisas, eventualmente da mesma forma, já que a máquina virtual por baixo
> implementa as mesmas funcionalidades

As novas funcionalidades continuam aparecendo, mesmo não sendo
suportadas pelas máquinas virtuais. Veja a quantidade de coisas que
são emuladas em .NET, JavaVM ou Perl5.

A principal diferença do Parrot é que ele permite implementar novas
funcionalidades nativamente (em C, C++, etc) - quando vale a pena.

>   2. Vamos ficar "engessados": quando precisarmos mudar a máquina
> virtual para implementar coisas diferentes vamos ter de fazer isso em
> muitas linguagens, o que pode não ser exatamente prático.

As funcionalidades "padrão" tem uma API bem definida em todas as
máquinas virtuais (alocação de memória, operações aritméticas). As
funcionalidades "novas" é que poderão dar trabalho, mas isso me parece
inevitável - faz parte da evolução.

- Flavio S. Glock

From danielrantunes em yahoo.com.br  Tue Jun 20 03:10:54 2006
From: danielrantunes em yahoo.com.br (Daniel R. Antunes)
Date: Tue, 20 Jun 2006 07:10:54 -0300
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Teste_de_vari=E1vel_na_inicializa=E7?=
 =?iso-8859-1?q?=E3o_de_um_m=F3dulo=2E?=
In-Reply-To: <42dcdd750606161842s4f512bd4m7f02e729746254eb@mail.gmail.com>
References: <4492FE04.8050404@yahoo.com.br>	<6c65a53f0606161206g1c2a4098o1cf3a90f35d69a7e@mail.gmail.com>	<44931532.1020304@yahoo.com.br>	<6c65a53f0606161618h4910d2a8i453ac2785eaf929d@mail.gmail.com>
	<42dcdd750606161842s4f512bd4m7f02e729746254eb@mail.gmail.com>
Message-ID: <4497C9AE.6060000@yahoo.com.br>

    Olá amigos, muito obrigado pelas postagens de ajuda...
    Eu testei com uma variável de ambiente usando $ENV, como sugerido 
pelo amigo Igor, mas não rolou tbem... Da forma sugerida pelo amigo 
Marco funcionou, porém, setada no objeto "Inq" que é o objeto principal; 
ficou muito bom, pq centralizei todas as informações dos servidores na 
inicialização deste objeto.
    Abraço...


Marco A P D'Andrade wrote:

>Ou...
>
>Que tal vc acionar uma configuração apropriada quanto for opção "-t" ??
>
>#main.pl
>...
>if ($TEST){
>  G::AssignTest();
>} else{
>  G::Assign();
>}
>...
>
>
>package modules::G;
>
>sub AssignTest {
>  $gsubmission_url='http://url/de/testes';
>  $gretrieval_url='http://url/de/testes/RetrieveListenerServlet';
>  $glogin='LOGIN';
>  $gpass='PASS';
>}
>
>sub Assign {
>  $gsubmission_url='http://url/live';
>  $gretrieval_url='http://url/live/RetrieveListenerServlet';
>  $glogin='LOGIN_OFICIAL';
>  $gpass='SENHA_OFICIAL';
>}
>#---
>
>Não tenho conhecimento conceitual suficiente para afirmar com certeza,
>mas acho que caberia ao modulo principal definir o comportamento do
>modulo (ou classe) inicializada...
>
>Com um comportamento variavel de acordo com uma variavel global vc
>eleva o acoplamento por variaveis globais ...
>
>Claro... outra opção, que eu possivelmente utilizaria é chamar um
>modulo de inicialização, passando os parametros (não default), do
>tipo:
>
>
>  if ( $test ) {
>     G::Init( submit =>  'http://url/de/testes', ... );
>  }
>
>package modules::G;
>
>our ( $gsubmission_url, $gretrieval_url, $glogin, $gpass );
>
>
>sub Init {
> my %args = @_;
>  $gsubmission_url='http://url/live';
>  $gretrieval_url='http://url/live/RetrieveListenerServlet';
>  $glogin='LOGIN_OFICIAL';
>  $gpass='SENHA_OFICIAL';
>  if ( exists($args{submit}) ) {
>     $gsubmission_url=$args{submit};
>  }
>
>  ...
>
>}
>
>2006/6/16, Igor Sutton <igor.sutton em gmail.com>:
>  
>
>>E se você utilizar uma variável de ambiente?
>>
>> $ TEST=1 perl -e 'print
>>(($ENV{TEST})?"TESTE!":"PRODUÇÃO"); print "\n"'
>>
>> Você pode encapsular este teste dentro da função que gera os dados deste
>>conector, por exemplo. Mas seguindo a sua linha de raciocínio:
>>
>>    
>>
>--- cut ---
>_______________________________________________
>Cascavel-pm mailing list
>Cascavel-pm em pm.org
>http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>  
>


-- 
|---------------------------------------------.---.-\
| Daniel R. Antunes (Profiss. de informática) )\-/( |
| ...... www.daniel-antunes.com.br (Web Site) (OvO) |
| ... danielrantunes em sorria.com.br (M$Nmsger) (( )) |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"~"~~|
| ICQº 107888741 ~ GNU/Linuxº 238553 ~ GotNiX 'ÜÜÜ' |
\---------------------------------------------------|


	

	
		
_______________________________________________________ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 


From breno em clavis.com.br  Tue Jun 20 08:05:21 2006
From: breno em clavis.com.br (Breno G. de Oliveira)
Date: Tue, 20 Jun 2006 12:05:21 -0300
Subject: [Cascavel-pm] problema em match de arquivos
In-Reply-To: <aa47605d0606141227q10709debs24800faf71d94340@mail.gmail.com>
References: <30588.200.179.201.28.1150170778.squirrel@200.155.11.82>	<448EDECD.3050205@cascavel.pm.org>
	<44903574.5060808@yahoo.com.br>	<54020.146.164.251.93.1150312268.squirrel@200.155.11.82>
	<aa47605d0606141227q10709debs24800faf71d94340@mail.gmail.com>
Message-ID: <44980EB1.30506@clavis.com.br>

Oi Flávio,

nem me lembrei do \Q \E, funcionou exatamente como eu gostaria.

Obrigado!

breno

Flavio S. Glock wrote:
> Em 14/06/06, breno em clavis.com.br<breno em clavis.com.br> escreveu:
> 
>>pode elaborar mais a idéia de como evitar que o Perl interprete a '\' dentro do conteúdo
>>da variável?
> 
> 
> Pode ser usado o switch \Q - compare:
> 
>   perl -e ' $r = qr(\Q \/\/ ); print $r '
>   perl -e ' $r = qr( \/\/ ); print $r '
> 
> - Flavio S. Glock
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 

From mopsfelder em gmail.com  Tue Jun 20 18:35:22 2006
From: mopsfelder em gmail.com (=?ISO-8859-1?Q?Murilo_Opsfelder_Ara=FAjo?=)
Date: Tue, 20 Jun 2006 22:35:22 -0300
Subject: [Cascavel-pm] Manipulando arquivos com o Perl
Message-ID: <e17dc37a0606201835m47bc55baocc37f460b766ae5c@mail.gmail.com>

Olá pessoal da lista,


ouvi rumores que a linguagem Perl é ótima para editar arquivos texto.
Com tratamento de expressões regulares e tudo mais. Já vou logo
dizendo que sou um leigo em Perl, mas conheço (=tenho noção) outras
linguagens.

Quem conhece o arquivo de configuração do Sendmail, o sendmail.cf,
sabe como é chato para editar suas regras com caracteres especiais e
tudo mais.

Gostaria que me indicassem o caminho das pedras para manipulação de
arquivos textos, expressões regulares, etc.

Na lista há arquivos postados para download? Se não, onde posso pegar alguns?

Muito obrigado e abraços á todos!


-- 
Murilo Opsfelder Araújo
Linux User #391561
./murilo --opsfelder='araujo'

From breno em clavis.com.br  Tue Jun 20 21:07:24 2006
From: breno em clavis.com.br (Breno G. de Oliveira)
Date: Wed, 21 Jun 2006 01:07:24 -0300
Subject: [Cascavel-pm] Manipulando arquivos com o Perl
In-Reply-To: <e17dc37a0606201835m47bc55baocc37f460b766ae5c@mail.gmail.com>
References: <e17dc37a0606201835m47bc55baocc37f460b766ae5c@mail.gmail.com>
Message-ID: <4498C5FC.3050107@clavis.com.br>

Olá Murilo,

realmente o Perl é padrão de excelência na manipulação de Informação,
seja em arquivos de texto, bases de dados, web, etc.

Caso você tenha algum conhecimento de sed, awk, ou C, vai se sentir em
casa ao aprender Perl. Mesmo quem não tem conhecimento prévio de
programação pode aprender Perl fácil e rapidamente, desde que tenha a
orientação adequada.

Eu recomendaria a documentação em português traduzida pelos voluntários
da lista para a Sociedade Perl do Brasil, mas infelizmente tivemos
problemas com a hospedagem e o conteúdo do site foi perdido...

No entanto, caso você tenha facilidade com a língua inglesa, pode
encontrar material didático de alta qualidade em:

http://learn.perl.org

Recomendo atenção especial para o PerlIntro:

http://perldoc.perl.org/perlintro.html

e para os livros gratuitos disponíveis em:

http://www.perl.org/books/library.html

Boas referências tb são os livros da O'Reilly como o Beginning Perl,
Perl Cookbook e Learning Perl, alguns com versão em português,
encontrados nas melhores livrarias ;)

Além da cascavel, que é não oficialmente a lista oficial da comunidade
Perl do Brasil (e da cidade de Cascavel-PR), vale à pena procurar o
grupo de usuários de sua região, para conhecer pessoas próximas, bater
um papo, tomar um chopp/refrigerante e participar de eventos e encontros
técnicos locais.


Qualquer dúvida, não hesite em perguntar.

Bem vindo à comunidade Perl!

[]s

breno


Murilo Opsfelder Araújo wrote:
> Olá pessoal da lista,
> 
> 
> ouvi rumores que a linguagem Perl é ótima para editar arquivos texto.
> Com tratamento de expressões regulares e tudo mais. Já vou logo
> dizendo que sou um leigo em Perl, mas conheço (=tenho noção) outras
> linguagens.
> 
> Quem conhece o arquivo de configuração do Sendmail, o sendmail.cf,
> sabe como é chato para editar suas regras com caracteres especiais e
> tudo mais.
> 
> Gostaria que me indicassem o caminho das pedras para manipulação de
> arquivos textos, expressões regulares, etc.
> 
> Na lista há arquivos postados para download? Se não, onde posso pegar alguns?
> 
> Muito obrigado e abraços á todos!
> 
> 

From monsieur_champs em yahoo.com.br  Wed Jun 21 05:05:15 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Wed, 21 Jun 2006 13:05:15 +0100
Subject: [Cascavel-pm] Manipulando arquivos com o Perl
In-Reply-To: <e17dc37a0606201835m47bc55baocc37f460b766ae5c@mail.gmail.com>
References: <e17dc37a0606201835m47bc55baocc37f460b766ae5c@mail.gmail.com>
Message-ID: <449935FB.4060000@yahoo.com.br>

Murilo Opsfelder Araújo wrote:
> Olá pessoal da lista,
> 
> 
> ouvi rumores que a linguagem Perl é ótima para editar arquivos texto.
> Com tratamento de expressões regulares e tudo mais. Já vou logo
> dizendo que sou um leigo em Perl, mas conheço (=tenho noção) outras
> linguagens.
> 
> Quem conhece o arquivo de configuração do Sendmail, o sendmail.cf,
> sabe como é chato para editar suas regras com caracteres especiais e
> tudo mais.
> 
> Gostaria que me indicassem o caminho das pedras para manipulação de
> arquivos textos, expressões regulares, etc.

  Pode começar com a man page, no linux: "perldoc perlre".
  Também existe um livro da O'Reilly que trata do assunto. É o
"Mastering Regular Expressions", que trata de muitos sabores diferentes
de expressões regulares a fundo, inclusive o do Perl.

> Na lista há arquivos postados para download? Se não, onde posso pegar alguns?

  Eu não entendi o que você procura. A lista tem arquivo de mensagens
online, se é o que você quer. Caso não seja isso, acho que precisa
explicar melhor...

  BTW, os archives da lista estão em http://cascavel.pm.org/

> Muito obrigado e abraços á todos!

  Seja muito bem vindo e espero que continue conosco por bastante tempo!
  Putamplexos!
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From ptfzs em yahoo.com.br  Wed Jun 21 05:54:57 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 21 Jun 2006 09:54:57 -0300 (ART)
Subject: [Cascavel-pm] Erro ao instalar DB_File
In-Reply-To: <449935FB.4060000@yahoo.com.br>
Message-ID: <20060621125457.16115.qmail@web31301.mail.mud.yahoo.com>

Ola Pessoal..
 Estou tentando instalar o DB_File via CPAN em uma maquina de 64bits SUSE,
 esta me retornando o seguinte erro:
 
 version.c:30:16: error: db.h: Arquivo ou diretório não encontrado
 make: ** [version.o] Erro 1
   /usr/bin/make  -- NOT OK
 Running make test
   Can't test without successful make
 Running make install
   make had returned bad status, install seems impossible
 
 Alguem sabe o que eh?? 
 Ja tentei pegar pela pagina do cpan.org.. mas o erro continua :(
 
 Obrigada

 		
---------------------------------
 Yahoo! Search
 Música para ver e ouvir: You're Beautiful, do James Blunt
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060621/3e76132b/attachment.html 

From igor.sutton em gmail.com  Wed Jun 21 06:10:29 2006
From: igor.sutton em gmail.com (Igor Sutton Lopes)
Date: Wed, 21 Jun 2006 10:10:29 -0300
Subject: [Cascavel-pm] Erro ao instalar DB_File
In-Reply-To: <20060621125457.16115.qmail@web31301.mail.mud.yahoo.com> (Patty
	Silva's message of "Wed, 21 Jun 2006 09:54:57 -0300 (ART)")
References: <20060621125457.16115.qmail@web31301.mail.mud.yahoo.com>
Message-ID: <87wtbawt6i.fsf@gmail.com>

Patty Silva <ptfzs em yahoo.com.br> writes:

Oi Patty,

> Ola Pessoal..
> Estou tentando instalar o DB_File via CPAN em uma maquina de 64bits SUSE,
> esta me retornando o seguinte erro:
>

Este erro eh tipico quando voce nao tem o pacote de desenvolvimento de
alguma dependencia. Procure saber qual eh a dependencia (aposto minhas
fichas que eh a Berkeley DB) e instale o pacote de desenvolvimento
dela. No Debian eh libdb3-dev, no SuSE deve ser parecido.

> Version .c:30:16: error: db.h: Arquivo ou diretório não encontrado
> make: ** [version.o] Erro 1
>   /usr/bin/make  -- NOT OK
> Running make test
>   Can't test without successful make
> Running make install
>   make had returned bad status, install seems impossible
>
> Alguem sabe o que eh??
> Ja tentei pegar pela pagina do cpan.org.. mas o erro continua :(
>
> Obrigada
>
>
> -------------------------------------------------------------------------------
> Yahoo! Search
> Música para ver e ouvir: You're Beautiful, do James Blunt
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

From ptfzs em yahoo.com.br  Wed Jun 21 06:59:52 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 21 Jun 2006 10:59:52 -0300 (ART)
Subject: [Cascavel-pm] Erro ao instalar DB_File
In-Reply-To: <87wtbawt6i.fsf@gmail.com>
Message-ID: <20060621135952.99239.qmail@web31313.mail.mud.yahoo.com>

Obrigada Igor..
 Era exatamente isso que estava faltando:
 
 para o SUSE instalei :
 db - Berkeley DB Database Library
 perl-BerkeleyDB - Perl Module for Accessing Berkeley DB Functions
 
 Funcionou perfeito
 []sss
 
 

Igor Sutton Lopes <igor.sutton em gmail.com> escreveu: Patty Silva 
 writes:

Oi Patty,

> Ola Pessoal..
> Estou tentando instalar o DB_File via CPAN em uma maquina de 64bits SUSE,
> esta me retornando o seguinte erro:
>

Este erro eh tipico quando voce nao tem o pacote de desenvolvimento de
alguma dependencia. Procure saber qual eh a dependencia (aposto minhas
fichas que eh a Berkeley DB) e instale o pacote de desenvolvimento
dela. No Debian eh libdb3-dev, no SuSE deve ser parecido.

> Version .c:30:16: error: db.h: Arquivo ou diretório não encontrado
> make: ** [version.o] Erro 1
>   /usr/bin/make  -- NOT OK
> Running make test
>   Can't test without successful make
> Running make install
>   make had returned bad status, install seems impossible
>
> Alguem sabe o que eh??
> Ja tentei pegar pela pagina do cpan.org.. mas o erro continua :(
>
> Obrigada
>
>
> -------------------------------------------------------------------------------
> Yahoo! Search
> Música para ver e ouvir: You're Beautiful, do James Blunt
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm



 		
---------------------------------
 Yahoo! Search
 Música para ver e ouvir: You're Beautiful, do James Blunt
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060621/91056c01/attachment.html 

From glasswalk3r em yahoo.com.br  Wed Jun 21 07:00:55 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Wed, 21 Jun 2006 11:00:55 -0300 (ART)
Subject: [Cascavel-pm]
 =?iso-8859-1?q?sugest=E3o_de_lista_de_discuss=E3o_n?=
 =?iso-8859-1?q?acional_=28era=3A_Manipulando_arquivos_com_o_Perl=29?=
In-Reply-To: <4498C5FC.3050107@clavis.com.br>
Message-ID: <20060621140055.66865.qmail@web30807.mail.mud.yahoo.com>


--- "Breno G. de Oliveira" <breno em clavis.com.br>
escreveu:

> Além da cascavel, que é não oficialmente a lista
> oficial da comunidade
> Perl do Brasil (e da cidade de Cascavel-PR), vale à
> pena procurar o
> grupo de usuários de sua região, para conhecer
> pessoas próximas, bater
> um papo, tomar um chopp/refrigerante e participar de
> eventos e encontros
> técnicos locais.

Breno, vou aproveitar seu gancho aqui para outro
assunto. O fato de usarmos a lista de Cascavel como
lista para dúvidas de programação. Não que isso seja
um problema, mas eu tenho observado a ocorrência de
postagens duplicadas em listas diferentes (estou
inscrito no SP.PM também) para tirar dúvidas.
Considerando que provavelmente temos monges em listas
regionais que não estão inscritos em mais de uma
lista, acho que estamos perdendo sinergia.

Ao meu ver, as listas regionais deveriam ser
utilizadas como forma de contato regional (eventos,
reuniões, etc): falta uma lista de discussão com
abrangência nacional para tirarmos dúvidas técnicas.

Bem, fica aí meus dois centavos.

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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


		
_______________________________________________________ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/ 
 


From ptfzs em yahoo.com.br  Wed Jun 21 07:06:58 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 21 Jun 2006 11:06:58 -0300 (ART)
Subject: [Cascavel-pm] Menu em Perl
In-Reply-To: <4498C5FC.3050107@clavis.com.br>
Message-ID: <20060621140658.44151.qmail@web31312.mail.mud.yahoo.com>

Pessoal.. Fiz um menu em perl(onsole linux) ex:
 
 ************************************
 *        Cadastrar Tabela        *
 *                                           *
 * 1- Criar database               * 
 * 2- Criar Tabelas                 *
 * 3- Deletar tabelas               *
 ....
 
 
 Tem alguma biblioteca para facilitar??
 
 
 Obrigada
 
 
 
 

 		
---------------------------------
 Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060621/d44505a9/attachment-0001.html 

From ivocarv em cais.rnp.br  Wed Jun 21 07:12:01 2006
From: ivocarv em cais.rnp.br (Ivo Peixinho)
Date: Wed, 21 Jun 2006 11:12:01 -0300 (BRT)
Subject: [Cascavel-pm] Menu em Perl
In-Reply-To: <20060621140658.44151.qmail@web31312.mail.mud.yahoo.com>
References: <20060621140658.44151.qmail@web31312.mail.mud.yahoo.com>
Message-ID: <Pine.LNX.4.64.0606211111170.27006@exocet.cais.rnp.br>


  Nunca usei, mas voce pode tentar o Curses::Simp. Sempre que eu vou fazer 
*qualquer* coisa em perl, eu dou um pulinho no search do CPAN para ver se 
ja nao tem uma lib que facilite minha vida.

       Ivo.

On Wed, 21 Jun 2006, Patty Silva wrote:

> Pessoal.. Fiz um menu em perl(onsole linux) ex:
>
> ************************************
> *        Cadastrar Tabela        *
> *                                           *
> * 1- Criar database               *
> * 2- Criar Tabelas                 *
> * 3- Deletar tabelas               *
> ....
>
>
> Tem alguma biblioteca para facilitar??
>
>
> Obrigada
>
>
>
>
>
>
> ---------------------------------
> Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.

From nferraz em gmail.com  Wed Jun 21 08:14:20 2006
From: nferraz em gmail.com (Nelson Ferraz)
Date: Wed, 21 Jun 2006 16:14:20 +0100
Subject: [Cascavel-pm] Menu em Perl
In-Reply-To: <20060621140658.44151.qmail@web31312.mail.mud.yahoo.com>
References: <20060621140658.44151.qmail@web31312.mail.mud.yahoo.com>
Message-ID: <4499624C.1040302@gmail.com>

Patty Silva wrote:
> Pessoal.. Fiz um menu em perl(onsole linux) ex:
> ....
> 
> Tem alguma biblioteca para facilitar??

Tente o Term::Menus ou o Curses::Widgets::Menu.

Mas, atenção, evite perder tempo na parte "visual" antes de ter o 
problema muito bem resolvido através de módulos e scripts independentes.

Se você não tiver cuidado poderá perder seu tempo no que é "supérfluo", 
ao invés de se concentrar no essencial. ;)

[]s

Nelson

-- 
Nelson Corrêa de Toledo Ferraz

Segula Technologies (www.segula.fr)
Free Software Foundation Associate Member #3203
Sociedade Perl do Brasil (www.perl.org.br)
Rede Livre de Compartilhamento de Cultura Digital

From igor.sutton em gmail.com  Wed Jun 21 08:59:33 2006
From: igor.sutton em gmail.com (Igor Sutton Lopes)
Date: Wed, 21 Jun 2006 12:59:33 -0300
Subject: [Cascavel-pm]
 =?iso-8859-1?q?sugest=E3o_de_lista_de_discuss=E3o_n?=
 =?iso-8859-1?q?acional_=28era=3A_Manipulando_arquivos_com_o_Perl=29?=
In-Reply-To: <20060621140055.66865.qmail@web30807.mail.mud.yahoo.com> (Alceu
	R. de Freitas, Jr.'s message of "Wed,
	21 Jun 2006 11:00:55 -0300 (ART)")
References: <20060621140055.66865.qmail@web30807.mail.mud.yahoo.com>
Message-ID: <87odwma49m.fsf@gmail.com>


Faco do Alceu minhas palavras.

"Alceu R. de Freitas Jr." <glasswalk3r em yahoo.com.br> writes:

> --- "Breno G. de Oliveira" <breno em clavis.com.br>
> escreveu:
>
>> Além da cascavel, que é não oficialmente a lista
>> oficial da comunidade
>> Perl do Brasil (e da cidade de Cascavel-PR), vale à
>> pena procurar o
>> grupo de usuários de sua região, para conhecer
>> pessoas próximas, bater
>> um papo, tomar um chopp/refrigerante e participar de
>> eventos e encontros
>> técnicos locais.
>
> Breno, vou aproveitar seu gancho aqui para outro
> assunto. O fato de usarmos a lista de Cascavel como
> lista para dúvidas de programação. Não que isso seja
> um problema, mas eu tenho observado a ocorrência de
> postagens duplicadas em listas diferentes (estou
> inscrito no SP.PM também) para tirar dúvidas.
> Considerando que provavelmente temos monges em listas
> regionais que não estão inscritos em mais de uma
> lista, acho que estamos perdendo sinergia.
>
> Ao meu ver, as listas regionais deveriam ser
> utilizadas como forma de contato regional (eventos,
> reuniões, etc): falta uma lista de discussão com
> abrangência nacional para tirarmos dúvidas técnicas.
>
> Bem, fica aí meus dois centavos.
>
> []'s
>
>
> Alceu Rodrigues de Freitas Junior
> --------------------------------------
> glasswalk3r em 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
>
>
> 		
> _______________________________________________________ 
> Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! 
> http://br.mobile.yahoo.com/mailalertas/ 
>  
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

From pmpoa em galvao.eti.br  Wed Jun 21 12:14:35 2006
From: pmpoa em galvao.eti.br (=?ISO-8859-1?Q?=22Er_Galv=E3o_Abbott_-_PortoAlegre=2Epm=22?=)
Date: Wed, 21 Jun 2006 16:14:35 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Sa=EDda?=
Message-ID: <44999A9B.4000603@galvao.eti.br>

Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060621/0d4fb694/attachment.html 

From thomas em tcnet.com.br  Wed Jun 21 12:34:32 2006
From: thomas em tcnet.com.br (Thomas Britis)
Date: Wed, 21 Jun 2006 16:34:32 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Sa=EDda?=
In-Reply-To: <44999A9B.4000603@galvao.eti.br>
References: <44999A9B.4000603@galvao.eti.br>
Message-ID: <44999F48.2020704@tcnet.com.br>

Senhores,

	Por favor me digam: o que exatamente é esse papo de 'Monge' ? Estou na 
lista há algum tempo (3 meses aproximadamente) e só entrei para tentar 
trocar informações sobre perl.
	Mas, pelo que posso notar as vezes, parece que existe um ar de 
sociedade secreta, com mestres e subalternos.

	Eu não estou criticando, nem muito menos sendo sarcástico. Só queria 
saber exatamente o que se trata.

	Obrigado.

Er Galvão Abbott - PortoAlegre.pm wrote:
> Caros Monges:
> 
> Comunico que à partir deste momento estou deixando a Sociedade Perl do 
> Brasil e encerrando qualquer envolvimento organizacional e/ou 
> administrativo que eu possua com a linguagem. Esta decisão foi tomada 
> depois de muita reflexão e é definitiva.
> 
> Isso inclui minha participação nas listas Perl-Coordenação, Cascavel-PM 
> e PortoAlegre-PM, as quais - com exceção da lista de POA por motivos 
> administrativos - estou cancelando a minha inscrição neste momento.
> 
> O grupo Porto Alegre Perl Mongers, como já era de conhecimento de todos, 
> passará a ser administrado pelo Igor Sutton Lopes, pessoa na qual 
> deposito inteira confiança e que tenho certeza de que realizará um 
> trabalho excelente. O Igor estará tomando posse do cargo oficialmente às 
> 0h00min do dia 22/06/2006, mas está desde já extra-oficialmente 
> autorizado a responder pelo grupo.
> 
> Em mais de 5 anos de envolvimento com o grupo PortoAlegre.pm fiz o 
> possível para alavancar o crescimento da linguagem e o despertar de um 
> maior interesse da comunidade mundial a respeito de Perl. Foi uma missão 
> difícil, que tomei para mim em caráter profissional e pessoal, e creio 
> que cumpri esta missão da melhor forma possível.
> 
> Meus atuais compromissos não me permitem mais disponibilizar tempo e 
> esforços para dar continuidade à este trabalho.
> 
> Deixo à disposição dos senhores o cargo de Diretor Técnico da SPB.
> 
> Gostaria de agradecer à todos pelo companheirismo, amizade e apoio que 
> encontrei nos grupos e eventos em que estive envolvido. Foi um 
> privilégio trabalhar ao lado de vocês.
> 
> Um forte abraço à todos e sucesso,
> 
> Er Galvão Abbott,
> 
> Desligando-se, à partir deste momento, das listas de discussão 
> Cascavel.pm e Perl-Coordenação.
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

-- 
Thomas Storino Britis
TCNet Informatica e Telecomunicacoes LTDA

From acid06 em gmail.com  Wed Jun 21 12:45:46 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Wed, 21 Jun 2006 16:45:46 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Sa=EDda?=
In-Reply-To: <44999F48.2020704@tcnet.com.br>
References: <44999A9B.4000603@galvao.eti.br> <44999F48.2020704@tcnet.com.br>
Message-ID: <9a08c9b40606211245o7ddfd0f7va070e67d9fe09ca4@mail.gmail.com>

On 6/21/06, Thomas Britis <thomas em tcnet.com.br> wrote:
>         Mas, pelo que posso notar as vezes, parece que existe um ar de
> sociedade secreta, com mestres e subalternos.

Isso é uma tradição mundial. ;-)

Tudo isso vem do fato de que o melhor site para discussão sobre Perl é
o PerlMonks (ou seja, Monges do Perl). Não tem nada de sociedade
secreta, mestres ou subalternos. É apenas uma brincadeira mesmo.

-Nilson Santos F. Jr.

From daniel em ruoso.com  Wed Jun 21 12:51:45 2006
From: daniel em ruoso.com (Daniel Ruoso)
Date: Wed, 21 Jun 2006 16:51:45 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Sa=EDda?=
In-Reply-To: <44999F48.2020704@tcnet.com.br>
References: <44999A9B.4000603@galvao.eti.br> <44999F48.2020704@tcnet.com.br>
Message-ID: <1150919505.4206.2.camel@localhost.localdomain>

Em Qua, 2006-06-21 às 16:34 -0300, Thomas Britis escreveu:
> 	Mas, pelo que posso notar as vezes, parece que existe um ar de 
> sociedade secreta, com mestres e subalternos.

Regra numero 1: "Nunca fale sobre o clube da luta"...

ops... sociedade secreta errada :) :) :) :) :)

Mas falando serio, os Monges do Perl é como se auto-entitulam as
comunidades de desenvolvedores perl ao redor do mundo... mas se voce nao
sabe o que eh isso, significa que voce ainda nao conhece o monasterio...
entao... voce estah intimado a entrar em www.perlmonks.org e se
cadastrar...

daniel


From ptfzs em yahoo.com.br  Wed Jun 21 16:59:26 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 21 Jun 2006 20:59:26 -0300 (ART)
Subject: [Cascavel-pm] Split
In-Reply-To: <4498C5FC.3050107@clavis.com.br>
Message-ID: <20060621235926.71358.qmail@web31315.mail.mud.yahoo.com>

Pessoal.. estou lendo um arquivo linha por linha 
 e os dados entre as linhas estao separados por espaco.. so que no fim da linha possue caracteres como: / //// ///// ///// / //// //// ///// / =
 
 estou fazendo assim:
 
 my @file_ok = grep{$_ =~ m/^teste/} @files;
 for my $file (@file_ok)
 {
    open (File, "$diretorio/$file") or die $!;
    while (my $line = <File>)
    {
         @F = split(/ /,$line);
    }
    close File;
 }
 
 Agora para eliminar esses caracteres do final antes de inserir no array :: alguem sabe como??
 
 Outra questao eh.. as vezes tenho linhas que um elemento possui 2 espacoes entre eles :/ .. dai fica dificil neh??? :)
 
 
 Obrigada
 
 Paty
 
 
 
 
 		
---------------------------------
 Yahoo! Search
 Música para ver e ouvir: You're Beautiful, do James Blunt
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060621/69694b12/attachment.html 

From ptfzs em yahoo.com.br  Wed Jun 21 17:09:27 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 21 Jun 2006 21:09:27 -0300 (ART)
Subject: [Cascavel-pm] Split
In-Reply-To: <20060621235926.71358.qmail@web31315.mail.mud.yahoo.com>
Message-ID: <20060622000927.17288.qmail@web31310.mail.mud.yahoo.com>

Pessoal.. Resolvido o Problema
 
 my @teste = grep /[a-zA-Z0-9_]/, em F;
 usei um grep ai.. nao sei se eh a melhor opcao mais funcionou!!
 
 :)
 
 

Patty Silva <ptfzs em yahoo.com.br> escreveu: Pessoal.. estou lendo um arquivo linha por linha 
 e os dados entre as linhas estao separados por espaco.. so que no fim da linha possue caracteres como: / //// ///// ///// / //// //// ///// / =
 
 estou fazendo assim:
 
 my @file_ok = grep{$_ =~ m/^teste/} @files;
 for my $file (@file_ok)
 {
    open (File, "$diretorio/$file") or die $!;
    while (my $line = <File>)
    {
         @F = split(/ /,$line);
    }
    close File;
 }
 
 Agora para eliminar esses caracteres do final antes de inserir no array :: alguem sabe como??
 
 Outra questao eh.. as vezes tenho linhas que um elemento possui 2 espacoes entre eles :/ .. dai fica dificil neh??? :)
 
 
 Obrigada
 
 Paty
 
 
 
     

---------------------------------
  Yahoo! Search
  Música para ver e ouvir: You're Beautiful, do James Blunt_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm

 		
---------------------------------
 Yahoo! Search
 Música para ver e ouvir: You're Beautiful, do James Blunt
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060621/396a924a/attachment.html 

From admin em mestral.com.br  Wed Jun 21 17:42:46 2006
From: admin em mestral.com.br (Paulo - Mestral)
Date: Wed, 21 Jun 2006 21:42:46 -0300
Subject: [Cascavel-pm] Manipulando arquivos com o Perl
In-Reply-To: <e17dc37a0606201835m47bc55baocc37f460b766ae5c@mail.gmail.com>
References: <e17dc37a0606201835m47bc55baocc37f460b766ae5c@mail.gmail.com>
Message-ID: <200606212142.46768.admin@mestral.com.br>

Caro Murilo,

eu coloquei (temporariamente) a disposição as apostilas que eu baixei da 
internet quando comecei com Perl. em: www.mestral.com.br/apostilas.tar.gz 

Um livro muito bom é o 'Perl Como Programar' não é uma pechincha mas depois de 
ter comprado vários livros sobre Perl posso dizer que economizaria muito 
tempo se no começo tivesse comprado só este livro, com excelente didática é 
um dos melhores que já vi. veja: 
https://www.linuxmall.com.br/index.php?product_id=808

E é claro vc pode usar módulos da CPAN. Vá em http://search.cpan.org/ e 
pesquise por 'sendmail' existem dezenas de módulos para este servidor de 
email que podem talvez resolver seu problema sem muito esforço. Lembre que 
uma das virtudes do programador é a preguiça. :)

Outra coisa que, acho, pode te ajudar é depois de dominar o básico da 
linguagem estudar o módulo do Webmin para gerenciamento do Sendmail que é 
feito em Perl e já deve ter boa parte do que vc precisa fazer. Quem sabe até 
colaborar com implementações do projeto.
Informações de como escrever módulos p Webmin e o próprio módulo para sendmail 
vc encontra em http://www.webmin.com

espero ter ajudado, 

-- 
Paulo José Sant'Ana
Mestral Informática

From alexjfalcao em universia.com.br  Wed Jun 21 17:01:57 2006
From: alexjfalcao em universia.com.br (Alex =?iso-8859-1?Q?Falc=E3o?=)
Date: Wed, 21 Jun 2006 21:01:57 -0300 (BRT)
Subject: [Cascavel-pm] Split
In-Reply-To: <20060621235926.71358.qmail@web31315.mail.mud.yahoo.com>
References: <4498C5FC.3050107@clavis.com.br>
	<20060621235926.71358.qmail@web31315.mail.mud.yahoo.com>
Message-ID: <1454.201.1.29.65.1150934517.squirrel@webmail.universia.com.br>


> Pessoal.. estou lendo um arquivo linha por linha
>  e os dados entre as linhas estao separados por espaco.. so que no fim da
> linha possue caracteres como: / //// ///// ///// / //// //// ///// / =
>
>  estou fazendo assim:
>
>  my @file_ok = grep{$_ =~ m/^teste/} @files;
>  for my $file (@file_ok)
>  {
>     open (File, "$diretorio/$file") or die $!;
>     while (my $line = <File>)
>     {
>          @F = split(/ /,$line);
>     }
>     close File;
>  }
>
>  Agora para eliminar esses caracteres do final antes de inserir no array
> :: alguem sabe como??
>
>  Outra questao eh.. as vezes tenho linhas que um elemento possui 2
> espacoes entre eles :/ .. dai fica dificil neh??? :)
>
>
>  Obrigada
>
>  Paty
>
>
>
>
>
> ---------------------------------
>  Yahoo! Search
>  Música para ver e ouvir: You're Beautiful, do James
> Blunt_______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

Tente isto  $line =~ s/\\.*$//;  antes de colocar no array
acho que deve resolver

  my @file_ok = grep{$_ =~ m/^teste/} @files;
  for my $file (@file_ok)
  {
     open (File, "$diretorio/$file") or die $!;
     while (my $line = <File>)
     {
          $line =~ s/\\.*$//;
          @F = split(/ /,$line);
     }
     close File;
  }



-- 
___________________________________________
Alex Esteves Jaccoud Falcão
Analista de Suporte
Linux User: 160008
http://webmaster.brfic.com


---------------------------------------------------------------
Universia - Esse é o seu Universo.
www.universia.com.br

From admin em mestral.com.br  Wed Jun 21 19:09:08 2006
From: admin em mestral.com.br (Paulo - Mestral)
Date: Wed, 21 Jun 2006 23:09:08 -0300
Subject: [Cascavel-pm] Split
In-Reply-To: <20060621235926.71358.qmail@web31315.mail.mud.yahoo.com>
References: <20060621235926.71358.qmail@web31315.mail.mud.yahoo.com>
Message-ID: <200606212309.08665.admin@mestral.com.br>

Patty,
Se vc tiver um número certo de argumentos na linha pode usar:
@F = split(/ /,$line, 5);
No caso o split só pega os 5 primeiros campos.


Se não pode, simplesmente elimine os campos que comecem com / e = colocando 
antes do split isto:
$line =~ s/\s+\/+|\s+=//g;

> Outra questao eh.. as vezes tenho linhas que um elemento possui 2 espacoes 
entre eles :/ .. dai fica dificil neh??? :)

O quantificador + faz esse difícil ser fácil use \s+ que quer dizer um espaço 
ou mais. Se os espaços duplos forem entre os campos que vc vai usar faça o 
split assim:
@F = split(/\s+/,$line);


-- 
Paulo José Sant'Ana
Mestral Informática

From igor.sutton em gmail.com  Wed Jun 21 19:30:10 2006
From: igor.sutton em gmail.com (Igor Sutton Lopes)
Date: Wed, 21 Jun 2006 23:30:10 -0300
Subject: [Cascavel-pm] Split
In-Reply-To: <20060621235926.71358.qmail@web31315.mail.mud.yahoo.com> (Patty
	Silva's message of "Wed, 21 Jun 2006 20:59:26 -0300 (ART)")
References: <20060621235926.71358.qmail@web31315.mail.mud.yahoo.com>
Message-ID: <871wth9b2l.fsf@gmail.com>

Patty,

Sei que vou ser chato novamente, porém gostaria de te pedir uma
coisa... Quando você quiser perguntar algo que não seja referente à
thread atual, ao invés de fazer um 'reply' em alguma mensagem e
modificar o 'subject' apenas, crie uma nova mensagem. Para aqueles que
utilizam um cliente de email que organiza as threads, torna difícil
procurar por uma em específico. Muitos aqui irão agradecer, e isto não
é somente para você, isso deve valer para qualquer um.

Igor.

From igor.sutton em gmail.com  Wed Jun 21 19:40:10 2006
From: igor.sutton em gmail.com (Igor Sutton Lopes)
Date: Wed, 21 Jun 2006 23:40:10 -0300
Subject: [Cascavel-pm] Split
In-Reply-To: <200606212309.08665.admin@mestral.com.br> (admin@mestral.com.br's
	message of "Wed, 21 Jun 2006 23:09:08 -0300")
References: <20060621235926.71358.qmail@web31315.mail.mud.yahoo.com>
	<200606212309.08665.admin@mestral.com.br>
Message-ID: <87wtb97w1h.fsf@gmail.com>

Paulo - Mestral <admin em mestral.com.br> writes:

> O quantificador + faz esse difícil ser fácil use \s+ que quer dizer um
> espaço ou mais. Se os espaços duplos forem entre os campos que vc vai
> usar faça o split assim: @F = split(/\s+/,$line);

Outra alternativa é utilizar o split com " ", ie:

@F = split " ", $line;

Segundo perlfunc:

               As a special case, specifying a PATTERN of space (' ')
               will split on white space just as "split" with no
               arguments does.  Thus, "split(' ')" can be used to
               emulate awk's default behav- ior, whereas "split(/ /)"
               will give you as many null initial fields as there are
               leading spaces.  A "split" on "/\s+/" is like a
               "split(' ')" except that any leading whitespace
               produces a null first field.  A "split" with no
               arguments really does a "split(' ', $_)" internally.

Observe:

<code>
use Data::Dumper;
my $str = " a b c d e";
print Dumper [split /\s+/, $str];
print Dumper [split " ", $str];
</code>

Igor.

From ptfzs em yahoo.com.br  Thu Jun 22 04:37:41 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 22 Jun 2006 08:37:41 -0300 (ART)
Subject: [Cascavel-pm] Split
In-Reply-To: <871wth9b2l.fsf@gmail.com>
Message-ID: <20060622113741.91800.qmail@web31312.mail.mud.yahoo.com>

Ok Igor. nao sabia que dava diferença.. pois o Assunto era outro!!
 :)
 
 
 Obrigada pelo aviso..
 
 [ ]ss
 

Igor Sutton Lopes <igor.sutton em gmail.com> escreveu: Patty,

Sei que vou ser chato novamente, porém gostaria de te pedir uma
coisa... Quando você quiser perguntar algo que não seja referente à
thread atual, ao invés de fazer um 'reply' em alguma mensagem e
modificar o 'subject' apenas, crie uma nova mensagem. Para aqueles que
utilizam um cliente de email que organiza as threads, torna difícil
procurar por uma em específico. Muitos aqui irão agradecer, e isto não
é somente para você, isso deve valer para qualquer um.

Igor.
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


 		
---------------------------------
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060622/31eb955e/attachment.html 

From fernandocorrea em gmail.com  Thu Jun 22 04:55:51 2006
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Thu, 22 Jun 2006 08:55:51 -0300
Subject: [Cascavel-pm] Split
In-Reply-To: <20060621235926.71358.qmail@web31315.mail.mud.yahoo.com>
References: <4498C5FC.3050107@clavis.com.br>
	<20060621235926.71358.qmail@web31315.mail.mud.yahoo.com>
Message-ID: <f40026c0606220455j5e80a31fm69a6008d0ec7217f@mail.gmail.com>

Tente algo assim...

perl -ane 'BEGIN{push @ARGV, grep{$_ =~ m/^teste/} @files}$F[-1]=~s#/+$##'

On 6/21/06, Patty Silva <ptfzs em yahoo.com.br> wrote:
> Pessoal.. estou lendo um arquivo linha por linha
>  e os dados entre as linhas estao separados por espaco.. so que no fim da
> linha possue caracteres como: / //// ///// ///// / //// //// ///// / =
>
>  estou fazendo assim:
>
>  my @file_ok = grep{$_ =~ m/^teste/} @files;
>  for my $file (@file_ok)
>  {
>     open (File, "$diretorio/$file") or die $!;
>     while (my $line = <File>)
>     {
>          @F = split(/ /,$line);
>     }
>     close File;
>  }
>
>  Agora para eliminar esses caracteres do final antes de inserir no array ::
> alguem sabe como??
>
>  Outra questao eh.. as vezes tenho linhas que um elemento possui 2 espacoes
> entre eles :/ .. dai fica dificil neh??? :)
>
>
>  Obrigada
>
>  Paty
>
>
>
>
>
>  ________________________________
>  Yahoo! Search
>  Música para ver e ouvir: You're Beautiful, do James Blunt
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>


-- 
[]'s Fernando

From fernandolouis em terra.com.br  Thu Jun 22 07:22:32 2006
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Thu, 22 Jun 2006 11:22:32 -0300
Subject: [Cascavel-pm] como identificar o Sistema Operacional
References: <4498C5FC.3050107@clavis.com.br><20060621235926.71358.qmail@web31315.mail.mud.yahoo.com>
	<f40026c0606220455j5e80a31fm69a6008d0ec7217f@mail.gmail.com>
Message-ID: <00f101c69607$4d69e1c0$1201a8c0@CICERO>

Qual a melhor maneira para identificar o sitema operacional de quem está
acessando determinado perl script?

Dependendo do sitema operacional, se for linux fará um coisa, se for
windows, outra.

Valeu lista!
Abraço


From glasswalk3r em yahoo.com.br  Thu Jun 22 07:40:42 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Thu, 22 Jun 2006 11:40:42 -0300 (ART)
Subject: [Cascavel-pm] como identificar o Sistema Operacional
In-Reply-To: <00f101c69607$4d69e1c0$1201a8c0@CICERO>
Message-ID: <20060622144042.15816.qmail@web30804.mail.mud.yahoo.com>

Dê uma olhada no módulo Config. Você pode usar
$Config{osname} para pegar o nome.

[]'s
Alceu

--- fernandolouis em terra.com.br escreveu:

> Qual a melhor maneira para identificar o sitema
> operacional de quem está
> acessando determinado perl script?
> 
> Dependendo do sitema operacional, se for linux fará
> um coisa, se for
> windows, outra.
> 
> Valeu lista!
> Abraço



		
_______________________________________________________ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/ 
 


From monsieur_champs em yahoo.com.br  Thu Jun 22 07:53:02 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Thu, 22 Jun 2006 15:53:02 +0100
Subject: [Cascavel-pm] como identificar o Sistema Operacional
In-Reply-To: <20060622144042.15816.qmail@web30804.mail.mud.yahoo.com>
References: <20060622144042.15816.qmail@web30804.mail.mud.yahoo.com>
Message-ID: <449AAECE.9060306@yahoo.com.br>

Alceu R. de Freitas Jr. wrote:
> Dê uma olhada no módulo Config. Você pode usar
> $Config{osname} para pegar o nome.

perl -le 'print $^O'

  E, como $^O é uma variável especial "mágica" do Perl, você pode usá-la
em qualquer lugar que desejar.

-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From glasswalk3r em yahoo.com.br  Thu Jun 22 08:24:12 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Thu, 22 Jun 2006 12:24:12 -0300 (ART)
Subject: [Cascavel-pm] como identificar o Sistema Operacional
In-Reply-To: <449AAECE.9060306@yahoo.com.br>
Message-ID: <20060622152412.47940.qmail@web30808.mail.mud.yahoo.com>


--- Luis Motta Campos <monsieur_champs em yahoo.com.br>
escreveu:

> Alceu R. de Freitas Jr. wrote:
> > Dê uma olhada no módulo Config. Você pode usar
> > $Config{osname} para pegar o nome.
> 
> perl -le 'print $^O'
> 
>   E, como $^O é uma variável especial "mágica" do
> Perl, você pode usá-la
> em qualquer lugar que desejar.

Eu não lembro aonde, mas eu li que usar $^O não é tão
confiável assim... provavelmente a forma que o módulo
Config obtem esse valor é diferente de $^O. Se alguém
souber mais sobre esse detalhe sórdido...

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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


		
_______________________________________________________ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/ 
 


From gilmarjr em dcc.ufba.br  Thu Jun 22 08:35:33 2006
From: gilmarjr em dcc.ufba.br (Gilmar Santos Jr)
Date: Thu, 22 Jun 2006 12:35:33 -0300
Subject: [Cascavel-pm] como identificar o Sistema Operacional
In-Reply-To: <20060622152412.47940.qmail@web30808.mail.mud.yahoo.com>
References: <20060622152412.47940.qmail@web30808.mail.mud.yahoo.com>
Message-ID: <449AB8C5.3080506@dcc.ufba.br>

Alceu R. de Freitas Jr. wrote:
> confiável assim... provavelmente a forma que o módulo
> Config obtem esse valor é diferente de $^O. Se alguém
> souber mais sobre esse detalhe sórdido...
>   
> Eu não lembro aonde, mas eu li que usar $^O não é tão
Eu olhei o Config.pm aqui na minha máquina e todas os valores são
hard-coded no módulo, que provavelmente são definidos na hora da
compilação. Sobre o $^O não sei dizer, quando vi jurava que era um alias
pra $Config{osname}...

[]'s
Gilmar

- Salvador PM

From glasswalk3r em yahoo.com.br  Thu Jun 22 09:45:02 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Thu, 22 Jun 2006 13:45:02 -0300 (ART)
Subject: [Cascavel-pm] Projeto: DBWTK
In-Reply-To: <448F84D9.8030301@galvao.eti.br>
Message-ID: <20060622164502.83815.qmail@web30811.mail.mud.yahoo.com>

Monges,

Como é que fica essa iniciativa após a saída do Galvão
da lista?

Galvão, eu ainda o considero um monge, estando
inscrito nas listas ou não. ;-)

[]'s
Alceu

--- "Er Galvão Abbott - PortoAlegre.pm"
<pmpoa em galvao.eti.br> escreveu:

> Pessoal:
> 
> Há um tempo atrás comentei aqui sobre um projeto de
> interface web com um 
> banco de dados PostgreSQL. Bem, desenvolvi melhor os
> conceitos do 
> projeto e o submeti para aprovação na SourceForge.
> 
> O projeto foi aprovado hoje e o design da interface
> principal já está 
> pronto. O DBWTK (DataBase Web Tool Kit) passou por
> duas principais 
> reformulações:
> 
> 1) Ele será produzido em dois "sabores" para prover
> uma maior 
> compatibilidade e alcance da ferramenta: Perl e PHP.
> A interface será a 
> mesma para ambos, o que mudará será apenas o código
> por trás do 
> funcionamento da ferramenta. Em Perl utilizaremos
> DBI. Em PHP a classe 
> ADODB.
> 
> 2) A partir de agora a aplicação trabalhará com mais
> de um RDBMS, 
> começando por PostgreSQL e posteriormente mySQL.
> Outros seguirão 
> conforme a disponibilidade da equipe de
> desenvolvimento e o interesse 
> dos usuários.
> 
> A página do projeto pode ser encontrada em: 
> http://sourceforge.net/projects/dbwtk/ e em breve
> estarei postando lá 
> mais informações sobre o projeto, além de instruções
> de como ter acesso 
> ao design da interface.




	



	
		
_______________________________________________________ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 


From fglock em gmail.com  Thu Jun 22 14:47:03 2006
From: fglock em gmail.com (Flavio S. Glock)
Date: Thu, 22 Jun 2006 18:47:03 -0300
Subject: [Cascavel-pm] use v6
Message-ID: <aa47605d0606221447le07cd33p1585cc20715140b7@mail.gmail.com>

  use v6-pugs;

agora chama o compilador Perl6 baseado em Perl5:

  use v6-pugs;
  "hello, world".say;

  $ perl -Ilib hello_world.pl

pode ser também chamado na linha de comando:

  $ perl -Ilib lib/v6.pm -e ' "hello, world".say; '

Ainda há muitas falhas nos testes, inclusive ainda não passa na
maioria dos testes padrão em t/.

http://pugs.blogs.com/pugs/2006/06/use_v6pugs.html

- Flavio S. Glock

From ptfzs em yahoo.com.br  Thu Jun 22 15:47:34 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Thu, 22 Jun 2006 19:47:34 -0300 (ART)
Subject: [Cascavel-pm] Format Perl
Message-ID: <20060622224734.4317.qmail@web31302.mail.mud.yahoo.com>

Pessoal.. estou utilizando a opcao de formatacao no perl..
 estou usando da seguinte forma:
 
 Formato de Saida
 ---------------------------
 format_name OUT "MyBody";
 format_top_name OUT "MyTop";
 
 onde:
 format MyTop =
 @>>>>>>>>>>>>>>>>>>
 $ano
 @>>>>>>>>>>>>>>>>>>
 $mes
 @>>>>>>>>>>>>>>>>>>
 $dia
 @>>>>>>>>>>>>>>>>>>
 $hora
 @>>>>>>>>>>>>>>>>>>
 $min
 .
 
 format MyBody=
 @>>>>>>
 $teste1
 @>>>>
 $teste2
 @>>>>
 $teste3
 .
 
 e quando eu faco write(OUT) <-- meu arquivo de saida ele me grava essas 2 opcoes..
 agora quero criar + 2 tipos de formatacao que seja independente dessa ou seja, depois do write(OUT)  
 
 alguem pode me ajudar??
 
 Obrigada
 
 		
---------------------------------
 Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060622/b906d746/attachment.html 

From igor.sutton em gmail.com  Thu Jun 22 16:15:06 2006
From: igor.sutton em gmail.com (Igor Sutton Lopes)
Date: Thu, 22 Jun 2006 20:15:06 -0300
Subject: [Cascavel-pm] Format Perl
In-Reply-To: <20060622224734.4317.qmail@web31302.mail.mud.yahoo.com> (Patty
	Silva's message of "Thu, 22 Jun 2006 19:47:34 -0300 (ART)")
References: <20060622224734.4317.qmail@web31302.mail.mud.yahoo.com>
Message-ID: <87lkroye85.fsf@gmail.com>

Patty Silva <ptfzs em yahoo.com.br> writes:

Patty,

Sugiro utilizar um sistema de templates como o Template-Toolkit
(http://www.template-toolkit.org) ou outros similares, basta procurar
no CPAN.

Vale lembrar que sistemas de template não são somente utilizados para
aplicações web.

Igor.

> Pessoal.. estou utilizando a opcao de formatacao no perl..  estou
> usando da seguinte forma:
>
> Formato de Saida --------------------------- format_name OUT "MyBody";
> format_top_name OUT "MyTop";
>
> onde: format MyTop = @>>>>>>>>>>>>>>>>>> $ano @>>>>>>>>>>>>>>>>>> $mes
> @>>>>>>>>>>>>>>>>>> $dia @>>>>>>>>>>>>>>>>>> $hora @>>>>>>>>>>>>>>>>>>
> $min .
>
> format MyBody= @>>>>>> $teste1 @>>>> $teste2 @>>>> $teste3 .
>
> e quando eu faco write(OUT) <-- meu arquivo de saida ele me grava
> essas 2 opcoes..  agora quero criar + 2 tipos de formatacao que seja
> independente dessa ou seja, depois do write(OUT)
>
> alguem pode me ajudar??
>
> Obrigada
>
>
> -------------------------------------------------------------------------------
> Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador
> agora!
> _______________________________________________ Cascavel-pm mailing
> list Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

From fernandolouis em terra.com.br  Thu Jun 22 19:22:58 2006
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Thu, 22 Jun 2006 23:22:58 -0300
Subject: [Cascavel-pm] como identificar o Sistema Operacional
References: <20060622144042.15816.qmail@web30804.mail.mud.yahoo.com>
	<449AAECE.9060306@yahoo.com.br>
Message-ID: <000b01c6966b$f2846db0$1201a8c0@CICERO>

Infelizmente $^O só retorna o sistema operacional do servidor, e não de quem
está acessando o site.
Portanto nesse caso não é funcional amigo.

Abraço
Fernando

----- Original Message -----
From: "Luis Motta Campos" <monsieur_champs em yahoo.com.br>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Thursday, June 22, 2006 11:53 AM
Subject: Re: [Cascavel-pm] como identificar o Sistema Operacional


Alceu R. de Freitas Jr. wrote:
> Dê uma olhada no módulo Config. Você pode usar
> $Config{osname} para pegar o nome.

perl -le 'print $^O'

  E, como $^O é uma variável especial "mágica" do Perl, você pode usá-la
em qualquer lugar que desejar.

--
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


From igor.sutton em gmail.com  Fri Jun 23 02:46:53 2006
From: igor.sutton em gmail.com (Igor Sutton Lopes)
Date: Fri, 23 Jun 2006 06:46:53 -0300
Subject: [Cascavel-pm] como identificar o Sistema Operacional
In-Reply-To: <000b01c6966b$f2846db0$1201a8c0@CICERO>
	(fernandolouis@terra.com.br's message of "Thu,
	22 Jun 2006 23:22:58 -0300")
References: <20060622144042.15816.qmail@web30804.mail.mud.yahoo.com>
	<449AAECE.9060306@yahoo.com.br>
	<000b01c6966b$f2846db0$1201a8c0@CICERO>
Message-ID: <87bqskw6eq.fsf@gmail.com>

<fernandolouis em terra.com.br> writes:

O Perl não tem como identificar o sistema operacional remoto, caso
você esteja utilizando CGI. Creio que JavaScript faça o que você quer.

Em nenhum momento você informou que estava utilizando Perl para
CGI. Creio que você deva dar uma lida na seguinte página:

http://www.catb.org/~esr/faqs/smart-questions.html

Fica aí a dica para as próximas perguntas que forem feitas ;)

Abraço,
Igor.

> Infelizmente $^O só retorna o sistema operacional do servidor, e não
> de quem está acessando o site.  Portanto nesse caso não é funcional
> amigo.
>
> Abraço Fernando
>
> ----- Original Message ----- From: "Luis Motta Campos"
> <monsieur_champs em yahoo.com.br> To: "Cascavel Perl Mongers"
> <cascavel-pm em pm.org> Sent: Thursday, June 22, 2006 11:53 AM Subject:
> Re: [Cascavel-pm] como identificar o Sistema Operacional
>
>
> Alceu R. de Freitas Jr. wrote:
>> Dê uma olhada no módulo Config. Você pode usar $Config{osname} para
>> pegar o nome.
>
> perl -le 'print $^O'
>
>   E, como $^O é uma variável especial "mágica" do Perl, você pode
> usá-la em qualquer lugar que desejar.
>
> --
> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
>  Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
>  Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
>  Perl Mongers and Perl Fanatic Evangelist
> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

From monsieur_champs em yahoo.com.br  Fri Jun 23 03:18:25 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Fri, 23 Jun 2006 11:18:25 +0100
Subject: [Cascavel-pm] como identificar o Sistema Operacional
In-Reply-To: <00f101c69607$4d69e1c0$1201a8c0@CICERO>
References: <4498C5FC.3050107@clavis.com.br><20060621235926.71358.qmail@web31315.mail.mud.yahoo.com>	<f40026c0606220455j5e80a31fm69a6008d0ec7217f@mail.gmail.com>
	<00f101c69607$4d69e1c0$1201a8c0@CICERO>
Message-ID: <449BBFF1.5090201@yahoo.com.br>

fernandolouis em terra.com.br wrote:
> Qual a melhor maneira para identificar o sitema operacional de quem está
> acessando determinado perl script?
> 
> Dependendo do sitema operacional, se for linux fará um coisa, se for
> windows, outra.

  Agora me ocorreu outra coisa: será que o Fernando não está querendo
saber como determinar o sistema operacional de um cliente web?

-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From monsieur_champs em yahoo.com.br  Fri Jun 23 03:23:55 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Fri, 23 Jun 2006 11:23:55 +0100
Subject: [Cascavel-pm] como identificar o Sistema Operacional
In-Reply-To: <000b01c6966b$f2846db0$1201a8c0@CICERO>
References: <20060622144042.15816.qmail@web30804.mail.mud.yahoo.com>	<449AAECE.9060306@yahoo.com.br>
	<000b01c6966b$f2846db0$1201a8c0@CICERO>
Message-ID: <449BC13B.4060403@yahoo.com.br>

fernandolouis em terra.com.br wrote:
> Infelizmente $^O só retorna o sistema operacional do servidor, e não de quem
> está acessando o site.
> Portanto nesse caso não é funcional amigo.

  O problema é a forma como você perguntou.
  Desde o início, você queria saber como fazer para determinar o sistema
operacional de um cliente (browser) acessando um programa CGI pela rede.

  Mas, ao invés de dizer isso, você disse apenas "Qual a melhor maneira
para identificar o sitema operacional de quem está acessando determinado
perl script?", o que pode ser (e foi) interpretado de muitas formas
diferentes.

  Como eu presumo que você está tentando determinar a melhor maneira,
vou sugerir que você leia isto:

  http://www.catb.org/~esr/faqs/smart-questions.html

  Depois, tente postar algum código para a lista, mesmo que quebrado. A
gente ajuda a arrumar, mas não resolvemos problemas dos outros. ;-)

  Putamplexos e boa sorte!
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From monsieur_champs em yahoo.com.br  Fri Jun 23 03:24:43 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Fri, 23 Jun 2006 11:24:43 +0100
Subject: [Cascavel-pm] como identificar o Sistema Operacional
In-Reply-To: <87bqskw6eq.fsf@gmail.com>
References: <20060622144042.15816.qmail@web30804.mail.mud.yahoo.com>	<449AAECE.9060306@yahoo.com.br>	<000b01c6966b$f2846db0$1201a8c0@CICERO>
	<87bqskw6eq.fsf@gmail.com>
Message-ID: <449BC16B.2090106@yahoo.com.br>

Igor Sutton Lopes wrote:
> <fernandolouis em terra.com.br> writes:
> 
> O Perl não tem como identificar o sistema operacional remoto, caso
> você esteja utilizando CGI. Creio que JavaScript faça o que você quer.
> 
> Em nenhum momento você informou que estava utilizando Perl para
> CGI. Creio que você deva dar uma lida na seguinte página:
> 
> http://www.catb.org/~esr/faqs/smart-questions.html
> 
> Fica aí a dica para as próximas perguntas que forem feitas ;)

  Hum. Isto está telepático... eu acabei de mandar uma mensagem como
esta para a lista... talvez eu devesse ler mais mensagens antes de
postar... ;-)

-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From ptfzs em yahoo.com.br  Fri Jun 23 05:36:05 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 23 Jun 2006 09:36:05 -0300 (ART)
Subject: [Cascavel-pm] Format Perl
In-Reply-To: <87lkroye85.fsf@gmail.com>
Message-ID: <20060623123605.65321.qmail@web31308.mail.mud.yahoo.com>

Obrigada pela Dica.. eu consegui utilizando 

 MYFILE->format_name("MYFILE_TOP2");
 
 Obrigada pessoal
 
Igor Sutton Lopes <igor.sutton em gmail.com> escreveu: Patty Silva 
 writes:

Patty,

Sugiro utilizar um sistema de templates como o Template-Toolkit
(http://www.template-toolkit.org) ou outros similares, basta procurar
no CPAN.

Vale lembrar que sistemas de template não são somente utilizados para
aplicações web.

Igor.

> Pessoal.. estou utilizando a opcao de formatacao no perl..  estou
> usando da seguinte forma:
>
> Formato de Saida --------------------------- format_name OUT "MyBody";
> format_top_name OUT "MyTop";
>
> onde: format MyTop = @>>>>>>>>>>>>>>>>>> $ano @>>>>>>>>>>>>>>>>>> $mes
> @>>>>>>>>>>>>>>>>>> $dia @>>>>>>>>>>>>>>>>>> $hora @>>>>>>>>>>>>>>>>>>
> $min .
>
> format MyBody= @>>>>>> $teste1 @>>>> $teste2 @>>>> $teste3 .
>
> e quando eu faco write(OUT) <-- meu arquivo de saida ele me grava
> essas 2 opcoes..  agora quero criar + 2 tipos de formatacao que seja
> independente dessa ou seja, depois do write(OUT)
>
> alguem pode me ajudar??
>
> Obrigada
>
>
> -------------------------------------------------------------------------------
> Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador
> agora!
> _______________________________________________ Cascavel-pm mailing
> list Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm



 		
---------------------------------
 Yahoo! doce lar. Faça do Yahoo! sua homepage.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060623/eee5cc38/attachment-0001.html 

From ptfzs em yahoo.com.br  Fri Jun 23 05:43:47 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 23 Jun 2006 09:43:47 -0300 (ART)
Subject: [Cascavel-pm] duvida array - Splice
Message-ID: <20060623124347.68638.qmail@web31308.mail.mud.yahoo.com>

Pessoal.. estava dando uma estudada no comando splice e verifiquei que ele substitui elementos de uma array eliminando o elemnto a ser substituido.....
 O problema é: eu nao quero eliminar.. eu quero inserir elementos no meu array..
 ex:
 @array=(1,"c",3,4,"d",5,7);
 quero inserir 300 na posicao 4, ficando o array 1,c,3,4,300,d,5,7 sem apagar o elemento
 :)
 Tem como??
 
 
 Obrigada
 
 obs: outra duvida eh...em um array mudar de posicao alguns elementos!! tem como??
 ex
 @array=(1,"c",3,4,"d",5,7);
 trocar o elemento 3 pelo elemento 4
 
 Obrigada
 
 
 
 		
---------------------------------
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060623/48a00abb/attachment.html 

From glasswalk3r em yahoo.com.br  Fri Jun 23 05:49:15 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Fri, 23 Jun 2006 09:49:15 -0300 (ART)
Subject: [Cascavel-pm] como identificar o Sistema Operacional
In-Reply-To: <449BC16B.2090106@yahoo.com.br>
Message-ID: <20060623124915.35092.qmail@web30810.mail.mud.yahoo.com>


--- Luis Motta Campos <monsieur_champs em yahoo.com.br>
escreveu:

> Igor Sutton Lopes wrote:
> > <fernandolouis em terra.com.br> writes:
> > 
> > O Perl não tem como identificar o sistema
> operacional remoto, caso
> > você esteja utilizando CGI. Creio que JavaScript
> faça o que você quer.
> > 
> > Em nenhum momento você informou que estava
> utilizando Perl para
> > CGI. Creio que você deva dar uma lida na seguinte
> página:
> > 
> > http://www.catb.org/~esr/faqs/smart-questions.html
> > 
> > Fica aí a dica para as próximas perguntas que
> forem feitas ;)
> 
>   Hum. Isto está telepático... eu acabei de mandar
> uma mensagem como
> esta para a lista... talvez eu devesse ler mais
> mensagens antes de
> postar... ;-)

Bem... não seria o caso de avisar nosso monge perdido
a procurar informações no cabeçalho HTTP das
requisições feitas para o servidor? O campo
interessante seria HTTP_USER_AGENT: vale lembrar que o
browser só informa isso se ele estiver afim.

Algumas referências:
http://search.cpan.org/~lds/CGI.pm-3.20/CGI.pm#FETCHING_ENVIRONMENT_VARIABLES
http://search.cpan.org/author/GAAS/libwww-perl-5.805/lib/LWP/UserAgent.pm

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 


From igor.sutton em gmail.com  Fri Jun 23 06:06:07 2006
From: igor.sutton em gmail.com (Igor Sutton Lopes)
Date: Fri, 23 Jun 2006 10:06:07 -0300
Subject: [Cascavel-pm] duvida array - Splice
In-Reply-To: <20060623124347.68638.qmail@web31308.mail.mud.yahoo.com> (Patty
	Silva's message of "Fri, 23 Jun 2006 09:43:47 -0300 (ART)")
References: <20060623124347.68638.qmail@web31308.mail.mud.yahoo.com>
Message-ID: <87irmsyqbk.fsf@gmail.com>

Patty Silva <ptfzs em yahoo.com.br> writes:

Patty,

Veja este exemplo:

perl -e '@a = qw/1 2 3 4/; splice(@a, 3, 0, 300); print "@a\n"'

Igor.

> Pessoal.. estava dando uma estudada no comando splice e verifiquei que
> ele substitui elementos de uma array eliminando o elemnto a ser
> substituido.....  O problema é: eu nao quero eliminar.. eu quero
> inserir elementos no meu array..  ex: @array=(1,"c",3,4,"d",5,7);
> quero inserir 300 na posicao 4, ficando o array 1,c,3,4,300,d,5,7 sem
> apagar o elemento :) Tem como??
>
>
> Obrigada
>
> obs: outra duvida eh...em um array mudar de posicao alguns elementos!!
> tem como??  ex @array=(1,"c",3,4,"d",5,7); trocar o elemento 3 pelo
> elemento 4
>
> Obrigada
>
>
>
>
> -------------------------------------------------------------------------------
> Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu
> celular.  Registre seu aparelho agora!
> _______________________________________________ Cascavel-pm mailing
> list Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

From ptfzs em yahoo.com.br  Fri Jun 23 06:14:30 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 23 Jun 2006 10:14:30 -0300 (ART)
Subject: [Cascavel-pm] duvida array - Splice
In-Reply-To: <87irmsyqbk.fsf@gmail.com>
Message-ID: <20060623131430.14144.qmail@web31305.mail.mud.yahoo.com>

Ok Igor.. funcionou perfeitamente :-) Obrigada msm...
 
 e no caso:
 
em um array mudar de posicao alguns elementos!!
tem como??  ex @array=(1,"c",3,4,"d",5,7); trocar o elemento 3 pelo
elemento 4

Obrigada





 

Igor Sutton Lopes <igor.sutton em gmail.com> escreveu: Patty Silva 
 writes:

Patty,

Veja este exemplo:

perl -e '@a = qw/1 2 3 4/; splice(@a, 3, 0, 300); print "@a\n"'

Igor.

> Pessoal.. estava dando uma estudada no comando splice e verifiquei que
> ele substitui elementos de uma array eliminando o elemnto a ser
> substituido.....  O problema é: eu nao quero eliminar.. eu quero
> inserir elementos no meu array..  ex: @array=(1,"c",3,4,"d",5,7);
> quero inserir 300 na posicao 4, ficando o array 1,c,3,4,300,d,5,7 sem
> apagar o elemento :) Tem como??
>
>
> Obrigada
>
> obs: outra duvida eh...em um array mudar de posicao alguns elementos!!
> tem como??  ex @array=(1,"c",3,4,"d",5,7); trocar o elemento 3 pelo
> elemento 4
>
> Obrigada
>
>
>
>
> -------------------------------------------------------------------------------
> Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu
> celular.  Registre seu aparelho agora!
> _______________________________________________ Cascavel-pm mailing
> list Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm



 		
---------------------------------
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060623/67d83dca/attachment.html 

From igor.sutton em gmail.com  Fri Jun 23 06:27:12 2006
From: igor.sutton em gmail.com (Igor Sutton Lopes)
Date: Fri, 23 Jun 2006 10:27:12 -0300
Subject: [Cascavel-pm] duvida array - Splice
In-Reply-To: <20060623131430.14144.qmail@web31305.mail.mud.yahoo.com> (Patty
	Silva's message of "Fri, 23 Jun 2006 10:14:30 -0300 (ART)")
References: <20060623131430.14144.qmail@web31305.mail.mud.yahoo.com>
Message-ID: <878xnoypcf.fsf@gmail.com>

Patty Silva <ptfzs em yahoo.com.br> writes:

Tente:

perl -e '@a = qw/1 2 3 4/; splice(@a, 2, 0, splice(@a, 3, 1)); print "@a\n"'

> Ok Igor.. funcionou perfeitamente :-) Obrigada msm...
>
> e no caso:
>
> em um array mudar de posicao alguns elementos!!  tem como??  ex
> @array=(1,"c",3,4,"d",5,7); trocar o elemento 3 pelo elemento 4
>
> Obrigada
>
>
>
>
>
>
>
> Igor Sutton Lopes <igor.sutton em gmail.com> escreveu:
>
>     Patty Silva writes:
>
>     Patty,
>
>     Veja este exemplo:
>
>     perl -e '@a = qw/1 2 3 4/; splice(@a, 3, 0, 300); print "@a\n"'
>
>     Igor.
>
>     > Pessoal.. estava dando uma estudada no comando splice e
>     > verifiquei que ele substitui elementos de uma array eliminando o
>     > elemnto a ser substituido..... O problema é: eu nao quero
>     > eliminar.. eu quero inserir elementos no meu array.. ex:
>     > @array=(1,"c",3,4,"d",5,7); quero inserir 300 na posicao 4,
>     > ficando o array 1,c,3,4,300,d,5,7 sem apagar o elemento :) Tem
>     > como??
>     >
>     > Obrigada
>     > obs: outra duvida eh...em um array mudar de posicao alguns
>     > elementos!!  tem como?? ex @array=(1,"c",3,4,"d",5,7); trocar o
>     > elemento 3 pelo elemento 4
>     > Obrigada
>     >
>     >
>     >
>     >
>     >
>     -------------------------------------------------------------------------------
>     > Novidade no Yahoo! Mail: receba alertas de novas mensagens no
>     > seu celular. Registre seu aparelho agora!
>     > _______________________________________________ Cascavel-pm
>     > mailing list Cascavel-pm em pm.org
>     > http://mail.pm.org/mailman/listinfo/cascavel-pm
>     _______________________________________________
>     Cascavel-pm mailing list
>     Cascavel-pm em pm.org
>     http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
>
> -------------------------------------------------------------------------------
> Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu
> celular.  Registre seu aparelho agora!
> _______________________________________________ Cascavel-pm mailing
> list Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

From ptfzs em yahoo.com.br  Fri Jun 23 06:36:33 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 23 Jun 2006 10:36:33 -0300 (ART)
Subject: [Cascavel-pm] duvida array - Splice
In-Reply-To: <878xnoypcf.fsf@gmail.com>
Message-ID: <20060623133633.89680.qmail@web31304.mail.mud.yahoo.com>

Po Igor.. :) obrigada msm.. era isso que eu queria.. :-)
 
 beijuss

Igor Sutton Lopes <igor.sutton em gmail.com> escreveu: Patty Silva 
 writes:

Tente:

perl -e '@a = qw/1 2 3 4/; splice(@a, 2, 0, splice(@a, 3, 1)); print "@a\n"'

> Ok Igor.. funcionou perfeitamente :-) Obrigada msm...
>
> e no caso:
>
> em um array mudar de posicao alguns elementos!!  tem como??  ex
> @array=(1,"c",3,4,"d",5,7); trocar o elemento 3 pelo elemento 4
>
> Obrigada
>
>
>
>
>
>
>
> Igor Sutton Lopes  escreveu:
>
>     Patty Silva writes:
>
>     Patty,
>
>     Veja este exemplo:
>
>     perl -e '@a = qw/1 2 3 4/; splice(@a, 3, 0, 300); print "@a\n"'
>
>     Igor.
>
>     > Pessoal.. estava dando uma estudada no comando splice e
>     > verifiquei que ele substitui elementos de uma array eliminando o
>     > elemnto a ser substituido..... O problema é: eu nao quero
>     > eliminar.. eu quero inserir elementos no meu array.. ex:
>     > @array=(1,"c",3,4,"d",5,7); quero inserir 300 na posicao 4,
>     > ficando o array 1,c,3,4,300,d,5,7 sem apagar o elemento :) Tem
>     > como??
>     >
>     > Obrigada
>     > obs: outra duvida eh...em um array mudar de posicao alguns
>     > elementos!!  tem como?? ex @array=(1,"c",3,4,"d",5,7); trocar o
>     > elemento 3 pelo elemento 4
>     > Obrigada
>     >
>     >
>     >
>     >
>     >
>     -------------------------------------------------------------------------------
>     > Novidade no Yahoo! Mail: receba alertas de novas mensagens no
>     > seu celular. Registre seu aparelho agora!
>     > _______________________________________________ Cascavel-pm
>     > mailing list Cascavel-pm em pm.org
>     > http://mail.pm.org/mailman/listinfo/cascavel-pm
>     _______________________________________________
>     Cascavel-pm mailing list
>     Cascavel-pm em pm.org
>     http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
>
> -------------------------------------------------------------------------------
> Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu
> celular.  Registre seu aparelho agora!
> _______________________________________________ Cascavel-pm mailing
> list Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm



 		
---------------------------------
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060623/cb858fa0/attachment.html 

From lorn.br em gmail.com  Fri Jun 23 08:10:26 2006
From: lorn.br em gmail.com (Lorn)
Date: Fri, 23 Jun 2006 12:10:26 -0300
Subject: [Cascavel-pm] Para quem usa Vim com Perl
Message-ID: <bb8590d00606230810s123fc2f4w571d56ceb02bac3f@mail.gmail.com>

Eu escrevi algumas coisas sobre o vim7 que é praticamente uma IDE ;)

http://www.lornlab.org/2006/06/23/vim7-com-intelligent-completion-e-omni-completion-em-perl/

-- 
Lorn
- Slackware Linux
www.slackwarezine.com.br
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060623/0fe0dc3e/attachment-0001.html 

From ptfzs em yahoo.com.br  Fri Jun 23 10:24:41 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 23 Jun 2006 14:24:41 -0300 (ART)
Subject: [Cascavel-pm] Arrendondamento
Message-ID: <20060623172441.26840.qmail@web31306.mail.mud.yahoo.com>

Pessoal.. estava dando uma olhada nas msg passadas, mas nao sei continuar...entao abri uma outra com o mesmo assunto
 
 Estava vendo que vcs estavam discutindo se arredonda ou nao.. no caso..
 o sprintf arredonda.. eu quero uma fncao que nao arredonde so trunque,,
 ex: 1,433333333333333
 escreva 1,43 inves de 1,44
 
 Obrigada
 
 
 		
---------------------------------
 Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060623/fb360aba/attachment.html 

From igor.sutton em gmail.com  Fri Jun 23 10:34:12 2006
From: igor.sutton em gmail.com (Igor Sutton Lopes)
Date: Fri, 23 Jun 2006 14:34:12 -0300
Subject: [Cascavel-pm] Arrendondamento
In-Reply-To: <20060623172441.26840.qmail@web31306.mail.mud.yahoo.com> (Patty
	Silva's message of "Fri, 23 Jun 2006 14:24:41 -0300 (ART)")
References: <20060623172441.26840.qmail@web31306.mail.mud.yahoo.com>
Message-ID: <87fyhvydwr.fsf@gmail.com>

Patty Silva <ptfzs em yahoo.com.br> writes:

> Pessoal.. estava dando uma olhada nas msg passadas, mas nao sei
> continuar...entao abri uma outra com o mesmo assunto

perl -e 'printf("%.2f\n", 1.4333333333);'

perldoc -f printf
man 3 printf

>
> Estava vendo que vcs estavam discutindo se arredonda ou nao.. no
> caso..  o sprintf arredonda.. eu quero uma fncao que nao arredonde so
> trunque,, ex: 1,433333333333333 escreva 1,43 inves de 1,44
>
> Obrigada
>
>
>
> -------------------------------------------------------------------------------
> Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador
> agora!
> _______________________________________________ Cascavel-pm mailing
> list Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

From ptfzs em yahoo.com.br  Fri Jun 23 10:44:30 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 23 Jun 2006 14:44:30 -0300 (ART)
Subject: [Cascavel-pm] Arrendondamento
In-Reply-To: <87fyhvydwr.fsf@gmail.com>
Message-ID: <20060623174431.36113.qmail@web31306.mail.mud.yahoo.com>

Igor.. so uma coisa
 fiz assim:
       
@teste=(printf("%.2f",$teste1),printf("%.2f",$teste2)); 
ele imprime na tela.. e nao atribui ao array ??
 Pq??
 
 Obrigada
 
 

Igor Sutton Lopes <igor.sutton em gmail.com> escreveu: Patty Silva 
 writes:

> Pessoal.. estava dando uma olhada nas msg passadas, mas nao sei
> continuar...entao abri uma outra com o mesmo assunto

perl -e 'printf("%.2f\n", 1.4333333333);'

perldoc -f printf
man 3 printf

>
> Estava vendo que vcs estavam discutindo se arredonda ou nao.. no
> caso..  o sprintf arredonda.. eu quero uma fncao que nao arredonde so
> trunque,, ex: 1,433333333333333 escreva 1,43 inves de 1,44
>
> Obrigada
>
>
>
> -------------------------------------------------------------------------------
> Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador
> agora!
> _______________________________________________ Cascavel-pm mailing
> list Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm



 		
---------------------------------
 Yahoo! doce lar. Faça do Yahoo! sua homepage.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060623/8e7670b8/attachment.html 

From igor.sutton em gmail.com  Fri Jun 23 10:49:18 2006
From: igor.sutton em gmail.com (Igor Sutton Lopes)
Date: Fri, 23 Jun 2006 14:49:18 -0300
Subject: [Cascavel-pm] Arrendondamento
In-Reply-To: <20060623174431.36113.qmail@web31306.mail.mud.yahoo.com> (Patty
	Silva's message of "Fri, 23 Jun 2006 14:44:30 -0300 (ART)")
References: <20060623174431.36113.qmail@web31306.mail.mud.yahoo.com>
Message-ID: <87bqsjyd7l.fsf@gmail.com>

Patty Silva <ptfzs em yahoo.com.br> writes:

perldoc -f sprintf

> Igor.. so uma coisa fiz assim:
>
> @teste=(printf("%.2f",$teste1),printf("%.2f",$teste2));
>
> ele imprime na tela.. e nao atribui ao array ??  Pq??
>
> Obrigada
>
>
>
> Igor Sutton Lopes <igor.sutton em gmail.com> escreveu:
>
>     Patty Silva writes:
>
>     > Pessoal.. estava dando uma olhada nas msg passadas, mas nao sei
>     > continuar...entao abri uma outra com o mesmo assunto
>
>     perl -e 'printf("%.2f\n", 1.4333333333);'
>
>     perldoc -f printf
>     man 3 printf
>
>     > Estava vendo que vcs estavam discutindo se arredonda ou nao.. no
>     > caso.. o sprintf arredonda.. eu quero uma fncao que nao
>     > arredonde so trunque,, ex: 1,433333333333333 escreva 1,43 inves
>     > de 1,44
>     > Obrigada
>     >
>     >
>     >
>     >
>     -------------------------------------------------------------------------------
>     > Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o
>     > discador agora!  _______________________________________________
>     > Cascavel-pm mailing list Cascavel-pm em pm.org
>     > http://mail.pm.org/mailman/listinfo/cascavel-pm
>     _______________________________________________
>     Cascavel-pm mailing list
>     Cascavel-pm em pm.org
>     http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
>
> -------------------------------------------------------------------------------
> Yahoo! doce lar. Faça do Yahoo! sua homepage.
> _______________________________________________ Cascavel-pm mailing
> list Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

From ptfzs em yahoo.com.br  Fri Jun 23 11:15:09 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 23 Jun 2006 15:15:09 -0300 (ART)
Subject: [Cascavel-pm] Arrendondamento
In-Reply-To: <87bqsjyd7l.fsf@gmail.com>
Message-ID: <20060623181509.88565.qmail@web31310.mail.mud.yahoo.com>

Igor.. descobri qual era o erro :)
 meu numero estava separado por virgula, por isso estava arredondando.. com . (ponto) o sprintf funciona perfeitamente... ele nao arredonda.. ele trunca..
 
  
 valeuss   
 
 [ ]ss
 
 

Igor Sutton Lopes <igor.sutton em gmail.com> escreveu: Patty Silva 
 writes:

perldoc -f sprintf

> Igor.. so uma coisa fiz assim:
>
> @teste=(printf("%.2f",$teste1),printf("%.2f",$teste2));
>
> ele imprime na tela.. e nao atribui ao array ??  Pq??
>
> Obrigada
>
>
>
> Igor Sutton Lopes  escreveu:
>
>     Patty Silva writes:
>
>     > Pessoal.. estava dando uma olhada nas msg passadas, mas nao sei
>     > continuar...entao abri uma outra com o mesmo assunto
>
>     perl -e 'printf("%.2f\n", 1.4333333333);'
>
>     perldoc -f printf
>     man 3 printf
>
>     > Estava vendo que vcs estavam discutindo se arredonda ou nao.. no
>     > caso.. o sprintf arredonda.. eu quero uma fncao que nao
>     > arredonde so trunque,, ex: 1,433333333333333 escreva 1,43 inves
>     > de 1,44
>     > Obrigada
>     >
>     >
>     >
>     >
>     -------------------------------------------------------------------------------
>     > Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o
>     > discador agora!  _______________________________________________
>     > Cascavel-pm mailing list Cascavel-pm em pm.org
>     > http://mail.pm.org/mailman/listinfo/cascavel-pm
>     _______________________________________________
>     Cascavel-pm mailing list
>     Cascavel-pm em pm.org
>     http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
>
> -------------------------------------------------------------------------------
> Yahoo! doce lar. Faça do Yahoo! sua homepage.
> _______________________________________________ Cascavel-pm mailing
> list Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm



 		
---------------------------------
 Yahoo! doce lar. Faça do Yahoo! sua homepage.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060623/d9883b48/attachment.html 

From ptfzs em yahoo.com.br  Fri Jun 23 11:40:21 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 23 Jun 2006 18:40:21 +0000 (GMT)
Subject: [Cascavel-pm] Comando cat | wc -l
Message-ID: <20060623184021.92901.qmail@web31314.mail.mud.yahoo.com>

Pessoal.. qual comando do perl substitui o cat (contar quantas linhas possui no arquivo).
 Eu preciso contar a quantidade de linhas mas nao pode ser contagem linha a linha.. pois preciso da quantidade antes da contagem linha linha acabar.. por isso pensei no   cat | wc -l
 
 Obrigada
 
 
 
 
 		
---------------------------------
 Yahoo! Search
 Música para ver e ouvir: You're Beautiful, do James Blunt
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060623/a8625450/attachment.html 

From igor.sutton em gmail.com  Fri Jun 23 11:50:20 2006
From: igor.sutton em gmail.com (Igor Sutton Lopes)
Date: Fri, 23 Jun 2006 15:50:20 -0300
Subject: [Cascavel-pm] Comando cat | wc -l
In-Reply-To: <20060623184021.92901.qmail@web31314.mail.mud.yahoo.com> (Patty
	Silva's message of "Fri, 23 Jun 2006 18:40:21 +0000 (GMT)")
References: <20060623184021.92901.qmail@web31314.mail.mud.yahoo.com>
Message-ID: <877j37yadv.fsf@gmail.com>

Patty Silva <ptfzs em yahoo.com.br> writes:

Cadê seu código inicial?

> Pessoal.. qual comando do perl substitui o cat (contar quantas linhas
> possui no arquivo).  Eu preciso contar a quantidade de linhas mas nao
> pode ser contagem linha a linha.. pois preciso da quantidade antes da
> contagem linha linha acabar.. por isso pensei no cat | wc -l
>
> Obrigada
>
>
>
>
>
> -------------------------------------------------------------------------------
> Yahoo! Search Música para ver e ouvir: You're Beautiful, do James
> Blunt
> _______________________________________________ Cascavel-pm mailing
> list Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

From glasswalk3r em yahoo.com.br  Fri Jun 23 11:50:35 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Fri, 23 Jun 2006 15:50:35 -0300 (ART)
Subject: [Cascavel-pm] Comando cat | wc -l
In-Reply-To: <20060623184021.92901.qmail@web31314.mail.mud.yahoo.com>
Message-ID: <20060623185036.22061.qmail@web30813.mail.mud.yahoo.com>


--- Patty Silva <ptfzs em yahoo.com.br> escreveu:

> Pessoal.. qual comando do perl substitui o cat
> (contar quantas linhas possui no arquivo).

O cat só imprime o conteúdo de um arquivo para STDOUT.
Se você ler o arquivo e imprimir o conteúdo dele você
já fez um cat-perl. :-)

>  Eu preciso contar a quantidade de linhas mas nao
> pode ser contagem linha a linha.. pois preciso da
> quantidade antes da contagem linha linha acabar..
> por isso pensei no   cat | wc -l

Tem mais de um jeito de fazer isso. Um jeito rápido
(mas não elegante):

my $file = 'arquivo.txt';
open(IN, $file) or die "Cannot read $file: $!\n";
my @content = <IN>;
close(IN);
my $lines = @content - 1;

print "File $file has $lines lines\n";

Eu não testei, mas deve funcionar.

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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


		
_______________________________________________________ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/ 
 


From fernandocorrea em gmail.com  Fri Jun 23 12:03:51 2006
From: fernandocorrea em gmail.com (Fernando Oliveira)
Date: Fri, 23 Jun 2006 16:03:51 -0300
Subject: [Cascavel-pm] Comando cat | wc -l
In-Reply-To: <20060623185036.22061.qmail@web30813.mail.mud.yahoo.com>
References: <20060623184021.92901.qmail@web31314.mail.mud.yahoo.com>
	<20060623185036.22061.qmail@web30813.mail.mud.yahoo.com>
Message-ID: <f40026c0606231203g562ddad4kf89e9b3832c6edb7@mail.gmail.com>

perl -ne 'END{print$.}' arquivo

On 6/23/06, Alceu R. de Freitas Jr. <glasswalk3r em yahoo.com.br> wrote:
>
> --- Patty Silva <ptfzs em yahoo.com.br> escreveu:
>
> > Pessoal.. qual comando do perl substitui o cat
> > (contar quantas linhas possui no arquivo).
>
> O cat só imprime o conteúdo de um arquivo para STDOUT.
> Se você ler o arquivo e imprimir o conteúdo dele você
> já fez um cat-perl. :-)
>
> >  Eu preciso contar a quantidade de linhas mas nao
> > pode ser contagem linha a linha.. pois preciso da
> > quantidade antes da contagem linha linha acabar..
> > por isso pensei no   cat | wc -l
>
> Tem mais de um jeito de fazer isso. Um jeito rápido
> (mas não elegante):
>
> my $file = 'arquivo.txt';
> open(IN, $file) or die "Cannot read $file: $!\n";
> my @content = <IN>;
> close(IN);
> my $lines = @content - 1;
>
> print "File $file has $lines lines\n";
>
> Eu não testei, mas deve funcionar.
>
> []'s
>
>
> Alceu Rodrigues de Freitas Junior
> --------------------------------------
> glasswalk3r em 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
>
>
>
> _______________________________________________________
> Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!
> http://br.mobile.yahoo.com/mailalertas/
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
[]'s Fernando

From ptfzs em yahoo.com.br  Fri Jun 23 12:23:59 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Fri, 23 Jun 2006 16:23:59 -0300 (ART)
Subject: [Cascavel-pm] Comando cat | wc -l
In-Reply-To: <877j37yadv.fsf@gmail.com>
Message-ID: <20060623192359.49855.qmail@web31304.mail.mud.yahoo.com>

      
Ai.. esta +- assim:

      
open (File, "$file") or die $!

$count=system('cat $file | wc -l');

// ESSE system imprime na tela.. e nao atrivbui a variavel..
// Eu quero que conte antes de entrar no while

      
while (my $line = <File>)
{

}


 
 oks?? Obrigada

Igor Sutton Lopes <igor.sutton em gmail.com> escreveu: Patty Silva 
 writes:

Cadê seu código inicial?

> Pessoal.. qual comando do perl substitui o cat (contar quantas linhas
> possui no arquivo).  Eu preciso contar a quantidade de linhas mas nao
> pode ser contagem linha a linha.. pois preciso da quantidade antes da
> contagem linha linha acabar.. por isso pensei no cat | wc -l
>
> Obrigada
>
>
>
>
>
> -------------------------------------------------------------------------------
> Yahoo! Search Música para ver e ouvir: You're Beautiful, do James
> Blunt
> _______________________________________________ Cascavel-pm mailing
> list Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm



 		
---------------------------------
 Yahoo! Search
 Música para ver e ouvir: You're Beautiful, do James Blunt
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060623/24de03fb/attachment.html 

From thomas em tcnet.com.br  Fri Jun 23 13:17:25 2006
From: thomas em tcnet.com.br (Thomas Britis)
Date: Fri, 23 Jun 2006 17:17:25 -0300
Subject: [Cascavel-pm] Comando cat | wc -l
In-Reply-To: <20060623192359.49855.qmail@web31304.mail.mud.yahoo.com>
References: <20060623192359.49855.qmail@web31304.mail.mud.yahoo.com>
Message-ID: <449C4C55.2080902@tcnet.com.br>

open (File, "$file");
while (<File>) { $x++; }
seek (File, 0, 0);
while (my $line = <File>)
(...)

Patty Silva wrote:
> 
> 
> Ai.. esta +- assim:
> 
> open (File, *"*$file*"*) *or* die $!
> 
> $count=system(*'*cat $file | wc
>  -l*'*);
> 
> // ESSE system imprime na tela.. e nao atrivbui a variavel..
> // Eu quero que conte antes de entrar no while
> 
> *while* (*my* $line = <File>)
> {
> 
> }
> 
> 
> 
> oks?? Obrigada
> 
> */Igor Sutton Lopes <igor.sutton em gmail.com>/* escreveu:
> 
>     Patty Silva writes:
> 
>     Cadê seu código inicial?
> 
>      > Pessoal.. qual comando do perl substitui o cat (contar quantas linhas
>      > possui no arquivo). Eu preciso contar a quantidade de linhas mas nao
>      > pode ser contagem linha a linha.. pois preciso da quantidade antes da
>      > contagem linha linha acabar.. por isso pensei no cat | wc -l
>      >
>      > Obrigada
>      >
>      >
>      >
>      >
>      >
>      >
>     -------------------------------------------------------------------------------
>      > Yahoo! Search Música para ver e ouvir: You're Beautiful, do James
>      > Blunt
>      > _______________________________________________ Cascavel-pm mailing
>      > list Cascavel-pm em pm.org
>      > http://mail.pm.org/mailman/listinfo/cascavel-pm
>     _______________________________________________
>     Cascavel-pm mailing list
>     Cascavel-pm em pm.org
>     http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
> ------------------------------------------------------------------------
> Yahoo! Search
> Música para ver e ouvir: You're Beautiful, do James Blunt 
> <http://us.rd.yahoo.com/mail/br/tagline/search/video/*http://br.search.yahoo.com/search/video?p=james+blunt&ei=UTF-8&cv=g&x=wrt&vm=r&fr=intl-mail-br-b> 
> 
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

-- 
Thomas Storino Britis
TCNet Informatica e Telecomunicacoes LTDA

From acid06 em gmail.com  Fri Jun 23 17:49:06 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 23 Jun 2006 21:49:06 -0300
Subject: [Cascavel-pm] Arrendondamento
In-Reply-To: <20060623181509.88565.qmail@web31310.mail.mud.yahoo.com>
References: <87bqsjyd7l.fsf@gmail.com>
	<20060623181509.88565.qmail@web31310.mail.mud.yahoo.com>
Message-ID: <9a08c9b40606231749t30c8f644m29942dfd65a80b3d@mail.gmail.com>

On 6/23/06, Patty Silva <ptfzs em yahoo.com.br> wrote:
>  meu numero estava separado por virgula, por isso estava arredondando.. com
> . (ponto) o sprintf funciona perfeitamente... ele nao arredonda.. ele
> trunca..

Errado.
O printf arredonda:

perl -e "printf('%.2f', 1.467)"
1.47

Claro que se você testar com 1.433333... vai parecer que ele está
truncando. 1.433333... arredondado é 1.43.

-Nilson Santos F. Jr.

From acid06 em gmail.com  Fri Jun 23 17:58:44 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 23 Jun 2006 21:58:44 -0300
Subject: [Cascavel-pm] Para quem usa Vim com Perl
In-Reply-To: <bb8590d00606230810s123fc2f4w571d56ceb02bac3f@mail.gmail.com>
References: <bb8590d00606230810s123fc2f4w571d56ceb02bac3f@mail.gmail.com>
Message-ID: <9a08c9b40606231758l5a591929gd79365de6d7e603e@mail.gmail.com>

On 6/23/06, Lorn <lorn.br em gmail.com> wrote:
> Eu escrevi algumas coisas sobre o vim7 que é praticamente uma IDE ;)

Pra quem gosta de IDEs, o Komodo é algo indispensável.

Eu, particularmente, não gosto muito de autocomplete para métodos e
coisas do gênero em que você tem que apertar uma keyword específica
pra funcionar. Eu acho útil quando é algo que aparece automaticamente
e eu uso mais pra lembrar mesmo o nome de um método grande ou coisas
assim. Mas eu não sou muito fã de autocomplete pra métodos não.

O editor que eu costumo usar é o EditPlus (no Linux uso o Kate ou o
Vim). O EditPlus tem um recurso de autocomplete que eu acho legal que
é o de completar os parênteses e chaves de estruturas de controle.
Assim, quando eu digito "while", ele já coloca no código:

while () {
}

e coloca o cursor dentro dos parênteses. Isso é muito bom depois que
você acostuma (e como eu comecei a programar usando o EditPlus, não
tive muitos problemas em acostumar). Infelizmente, a maioria das
pessoas já acostumadas com outros editores costuma achar isso meio
irritante e fica "errando" tudo hehe. ;-)

-Nilson Santos F. Jr.

From igor.sutton em gmail.com  Fri Jun 23 18:09:19 2006
From: igor.sutton em gmail.com (Igor Sutton Lopes)
Date: Fri, 23 Jun 2006 22:09:19 -0300
Subject: [Cascavel-pm] Arrendondamento
In-Reply-To: <9a08c9b40606231749t30c8f644m29942dfd65a80b3d@mail.gmail.com>
	(Nilson Santos Figueiredo Junior's message of "Fri,
	23 Jun 2006 21:49:06 -0300")
References: <87bqsjyd7l.fsf@gmail.com>
	<20060623181509.88565.qmail@web31310.mail.mud.yahoo.com>
	<9a08c9b40606231749t30c8f644m29942dfd65a80b3d@mail.gmail.com>
Message-ID: <87bqsjz7eo.fsf@gmail.com>

"Nilson Santos Figueiredo Junior" <acid06 em gmail.com> writes:

Vixe :) Então a melhor alternativa é utilizar uma regex:

perl -e '$a = "1,43634"; $a =~ s/^(\d+\,\d{2}).*$/$1/; print $a'

> On 6/23/06, Patty Silva <ptfzs em yahoo.com.br> wrote:
>>  meu numero estava separado por virgula, por isso estava
>> arredondando.. com . (ponto) o sprintf funciona perfeitamente... ele
>> nao arredonda.. ele trunca..
>
> Errado.  O printf arredonda:
>
> perl -e "printf('%.2f', 1.467)" 1.47
>
> Claro que se você testar com 1.433333... vai parecer que ele está
> truncando. 1.433333... arredondado é 1.43.
>
> -Nilson Santos F. Jr.  _______________________________________________
> Cascavel-pm mailing list Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

From thomas em tcnet.com.br  Fri Jun 23 14:31:35 2006
From: thomas em tcnet.com.br (Thomas Britis)
Date: Fri, 23 Jun 2006 18:31:35 -0300
Subject: [Cascavel-pm] Comando cat | wc -l
In-Reply-To: <20060623192359.49855.qmail@web31304.mail.mud.yahoo.com>
References: <20060623192359.49855.qmail@web31304.mail.mud.yahoo.com>
Message-ID: <449C5DB7.3040104@tcnet.com.br>

Só um comentário meio off-topic: O uso de cat file | wc -l deve ser 
substituido por wc -l file. Isso porque você estará invocando apenas um 
comando (wc) ao invés de dois (cat e wc).

Patty Silva wrote:
> 
> 
> Ai.. esta +- assim:
> 
> open (File, *"*$file*"*) *or* die $!
> 
> $count=system(*'*cat $file | wc
>  -l*'*);
> 
> // ESSE system imprime na tela.. e nao atrivbui a variavel..
> // Eu quero que conte antes de entrar no while
> 
> *while* (*my* $line = <File>)
> {
> 
> }
> 
> 
> 
> oks?? Obrigada
> 
> */Igor Sutton Lopes <igor.sutton em gmail.com>/* escreveu:
> 
>     Patty Silva writes:
> 
>     Cadê seu código inicial?
> 
>      > Pessoal.. qual comando do perl substitui o cat (contar quantas linhas
>      > possui no arquivo). Eu preciso contar a quantidade de linhas mas nao
>      > pode ser contagem linha a linha.. pois preciso da quantidade antes da
>      > contagem linha linha acabar.. por isso pensei no cat | wc -l
>      >
>      > Obrigada
>      >
>      >
>      >
>      >
>      >
>      >
>     -------------------------------------------------------------------------------
>      > Yahoo! Search Música para ver e ouvir: You're Beautiful, do James
>      > Blunt
>      > _______________________________________________ Cascavel-pm mailing
>      > list Cascavel-pm em pm.org
>      > http://mail.pm.org/mailman/listinfo/cascavel-pm
>     _______________________________________________
>     Cascavel-pm mailing list
>     Cascavel-pm em pm.org
>     http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
> ------------------------------------------------------------------------
> Yahoo! Search
> Música para ver e ouvir: You're Beautiful, do James Blunt 
> <http://us.rd.yahoo.com/mail/br/tagline/search/video/*http://br.search.yahoo.com/search/video?p=james+blunt&ei=UTF-8&cv=g&x=wrt&vm=r&fr=intl-mail-br-b> 
> 
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

-- 
Thomas Storino Britis
TCNet Informatica e Telecomunicacoes LTDA

From acid06 em gmail.com  Fri Jun 23 18:24:59 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Fri, 23 Jun 2006 22:24:59 -0300
Subject: [Cascavel-pm] Arrendondamento
In-Reply-To: <87bqsjz7eo.fsf@gmail.com>
References: <87bqsjyd7l.fsf@gmail.com>
	<20060623181509.88565.qmail@web31310.mail.mud.yahoo.com>
	<9a08c9b40606231749t30c8f644m29942dfd65a80b3d@mail.gmail.com>
	<87bqsjz7eo.fsf@gmail.com>
Message-ID: <9a08c9b40606231824p715ac66cq346ccb031ef5dd3@mail.gmail.com>

On 6/23/06, Igor Sutton Lopes <igor.sutton em gmail.com> wrote:
> Vixe :) Então a melhor alternativa é utilizar uma regex:
>
> perl -e '$a = "1,43634"; $a =~ s/^(\d+\,\d{2}).*$/$1/; print $a'

Não sei se a melhor alternativa seja uma regex, mas é o que eu faria
se eu não quisesse procurar muito. Mas deve ter algum módulo que
encapsula isso.

Minha tentativa que eu achei um pouco mais "bonitinha". ;-)

$num =~ s/(?<=\.\d\d)\d+//;

-Nilson Santos F. Jr.

From fernandocorrea em gmail.com  Fri Jun 23 21:10:59 2006
From: fernandocorrea em gmail.com (Fernando)
Date: Sat, 24 Jun 2006 01:10:59 -0300
Subject: [Cascavel-pm] Arrendondamento
In-Reply-To: <9a08c9b40606231824p715ac66cq346ccb031ef5dd3@mail.gmail.com>
References: <87bqsjyd7l.fsf@gmail.com>	<20060623181509.88565.qmail@web31310.mail.mud.yahoo.com>	<9a08c9b40606231749t30c8f644m29942dfd65a80b3d@mail.gmail.com>	<87bqsjz7eo.fsf@gmail.com>
	<9a08c9b40606231824p715ac66cq346ccb031ef5dd3@mail.gmail.com>
Message-ID: <449CBB53.20003@gmail.com>

Nilson Santos Figueiredo Junior escreveu:
> On 6/23/06, Igor Sutton Lopes <igor.sutton em gmail.com> wrote:
>   
>> Vixe :) Então a melhor alternativa é utilizar uma regex:
>>
>> perl -e '$a = "1,43634"; $a =~ s/^(\d+\,\d{2}).*$/$1/; print $a'
>>     
>
> Não sei se a melhor alternativa seja uma regex, mas é o que eu faria
> se eu não quisesse procurar muito. Mas deve ter algum módulo que
> encapsula isso.
>
> Minha tentativa que eu achei um pouco mais "bonitinha". ;-)
>
> $num =~ s/(?<=\.\d\d)\d+//;
>
> -Nilson Santos F. Jr.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>   
Q tal usar a matematica? Concordo, é 1/2 feio, mas funciona...
perl -e '$a = "1.43634"; printf("%.2f\n", int($a*100)/100)'

From fernandocorrea em gmail.com  Fri Jun 23 21:45:30 2006
From: fernandocorrea em gmail.com (Fernando)
Date: Sat, 24 Jun 2006 01:45:30 -0300
Subject: [Cascavel-pm] Arrendondamento
In-Reply-To: <9a08c9b40606231824p715ac66cq346ccb031ef5dd3@mail.gmail.com>
References: <87bqsjyd7l.fsf@gmail.com>	<20060623181509.88565.qmail@web31310.mail.mud.yahoo.com>	<9a08c9b40606231749t30c8f644m29942dfd65a80b3d@mail.gmail.com>	<87bqsjz7eo.fsf@gmail.com>
	<9a08c9b40606231824p715ac66cq346ccb031ef5dd3@mail.gmail.com>
Message-ID: <449CC36A.60500@gmail.com>

Nilson Santos Figueiredo Junior escreveu:
> On 6/23/06, Igor Sutton Lopes <igor.sutton em gmail.com> wrote:
>   
>> Vixe :) Então a melhor alternativa é utilizar uma regex:
>>
>> perl -e '$a = "1,43634"; $a =~ s/^(\d+\,\d{2}).*$/$1/; print $a'
>>     
>
> Não sei se a melhor alternativa seja uma regex, mas é o que eu faria
> se eu não quisesse procurar muito. Mas deve ter algum módulo que
> encapsula isso.
>
> Minha tentativa que eu achei um pouco mais "bonitinha". ;-)
>
> $num =~ s/(?<=\.\d\d)\d+//;
>
> -Nilson Santos F. Jr.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>   
Uma melhorada:
perl -e '$a = "1.43634";print trunc($a, 2); sub
trunc(){return(int(shift()*($div=10**shift()))/$div)}'


From ptfzs em yahoo.com.br  Sat Jun 24 08:23:01 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Sat, 24 Jun 2006 12:23:01 -0300 (ART)
Subject: [Cascavel-pm] Arrendondamento
In-Reply-To: <449CC36A.60500@gmail.com>
Message-ID: <20060624152301.16622.qmail@web31304.mail.mud.yahoo.com>

Ok pessoal.. realmente ele arredonda msm!! :) sorry
 Utilizei a alternativa sugerida pelo nosso amigo e grande Genio Nilson :)
 
 $num1 =~ s/^?(\d+\,\d{2}).*$/$1/;
 $num22 =~ s/^?(\d+\,\d{2}).*$/$1/;
 
 Coloquei um ? na frente pois o numero pode ser negativo :)
 
 Obrigada pessoal
 

Fernando <fernandocorrea em gmail.com> escreveu: Nilson Santos Figueiredo Junior escreveu:
> On 6/23/06, Igor Sutton Lopes  wrote:
>   
>> Vixe :) Então a melhor alternativa é utilizar uma regex:
>>
>> perl -e '$a = "1,43634"; $a =~ s/^(\d+\,\d{2}).*$/$1/; print $a'
>>     
>
> Não sei se a melhor alternativa seja uma regex, mas é o que eu faria
> se eu não quisesse procurar muito. Mas deve ter algum módulo que
> encapsula isso.
>
> Minha tentativa que eu achei um pouco mais "bonitinha". ;-)
>
> $num =~ s/(?<=\.\d\d)\d+//;
>
> -Nilson Santos F. Jr.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>   
Uma melhorada:
perl -e '$a = "1.43634";print trunc($a, 2); sub
trunc(){return(int(shift()*($div=10**shift()))/$div)}'

_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


 		
---------------------------------
 Yahoo! Copa 2006 - cobertura dos jogos em tempo real e tudo sobre a seleção brasileira!
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060624/f3e99430/attachment.html 

From acid06 em gmail.com  Sat Jun 24 08:30:17 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Sat, 24 Jun 2006 12:30:17 -0300
Subject: [Cascavel-pm] Arrendondamento
In-Reply-To: <20060624152301.16622.qmail@web31304.mail.mud.yahoo.com>
References: <449CC36A.60500@gmail.com>
	<20060624152301.16622.qmail@web31304.mail.mud.yahoo.com>
Message-ID: <9a08c9b40606240830w6fe5ee8g2cbd0c93e719c96f@mail.gmail.com>

On 6/24/06, Patty Silva <ptfzs em yahoo.com.br> wrote:
>  $num1 =~ s/^?(\d+\,\d{2}).*$/$1/;

Na verdade, essa foi a sugerida pelo Igor. ;-)

-Nilson Santos F. Jr.

From ptfzs em yahoo.com.br  Sat Jun 24 08:46:02 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Sat, 24 Jun 2006 12:46:02 -0300 (ART)
Subject: [Cascavel-pm] Comando cat | wc -l
In-Reply-To: <449C4C55.2080902@tcnet.com.br>
Message-ID: <20060624154602.53159.qmail@web31311.mail.mud.yahoo.com>

Ok Pessoall Obrigada + uma vez:
 
 
 Codigos que funcionaram:
 
  open (File, "$file");
 while () { $x++; }
 seek (File, 0, 0);
 while (my $line = )
 (...)
 
 
 
my $file = 'arquivo.txt';
open(IN, $file) or die "Cannot read $file: $!\n";
my @content = <IN>;
close(IN);
my $lines = @content - 1;


perl -ne 'END{print$.}' arquivo 

Esse ultimo achei pequeno porem nao consegui implementa-lo no meu script..
Mas o restante funcionou perfeito

Obrigada
:)



print "File $file has $lines lines\n";
 

Thomas Britis <thomas em tcnet.com.br> escreveu: open (File, "$file");
while () { $x++; }
seek (File, 0, 0);
while (my $line = )
(...)

Patty Silva wrote:
> 
> 
> Ai.. esta +- assim:
> 
> open (File, *"*$file*"*) *or* die $!
> 
> $count=system(*'*cat $file | wc
>  -l*'*);
> 
> // ESSE system imprime na tela.. e nao atrivbui a variavel..
> // Eu quero que conte antes de entrar no while
> 
> *while* (*my* $line = )
> {
> 
> }
> 
> 
> 
> oks?? Obrigada
> 
> */Igor Sutton Lopes /* escreveu:
> 
>     Patty Silva writes:
> 
>     Cadê seu código inicial?
> 
>      > Pessoal.. qual comando do perl substitui o cat (contar quantas linhas
>      > possui no arquivo). Eu preciso contar a quantidade de linhas mas nao
>      > pode ser contagem linha a linha.. pois preciso da quantidade antes da
>      > contagem linha linha acabar.. por isso pensei no cat | wc -l
>      >
>      > Obrigada
>      >
>      >
>      >
>      >
>      >
>      >
>     -------------------------------------------------------------------------------
>      > Yahoo! Search Música para ver e ouvir: You're Beautiful, do James
>      > Blunt
>      > _______________________________________________ Cascavel-pm mailing
>      > list Cascavel-pm em pm.org
>      > http://mail.pm.org/mailman/listinfo/cascavel-pm
>     _______________________________________________
>     Cascavel-pm mailing list
>     Cascavel-pm em pm.org
>     http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
> ------------------------------------------------------------------------
> Yahoo! Search
> Música para ver e ouvir: You're Beautiful, do James Blunt 
>  
> 
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

-- 
Thomas Storino Britis
TCNet Informatica e Telecomunicacoes LTDA
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


 		
---------------------------------
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060624/b274ddb2/attachment.html 

From ptfzs em yahoo.com.br  Sat Jun 24 09:48:55 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Sat, 24 Jun 2006 13:48:55 -0300 (ART)
Subject: [Cascavel-pm] Arrendondamento
In-Reply-To: <9a08c9b40606240830w6fe5ee8g2cbd0c93e719c96f@mail.gmail.com>
Message-ID: <20060624164855.95240.qmail@web31312.mail.mud.yahoo.com>

oks :)
 Os dois sao genios msm!! :) Alias.. todos da lista sao! :-)
 
 Obrigada pessoal

Nilson Santos Figueiredo Junior <acid06 em gmail.com> escreveu: On 6/24/06, Patty Silva 
 wrote:
>  $num1 =~ s/^?(\d+\,\d{2}).*$/$1/;

Na verdade, essa foi a sugerida pelo Igor. ;-)

-Nilson Santos F. Jr.
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm



 		
---------------------------------
 Yahoo! Search
 Música para ver e ouvir: You're Beautiful, do James Blunt
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060624/4b950d6f/attachment.html 

From studio_artes em hotmail.com  Sat Jun 24 17:30:29 2006
From: studio_artes em hotmail.com (studio artes)
Date: Sat, 24 Jun 2006 21:30:29 -0300
Subject: [Cascavel-pm] paz na terra
In-Reply-To: <mailman.5.1151175614.11545.cascavel-pm@pm.org>
Message-ID: <BAY113-F23DCB9B2AD6012E9876D52F1780@phx.gbl>

- eu só nao entendo por q vcs me mandam tantos emails ?????????

_________________________________________________________________
COPA 2006: (¯`·._.·[ Ooooooola ]·._.·´¯) e + frases para seu MSN  Clique 
aqui! http://copa.br.msn.com/extra/frases/


From acid06 em gmail.com  Sat Jun 24 21:41:55 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Sun, 25 Jun 2006 01:41:55 -0300
Subject: [Cascavel-pm] paz na terra
In-Reply-To: <BAY113-F23DCB9B2AD6012E9876D52F1780@phx.gbl>
References: <mailman.5.1151175614.11545.cascavel-pm@pm.org>
	<BAY113-F23DCB9B2AD6012E9876D52F1780@phx.gbl>
Message-ID: <9a08c9b40606242141i26e75992ue7d4b7cc6201e5bc@mail.gmail.com>

On 6/24/06, studio artes <studio_artes em hotmail.com> wrote:
> - eu só nao entendo por q vcs me mandam tantos emails ?????????

Essa é uma lista de discussão sobre Perl. Você recebe esses emails
porque se inscreveu nessa lista.

Caso você não queira mais fazer parte da mesma, pode seguir as
instruções disponíveis em
http://mail.pm.org/mailman/listinfo/cascavel-pm para se desinscrever.

-Nilson Santos F. Jr.

From perl em atechs.com.br  Sun Jun 25 07:00:00 2006
From: perl em atechs.com.br (Vinicius Alves)
Date: Sun, 25 Jun 2006 11:00:00 -0300
Subject: [Cascavel-pm] Comando cat | wc -l
References: <20060623192359.49855.qmail@web31304.mail.mud.yahoo.com>
Message-ID: <004e01c6985f$bb28dbd0$0ccb34c9@alpha>

Patty,

A função system() não retorna nada. Se quiser retorno, use 

$count=`cat $file | wc -l`; # com crases

Como já foi dito, o comando cat mostra em STDOUT o conteúdo de um ou mais arquivos (conCATenados). A contagem fica por conta do comando wc (word count) que, com a opção -l conta as linhas.

Apesar de eu não recomendar chamadas ao sistema, às vezes são necessárias.

Vinicius
  ----- Original Message ----- 
  From: Patty Silva 
  To: Cascavel Perl Mongers 
  Sent: Friday, June 23, 2006 4:23 PM
  Subject: Re: [Cascavel-pm] Comando cat | wc -l


Ai.. esta +- assim:open (File, "$file") or die $!$count=system('cat $file | wc
 -l');// ESSE system imprime na tela.. e nao atrivbui a variavel..// Eu quero que conte antes de entrar no whilewhile (my $line = <File>){}

  oks?? Obrigada

  Igor Sutton Lopes <igor.sutton em gmail.com> escreveu:
    Patty Silva writes:

    Cadê seu código inicial?

    > Pessoal.. qual comando do perl substitui o cat (contar quantas linhas
    > possui no arquivo). Eu preciso contar a quantidade de linhas mas nao
    > pode ser contagem linha a linha.. pois preciso da quantidade antes da
    > contagem linha linha acabar.. por isso pensei no cat | wc -l
    >
    > Obrigada
    >
    >
    >
    >
    >
    > -------------------------------------------------------------------------------
    > Yahoo! Search Música para ver e ouvir: You're Beautiful, do James
    > Blunt
    > _______________________________________________ Cascavel-pm mailing
    > list Cascavel-pm em pm.org
    > http://mail.pm.org/mailman/listinfo/cascavel-pm
    _______________________________________________
    Cascavel-pm mailing list
    Cascavel-pm em pm.org
    http://mail.pm.org/mailman/listinfo/cascavel-pm





------------------------------------------------------------------------------
  Yahoo! Search
  Música para ver e ouvir: You're Beautiful, do James Blunt


------------------------------------------------------------------------------


  _______________________________________________
  Cascavel-pm mailing list
  Cascavel-pm em pm.org
  http://mail.pm.org/mailman/listinfo/cascavel-pm


------------------------------------------------------------------------------


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.394 / Virus Database: 268.9.2/372 - Release Date: 21/6/2006
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060625/3c1f4d49/attachment.html 

From frighetti em cascavel.pm.org  Sun Jun 25 07:24:36 2006
From: frighetti em cascavel.pm.org (Fabiano Reese Righetti)
Date: Sun, 25 Jun 2006 11:24:36 -0300
Subject: [Cascavel-pm] Comando cat | wc -l
In-Reply-To: <20060623185036.22061.qmail@web30813.mail.mud.yahoo.com>
References: <20060623185036.22061.qmail@web30813.mail.mud.yahoo.com>
Message-ID: <449E9CA4.9020909@cascavel.pm.org>

Alceu R. de Freitas Jr. escreveu:
> --- Patty Silva <ptfzs em yahoo.com.br> escreveu:
> 
>> Pessoal.. qual comando do perl substitui o cat
>> (contar quantas linhas possui no arquivo).
> 
> O cat só imprime o conteúdo de um arquivo para STDOUT.
> Se você ler o arquivo e imprimir o conteúdo dele você
> já fez um cat-perl. :-)
> 
>>  Eu preciso contar a quantidade de linhas mas nao
>> pode ser contagem linha a linha.. pois preciso da
>> quantidade antes da contagem linha linha acabar..
>> por isso pensei no   cat | wc -l
> 
> Tem mais de um jeito de fazer isso. Um jeito rápido
> (mas não elegante):
> 
> my $file = 'arquivo.txt';
> open(IN, $file) or die "Cannot read $file: $!\n";
> my @content = <IN>;
> close(IN);
> my $lines = @content - 1;

    Em vez de atribuir o conteúdo do arquivo a uma variável...
Poderia fazer assim também:

my $lines = $#{[ <IN> ]}+1;

--
Fabiano Reese Righetti


From acid06 em gmail.com  Sun Jun 25 08:00:35 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Sun, 25 Jun 2006 12:00:35 -0300
Subject: [Cascavel-pm] Comando cat | wc -l
In-Reply-To: <449E9CA4.9020909@cascavel.pm.org>
References: <20060623185036.22061.qmail@web30813.mail.mud.yahoo.com>
	<449E9CA4.9020909@cascavel.pm.org>
Message-ID: <9a08c9b40606250800j7d4c45beoaa9428eb172c6a7b@mail.gmail.com>

On 6/25/06, Fabiano Reese Righetti <frighetti em cascavel.pm.org> wrote:
> my $lines = $#{[ <IN> ]}+1;

Um pouquinho melhor:

my $lines = @{[<IN>]};

-Nilson Santos F. Jr.

From fernandocorrea em gmail.com  Sun Jun 25 08:34:54 2006
From: fernandocorrea em gmail.com (Fernando)
Date: Sun, 25 Jun 2006 12:34:54 -0300
Subject: [Cascavel-pm] Comando cat | wc -l
In-Reply-To: <9a08c9b40606250800j7d4c45beoaa9428eb172c6a7b@mail.gmail.com>
References: <20060623185036.22061.qmail@web30813.mail.mud.yahoo.com>	<449E9CA4.9020909@cascavel.pm.org>
	<9a08c9b40606250800j7d4c45beoaa9428eb172c6a7b@mail.gmail.com>
Message-ID: <449EAD1E.3050607@gmail.com>

Já existe uma variavel especial q faz isso p/ vc... use o "$." ...
Se quiser contar as linhas, eu usar essas linhas de alguma forma, basta:

perl -e 'open FILE,shift;@file=<FILE>;print$. for(@file){"tratamento da
linha"}' arquivo

ou

perl -ne '"tratamento da linha"; END{print $.}' arquivo



Nilson Santos Figueiredo Junior escreveu:
> On 6/25/06, Fabiano Reese Righetti <frighetti em cascavel.pm.org> wrote:
>   
>> my $lines = $#{[ <IN> ]}+1;
>>     
>
> Um pouquinho melhor:
>
> my $lines = @{[<IN>]};
>
> -Nilson Santos F. Jr.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>   


From glasswalk3r em yahoo.com.br  Mon Jun 26 07:05:48 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Mon, 26 Jun 2006 11:05:48 -0300 (ART)
Subject: [Cascavel-pm] Comando cat | wc -l
In-Reply-To: <004e01c6985f$bb28dbd0$0ccb34c9@alpha>
Message-ID: <20060626140548.47083.qmail@web30802.mail.mud.yahoo.com>


--- Vinicius Alves <perl em atechs.com.br> escreveu:

> Patty,
> 
> A função system() não retorna nada. Se quiser
> retorno, use 

Retorna sim. Quem não retorna nada é o exec().



Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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


		
_______________________________________________________ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
http://mail.yahoo.com.br/

From ptfzs em yahoo.com.br  Mon Jun 26 09:53:16 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 26 Jun 2006 13:53:16 -0300 (ART)
Subject: [Cascavel-pm] Criando formularios formatados
Message-ID: <20060626165316.66709.qmail@web31313.mail.mud.yahoo.com>

Pessoal.. alguem ja criou algum formulario formatado com Perl?? para dar um exemplo..
 
 
 Obrigada
 
 		
---------------------------------
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060626/6533ffc2/attachment.html 

From fglock em gmail.com  Mon Jun 26 10:03:47 2006
From: fglock em gmail.com (Flavio S. Glock)
Date: Mon, 26 Jun 2006 14:03:47 -0300
Subject: [Cascavel-pm] duvida array - Splice
In-Reply-To: <20060623124347.68638.qmail@web31308.mail.mud.yahoo.com>
References: <20060623124347.68638.qmail@web31308.mail.mud.yahoo.com>
Message-ID: <aa47605d0606261003q5f3f83dcl4f50fb66b1e505d6@mail.gmail.com>

Em 23/06/06, Patty Silva<ptfzs em yahoo.com.br> escreveu:
>  obs: outra duvida eh...em um array mudar de posicao alguns elementos!! tem
> como??
>  ex
>  @array=(1,"c",3,4,"d",5,7);
>  trocar o elemento 3 pelo elemento 4

Esta operação é chamada de 'slice':

  @array=(1,"c",3,4,"d",5,7);
  @array[2,3] = @array[3,2];
  print @array;

- Flavio S. Glock

From glasswalk3r em yahoo.com.br  Mon Jun 26 10:55:42 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Mon, 26 Jun 2006 14:55:42 -0300 (ART)
Subject: [Cascavel-pm] Criando formularios formatados
In-Reply-To: <20060626165316.66709.qmail@web31313.mail.mud.yahoo.com>
Message-ID: <20060626175542.41731.qmail@web30801.mail.mud.yahoo.com>


--- Patty Silva <ptfzs em yahoo.com.br> escreveu:

> Pessoal.. alguem ja criou algum formulario formatado
> com Perl?? para dar um exemplo..

Como seria esse formulário formato? Um formulário web?
Aplicação desktop com Tk (ou outra biblioteca
qualquer)?

Ou você quer gerar um relatório pré-formatado?

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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


		
_______________________________________________________ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/ 
 


From ptfzs em yahoo.com.br  Mon Jun 26 11:32:09 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Mon, 26 Jun 2006 15:32:09 -0300 (ART)
Subject: [Cascavel-pm] Criando formularios formatados
In-Reply-To: <20060626175542.41731.qmail@web30801.mail.mud.yahoo.com>
Message-ID: <20060626183209.67217.qmail@web31303.mail.mud.yahoo.com>

Gerar relatorio pre-formatado.. nao eh para web.. 
 Achei exemplos utilizando format.. acho que resolvo meu problema ?)
 
 Obrigada

"Alceu R. de Freitas Jr." <glasswalk3r em yahoo.com.br> escreveu: 
--- Patty Silva 
 escreveu:

> Pessoal.. alguem ja criou algum formulario formatado
> com Perl?? para dar um exemplo..

Como seria esse formulário formato? Um formulário web?
Aplicação desktop com Tk (ou outra biblioteca
qualquer)?

Ou você quer gerar um relatório pré-formatado?

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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


  
_______________________________________________________ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/ 
 

_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm



 		
---------------------------------
 Yahoo! Search
 Música para ver e ouvir: You're Beautiful, do James Blunt
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060626/3e4b29c2/attachment.html 

From nascimenthiago em gmail.com  Mon Jun 26 11:38:20 2006
From: nascimenthiago em gmail.com (tnas)
Date: Mon, 26 Jun 2006 15:38:20 -0300
Subject: [Cascavel-pm] Class DBI
Message-ID: <44A0299C.3040501@gmail.com>

Olá,

Estou usando a Class::DBI para acessar o MySQL. Porém preciso efetuar 
duas consultas distintas. O problema é que para acessar os métodos da 
classe eu uso a variável __PACKAGE__ e isto está fazendo com que uma 
consulta interfira na outra.

Mais especificamente, as colunas que eu defino para uma consulta estão 
sendo vistas pela outra consulta.

Alguém sabe como posso usar a Class::DBI sem utilizar __PACKAGE__?

[]'s.



From acid06 em gmail.com  Mon Jun 26 12:05:33 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Mon, 26 Jun 2006 16:05:33 -0300
Subject: [Cascavel-pm] Class DBI
In-Reply-To: <44A0299C.3040501@gmail.com>
References: <44A0299C.3040501@gmail.com>
Message-ID: <9a08c9b40606261205n32d05d41ja7798e389c52ab18@mail.gmail.com>

On 6/26/06, tnas <nascimenthiago em gmail.com> wrote:
> Estou usando a Class::DBI para acessar o MySQL. Porém preciso efetuar
> duas consultas distintas. O problema é que para acessar os métodos da
> classe eu uso a variável __PACKAGE__ e isto está fazendo com que uma
> consulta interfira na outra.

__PACKAGE__ não é uma variável de verdade.

É como se fosse uma constante e ela é sempre igual ao pacote no qual
aquele código foi compilado. Por exemplo:

package Modulo1;
print __PACKAGE__;

Irá imprimir "Modulo1" na saída.

> Mais especificamente, as colunas que eu defino para uma consulta estão
> sendo vistas pela outra consulta.

Sem código fica difícil especular o que está sendo feito de errado.

> Alguém sabe como posso usar a Class::DBI sem utilizar __PACKAGE__?

Provavelmente, você não está utilizando corretamente o módulo.
Normalmente, você utiliza __PACKAGE__ nas classes de definição das
tabelas de bancos de dados. Nas classes onde você acessa esses dados
propriamente ditos, você utilizaria o nome da classe explícito.

O padrão de uso de mapeadores objeto relacional é algo como:

package MyDB::Base;
use base 'Class::DBI';

__PACKAGE__->connection( ... );

package MyDB::Tabela1;
use base 'MyDB::Base';

__PACKAGE__->table('tabela1');

#  etc

package main;
MyDB::Tabela1->find( ... );

Note que a utilização do Class::DBI não é recomendada hoje em dia.
Atualmente existe um mapeador objeto relacional que é mais avançado
tanto em recursos quanto em performance, além de ser ativamente
mantido que é o DBIx::Class.

-Nilson Santos F. Jr.

From glasswalk3r em yahoo.com.br  Mon Jun 26 12:15:09 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Mon, 26 Jun 2006 16:15:09 -0300 (ART)
Subject: [Cascavel-pm] =?iso-8859-1?q?d=FAvidas_com_rela=E7=E3o_ao_Maypole?=
 =?iso-8859-1?q?_=28e_Class=3A=3ADBI_e_Template_Toolkit=29?=
Message-ID: <20060626191509.57976.qmail@web30807.mail.mud.yahoo.com>

Olá monges,

Estou precisando escrever uma aplicação web simples,
com aquele velho acesso de select/update/delete...
andei olhando por aí e o Maypole parece ser perfeito
para isso.

No entanto, pelos artigos que eu vi publicados o uso
de Template Toolkit e Class::DBI é grande: minha
dúvida é, quanto eu tenho que saber sobre esses
módulos para usar o Maypole? O básico? Tudo?

Eu procurei um framework porque não queria ter que
aprender novos módulos que fazem uma parte do serviço
todo... queria saber se pela curva de aprendizado vale
a pena esse esforço (ou continuo usando classes DAO e
HTML::Template mesmo).

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 


From edencardim em gmail.com  Mon Jun 26 12:17:04 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Mon, 26 Jun 2006 16:17:04 -0300
Subject: [Cascavel-pm] Class DBI
In-Reply-To: <44A0299C.3040501@gmail.com>
References: <44A0299C.3040501@gmail.com>
Message-ID: <3de55ead0606261217g735389aak42fbd4bd017345f7@mail.gmail.com>

On 6/26/06, tnas <nascimenthiago em gmail.com> wrote:
> Olá,
>
> Estou usando a Class::DBI para acessar o MySQL. Porém preciso efetuar
> duas consultas distintas. O problema é que para acessar os métodos da
> classe eu uso a variável __PACKAGE__ e isto está fazendo com que uma
> consulta interfira na outra.

Tem certeza que é isso mesmo que está fazendo uma consulta interferir na outra?

> Mais especificamente, as colunas que eu defino para uma consulta estão
> sendo vistas pela outra consulta.

Não tá dando pra entender bem o que você quis dizer com isso, me
parece que você está confundindo consulta com mapemento tabela <->
classe. Usando Class::DBI, as consultas são realizadas
transparentemente quando você invoca os métodos adequados em cima de
uma tabela mapeada para uma classe (retrieve, search, etc). Esses
métodos vão retornar instâncias da classe representando a tabela sobre
a qual a consulta foi realizada, populados com os dados retornados
pela consulta. Os acessores, e consequentemente os dados de todas as
colunas da tabela (que você declarou quando criou a classe) sempre vão
estar disponíveis.

From acid06 em gmail.com  Mon Jun 26 12:43:59 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Mon, 26 Jun 2006 16:43:59 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?d=FAvidas_com_rela=E7=E3o_ao_Maypole?=
	=?iso-8859-1?q?_=28e_Class=3A=3ADBI_e_Template_Toolkit=29?=
In-Reply-To: <20060626191509.57976.qmail@web30807.mail.mud.yahoo.com>
References: <20060626191509.57976.qmail@web30807.mail.mud.yahoo.com>
Message-ID: <9a08c9b40606261243j50412f7fm15b21acd956223f4@mail.gmail.com>

On 6/26/06, Alceu R. de Freitas Jr. <glasswalk3r em yahoo.com.br> wrote:
> Estou precisando escrever uma aplicação web simples,
> com aquele velho acesso de select/update/delete...
> andei olhando por aí e o Maypole parece ser perfeito
> para isso.

Maypole é antigo, pouco flexível e semi-abandonado.
Use o Catalyst, que foi evoluído a partir do Maypole há muito tempo atrás.

É bem tranqüilo de aprender se você já for familiar com Template
Toolkit e mapeadores objeto relacional (em particular, o DBIx::Class,
que é um ORM feito justamente para suprir as deficiências do
Class::DBI).

Se você não souber nada, o conceito de mapeadores objeto-relacional é
bem simples e fácil de aprender. Quando eu fui aprender, meu maior
problema foi o Template::Toolkit mesmo, porque a parte do Catalyst
também foi bem fácil.

O Catalyst é mais interessante porque ele suporta várias Views
diferentes sem muito esforço então, você poderia utilizar o Mason ou
até mesmo o HTML::Template que você já conhece (apesar dele ser
bastante inflexível e algo como TT ou Mason serem altamente
recomendados).

www.catalystframework.org

Aliás, hoje saiu uma versão nova de desenvolvimento do Catalyst e do
DBIx-Class com alguns recursos legais.

-Nilson Santos F. Jr.

From edencardim em gmail.com  Mon Jun 26 12:49:43 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Mon, 26 Jun 2006 16:49:43 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?d=FAvidas_com_rela=E7=E3o_ao_Maypole?=
	=?iso-8859-1?q?_=28e_Class=3A=3ADBI_e_Template_Toolkit=29?=
In-Reply-To: <20060626191509.57976.qmail@web30807.mail.mud.yahoo.com>
References: <20060626191509.57976.qmail@web30807.mail.mud.yahoo.com>
Message-ID: <3de55ead0606261249i5dc25e4ehe0c6ff35e978cedf@mail.gmail.com>

On 6/26/06, Alceu R. de Freitas Jr. <glasswalk3r em yahoo.com.br> wrote:
> Olá monges,
>
> Estou precisando escrever uma aplicação web simples,
> com aquele velho acesso de select/update/delete...
> andei olhando por aí e o Maypole parece ser perfeito
> para isso.
>
> No entanto, pelos artigos que eu vi publicados o uso
> de Template Toolkit e Class::DBI é grande: minha
> dúvida é, quanto eu tenho que saber sobre esses
> módulos para usar o Maypole? O básico? Tudo?

Pra aplicações CRUD é tiro e queda, não precisa saber quase nada de TT
nem de CDBI jah q ele vem com templates padrão
(http://search.cpan.org/~teejay/Maypole-2.11_pre3/lib/Maypole/Model/CDBI.pm)
e usa CDBI::Loader
(http://search.cpan.org/~teejay/Maypole-2.11_pre3/lib/Maypole/Manual/StandardTemplates.pod)
para configurar e carregar as classes do bancos de dados
automaticamente.
Minha primeira aplicação Maypole foi feita seguindo o tutorial,
substituindo o banco de dados e fazendo algumas modificações mínimas
na configuração.

From glasswalk3r em yahoo.com.br  Mon Jun 26 13:20:34 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Mon, 26 Jun 2006 17:20:34 -0300 (ART)
Subject: [Cascavel-pm]
 =?iso-8859-1?q?d=FAvidas_com_rela=E7=E3o_ao_Maypole?=
 =?iso-8859-1?q?_=28e_Class=3A=3ADBI_e_Template_Toolkit=29?=
In-Reply-To: <9a08c9b40606261243j50412f7fm15b21acd956223f4@mail.gmail.com>
Message-ID: <20060626202034.74640.qmail@web30813.mail.mud.yahoo.com>


--- Nilson Santos Figueiredo Junior <acid06 em gmail.com>
escreveu:

> Maypole é antigo, pouco flexível e semi-abandonado.
> Use o Catalyst, que foi evoluído a partir do Maypole
> há muito tempo atrás.

Eu li um artigo introdutório sobre Catalyst e ele fala
que esse framework é mais flexível do que o Maypole e
permite criar websites que façam mais do que trabalhar
com um BD. Quando eu li isso eu deixei de lado, porque
trabalhar com um BD é justamente o que preciso.
 
> Se você não souber nada, o conceito de mapeadores
> objeto-relacional é
> bem simples e fácil de aprender. Quando eu fui
> aprender, meu maior
> problema foi o Template::Toolkit mesmo, porque a
> parte do Catalyst
> também foi bem fácil.

Particularmente eu não gosto de mapeadores: prefiro
trabalhar com DAO. Os mapeadores são úteis quando as
queries são simples: se você começa a complicá-las,
ele começa a ficar lerdo. Não dá para usar alguns
truques "sujos" de SQL usando código nativo do BD
também (ou dá e não estou sabendo?).

Já o TT... julgando pelo livrão publicado da O'Reilly
ele deve fazer até café! :-)

> O Catalyst é mais interessante porque ele suporta
> várias Views
> diferentes sem muito esforço então, você poderia
> utilizar o Mason ou
> até mesmo o HTML::Template que você já conhece
> (apesar dele ser
> bastante inflexível e algo como TT ou Mason serem
> altamente
> recomendados).
> 
> www.catalystframework.org

Valeu pelas informações Nilson. Eu não sou um
programador Perl/web peso-pesado, então nunca senti
necessidade de usar algo mais complexo (e com mais
recursos, acho que o primeiro é sempre decorrência do
segundo) do que o HTML::Template.

Eu realmente preciso fazer um website simples e tempo
é um recurso escasso: é como se eu tivesse que
aprender a operar um canhão para matar um pardal.
Talvez no futuro eu decida dedicar algum tempo para
aprender essa tríade.

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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


		
_______________________________________________________ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/ 
 


From acid06 em gmail.com  Mon Jun 26 13:30:06 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Mon, 26 Jun 2006 17:30:06 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?d=FAvidas_com_rela=E7=E3o_ao_Maypole?=
	=?iso-8859-1?q?_=28e_Class=3A=3ADBI_e_Template_Toolkit=29?=
In-Reply-To: <20060626202034.74640.qmail@web30813.mail.mud.yahoo.com>
References: <9a08c9b40606261243j50412f7fm15b21acd956223f4@mail.gmail.com>
	<20060626202034.74640.qmail@web30813.mail.mud.yahoo.com>
Message-ID: <9a08c9b40606261330jaf53428u1e0943574e932ddb@mail.gmail.com>

On 6/26/06, Alceu R. de Freitas Jr. <glasswalk3r em yahoo.com.br> wrote:
> Eu li um artigo introdutório sobre Catalyst e ele fala
> que esse framework é mais flexível do que o Maypole e
> permite criar websites que façam mais do que trabalhar
> com um BD. Quando eu li isso eu deixei de lado, porque
> trabalhar com um BD é justamente o que preciso.

Se você for comparar Perl com PHP, você pode dizer que Perl faz muito
mais que páginas web. Nem por isso quer dizer que Perl também não seja
melhor pra fazer página web.

É a mesma situação.

O problema do Maypole é que se você precisar de sair um pouquinho além
de um CRUD tradicional, você não consegue. O Catalyst surgiu pra
acabar com isso. Com o tempo, ele ficou muito mais bem suportado,
documentado e faz tudo mesmo melhor que o Maypole. ;-)

> Particularmente eu não gosto de mapeadores: prefiro
> trabalhar com DAO. Os mapeadores são úteis quando as
> queries são simples: se você começa a complicá-las,
> ele começa a ficar lerdo.

Exatamente esse tipo de coisa é que o DBIx-Class tenta evitar.

Ele é um mapeador objeto-relacional que tenta ser o mais eficiente
possível. Ele faz muitas as queries um pouco mais complexas que o
Class-DBI não dá conta (usando group by, por exemplo), a versão mais
nova faz coisas ainda mais interessantes como cuidar de relações
many-to-many automaticamente, sem que você tenha que se preocupar com
a tabela intermediária de mapeamento (apesar de que, se você precisar,
você pode utilizá-la).

E quando você tiver algo realmente complexo, que ele não dê conta,
aquilo não deveria ser uma query e sim uma view no seu banco de dados.
;-)

> Eu realmente preciso fazer um website simples e tempo
> é um recurso escasso: é como se eu tivesse que
> aprender a operar um canhão para matar um pardal.
> Talvez no futuro eu decida dedicar algum tempo para
> aprender essa tríade.

Se tempo é escasso... que tal um plugin pro Catalyst que gera um CRUD
automaticamente, basta você criar as tabelas no banco de dados e ele
gera o site inteiro pra você? ;-)

http://search.cpan.org/~zby/Catalyst-Example-InstantCRUD-v0.0.10/

-Nilson Santos F. Jr.

From glasswalk3r em yahoo.com.br  Mon Jun 26 13:31:06 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Mon, 26 Jun 2006 17:31:06 -0300 (ART)
Subject: [Cascavel-pm] Criando formularios formatados
In-Reply-To: <20060626183209.67217.qmail@web31303.mail.mud.yahoo.com>
Message-ID: <20060626203106.78229.qmail@web30813.mail.mud.yahoo.com>


--- Patty Silva <ptfzs em yahoo.com.br> escreveu:

> Gerar relatorio pre-formatado.. nao eh para web.. 
>  Achei exemplos utilizando format.. acho que resolvo
> meu problema ?)

Olha... usar format para fazer relatórios é bastante
antiquado... mas Cobol também é e continua sendo muito
útil até hoje.

Avalie se os recursos do format resolvem seu problema
elegantemente e se seu programa não precisará de novos
recursos no futuro... quase sempre um relatório em
HTML será mais atraente para o usuário final (exceto,
é claro, que o aplicativo vá trabalhar exclusivamente
em modo texto).

Se você quiser usar um relatório em HTML... considere
usar um dos diversos templates existentes para esse
fim (eu particularmente gosto do HTML::Template).

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 


From perl em atechs.com.br  Mon Jun 26 17:40:12 2006
From: perl em atechs.com.br (Vinicius Alves)
Date: Mon, 26 Jun 2006 21:40:12 -0300
Subject: [Cascavel-pm] Comando cat | wc -l
References: <20060626140548.47083.qmail@web30802.mail.mud.yahoo.com>
Message-ID: <002f01c69982$402829d0$0ccb34c9@alpha>

Alceu,

system() executa um comando em background mas não retorna seu output. 

` ` retorna seu output e armazena.

teste isso (teste.pl):


#!/usr/bin/perl

$var = system("echo 12345");
print "\$var = $var\n";
$var2 = `echo 12345`;
print "\$var2 = $var2\n";

Resultado:
>./teste.pl
12345
$var = 0
$var2 = 12345

A diferença entre system() e exec() é que system retorna ao programa do qual foi chamado. Exec não retorna. Backtick operator retorna o output de seu programa à variável, system() não (ou retorna true/false - aí já não tenho certeza).

[]'s
Vinicius


  ----- Original Message ----- 
  From: Alceu R. de Freitas Jr. 
  To: Cascavel Perl Mongers 
  Sent: Monday, June 26, 2006 11:05 AM
  Subject: Re: [Cascavel-pm] Comando cat | wc -l



  --- Vinicius Alves <perl em atechs.com.br> escreveu:

  > Patty,
  > 
  > A função system() não retorna nada. Se quiser
  > retorno, use 

  Retorna sim. Quem não retorna nada é o exec().



  Alceu Rodrigues de Freitas Junior
  --------------------------------------
  glasswalk3r em 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



  _______________________________________________________ 
  Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
  http://mail.yahoo.com.br/
  _______________________________________________
  Cascavel-pm mailing list
  Cascavel-pm em pm.org
  http://mail.pm.org/mailman/listinfo/cascavel-pm



  -- 
  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.394 / Virus Database: 268.9.3/374 - Release Date: 23/6/2006

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060626/e2c0abc5/attachment.html 

From edencardim em gmail.com  Tue Jun 27 04:31:10 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Tue, 27 Jun 2006 08:31:10 -0300
Subject: [Cascavel-pm] Comando cat | wc -l
In-Reply-To: <002f01c69982$402829d0$0ccb34c9@alpha>
References: <20060626140548.47083.qmail@web30802.mail.mud.yahoo.com>
	<002f01c69982$402829d0$0ccb34c9@alpha>
Message-ID: <3de55ead0606270431q3291e6bdlbfab2b1e26f3b0e4@mail.gmail.com>

On 6/26/06, Vinicius Alves <perl em atechs.com.br> wrote:

> A diferença entre system() e exec() é que system retorna ao programa do qual
> foi chamado. Exec não retorna. Backtick operator retorna o output de seu
> programa à variável, system() não (ou retorna true/false - aí já não tenho
> certeza).

system() retorna o status de fim de execução do processo executado.

From andre.garcia.carneir em terra.com.br  Tue Jun 27 05:14:49 2006
From: andre.garcia.carneir em terra.com.br (=?iso-8859-1?b?QW5kcukgR2FyY2lhIENhcm5laXJv?=)
Date: Tue, 27 Jun 2006 09:14:49 -0300
Subject: [Cascavel-pm] Arrendondamento
Message-ID: <J1IQ0P$8E5D436CAB576422C4708A445EF2E131@terra.com.br>


Experimente Math::Round - www.cpan.org

---------- Cabeçalho original -----------

De: cascavel-pm-bounces+andre.garcia.carneir=terra.com.br em pm.org
Para: "Cascavel Perl Mongers" cascavel-pm em pm.org
Cópia: 
Data: Fri, 23 Jun 2006 14:24:41 -0300 (ART)
Assunto: [Cascavel-pm] Arrendondamento

> Pessoal.. estava dando uma olhada nas msg passadas, mas nao sei continuar...entao abri uma outra com o mesmo
assunto
>  
>  Estava vendo que vcs estavam discutindo se arredonda ou nao.. no caso..
>  o sprintf arredonda.. eu quero uma fncao que nao arredonde so trunque,,
>  ex: 1,433333333333333
>  escreva 1,43 inves de 1,44
>  
>  Obrigada
>  
>  
>  		
> ---------------------------------
>  Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! 
> E-mail classificado pelo Identificador de Spam Inteligente Terra.
> Para alterar a categoria classificada, visite
>
http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=andre.garcia.carneir&_l=1,1151083557.748019.21558.mangoro.hst.terra.com.br,4674,Des15,Des15
> 
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Scan engine: McAfee VirusScan / Atualizado em 22/06/2006 / Versão: 4.4.00/4791
> Proteja o seu e-mail Terra: http://mail.terra.com.br/
> 

--
André Garcia Carneiro
Developer(Perl)
Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org


From nascimenthiago em gmail.com  Tue Jun 27 05:24:02 2006
From: nascimenthiago em gmail.com (tnas)
Date: Tue, 27 Jun 2006 09:24:02 -0300
Subject: [Cascavel-pm] Arrendondamento
In-Reply-To: <J1IQ0P$8E5D436CAB576422C4708A445EF2E131@terra.com.br>
References: <J1IQ0P$8E5D436CAB576422C4708A445EF2E131@terra.com.br>
Message-ID: <44A12362.9080706@gmail.com>

André Garcia Carneiro escreveu:
> Experimente Math::Round - www.cpan.org
>
> ---------- Cabeçalho original -----------
>
> De: cascavel-pm-bounces+andre.garcia.carneir=terra.com.br at pm.org
> Para: "Cascavel Perl Mongers" cascavel-pm at pm.org
> Cópia: 
> Data: Fri, 23 Jun 2006 14:24:41 -0300 (ART)
> Assunto: [Cascavel-pm] Arrendondamento
>
>   
>> Pessoal.. estava dando uma olhada nas msg passadas, mas nao sei continuar...entao abri uma outra com o mesmo
>>     
> assunto
>   
>>  
>>  Estava vendo que vcs estavam discutindo se arredonda ou nao.. no caso..
>>  o sprintf arredonda.. eu quero uma fncao que nao arredonde so trunque,,
>>  ex: 1,433333333333333
>>  escreva 1,43 inves de 1,44
>>  
>>  Obrigada
>>  
>>  
>>  		
>> ---------------------------------
>>  Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! 
>> E-mail classificado pelo Identificador de Spam Inteligente Terra.
>> Para alterar a categoria classificada, visite
>>
>>     
> http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=andre.garcia.carneir&_l=1,1151083557.748019.21558.mangoro.hst.terra.com.br,4674,Des15,Des15
>   
>> Esta mensagem foi verificada pelo E-mail Protegido Terra.
>> Scan engine: McAfee VirusScan / Atualizado em 22/06/2006 / Versão: 4.4.00/4791
>> Proteja o seu e-mail Terra: http://mail.terra.com.br/
>>
>>     
>
> --
> André Garcia Carneiro
> Developer(Perl)
> Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm at pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>   

sprintf "%.2f", $num;
A saída é: 1,43

From fernandolouis em terra.com.br  Tue Jun 27 06:08:59 2006
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Tue, 27 Jun 2006 10:08:59 -0300
Subject: [Cascavel-pm] como identificar o Sistema Operacional
References: <20060622144042.15816.qmail@web30804.mail.mud.yahoo.com><449AAECE.9060306@yahoo.com.br><000b01c6966b$f2846db0$1201a8c0@CICERO>
	<87bqskw6eq.fsf@gmail.com>
Message-ID: <00f501c699ea$dbd0a980$0201a8c0@CICERO>

Desculpe, realmente me expressei mal. Foi mal aí Igor.

Mas então... para descobrir o sistema operacional usando PERL para CGI, vou
utilizar o HTTP_USER_AGENT, disponibilizado em @ENV.

Será que isso retorna 100% correto o sistema operacional? Se for windows,
informa windows e se for linux informa linux?

fiz um teste em três computadores que tem windows (XP) e retornaram:
1 - Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
2 - Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR
1.1.4322)
3 - Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322;
FDM)

Alguém pode me informar como retorna se o sistema operacional (do cliente
web) for linux?

se retorna a palavra "linux" dentro de http_user_agent vou usar o padrão de
reconhecimento (m//). Se dentro tiver a palavra WINDOWS, o script cgi vai
direcionar para uma página e se dentro tiver LINUX, vai direcionar para
outra.

Abraço
Feernando


----- Original Message -----
From: "Igor Sutton Lopes" <igor.sutton em gmail.com>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Friday, June 23, 2006 6:46 AM
Subject: Re: [Cascavel-pm] como identificar o Sistema Operacional


<fernandolouis em terra.com.br> writes:

O Perl não tem como identificar o sistema operacional remoto, caso
você esteja utilizando CGI. Creio que JavaScript faça o que você quer.

Em nenhum momento você informou que estava utilizando Perl para
CGI. Creio que você deva dar uma lida na seguinte página:

http://www.catb.org/~esr/faqs/smart-questions.html

Fica aí a dica para as próximas perguntas que forem feitas ;)

Abraço,
Igor.

> Infelizmente $^O só retorna o sistema operacional do servidor, e não
> de quem está acessando o site.  Portanto nesse caso não é funcional
> amigo.
>
> Abraço Fernando
>
> ----- Original Message ----- From: "Luis Motta Campos"
> <monsieur_champs em yahoo.com.br> To: "Cascavel Perl Mongers"
> <cascavel-pm em pm.org> Sent: Thursday, June 22, 2006 11:53 AM Subject:
> Re: [Cascavel-pm] como identificar o Sistema Operacional
>
>
> Alceu R. de Freitas Jr. wrote:
>> Dê uma olhada no módulo Config. Você pode usar $Config{osname} para
>> pegar o nome.
>
> perl -le 'print $^O'
>
>   E, como $^O é uma variável especial "mágica" do Perl, você pode
> usá-la em qualquer lugar que desejar.
>
> --
> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
>  Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
>  Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
>  Perl Mongers and Perl Fanatic Evangelist
> =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


From nferraz em gmail.com  Tue Jun 27 06:20:10 2006
From: nferraz em gmail.com (Nelson Ferraz)
Date: Tue, 27 Jun 2006 14:20:10 +0100
Subject: [Cascavel-pm] como identificar o Sistema Operacional
In-Reply-To: <00f501c699ea$dbd0a980$0201a8c0@CICERO>
References: <20060622144042.15816.qmail@web30804.mail.mud.yahoo.com><449AAECE.9060306@yahoo.com.br><000b01c6966b$f2846db0$1201a8c0@CICERO>	<87bqskw6eq.fsf@gmail.com>
	<00f501c699ea$dbd0a980$0201a8c0@CICERO>
Message-ID: <44A1308A.70908@gmail.com>

fernandolouis em terra.com.br wrote:
> Mas então... para descobrir o sistema operacional usando PERL para CGI, vou
> utilizar o HTTP_USER_AGENT, disponibilizado em @ENV.
> 
> Será que isso retorna 100% correto o sistema operacional? Se for windows,
> informa windows e se for linux informa linux?

Não é 100% correto, pois o sistema pode informar o user agent que 
quiser; mas é um bom indicador.

From edencardim em gmail.com  Tue Jun 27 06:31:47 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Tue, 27 Jun 2006 10:31:47 -0300
Subject: [Cascavel-pm] como identificar o Sistema Operacional
In-Reply-To: <00f501c699ea$dbd0a980$0201a8c0@CICERO>
References: <20060622144042.15816.qmail@web30804.mail.mud.yahoo.com>
	<449AAECE.9060306@yahoo.com.br>
	<000b01c6966b$f2846db0$1201a8c0@CICERO> <87bqskw6eq.fsf@gmail.com>
	<00f501c699ea$dbd0a980$0201a8c0@CICERO>
Message-ID: <3de55ead0606270631x600d41cnbdc32d0d203d6897@mail.gmail.com>

On 6/27/06, fernandolouis em terra.com.br <fernandolouis em terra.com.br> wrote:
> Será que isso retorna 100% correto o sistema operacional? Se for windows,
> informa windows e se for linux informa linux?

Não, como o Igor já mencionou, o User Agent (Browser) pode colocar
qualquer informação que desejar na requisição, inclusive omitir
informações sobre o sistema operacional ou fornecer informação falsa.
Porém, geralmente, os browsers mais populares são bem-comportados. Um
exemplo de User Agent que poderia mentir sobre o SO são os bots de
screen-scraping. Pode-se criar um robozinho com LWP::UserAgent,
WWW::Mechanize, etc e fornecer informação errada sobre o SO para poder
baixar conteúdo intencionado para usuários rodando linux (ou qualquer
outro SO), mesmo estando no windows (ou qualquer outro SO). Agora, só
uma coisa, porquê você quer obter essa informação? Uma web padrão
deveria ser independente do SO e preservar ao máximo a anonimidade do
visitante a não ser que este explicitamente solicite o contrário.

From glasswalk3r em yahoo.com.br  Tue Jun 27 07:07:34 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Tue, 27 Jun 2006 11:07:34 -0300 (ART)
Subject: [Cascavel-pm] como identificar o Sistema Operacional
In-Reply-To: <00f501c699ea$dbd0a980$0201a8c0@CICERO>
Message-ID: <20060627140734.69173.qmail@web30812.mail.mud.yahoo.com>


--- fernandolouis em terra.com.br escreveu:

> Será que isso retorna 100% correto o sistema
> operacional? Se for windows,
> informa windows e se for linux informa linux?

Nunca é 100%: é muito fácil alterar o user-agent de um
browser. O Mozilla permite essa configuração. Um
servidor proxy também pode fazer isso.

> Alguém pode me informar como retorna se o sistema
> operacional (do cliente
> web) for linux?

Tente procurar na internet por uma lista das tags
USER-AGENT fornecidas. Mas geralmente usar uma
expressão regular marcando Linux (e suas variantes)
resolve.

Você deve criar no seu sistema um procedimento de
reserva caso você não consiga identificar o SO para
evitar problemas.

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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! Copa 2006: cobertura dos jogos em tempo real e tudo sobre a seleção brasileira! 
 
http://br.esportes.yahoo.com/copa2006/

From monsieur_champs em yahoo.com.br  Tue Jun 27 07:30:18 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Tue, 27 Jun 2006 15:30:18 +0100
Subject: [Cascavel-pm] como identificar o Sistema Operacional
In-Reply-To: <3de55ead0606270631x600d41cnbdc32d0d203d6897@mail.gmail.com>
References: <20060622144042.15816.qmail@web30804.mail.mud.yahoo.com>	<449AAECE.9060306@yahoo.com.br>	<000b01c6966b$f2846db0$1201a8c0@CICERO>
	<87bqskw6eq.fsf@gmail.com>	<00f501c699ea$dbd0a980$0201a8c0@CICERO>
	<3de55ead0606270631x600d41cnbdc32d0d203d6897@mail.gmail.com>
Message-ID: <44A140FA.9060704@yahoo.com.br>

Eden Cardim wrote:
> Agora, só uma coisa, porquê você quer obter essa informação? Uma web
> padrão deveria ser independente do SO e preservar ao máximo a
> anonimidade do visitante a não ser que este explicitamente solicite o
> contrário.

  Boa pergunta, Eden.
  Fernando, a gente está curioso sobre o porque você está tão
interessado em determinar que tipo de sistema operacional o cliente do
seu CGI está usando.

  O Eden tem toda a razão: isto deveria ser irrelevante para a maior
parte dos clientes, mas, como sempre você pode ter um motivo
interessante para querer fazer isso.

  Se você quiser dividir isto conosco, vamos ficar contentes. :-)
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From fernandolouis em terra.com.br  Tue Jun 27 09:58:36 2006
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Tue, 27 Jun 2006 13:58:36 -0300
Subject: [Cascavel-pm] como identificar o Sistema Operacional
References: <20060622144042.15816.qmail@web30804.mail.mud.yahoo.com><449AAECE.9060306@yahoo.com.br><000b01c6966b$f2846db0$1201a8c0@CICERO>
	<87bqskw6eq.fsf@gmail.com><00f501c699ea$dbd0a980$0201a8c0@CICERO>
	<3de55ead0606270631x600d41cnbdc32d0d203d6897@mail.gmail.com>
Message-ID: <000b01c69a0a$ef6a9d50$0201a8c0@CICERO>

Estou querendo separar os usuários de acordo com o sistema operacional,
porque utilizo ActiveX para pegar o endereço MAC da placa de rede. E activeX
só funciona para windows. Aí se for linux me script cgi vai direcionar para
fazer outros testes.

Mas então se o User Agent não pode dar informação falsa, então não há 100%
de certeza para saber o Sistema Operacional do cliente web?

A linguagem perl tem um leque muito grande de caminhos para um problema,
acredito que deva exister uma maneira 100% certa.

Abraço
Fernando

----- Original Message -----
From: "Eden Cardim" <edencardim em gmail.com>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Tuesday, June 27, 2006 10:31 AM
Subject: Re: [Cascavel-pm] como identificar o Sistema Operacional


On 6/27/06, fernandolouis em terra.com.br <fernandolouis em terra.com.br> wrote:
> Será que isso retorna 100% correto o sistema operacional? Se for windows,
> informa windows e se for linux informa linux?

Não, como o Igor já mencionou, o User Agent (Browser) pode colocar
qualquer informação que desejar na requisição, inclusive omitir
informações sobre o sistema operacional ou fornecer informação falsa.
Porém, geralmente, os browsers mais populares são bem-comportados. Um
exemplo de User Agent que poderia mentir sobre o SO são os bots de
screen-scraping. Pode-se criar um robozinho com LWP::UserAgent,
WWW::Mechanize, etc e fornecer informação errada sobre o SO para poder
baixar conteúdo intencionado para usuários rodando linux (ou qualquer
outro SO), mesmo estando no windows (ou qualquer outro SO). Agora, só
uma coisa, porquê você quer obter essa informação? Uma web padrão
deveria ser independente do SO e preservar ao máximo a anonimidade do
visitante a não ser que este explicitamente solicite o contrário.
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


From fernandolouis em terra.com.br  Tue Jun 27 10:00:23 2006
From: fernandolouis em terra.com.br (fernandolouis em terra.com.br)
Date: Tue, 27 Jun 2006 14:00:23 -0300
Subject: [Cascavel-pm] como identificar o Sistema Operacional
References: <20060627140734.69173.qmail@web30812.mail.mud.yahoo.com>
Message-ID: <001901c69a0b$2e15dba0$0201a8c0@CICERO>

Como seria esse "procedimento de reserva". Alguma dica Alceu?


----- Original Message -----
From: "Alceu R. de Freitas Jr." <glasswalk3r em yahoo.com.br>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Tuesday, June 27, 2006 11:07 AM
Subject: Re: [Cascavel-pm] como identificar o Sistema Operacional



--- fernandolouis em terra.com.br escreveu:

> Será que isso retorna 100% correto o sistema
> operacional? Se for windows,
> informa windows e se for linux informa linux?

Nunca é 100%: é muito fácil alterar o user-agent de um
browser. O Mozilla permite essa configuração. Um
servidor proxy também pode fazer isso.

> Alguém pode me informar como retorna se o sistema
> operacional (do cliente
> web) for linux?

Tente procurar na internet por uma lista das tags
USER-AGENT fornecidas. Mas geralmente usar uma
expressão regular marcando Linux (e suas variantes)
resolve.

Você deve criar no seu sistema um procedimento de
reserva caso você não consiga identificar o SO para
evitar problemas.

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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! Copa 2006: cobertura dos jogos em tempo real e tudo sobre a seleção
brasileira!

http://br.esportes.yahoo.com/copa2006/
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


From igor.sutton em gmail.com  Tue Jun 27 10:05:18 2006
From: igor.sutton em gmail.com (Igor Sutton Lopes)
Date: Tue, 27 Jun 2006 14:05:18 -0300
Subject: [Cascavel-pm] como identificar o Sistema Operacional
In-Reply-To: <000b01c69a0a$ef6a9d50$0201a8c0@CICERO>
	(fernandolouis@terra.com.br's message of "Tue,
	27 Jun 2006 13:58:36 -0300")
References: <20060622144042.15816.qmail@web30804.mail.mud.yahoo.com>
	<449AAECE.9060306@yahoo.com.br>
	<000b01c6966b$f2846db0$1201a8c0@CICERO> <87bqskw6eq.fsf@gmail.com>
	<00f501c699ea$dbd0a980$0201a8c0@CICERO>
	<3de55ead0606270631x600d41cnbdc32d0d203d6897@mail.gmail.com>
	<000b01c69a0a$ef6a9d50$0201a8c0@CICERO>
Message-ID: <87mzby5y29.fsf@gmail.com>

<fernandolouis em terra.com.br> writes:

Fernando,

Uma requisiçcao http eh feita de maneira anonima. A informacao que voce ve no
UserAgent eh passada no cabecalho da conversacao, apenas a titulo
informativo. Voce pode se basear nele sim, porem existirao casos em que voce
nao vai determinar o sistema operacional (por exemplo, spider bots do Google,
Yahoo, etc), alem daqueles que o usuario explicitamente solicita a troca. A nao
ser que exista uma informacao no pacote que diga qual o sistema operacional de
origem, o que acho muito dificil :P

> Estou querendo separar os usuários de acordo com o sistema operacional,
> porque utilizo ActiveX para pegar o endereço MAC da placa de rede. E activeX
> só funciona para windows. Aí se for linux me script cgi vai direcionar para
> fazer outros testes.
>
> Mas então se o User Agent não pode dar informação falsa, então não há 100%
> de certeza para saber o Sistema Operacional do cliente web?
>
> A linguagem perl tem um leque muito grande de caminhos para um problema,
> acredito que deva exister uma maneira 100% certa.
>
> Abraço
> Fernando
>
> ----- Original Message -----
> From: "Eden Cardim" <edencardim em gmail.com>
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Sent: Tuesday, June 27, 2006 10:31 AM
> Subject: Re: [Cascavel-pm] como identificar o Sistema Operacional
>
>
> On 6/27/06, fernandolouis em terra.com.br <fernandolouis em terra.com.br> wrote:
>> Será que isso retorna 100% correto o sistema operacional? Se for windows,
>> informa windows e se for linux informa linux?
>
> Não, como o Igor já mencionou, o User Agent (Browser) pode colocar
> qualquer informação que desejar na requisição, inclusive omitir
> informações sobre o sistema operacional ou fornecer informação falsa.
> Porém, geralmente, os browsers mais populares são bem-comportados. Um
> exemplo de User Agent que poderia mentir sobre o SO são os bots de
> screen-scraping. Pode-se criar um robozinho com LWP::UserAgent,
> WWW::Mechanize, etc e fornecer informação errada sobre o SO para poder
> baixar conteúdo intencionado para usuários rodando linux (ou qualquer
> outro SO), mesmo estando no windows (ou qualquer outro SO). Agora, só
> uma coisa, porquê você quer obter essa informação? Uma web padrão
> deveria ser independente do SO e preservar ao máximo a anonimidade do
> visitante a não ser que este explicitamente solicite o contrário.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

From glasswalk3r em yahoo.com.br  Tue Jun 27 10:28:18 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Tue, 27 Jun 2006 14:28:18 -0300 (ART)
Subject: [Cascavel-pm] como identificar o Sistema Operacional
In-Reply-To: <000b01c69a0a$ef6a9d50$0201a8c0@CICERO>
Message-ID: <20060627172818.51711.qmail@web30812.mail.mud.yahoo.com>


--- fernandolouis em terra.com.br escreveu:

> Mas então se o User Agent não pode dar informação
> falsa, então não há 100%
> de certeza para saber o Sistema Operacional do
> cliente web?
> 
> A linguagem perl tem um leque muito grande de
> caminhos para um problema,
> acredito que deva exister uma maneira 100% certa.

Esse é problema de arquitetura, e não do Perl. O
protocolo HTTP não é rígido (aliás, algo definido pela
RFC é?).

O que você pode fazer é ter um programa rodando em
conjunto com o browser cliente, como um controle
ActiveX ou applet Java que se encarregue de obter
essas  informações de forma mais segura.

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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


		
_______________________________________________________ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/ 
 


From glasswalk3r em yahoo.com.br  Tue Jun 27 10:30:01 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Tue, 27 Jun 2006 14:30:01 -0300 (ART)
Subject: [Cascavel-pm] como identificar o Sistema Operacional
In-Reply-To: <001901c69a0b$2e15dba0$0201a8c0@CICERO>
Message-ID: <20060627173001.93064.qmail@web30808.mail.mud.yahoo.com>


--- fernandolouis em terra.com.br escreveu:

> Como seria esse "procedimento de reserva". Alguma
> dica Alceu?

Pense em algo como uma estrutura case:

caso o SO seja igual a
Windows: faça isso
Linux: faça aquilo
desconhecido: faça outra coisa

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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! Copa 2006: cobertura dos jogos em tempo real e tudo sobre a seleção brasileira! 
 
http://br.esportes.yahoo.com/copa2006/

From fglock em gmail.com  Tue Jun 27 10:55:33 2006
From: fglock em gmail.com (Flavio S. Glock)
Date: Tue, 27 Jun 2006 14:55:33 -0300
Subject: [Cascavel-pm] v6/Moose
Message-ID: <aa47605d0606271055x5969c564s82a187595dcbf83a@mail.gmail.com>

Estou trabalhando na integração do perl6-em-perl5 com o Moose.pm.

O primeiro resultado  já permite compilar um programa OO simples:

  use v6-pugs;
  class Point;
  has $x;
  method m ( $z ) { $z.say }
  method n { 456 }

Resultado da compilação - sem retoques:

use Pugs::Runtime::Perl6;
use strict;
no warnings 'void';

package Point;
use Moose;
has 'x' => ( is => 'rw', );

sub m {
    my $self = shift;
    my ($z) = @_;
    {
        print '', $z, "\n"
    }

}

sub n {
    my $self = shift;
    {
        456
    }

}

http://pugs.blogs.com/pugs/2006/06/pugs_6212_relea.html

- Flavio S. Glock

From mdacwb em gmail.com  Tue Jun 27 12:33:55 2006
From: mdacwb em gmail.com (Marco A P D'Andrade)
Date: Tue, 27 Jun 2006 16:33:55 -0300
Subject: [Cascavel-pm] [OT] DVDs FISL 7.0 a venda ?!
Message-ID: <44A18823.1060706@gmail.com>

Pessoal,

Claro que ano passado foi muita mamata... receber ao preco do download 
as palestras do FISL 6.0, considerando que existe custo associado a isto...

Mas alguem sabia que isto seria comercializado este ano?


Aos palestrantes... de quanto foram os caches ?? ;)

261.ogg:
  title: Deixe o gerenciamento do anti-spam com os usuarios
  track: Admin
  speakers:
    - Solli Moreira Honorio

367-2.ogg:
  title: "YAPC::Brasil::2006 - parte-2"
  track: Eventos Comunitarios
  speakers: &id001
    - Flavio S. Glock
    - Joenio Marques

22.ogg:
  title: "O Portal do Monasterio, como se tornar um Monge Perl."
  track: "Comunidade, Filosofia e Cultura Livre"
  speakers:
    - Marco Lima
    - ER Galvao Abbott
    - Flavio S. Glock



-------- Original Message --------
Subject: 	[Dicas-L] Lançada a Pré-Venda dos DVD-ROMs do FISL 7.0
Date: 	Tue, 27 Jun 2006 16:05:32 -0300 (BRT)
From: 	Dicas-L-Owner em dicas-l.com.br
To: 	undisclosed-recipients: ;



Colaboração: André Wolff 

Já esta disponível para compra o conjunto de 7 DVDs contendo palestras,
tutoriais e atividades do Fórum Internacional de Software Livre (FISL)
7.0 que aconteceu em Porto Alegre de 19 a 22 de Abril de 2006.

Com mais de 25Gb de arquivos de vídeos compatíveis com Linux, MacOS X e
Windows, a coleção é um marco na história do evento que agora pode ficar
eternizado em mídia digital.

Se você não pôde ir, se foi e não conseguiu participar de todas as
atividades que queria ou se esta cansado de explicar para os colegas da
empresa como foi a palestra sobre Dot Project, esta é sua chance de ver
o que aconteceu durante o FISL 7.0

importante salientar que os DVD-ROMs não podem ser visualizados em
aparelhos de DVD domésticos. As palestras em outras língüas não tem
tradução ou legendas.

O produto começará a ser enviado no dia 18-07-2006 e já pode ser
adquirido em :
http://www.temporealeventos.com.br/dicas_dvd.html"




From ricardoportilho em terra.com.br  Tue Jun 27 13:57:33 2006
From: ricardoportilho em terra.com.br (Ricardo Portilho Proni)
Date: Tue, 27 Jun 2006 17:57:33 -0300
Subject: [Cascavel-pm] [OT] DVDs FISL 7.0 a venda ?!
In-Reply-To: <44A18823.1060706@gmail.com>
References: <44A18823.1060706@gmail.com>
Message-ID: <44A19BBD.6090404@terra.com.br>


	Os palestrantes sabem que o trabalho será vendido?
	Alguém além de mim se incomoda com isso?


Marco A P D'Andrade escreveu:
> Pessoal,
> 
> Claro que ano passado foi muita mamata... receber ao preco do download 
> as palestras do FISL 6.0, considerando que existe custo associado a isto...
> 
> Mas alguem sabia que isto seria comercializado este ano?
> 
> 
> Aos palestrantes... de quanto foram os caches ?? ;)
> 
> 261.ogg:
>   title: Deixe o gerenciamento do anti-spam com os usuarios
>   track: Admin
>   speakers:
>     - Solli Moreira Honorio
> 
> 367-2.ogg:
>   title: "YAPC::Brasil::2006 - parte-2"
>   track: Eventos Comunitarios
>   speakers: &id001
>     - Flavio S. Glock
>     - Joenio Marques
> 
> 22.ogg:
>   title: "O Portal do Monasterio, como se tornar um Monge Perl."
>   track: "Comunidade, Filosofia e Cultura Livre"
>   speakers:
>     - Marco Lima
>     - ER Galvao Abbott
>     - Flavio S. Glock
> 
> 
> 
> -------- Original Message --------
> Subject: 	[Dicas-L] Lançada a Pré-Venda dos DVD-ROMs do FISL 7.0
> Date: 	Tue, 27 Jun 2006 16:05:32 -0300 (BRT)
> From: 	Dicas-L-Owner em dicas-l.com.br
> To: 	undisclosed-recipients: ;
> 
> 
> 
> Colaboração: André Wolff 
> 
> Já esta disponível para compra o conjunto de 7 DVDs contendo palestras,
> tutoriais e atividades do Fórum Internacional de Software Livre (FISL)
> 7.0 que aconteceu em Porto Alegre de 19 a 22 de Abril de 2006.
> 
> Com mais de 25Gb de arquivos de vídeos compatíveis com Linux, MacOS X e
> Windows, a coleção é um marco na história do evento que agora pode ficar
> eternizado em mídia digital.
> 
> Se você não pôde ir, se foi e não conseguiu participar de todas as
> atividades que queria ou se esta cansado de explicar para os colegas da
> empresa como foi a palestra sobre Dot Project, esta é sua chance de ver
> o que aconteceu durante o FISL 7.0
> 
> importante salientar que os DVD-ROMs não podem ser visualizados em
> aparelhos de DVD domésticos. As palestras em outras língüas não tem
> tradução ou legendas.
> 
> O produto começará a ser enviado no dia 18-07-2006 e já pode ser
> adquirido em :
> http://www.temporealeventos.com.br/dicas_dvd.html"
> 
> 
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
> 

-- 

Ricardo Portilho Proni
Oracle Database 10g Administrator Certified Associate
Microsoft Certified Professional
Nerv Informática Ltda.

From clebergomess em hotmail.com  Tue Jun 27 17:06:59 2006
From: clebergomess em hotmail.com (cleber gomes da silva)
Date: Tue, 27 Jun 2006 21:06:59 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?O_que_n=E3o_entendo_eu_deleto?=
In-Reply-To: <44A19BBD.6090404@terra.com.br>
Message-ID: <BAY119-F2684FDBFE17D123394A39D07F0@phx.gbl>




ola.eu não tenho a minima idéia de quem voces são, claro me intereeso pelo 
assunto apesar de eu ser um leigo em materia de informatica,sei apenas o 
basico, eu recebo varioas emails, sobre varios assuntos que desconheço,eu 
gostaria ja que estou recebebendo tais emails, que voces fossem mais claros 
e simplificassem esse conhecimento, pessoas com um nivel mais baixo nessa 
linguagem poderia compartilhar com voces este conhecimento que é de grande 
utilidade, mais de dificil compreensão, para quem não trabalha na area, ou 
tem pouco tempo para entender este tipo especifico de linguagem. Eu ficaria 
muito agradecido se voces continuassemmandando emails, mais com linguagem 
aceesivel, caso contrario eu só poderei exclui-los como tenho feito até o 
momento, por não entender os assuntos que voces discutem. até o 
momento:obrigado

_________________________________________________________________
DOWNLOAD: Emoticons animados 'Copa 2006' para usar no MSN  
http://copa.br.msn.com/extra/emoticons/


From clebergomess em hotmail.com  Tue Jun 27 17:09:57 2006
From: clebergomess em hotmail.com (cleber gomes da silva)
Date: Tue, 27 Jun 2006 21:09:57 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?infelizmente=3AO_que_eu_n=E3o_entend?=
 =?iso-8859-1?q?o_eu_deleto?=
In-Reply-To: <44A12362.9080706@gmail.com>
Message-ID: <BAY119-F34A823C8D362A31738C749D07F0@phx.gbl>



ola.eu não tenho a minima idéia de quem voces são, claro me intereeso pelo
assunto apesar de eu ser um leigo em materia de informatica,sei apenas o
basico, eu recebo varioas emails, sobre varios assuntos que desconheço,eu
gostaria ja que estou recebebendo tais emails, que voces fossem mais claros
e simplificassem esse conhecimento, pessoas com um nivel mais baixo nessa
linguagem poderia compartilhar com voces este conhecimento que é de grande
utilidade, mais de dificil compreensão, para quem não trabalha na area, ou
tem pouco tempo para entender este tipo especifico de linguagem. Eu ficaria
muito agradecido se voces continuassemmandando emails, mais com linguagem
aceesivel, caso contrario eu só poderei exclui-los como tenho feito até o
momento, por não entender os assuntos que voces discutem. até o
momento:obrigado

_________________________________________________________________
Inscreva-se no novo Windows Live Mail beta e seja um dos primeiros a testar 
as novidades-grátis. Saiba mais: 
http://www.ideas.live.com/programpage.aspx?versionId=5d21c51a-b161-4314-9b0e-4911fb2b2e6d


From clebergomess em hotmail.com  Tue Jun 27 17:11:52 2006
From: clebergomess em hotmail.com (cleber gomes da silva)
Date: Tue, 27 Jun 2006 21:11:52 -0300
Subject: [Cascavel-pm] [OT] DVDs FISL 7.0 a venda ?!
Message-ID: <BAY119-F24663F8CF3684B18F9BD1ED07F0@phx.gbl>



>From: Ricardo Portilho Proni <ricardoportilho em terra.com.br>
>Reply-To: Cascavel Perl Mongers <cascavel-pm em pm.org>
>To: Cascavel Perl Mongers <cascavel-pm em pm.org>
>Subject: Re: [Cascavel-pm] [OT] DVDs FISL 7.0 a venda ?!
>Date: Tue, 27 Jun 2006 17:57:33 -0300
>
>
>	Os palestrantes sabem que o trabalho será vendido?
>	Alguém além de mim se incomoda com isso?
>
>
>Marco A P D'Andrade escreveu:
> > Pessoal,
> >
> > Claro que ano passado foi muita mamata... receber ao preco do download
> > as palestras do FISL 6.0, considerando que existe custo associado a 
>isto...
> >
> > Mas alguem sabia que isto seria comercializado este ano?
> >
> >
> > Aos palestrantes... de quanto foram os caches ?? ;)
> >
> > 261.ogg:
> >   title: Deixe o gerenciamento do anti-spam com os usuarios
> >   track: Admin
> >   speakers:
> >     - Solli Moreira Honorio
> >
> > 367-2.ogg:
> >   title: "YAPC::Brasil::2006 - parte-2"
> >   track: Eventos Comunitarios
> >   speakers: &id001
> >     - Flavio S. Glock
> >     - Joenio Marques
> >
> > 22.ogg:
> >   title: "O Portal do Monasterio, como se tornar um Monge Perl."
> >   track: "Comunidade, Filosofia e Cultura Livre"
> >   speakers:
> >     - Marco Lima
> >     - ER Galvao Abbott
> >     - Flavio S. Glock
> >
> >
> >
> > -------- Original Message --------
> > Subject: 	[Dicas-L] Lançada a Pré-Venda dos DVD-ROMs do FISL 7.0
> > Date: 	Tue, 27 Jun 2006 16:05:32 -0300 (BRT)
> > From: 	Dicas-L-Owner em dicas-l.com.br
> > To: 	undisclosed-recipients: ;
> >
> >
> >
> > Colaboração: André Wolff
> >
> > Já esta disponível para compra o conjunto de 7 DVDs contendo palestras,
> > tutoriais e atividades do Fórum Internacional de Software Livre (FISL)
> > 7.0 que aconteceu em Porto Alegre de 19 a 22 de Abril de 2006.
> >
> > Com mais de 25Gb de arquivos de vídeos compatíveis com Linux, MacOS X e
> > Windows, a coleção é um marco na história do evento que agora pode ficar
> > eternizado em mídia digital.
> >
> > Se você não pôde ir, se foi e não conseguiu participar de todas as
> > atividades que queria ou se esta cansado de explicar para os colegas da
> > empresa como foi a palestra sobre Dot Project, esta é sua chance de ver
> > o que aconteceu durante o FISL 7.0
> >
> > importante salientar que os DVD-ROMs não podem ser visualizados em
> > aparelhos de DVD domésticos. As palestras em outras língüas não tem
> > tradução ou legendas.
> >
> > O produto começará a ser enviado no dia 18-07-2006 e já pode ser
> > adquirido em :
> > http://www.temporealeventos.com.br/dicas_dvd.html"
> >
> >
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> >
> >
>
>--
>
>Ricardo Portilho Proni
>Oracle Database 10g Administrator Certified Associate
>Microsoft Certified Professional
>Nerv Informática Ltda.
>_______________________________________________
>Cascavel-pm mailing list
>Cascavel-pm em pm.org
>http://mail.pm.org/mailman/listinfo/cascavel-pm

_________________________________________________________________
COPA 2006: Como se diz 'gol' em mais de 32 países?  
http://copa.br.msn.com/extra/curiosidades/futebol/


From clebergomess em hotmail.com  Tue Jun 27 17:11:52 2006
From: clebergomess em hotmail.com (cleber gomes da silva)
Date: Tue, 27 Jun 2006 21:11:52 -0300
Subject: [Cascavel-pm] [OT] DVDs FISL 7.0 a venda ?!
Message-ID: <BAY119-F24663F8CF3684B18F9BD1ED07F0@phx.gbl>



>From: Ricardo Portilho Proni <ricardoportilho em terra.com.br>
>Reply-To: Cascavel Perl Mongers <cascavel-pm em pm.org>
>To: Cascavel Perl Mongers <cascavel-pm em pm.org>
>Subject: Re: [Cascavel-pm] [OT] DVDs FISL 7.0 a venda ?!
>Date: Tue, 27 Jun 2006 17:57:33 -0300
>
>
>	Os palestrantes sabem que o trabalho será vendido?
>	Alguém além de mim se incomoda com isso?
>
>
>Marco A P D'Andrade escreveu:
> > Pessoal,
> >
> > Claro que ano passado foi muita mamata... receber ao preco do download
> > as palestras do FISL 6.0, considerando que existe custo associado a 
>isto...
> >
> > Mas alguem sabia que isto seria comercializado este ano?
> >
> >
> > Aos palestrantes... de quanto foram os caches ?? ;)
> >
> > 261.ogg:
> >   title: Deixe o gerenciamento do anti-spam com os usuarios
> >   track: Admin
> >   speakers:
> >     - Solli Moreira Honorio
> >
> > 367-2.ogg:
> >   title: "YAPC::Brasil::2006 - parte-2"
> >   track: Eventos Comunitarios
> >   speakers: &id001
> >     - Flavio S. Glock
> >     - Joenio Marques
> >
> > 22.ogg:
> >   title: "O Portal do Monasterio, como se tornar um Monge Perl."
> >   track: "Comunidade, Filosofia e Cultura Livre"
> >   speakers:
> >     - Marco Lima
> >     - ER Galvao Abbott
> >     - Flavio S. Glock
> >
> >
> >
> > -------- Original Message --------
> > Subject: 	[Dicas-L] Lançada a Pré-Venda dos DVD-ROMs do FISL 7.0
> > Date: 	Tue, 27 Jun 2006 16:05:32 -0300 (BRT)
> > From: 	Dicas-L-Owner em dicas-l.com.br
> > To: 	undisclosed-recipients: ;
> >
> >
> >
> > Colaboração: André Wolff
> >
> > Já esta disponível para compra o conjunto de 7 DVDs contendo palestras,
> > tutoriais e atividades do Fórum Internacional de Software Livre (FISL)
> > 7.0 que aconteceu em Porto Alegre de 19 a 22 de Abril de 2006.
> >
> > Com mais de 25Gb de arquivos de vídeos compatíveis com Linux, MacOS X e
> > Windows, a coleção é um marco na história do evento que agora pode ficar
> > eternizado em mídia digital.
> >
> > Se você não pôde ir, se foi e não conseguiu participar de todas as
> > atividades que queria ou se esta cansado de explicar para os colegas da
> > empresa como foi a palestra sobre Dot Project, esta é sua chance de ver
> > o que aconteceu durante o FISL 7.0
> >
> > importante salientar que os DVD-ROMs não podem ser visualizados em
> > aparelhos de DVD domésticos. As palestras em outras língüas não tem
> > tradução ou legendas.
> >
> > O produto começará a ser enviado no dia 18-07-2006 e já pode ser
> > adquirido em :
> > http://www.temporealeventos.com.br/dicas_dvd.html"
> >
> >
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> >
> >
>
>--
>
>Ricardo Portilho Proni
>Oracle Database 10g Administrator Certified Associate
>Microsoft Certified Professional
>Nerv Informática Ltda.
>_______________________________________________
>Cascavel-pm mailing list
>Cascavel-pm em pm.org
>http://mail.pm.org/mailman/listinfo/cascavel-pm

_________________________________________________________________
COPA 2006: Como se diz 'gol' em mais de 32 países?  
http://copa.br.msn.com/extra/curiosidades/futebol/


From acid06 em gmail.com  Tue Jun 27 18:52:55 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Tue, 27 Jun 2006 22:52:55 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?infelizmente=3AO_que_eu_n=E3o_entend?=
	=?iso-8859-1?q?o_eu_deleto?=
In-Reply-To: <BAY119-F34A823C8D362A31738C749D07F0@phx.gbl>
References: <44A12362.9080706@gmail.com>
	<BAY119-F34A823C8D362A31738C749D07F0@phx.gbl>
Message-ID: <9a08c9b40606271852w1c603eb6n7ae583a35003bdb1@mail.gmail.com>

Essa é uma lista de discussão sobre Perl. Aqui as pessoas tiram
dúvidas sobre programação em linguagem Perl com outros
desenvolvedores.

Infelizmente, essa lista não é um curso online ou coisa do gênero.
Se você está aprendendo e tem alguma dúvida sobre programação em Perl,
pode enviar que alguém deve responder. Caso você queira aprender Perl,
pode tentar procurar na internet algum site com tutoriais ou cursos
online ou então comprar algum livro sobre programação em Perl (os
livros da O'Reilly são muito bons).

Você recebe esses emails porque se inscreveu nessa lista.

Caso você não queira mais fazer parte da mesma e parar de receber
esses emails, pode seguir as instruções disponíveis em
http://mail.pm.org/mailman/listinfo/cascavel-pm para se desinscrever.

-Nilson Santos F. Jr.

On 6/27/06, cleber gomes da silva <clebergomess em hotmail.com> wrote:
>
>
> ola.eu não tenho a minima idéia de quem voces são, claro me intereeso pelo
> assunto apesar de eu ser um leigo em materia de informatica,sei apenas o
> basico, eu recebo varioas emails, sobre varios assuntos que desconheço,eu
> gostaria ja que estou recebebendo tais emails, que voces fossem mais claros
> e simplificassem esse conhecimento, pessoas com um nivel mais baixo nessa
> linguagem poderia compartilhar com voces este conhecimento que é de grande
> utilidade, mais de dificil compreensão, para quem não trabalha na area, ou
> tem pouco tempo para entender este tipo especifico de linguagem. Eu ficaria
> muito agradecido se voces continuassemmandando emails, mais com linguagem
> aceesivel, caso contrario eu só poderei exclui-los como tenho feito até o
> momento, por não entender os assuntos que voces discutem. até o
> momento:obrigado
>

From monsieur_champs em yahoo.com.br  Wed Jun 28 04:04:52 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Wed, 28 Jun 2006 12:04:52 +0100
Subject: [Cascavel-pm] como identificar o Sistema Operacional
In-Reply-To: <000b01c69a0a$ef6a9d50$0201a8c0@CICERO>
References: <20060622144042.15816.qmail@web30804.mail.mud.yahoo.com><449AAECE.9060306@yahoo.com.br><000b01c6966b$f2846db0$1201a8c0@CICERO>	<87bqskw6eq.fsf@gmail.com><00f501c699ea$dbd0a980$0201a8c0@CICERO>	<3de55ead0606270631x600d41cnbdc32d0d203d6897@mail.gmail.com>
	<000b01c69a0a$ef6a9d50$0201a8c0@CICERO>
Message-ID: <44A26254.9090803@yahoo.com.br>

fernandolouis em terra.com.br wrote:
> Estou querendo separar os usuários de acordo com o sistema
> operacional, porque utilizo ActiveX para pegar o endereço MAC da
> placa de rede. E activeX só funciona para windows. Aí se for linux me
> script cgi vai direcionar para fazer outros testes.

  ActiveX é o Mal. Cuidado com o Mal. ActiveX é o Mal... Cuidado...

  Agora, fora de brincadeira: eu não sei o que você está fazendo, mas,
se for realmente necessário capturar o IP address do cliente, e se você
estiver falando de uma intranet, pode tentar usar apenas o ambiente que
o webserver disponibiliza. Entre outras informações, o IP address deve
estar listado.

> Mas então se o User Agent não pode dar informação falsa, então não há
> 100% de certeza para saber o Sistema Operacional do cliente web?

  Isso é uma premissa da especificação da WWW. Você não tem direito a
saber mais do que o cliente estiver disposto a te contar... :-)

> A linguagem perl tem um leque muito grande de caminhos para um
> problema, acredito que deva exister uma maneira 100% certa.

  Isto é meio que uma "regra de negócio" da linguagem.

  Temos até um lema: "TIMTOWTDI" ou, "There Is More Than One Way To Do
It" (Há Mais Um Jeito De Fazer Isso).

-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From monsieur_champs em yahoo.com.br  Wed Jun 28 04:28:03 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Wed, 28 Jun 2006 12:28:03 +0100
Subject: [Cascavel-pm] =?iso-8859-1?q?O_que_n=E3o_entendo_eu_deleto?=
In-Reply-To: <BAY119-F2684FDBFE17D123394A39D07F0@phx.gbl>
References: <BAY119-F2684FDBFE17D123394A39D07F0@phx.gbl>
Message-ID: <44A267C3.8000807@yahoo.com.br>

cleber gomes da silva wrote:
> ola.

  Olá, Cleber.

  Seja muito bem-vindo à lista de discussão dos Perl Mongers de
Cascavel-PR. Esta é, por razões históricas, a lista de discussão de Perl
utilizada para centralizar o tráfego do Brasil inteiro.

  Existem listas regionais, menos movimentadas e com pessoas
geograficamente mais próximas de você. Talvez você deva se informar.
Estas pessoas costumam se encontrar para "fazer social", e conhecer umas
às outras - uma grande oportunidade de manter contatos profissionais
diferentes dos que você deve ter até agora.

> eu não tenho a minima idéia de quem voces são,

  Somos basicamente um grupo de usuários.

  A lista de discussão é um programa que recebe emails e manda emails
para os "inscritos" na lista. E também é o "gestor" da lista, que
"inscreve" e "desinscreve" pessoas da lista, automaticamente, sempre sob
requisição explícita do interessado.

  Eu recomendo que você leia os seguintes websites para saber mais sobre
o grupo dos Perl Mongers:

  http://cascavel.pm.org/
  http://brasil.pm.org/
  http://www.pm.org/ (em inglês)

> claro me interesso pelo assunto

  Falamos da mesma coisa? Esta é uma lista de suporte da linguagem Perl.
  Resolvemos problemas uns dos outros e respondemos perguntas a pessoas
que já sabem alguma coisa da linguagem.

  Isso não impede você de participar, de forma alguma. Apenas requer que
você tenha um pouco mais de paciência e faça suas perguntas sem se
importar muito com as perguntas dos outros.

  Todo mundo é bem-vindo à lista. Sinta-se à vontade, esta é o lugar
certo na Internet se você se interessa pela linguagem perl.

> apesar de eu ser um leigo em materia de informatica,sei apenas o 
> basico, eu recebo varioas emails, sobre varios assuntos que 
> desconheço, eu gostaria ja que estou recebebendo tais emails, que 
> voces fossem mais claros e simplificassem esse conhecimento, pessoas 
> com um nivel mais baixo nessa linguagem poderia compartilhar com 
> voces este conhecimento que é de grande utilidade, mais de dificil 
> compreensão, para quem não trabalha na area, ou tem pouco tempo para 
> entender este tipo especifico de linguagem.

  Pelo que eu entendi, Cleber, me parece que você não sabe que está
inscrito numa lista de discussão. Me parece que você nem mesmo sabe o
que é uma lista de discussão.

  Por favor leia isto para aprender o que é uma lista de discussão:

  http://pt.wikipedia.org/wiki/Lista_de_discuss%C3%A3o

  Infelizmente, não damos aulas de perl por aqui. As pessoas têm
problemas específicos e perguntam o que elas estão com dificuldade em
aprender por conta própria.

  Claro, existem livros em vários formatos, e páginas da Web que
lecionam perl. Infelizmente, muitas delas estão em inglês e eu não sei
quanto inglês você sabe. Aqui tem algumas:

  http://en.wikipedia.org/wiki/Perl
  http://books.perl.org/
  http://www.tpj.com/
  http://www.perlmonks.org/

  E eu tenho certeza de que muitos dos seus colegas de lista têm seus
próprios websites preferidos para aprender Perl. Existem livros também,
muitos deles em português, que podem ser utilizados para esta finalidade.

> Eu ficaria muito agradecido se voces continuassemmandando emails,
> mais com linguagem acessivel, caso contrario eu só poderei exclui-los
> como tenho feito até o momento, por não entender os assuntos que
> voces discutem. até o momento:obrigado

  Bom, vamos revisar o que a gente viu até agora:

  1. Você recebe muitos emails por que está numa lista de discussão.
  2. Você é bem-vindo se quiser continuar por aqui, e livre para se
desinscrever da lista se preferir. E ainda pode voltar sempre que desejar.
  3. A lista de discussão congrega um grupo de usuários.
  4. Grupos de usuários são pessoas que usam as mesmas ferramentas e se
ajudam mútuamente, além de manter contatos profissionais.
  5. Não é possível, infelizmente, ensinar Perl por aqui. É preciso que
você aprenda por outros meios.
  6. Todo mundo aqui pode ajudar você a começar a aprender.
  7. Eu sou um dos moderadores desta lista, e, a pesar de ser conhecido
como Ogre [Nota 1], às vezes recebo bem os novatos.

  [Nota 1]: Não sabe o que é um Ogre? Aqui:
http://en.wikipedia.org/wiki/Image:Screenshot_of_the_character_Shrek_from_film_Shrek_2.jpg

  Mais uma vez, putamplexos!
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From monsieur_champs em yahoo.com.br  Wed Jun 28 04:29:00 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Wed, 28 Jun 2006 12:29:00 +0100
Subject: [Cascavel-pm]
 =?iso-8859-1?q?infelizmente=3AO_que_eu_n=E3o_entend?=
 =?iso-8859-1?q?o_eu_deleto?=
In-Reply-To: <9a08c9b40606271852w1c603eb6n7ae583a35003bdb1@mail.gmail.com>
References: <44A12362.9080706@gmail.com>	<BAY119-F34A823C8D362A31738C749D07F0@phx.gbl>
	<9a08c9b40606271852w1c603eb6n7ae583a35003bdb1@mail.gmail.com>
Message-ID: <44A267FC.4000901@yahoo.com.br>

Nilson Santos Figueiredo Junior wrote:
> Essa é uma lista de discussão sobre Perl. Aqui as pessoas tiram
> dúvidas sobre programação em linguagem Perl com outros
> desenvolvedores.
> 
> Infelizmente, essa lista não é um curso online ou coisa do gênero.
> Se você está aprendendo e tem alguma dúvida sobre programação em Perl,
> pode enviar que alguém deve responder. Caso você queira aprender Perl,
> pode tentar procurar na internet algum site com tutoriais ou cursos
> online ou então comprar algum livro sobre programação em Perl (os
> livros da O'Reilly são muito bons).
> 
> Você recebe esses emails porque se inscreveu nessa lista.
> 
> Caso você não queira mais fazer parte da mesma e parar de receber
> esses emails, pode seguir as instruções disponíveis em
> http://mail.pm.org/mailman/listinfo/cascavel-pm para se desinscrever.

  Hum. Me parece que o carinha já se desinscreveu... eu gostaria de
saber o que acontece... tem muita gente inscrita que não sabe o que é
isto aqui...

  Putamplexos!
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From monsieur_champs em yahoo.com.br  Wed Jun 28 04:35:17 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Wed, 28 Jun 2006 12:35:17 +0100
Subject: [Cascavel-pm] =?iso-8859-1?q?O_que_n=E3o_entendo_eu_deleto?=
In-Reply-To: <44A267C3.8000807@yahoo.com.br>
References: <BAY119-F2684FDBFE17D123394A39D07F0@phx.gbl>
	<44A267C3.8000807@yahoo.com.br>
Message-ID: <44A26975.9060903@yahoo.com.br>


<PoliticamenteIncorreto>
  Nunca mais eu trato bem um novato na minha vida... este se
desinscreveu da lista antes de receber minha mensagem explicativa... :-(
</PoliticamenteIncorreto>


Luis Motta Campos wrote:
> cleber gomes da silva wrote:
>> ola.
> 
>   Olá, Cleber.
> 
>   Seja muito bem-vindo à lista de discussão dos Perl Mongers de
> Cascavel-PR. Esta é, por razões históricas, a lista de discussão de Perl
> utilizada para centralizar o tráfego do Brasil inteiro.
> 
>   Existem listas regionais, menos movimentadas e com pessoas
> geograficamente mais próximas de você. Talvez você deva se informar.
> Estas pessoas costumam se encontrar para "fazer social", e conhecer umas
> às outras - uma grande oportunidade de manter contatos profissionais
> diferentes dos que você deve ter até agora.
> 
>> eu não tenho a minima idéia de quem voces são,
> 
>   Somos basicamente um grupo de usuários.
> 
>   A lista de discussão é um programa que recebe emails e manda emails
> para os "inscritos" na lista. E também é o "gestor" da lista, que
> "inscreve" e "desinscreve" pessoas da lista, automaticamente, sempre sob
> requisição explícita do interessado.
> 
>   Eu recomendo que você leia os seguintes websites para saber mais sobre
> o grupo dos Perl Mongers:
> 
>   http://cascavel.pm.org/
>   http://brasil.pm.org/
>   http://www.pm.org/ (em inglês)
> 
>> claro me interesso pelo assunto
> 
>   Falamos da mesma coisa? Esta é uma lista de suporte da linguagem Perl.
>   Resolvemos problemas uns dos outros e respondemos perguntas a pessoas
> que já sabem alguma coisa da linguagem.
> 
>   Isso não impede você de participar, de forma alguma. Apenas requer que
> você tenha um pouco mais de paciência e faça suas perguntas sem se
> importar muito com as perguntas dos outros.
> 
>   Todo mundo é bem-vindo à lista. Sinta-se à vontade, esta é o lugar
> certo na Internet se você se interessa pela linguagem perl.
> 
>> apesar de eu ser um leigo em materia de informatica,sei apenas o 
>> basico, eu recebo varioas emails, sobre varios assuntos que 
>> desconheço, eu gostaria ja que estou recebebendo tais emails, que 
>> voces fossem mais claros e simplificassem esse conhecimento, pessoas 
>> com um nivel mais baixo nessa linguagem poderia compartilhar com 
>> voces este conhecimento que é de grande utilidade, mais de dificil 
>> compreensão, para quem não trabalha na area, ou tem pouco tempo para 
>> entender este tipo especifico de linguagem.
> 
>   Pelo que eu entendi, Cleber, me parece que você não sabe que está
> inscrito numa lista de discussão. Me parece que você nem mesmo sabe o
> que é uma lista de discussão.
> 
>   Por favor leia isto para aprender o que é uma lista de discussão:
> 
>   http://pt.wikipedia.org/wiki/Lista_de_discuss%C3%A3o
> 
>   Infelizmente, não damos aulas de perl por aqui. As pessoas têm
> problemas específicos e perguntam o que elas estão com dificuldade em
> aprender por conta própria.
> 
>   Claro, existem livros em vários formatos, e páginas da Web que
> lecionam perl. Infelizmente, muitas delas estão em inglês e eu não sei
> quanto inglês você sabe. Aqui tem algumas:
> 
>   http://en.wikipedia.org/wiki/Perl
>   http://books.perl.org/
>   http://www.tpj.com/
>   http://www.perlmonks.org/
> 
>   E eu tenho certeza de que muitos dos seus colegas de lista têm seus
> próprios websites preferidos para aprender Perl. Existem livros também,
> muitos deles em português, que podem ser utilizados para esta finalidade.
> 
>> Eu ficaria muito agradecido se voces continuassemmandando emails,
>> mais com linguagem acessivel, caso contrario eu só poderei exclui-los
>> como tenho feito até o momento, por não entender os assuntos que
>> voces discutem. até o momento:obrigado
> 
>   Bom, vamos revisar o que a gente viu até agora:
> 
>   1. Você recebe muitos emails por que está numa lista de discussão.
>   2. Você é bem-vindo se quiser continuar por aqui, e livre para se
> desinscrever da lista se preferir. E ainda pode voltar sempre que desejar.
>   3. A lista de discussão congrega um grupo de usuários.
>   4. Grupos de usuários são pessoas que usam as mesmas ferramentas e se
> ajudam mútuamente, além de manter contatos profissionais.
>   5. Não é possível, infelizmente, ensinar Perl por aqui. É preciso que
> você aprenda por outros meios.
>   6. Todo mundo aqui pode ajudar você a começar a aprender.
>   7. Eu sou um dos moderadores desta lista, e, a pesar de ser conhecido
> como Ogre [Nota 1], às vezes recebo bem os novatos.
> 
>   [Nota 1]: Não sabe o que é um Ogre? Aqui:
> http://en.wikipedia.org/wiki/Image:Screenshot_of_the_character_Shrek_from_film_Shrek_2.jpg
> 
>   Mais uma vez, putamplexos!


-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From joenio em gmail.com  Wed Jun 28 04:55:31 2006
From: joenio em gmail.com (Joenio Marques)
Date: Wed, 28 Jun 2006 08:55:31 -0300
Subject: [Cascavel-pm] [OT] DVDs FISL 7.0 a venda ?!
In-Reply-To: <44A19BBD.6090404@terra.com.br>
References: <44A18823.1060706@gmail.com> <44A19BBD.6090404@terra.com.br>
Message-ID: <65934b450606280455y4618557k536eaca644491893@mail.gmail.com>

Os palestrantes foram convidados a assinar um termo cedendo os
direitos a organizacao do evento...

Em 27/06/06, Ricardo Portilho Proni<ricardoportilho em terra.com.br> escreveu:
>
>         Os palestrantes sabem que o trabalho será vendido?
>         Alguém além de mim se incomoda com isso?
>
>
> Marco A P D'Andrade escreveu:
> > Pessoal,
> >
> > Claro que ano passado foi muita mamata... receber ao preco do download
> > as palestras do FISL 6.0, considerando que existe custo associado a isto...
> >
> > Mas alguem sabia que isto seria comercializado este ano?
> >
> >
> > Aos palestrantes... de quanto foram os caches ?? ;)
> >
> > 261.ogg:
> >   title: Deixe o gerenciamento do anti-spam com os usuarios
> >   track: Admin
> >   speakers:
> >     - Solli Moreira Honorio
> >
> > 367-2.ogg:
> >   title: "YAPC::Brasil::2006 - parte-2"
> >   track: Eventos Comunitarios
> >   speakers: &id001
> >     - Flavio S. Glock
> >     - Joenio Marques
> >
> > 22.ogg:
> >   title: "O Portal do Monasterio, como se tornar um Monge Perl."
> >   track: "Comunidade, Filosofia e Cultura Livre"
> >   speakers:
> >     - Marco Lima
> >     - ER Galvao Abbott
> >     - Flavio S. Glock
> >
> >
> >
> > -------- Original Message --------
> > Subject:      [Dicas-L] Lançada a Pré-Venda dos DVD-ROMs do FISL 7.0
> > Date:         Tue, 27 Jun 2006 16:05:32 -0300 (BRT)
> > From:         Dicas-L-Owner em dicas-l.com.br
> > To:   undisclosed-recipients: ;
> >
> >
> >
> > Colaboração: André Wolff
> >
> > Já esta disponível para compra o conjunto de 7 DVDs contendo palestras,
> > tutoriais e atividades do Fórum Internacional de Software Livre (FISL)
> > 7.0 que aconteceu em Porto Alegre de 19 a 22 de Abril de 2006.
> >
> > Com mais de 25Gb de arquivos de vídeos compatíveis com Linux, MacOS X e
> > Windows, a coleção é um marco na história do evento que agora pode ficar
> > eternizado em mídia digital.
> >
> > Se você não pôde ir, se foi e não conseguiu participar de todas as
> > atividades que queria ou se esta cansado de explicar para os colegas da
> > empresa como foi a palestra sobre Dot Project, esta é sua chance de ver
> > o que aconteceu durante o FISL 7.0
> >
> > importante salientar que os DVD-ROMs não podem ser visualizados em
> > aparelhos de DVD domésticos. As palestras em outras língüas não tem
> > tradução ou legendas.
> >
> > O produto começará a ser enviado no dia 18-07-2006 e já pode ser
> > adquirido em :
> > http://www.temporealeventos.com.br/dicas_dvd.html"
> >
> >
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
> >
> >
>
> --
>
> Ricardo Portilho Proni
> Oracle Database 10g Administrator Certified Associate
> Microsoft Certified Professional
> Nerv Informática Ltda.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Joenio Marques
- Salvador Perl Mongers

From glasswalk3r em yahoo.com.br  Wed Jun 28 05:13:35 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Wed, 28 Jun 2006 09:13:35 -0300 (ART)
Subject: [Cascavel-pm] [OT] DVDs FISL 7.0 a venda ?!
In-Reply-To: <65934b450606280455y4618557k536eaca644491893@mail.gmail.com>
Message-ID: <20060628121335.63262.qmail@web30812.mail.mud.yahoo.com>

Oi Joenio,

--- Joenio Marques <joenio em gmail.com> escreveu:

> Os palestrantes foram convidados a assinar um termo
> cedendo os
> direitos a organizacao do evento...

Que mal lhe pergunte... vocês cederam os direitos das
palestras em troca de quê mesmo? Se as edições dos
vídeos estivessem disponíveis para download gratuito
(nem que seja via bit torrent) eu até entenderia; caso
contrário, IMHO eu acho que ou vocês ou o SPB devessem
receber algum apoio (se é que isso á não é feito).

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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 frighetti em cascavel.pm.org  Wed Jun 28 07:52:57 2006
From: frighetti em cascavel.pm.org (Fabiano Reese Righetti)
Date: Wed, 28 Jun 2006 11:52:57 -0300
Subject: [Cascavel-pm]
 =?iso-8859-1?q?infelizmente=3AO_que_eu_n=E3o_entend?=
 =?iso-8859-1?q?o_eu_deleto?=
In-Reply-To: <44A267FC.4000901@yahoo.com.br>
References: <44A12362.9080706@gmail.com>	<BAY119-F34A823C8D362A31738C749D07F0@phx.gbl>	<9a08c9b40606271852w1c603eb6n7ae583a35003bdb1@mail.gmail.com>
	<44A267FC.4000901@yahoo.com.br>
Message-ID: <44A297C9.9050504@cascavel.pm.org>

Luis Motta Campos escreveu:
>   Hum. Me parece que o carinha já se desinscreveu... eu gostaria de
> saber o que acontece... tem muita gente inscrita que não sabe o que é
> isto aqui...

    To achando isto estranho também... Já é o segundo caso que
acontece... E fui eu que os descadastrei...

--
Fabiano Reese Righetti


From ricardoportilho em terra.com.br  Wed Jun 28 09:32:46 2006
From: ricardoportilho em terra.com.br (Ricardo Portilho Proni)
Date: Wed, 28 Jun 2006 13:32:46 -0300
Subject: [Cascavel-pm] DBD::Oracle --- Insert BLOB
Message-ID: <44A2AF2E.2010008@terra.com.br>

Oi.

Estou inserindo um BLOB no Oracle, usando DBD, e recebo num erro estranho:

ORA-04043: object DIARIO.DOCS does not exist (DBD ERROR: Can´t match
some papameters to LOB fields in the table, check type and name)

No sqlplus, com o mesmo usuário e senha, eu faço connect, insert, delete 
e update sem problemas.

Segue o código:


if ($DRIVER eq 'Oracle') {
        $cmd = 'insert into DIARIO.DOCS
("id_doc","filename","size","description","title","date","lstermids","lstermpos","frozentermpos","fstar") 

'. " values
($doc_id,'$url',$sizes_db{$doc_id},'$desc_db{$doc_id}','$titles_db{$doc_id}','$dates_db{$doc_id}',:lstermids,:lstermpos,:frozentermpos,$fstar)";
    } else {
        $cmd = 'insert into DOCS
(id_doc,filename,size,description,title,date,lstermids,lstermpos,frozentermpos,fstar) 

'. " values
($doc_id,'$url',$sizes_db{$doc_id},'$desc_db{$doc_id}','$titles_db{$doc_id}','$dates_db{$doc_id}',?,?,?,$fstar)";
    }
    $sth = $dbh->prepare($cmd) or die "Can't prepare $cmd:
".$dbh->errstr."\n";
#
$sth->execute($termids{$doc_id},$indoc_db{$doc_id},$indoc_db_big{$doc_id})
or die "can't execute the query: " . $sth->errstr;
    $sth->bind_param(':lstermids',$termids{$doc_id},{ ora_type=>ORA_BLOB,
ora_field=>'"lstermids"' } );
    $sth->bind_param(':lstermpos',$indoc_db{$doc_id},{
ora_type=>ORA_BLOB, ora_field=>'"lstermpos"' } );
    $sth->bind_param(':frozentermpos',$indoc_db_big{$doc_id},{
ora_type=>ORA_BLOB, ora_field=>'"frozentermpos"' } );
    $sth->execute() or die "can't execute the query: " . $sth->errstr;
    $sth->finish;

	
-- 

Ricardo Portilho Proni
Oracle Database 10g Administrator Certified Associate
Microsoft Certified Professional
Nerv Informática Ltda.

From vandersons em gmail.com  Wed Jun 28 09:37:12 2006
From: vandersons em gmail.com (Vanderson Sampaio)
Date: Wed, 28 Jun 2006 13:37:12 -0300
Subject: [Cascavel-pm] Criando formularios formatados
In-Reply-To: <20060626203106.78229.qmail@web30813.mail.mud.yahoo.com>
References: <20060626183209.67217.qmail@web31303.mail.mud.yahoo.com>
	<20060626203106.78229.qmail@web30813.mail.mud.yahoo.com>
Message-ID: <792d03600606280937k7ffe74cdh1f7706b355ec98a4@mail.gmail.com>

Acho que a Paty se refere a algo semelhante ao Cristal Report. Não procurei
nada em Perl, mas acredito que tenha algo semelhante ao Agatha Report do
PHP...
[]'s


On 6/26/06, Alceu R. de Freitas Jr. <glasswalk3r em yahoo.com.br> wrote:
>
>
> --- Patty Silva <ptfzs em yahoo.com.br> escreveu:
>
> > Gerar relatorio pre-formatado.. nao eh para web..
> >  Achei exemplos utilizando format.. acho que resolvo
> > meu problema ?)
>
> Olha... usar format para fazer relatórios é bastante
> antiquado... mas Cobol também é e continua sendo muito
> útil até hoje.
>
> Avalie se os recursos do format resolvem seu problema
> elegantemente e se seu programa não precisará de novos
> recursos no futuro... quase sempre um relatório em
> HTML será mais atraente para o usuário final (exceto,
> é claro, que o aplicativo vá trabalhar exclusivamente
> em modo texto).
>
> Se você quiser usar um relatório em HTML... considere
> usar um dos diversos templates existentes para esse
> fim (eu particularmente gosto do HTML::Template).
>
> []'s
>
>
> Alceu Rodrigues de Freitas Junior
> --------------------------------------
> glasswalk3r em 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! doce lar. Faça do Yahoo! sua homepage.
> http://br.yahoo.com/homepageset.html
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
Vanderson Sampaio
Biólogo - Especialista em Bioinformática
Mestre em Genética e Biol. Molecular
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060628/de25105d/attachment.html 

From ptfzs em yahoo.com.br  Wed Jun 28 09:52:08 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 28 Jun 2006 13:52:08 -0300 (ART)
Subject: [Cascavel-pm] Getopts
Message-ID: <20060628165208.67744.qmail@web31311.mail.mud.yahoo.com>

Pessoal.. alguem usa o getopts??
 estou tentando usa-lo porem quando a pessoa nao digita nenhuma opcao ele nao mostra erro..
 alguem saberia ??
 
 Obrigada
 
 		
---------------------------------
 Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060628/a8c24da2/attachment.html 

From glasswalk3r em yahoo.com.br  Wed Jun 28 09:55:14 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Wed, 28 Jun 2006 13:55:14 -0300 (ART)
Subject: [Cascavel-pm] Criando formularios formatados
In-Reply-To: <792d03600606280937k7ffe74cdh1f7706b355ec98a4@mail.gmail.com>
Message-ID: <20060628165514.52701.qmail@web30803.mail.mud.yahoo.com>


--- Vanderson Sampaio <vandersons em gmail.com> escreveu:

> Acho que a Paty se refere a algo semelhante ao
> Cristal Report. Não procurei
> nada em Perl, mas acredito que tenha algo semelhante
> ao Agatha Report do
> PHP...

Eu entendi isso também... mas o que esses aplicativos
fazem é fornecer edição gráfica dos relatórios e criar
facilitadores para obter os dados e aplicar lógica...

Eu realmente não sei se Perl tem algo assim...
acredito que não. Uma busca no Freshmeat deve trazer
algo.

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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


		
_______________________________________________________ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/ 
 


From glasswalk3r em yahoo.com.br  Wed Jun 28 10:02:25 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Wed, 28 Jun 2006 14:02:25 -0300 (ART)
Subject: [Cascavel-pm] Getopts
In-Reply-To: <20060628165208.67744.qmail@web31311.mail.mud.yahoo.com>
Message-ID: <20060628170225.21489.qmail@web30801.mail.mud.yahoo.com>


--- Patty Silva <ptfzs em yahoo.com.br> escreveu:

> Pessoal.. alguem usa o getopts??
>  estou tentando usa-lo porem quando a pessoa nao
> digita nenhuma opcao ele nao mostra erro..
>  alguem saberia ??

Você que tem que controlar isso. Como você não
especificou qual módulo está usando (você podia ter
postado seu código né?) vou assumir que está usando
Getopt::Std. Se você fizer assim:

getopts('oif:', \%opts);

O que o usuário digitar será criado como um chave do
hash %opts. Se você usar a função keys no hash e
verificar por retorno igual a zero, você poderá
colocar uma mensagem de erro usando warn ou die, por
exemplo.

Antes que você pergunte, mais uma informação útil da
documentação:

"The getopts() function is similar, but you should
pass to it the list of all switches to be recognized.
If unspecified switches are found on the command-line,
the user will be warned that an unknown option was
given."

[]'s


Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em 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! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 


From igor.sutton em gmail.com  Wed Jun 28 10:02:38 2006
From: igor.sutton em gmail.com (Igor Sutton Lopes)
Date: Wed, 28 Jun 2006 14:02:38 -0300
Subject: [Cascavel-pm] Getopts
In-Reply-To: <20060628165208.67744.qmail@web31311.mail.mud.yahoo.com> (Patty
	Silva's message of "Wed, 28 Jun 2006 13:52:08 -0300 (ART)")
References: <20060628165208.67744.qmail@web31311.mail.mud.yahoo.com>
Message-ID: <87y7vhqklt.fsf@gmail.com>

Patty Silva <ptfzs em yahoo.com.br> writes:

E o codigo Patty? E o codigo?

Igor.

> Pessoal.. alguem usa o getopts??
> estou tentando usa-lo porem quando a pessoa nao digita nenhuma opcao ele nao
> mostra erro..
> alguem saberia ??
>
> Obrigada
>
>
> -------------------------------------------------------------------------------
> Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e
> anti-spam realmente eficaz.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

From ptfzs em yahoo.com.br  Wed Jun 28 11:02:57 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 28 Jun 2006 18:02:57 +0000 (GMT)
Subject: [Cascavel-pm] Getopts
In-Reply-To: <87y7vhqklt.fsf@gmail.com>
Message-ID: <20060628180258.72346.qmail@web31314.mail.mud.yahoo.com>

:) Sorry again People!!
 
 vai la:
 use Getopt::Std;
 use vars qw($opt_h);
 use vars qw($opt_c);
 use vars qw($opt_t);
 
 
 &getopts('c:t:h') ||die "Erro: Nao existe essa opcao! Digite -h para Ajuda\n";
 
 die &about if $opt_h;
 
 
 So que quando digito nada ele rda o programa.. quero que de algum erro..Vc deve digitar alguma opcao ou -h para Help.. 
 :P
 
 Obrigada
 
 
 
 

Igor Sutton Lopes <igor.sutton em gmail.com> escreveu: Patty Silva 
 writes:

E o codigo Patty? E o codigo?

Igor.

> Pessoal.. alguem usa o getopts??
> estou tentando usa-lo porem quando a pessoa nao digita nenhuma opcao ele nao
> mostra erro..
> alguem saberia ??
>
> Obrigada
>
>
> -------------------------------------------------------------------------------
> Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e
> anti-spam realmente eficaz.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm



 		
---------------------------------
 Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060628/c6961a4e/attachment.html 

From ptfzs em yahoo.com.br  Wed Jun 28 11:19:25 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 28 Jun 2006 15:19:25 -0300 (ART)
Subject: [Cascavel-pm] Duvida variavel de ambiente
Message-ID: <20060628181925.37871.qmail@web31313.mail.mud.yahoo.com>

Pessoal... nao consegui fazer funcionar a definicao de uma variavel de ambiente...
 tive que fazer um script em Shell que declare a variavel e chame meu programa em perl:
 
 Ficou Assim:
 
 
 shell=`echo $SHELL`
 
 if [ "$shell" = "/bin/shell" ]; then
 setenv TESTE $HOME/teste
 else
 export TESTE=$HOME/teste
 fi
 #roda o programa
 $HOME/teste/teste.pl
 
 
 
 Como eu poderia fazer isso so em PERL???
 
 Obrigada...
 
 
 
 
 
 		
---------------------------------
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060628/23f02c52/attachment-0001.html 

From acid06 em gmail.com  Wed Jun 28 11:37:25 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Wed, 28 Jun 2006 15:37:25 -0300
Subject: [Cascavel-pm] Duvida variavel de ambiente
In-Reply-To: <20060628181925.37871.qmail@web31313.mail.mud.yahoo.com>
References: <20060628181925.37871.qmail@web31313.mail.mud.yahoo.com>
Message-ID: <9a08c9b40606281137k663a767dm637b8b3f63de9152@mail.gmail.com>

On 6/28/06, Patty Silva <ptfzs em yahoo.com.br> wrote:
>  Como eu poderia fazer isso so em PERL???

Em Perl [1], você poderia fazer assim:

  $ENV{TESTE} = "$ENV{HOME}/teste";

Note que variáveis de ambiente têm escopo definido e, portanto, apenas
o processo atual e processos filhos irão ver essas variáveis de
ambiente com esses valores.

[1] de perlfaq1: "...never write "PERL", because perl is not an
acronym, apocryphal folklore and post-facto expansions
notwithstanding."

-Nilson Santos F. Jr.

From ptfzs em yahoo.com.br  Wed Jun 28 12:21:32 2006
From: ptfzs em yahoo.com.br (Patty Silva)
Date: Wed, 28 Jun 2006 16:21:32 -0300 (ART)
Subject: [Cascavel-pm] Duvida variavel de ambiente
In-Reply-To: <9a08c9b40606281137k663a767dm637b8b3f63de9152@mail.gmail.com>
Message-ID: <20060628192132.68223.qmail@web31313.mail.mud.yahoo.com>

é.. eu acho que vou ter que continuar com o shell msm.. pq dentro do programa que chamo eu rodo um .exe que precisa da variavel de ambiente definida..
 :)
 
 Obrigda

Nilson Santos Figueiredo Junior <acid06 em gmail.com> escreveu: On 6/28/06, Patty Silva 
 wrote:
>  Como eu poderia fazer isso so em PERL???

Em Perl [1], você poderia fazer assim:

  $ENV{TESTE} = "$ENV{HOME}/teste";

Note que variáveis de ambiente têm escopo definido e, portanto, apenas
o processo atual e processos filhos irão ver essas variáveis de
ambiente com esses valores.

[1] de perlfaq1: "...never write "PERL", because perl is not an
acronym, apocryphal folklore and post-facto expansions
notwithstanding."

-Nilson Santos F. Jr.
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm



 		
---------------------------------
 Yahoo! Search
 Música para ver e ouvir: You're Beautiful, do James Blunt
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060628/cea3a700/attachment.html 

From glasswalk3r em yahoo.com.br  Wed Jun 28 12:38:15 2006
From: glasswalk3r em yahoo.com.br (Alceu R. de Freitas Jr.)
Date: Wed, 28 Jun 2006 16:38:15 -0300 (ART)
Subject: [Cascavel-pm] Getopts
In-Reply-To: <20060628180258.72346.qmail@web31314.mail.mud.yahoo.com>
Message-ID: <20060628193815.31415.qmail@web30813.mail.mud.yahoo.com>

<code>

use Getopt::Std;
use warnings;
use strict;

my %opts;

getopts('c:t:h', \%opts);

die "Erro: Nao existe essa opcao! Digite -h para
Ajuda\n" unless (scalar(keys(%opts)));
</code>

Repare que a mensagem de erro não condiz com seu email
original aonde você pede para dar uma mensagem de erro
quando o usuário não digita opção nenhuma. Se você só
quer só testar por opções inválidas, basta associar o
hash %opts (e *^%$#!!, eu já escrevi isso no email
anterior!).

Alceu

--- Patty Silva <ptfzs em yahoo.com.br> escreveu:

> :) Sorry again People!!
>  
>  vai la:
>  use Getopt::Std;
>  use vars qw($opt_h);
>  use vars qw($opt_c);
>  use vars qw($opt_t);
>  
>  
>  &getopts('c:t:h') ||die "Erro: Nao existe essa
> opcao! Digite -h para Ajuda\n";
>  
>  die &about if $opt_h;
>  
>  
>  So que quando digito nada ele rda o programa..
> quero que de algum erro..Vc deve digitar alguma
> opcao ou -h para Help.. 
>  :P
>  
>  Obrigada



		
_______________________________________________________ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/ 
 


From joenio em gmail.com  Wed Jun 28 18:36:45 2006
From: joenio em gmail.com (Joenio Marques)
Date: Wed, 28 Jun 2006 22:36:45 -0300
Subject: [Cascavel-pm] [OT] DVDs FISL 7.0 a venda ?!
In-Reply-To: <20060628121335.63262.qmail@web30812.mail.mud.yahoo.com>
References: <65934b450606280455y4618557k536eaca644491893@mail.gmail.com>
	<20060628121335.63262.qmail@web30812.mail.mud.yahoo.com>
Message-ID: <65934b450606281836p639ff727k7c9229fca75d557b@mail.gmail.com>

Em 28/06/06, Alceu R. de Freitas Jr.<glasswalk3r em yahoo.com.br> escreveu:
> Que mal lhe pergunte... vocês cederam os direitos das
> palestras em troca de quê mesmo? Se as edições dos
> vídeos estivessem disponíveis para download gratuito
> (nem que seja via bit torrent) eu até entenderia; caso
> contrário, IMHO eu acho que ou vocês ou o SPB devessem
> receber algum apoio (se é que isso á não é feito).

Não lembro direito o que era... assinei o papel vendendo minha alma... hehehe...
Acredito que serao disponibilizados para download sim...

os videos do FISL6 estão aqui:
http://torrents.softwarelivre.org

Att,
-- 
Joenio Marques
- Salvador Perl Mongers

From monsieur_champs em yahoo.com.br  Thu Jun 29 03:05:34 2006
From: monsieur_champs em yahoo.com.br (Luis Motta Campos)
Date: Thu, 29 Jun 2006 11:05:34 +0100
Subject: [Cascavel-pm] DBD::Oracle --- Insert BLOB
In-Reply-To: <44A2AF2E.2010008@terra.com.br>
References: <44A2AF2E.2010008@terra.com.br>
Message-ID: <44A3A5EE.7000903@yahoo.com.br>

Ricardo Portilho Proni wrote:
> Oi.
> 
> Estou inserindo um BLOB no Oracle, usando DBD, e recebo num erro
> estranho:
> 
> ORA-04043: object DIARIO.DOCS does not exist (DBD ERROR: Can´t match 
> some papameters to LOB fields in the table, check type and name)

  RTFM:

ORA-04043:	object string does not exist
Cause:	An object name was specified that was not recognized by the
system. Following are possible causes:

    * An invalid name for a table, view, sequence, procedure, function,
package, or package body was entered. Since the system could not
recognize the invalid name, it responded with the message that the named
object does not exist.
    * An attempt was made to rename an index or a cluster, or some other
object that cannot be renamed.

Action:	Check the spelling of the named object and rerun the code.
(Valid names of tables, views, functions, etc. can be listed by querying
the data dictionary.)

-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
 Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
 Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

From marcelo em stella.eng.br  Thu Jun 29 11:35:42 2006
From: marcelo em stella.eng.br (Marcelo Stella)
Date: Thu, 29 Jun 2006 15:35:42 -0300
Subject: [Cascavel-pm] =?iso-8859-1?q?Script_Perl_como_servi=E7o_do_Window?=
	=?iso-8859-1?q?s?=
In-Reply-To: <3b34fab90606291134q5186a0dfp5a03380e0cb5885e@mail.gmail.com>
References: <3b34fab90606291134q5186a0dfp5a03380e0cb5885e@mail.gmail.com>
Message-ID: <3b34fab90606291135m584d9e71v53c0d8b43368a869@mail.gmail.com>

Senhores,

Tudo bom...

Fiz um servidor socket para receber alguns traps xml e preciso
dispará-lo como serviço do windows. Alguém já fez algum código e subiu
como serviço do Windows ??

Já li a documentação do Active Perl e não ajudou muito (aponta para o
MMC do windows que tb não é claro). Até baixei um programa free
(Any2Service) que dispara scripts como serviço mas, quando inicio,
retorna um erro do windows (1067) - mas a porta que estou usando está
livre...

Acho que tenho que preparar meu código para subir como serviço...
Alguém já passou por isso ??

[]'s
Marcelo Stella

PS.: Saudades do bom e velho Linux :D

From edencardim em gmail.com  Thu Jun 29 11:49:30 2006
From: edencardim em gmail.com (Eden Cardim)
Date: Thu, 29 Jun 2006 15:49:30 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Script_Perl_como_servi=E7o_do_Window?=
	=?iso-8859-1?q?s?=
In-Reply-To: <3b34fab90606291135m584d9e71v53c0d8b43368a869@mail.gmail.com>
References: <3b34fab90606291134q5186a0dfp5a03380e0cb5885e@mail.gmail.com>
	<3b34fab90606291135m584d9e71v53c0d8b43368a869@mail.gmail.com>
Message-ID: <3de55ead0606291149r103fc846ga138556d4557560e@mail.gmail.com>

On 6/29/06, Marcelo Stella <marcelo em stella.eng.br> wrote:
> Senhores,
>
> Tudo bom...
>
> Fiz um servidor socket para receber alguns traps xml e preciso
> dispará-lo como serviço do windows. Alguém já fez algum código e subiu
> como serviço do Windows ??
>
> Já li a documentação do Active Perl e não ajudou muito (aponta para o
> MMC do windows que tb não é claro). Até baixei um programa free
> (Any2Service) que dispara scripts como serviço mas, quando inicio,
> retorna um erro do windows (1067) - mas a porta que estou usando está
> livre...
>
> Acho que tenho que preparar meu código para subir como serviço...
> Alguém já passou por isso ??

Uma busca no CPAN por "Windows Service" me levou a este modulo, nunca
usei, mas talvez resolva seu problema:
http://search.cpan.org/~jenda/Win32-Daemon-Simple-0.2.6/Simple.pm

From acid06 em gmail.com  Thu Jun 29 12:08:10 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 29 Jun 2006 16:08:10 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Script_Perl_como_servi=E7o_do_Window?=
	=?iso-8859-1?q?s?=
In-Reply-To: <3b34fab90606291135m584d9e71v53c0d8b43368a869@mail.gmail.com>
References: <3b34fab90606291134q5186a0dfp5a03380e0cb5885e@mail.gmail.com>
	<3b34fab90606291135m584d9e71v53c0d8b43368a869@mail.gmail.com>
Message-ID: <9a08c9b40606291208i46046130sdad08627bb5e27d6@mail.gmail.com>

On 6/29/06, Marcelo Stella <marcelo em stella.eng.br> wrote:
> Fiz um servidor socket para receber alguns traps xml e preciso
> dispará-lo como serviço do windows. Alguém já fez algum código e subiu
> como serviço do Windows ??

Use o módulo Win32::Daemon.
Infelizmente, ele não pode ser encontrado na CPAN, você precisa baixá-lo em:

  http://www.roth.net/perl/Daemon/

-Nilson Santos F. Jr.

From ricardoportilho em terra.com.br  Thu Jun 29 12:43:29 2006
From: ricardoportilho em terra.com.br (Ricardo Portilho Proni)
Date: Thu, 29 Jun 2006 16:43:29 -0300
Subject: [Cascavel-pm]
 =?iso-8859-1?q?Script_Perl_como_servi=E7o_do_Window?=
 =?iso-8859-1?q?s?=
In-Reply-To: <9a08c9b40606291208i46046130sdad08627bb5e27d6@mail.gmail.com>
References: <3b34fab90606291134q5186a0dfp5a03380e0cb5885e@mail.gmail.com>	<3b34fab90606291135m584d9e71v53c0d8b43368a869@mail.gmail.com>
	<9a08c9b40606291208i46046130sdad08627bb5e27d6@mail.gmail.com>
Message-ID: <44A42D61.1010009@terra.com.br>

PerlSvc, que vem no PDK, da ActiveState.


What is PerlSvc?
The PerlSvc utility converts a Perl program to a native Windows service 
with an .exe extension.


Nilson Santos Figueiredo Junior escreveu:
> On 6/29/06, Marcelo Stella <marcelo em stella.eng.br> wrote:
>> Fiz um servidor socket para receber alguns traps xml e preciso
>> dispará-lo como serviço do windows. Alguém já fez algum código e subiu
>> como serviço do Windows ??
> 
> Use o módulo Win32::Daemon.
> Infelizmente, ele não pode ser encontrado na CPAN, você precisa baixá-lo em:
> 
>   http://www.roth.net/perl/Daemon/
> 
> -Nilson Santos F. Jr.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
> 

-- 

Ricardo Portilho Proni
Oracle Database 10g Administrator Certified Associate
Microsoft Certified Professional
Nerv Informática Ltda.

From acid06 em gmail.com  Thu Jun 29 13:39:18 2006
From: acid06 em gmail.com (Nilson Santos Figueiredo Junior)
Date: Thu, 29 Jun 2006 17:39:18 -0300
Subject: [Cascavel-pm]
	=?iso-8859-1?q?Script_Perl_como_servi=E7o_do_Window?=
	=?iso-8859-1?q?s?=
In-Reply-To: <44A42D61.1010009@terra.com.br>
References: <3b34fab90606291134q5186a0dfp5a03380e0cb5885e@mail.gmail.com>
	<3b34fab90606291135m584d9e71v53c0d8b43368a869@mail.gmail.com>
	<9a08c9b40606291208i46046130sdad08627bb5e27d6@mail.gmail.com>
	<44A42D61.1010009@terra.com.br>
Message-ID: <9a08c9b40606291339s347abb81g424a8af3854632c4@mail.gmail.com>

On 6/29/06, Ricardo Portilho Proni <ricardoportilho em terra.com.br> wrote:
> PerlSvc, que vem no PDK, da ActiveState.

Além do Perl Dev Kit ser pago, o PerlSvc é uma solução *bem* menos
flexível que o Win32::Daemon.

-Nilson Santos F. Jr.

From mdacwb em gmail.com  Thu Jun 29 19:55:12 2006
From: mdacwb em gmail.com (Marco A P D'Andrade)
Date: Thu, 29 Jun 2006 23:55:12 -0300
Subject: [Cascavel-pm] [OT] Google Desktop 4 x Gadgets ... Perl ...
Message-ID: <42dcdd750606291955m1ca3982ao7f0453e2e738ffd9@mail.gmail.com>

>> Me chamou a atenção a citação das ferramentas (o premio também, mas
está fora do meu >> prazo ...)

>> Através da ferramenta os programadores poderão criar as chamadas
"Google Gadgets"
>>  com códigos nas linguagens ... , Perl,  ... ou qualquer outra
linguagem que suporte COM
>> e XML. Para fortalecer ainda mais a base de aplicativos a empresa
está oferecendo
>> premiação em dinheiro para as melhores aplicações  ...

Mais informações:
  http://www.geek.com.br/modules/noticias/ver.php?id=3320&sec=4

Vi isto em um novo recurso no gmail ...

T+

From gilmarjr em dcc.ufba.br  Thu Jun 29 20:18:01 2006
From: gilmarjr em dcc.ufba.br (Gilmar Santos Jr)
Date: Fri, 30 Jun 2006 00:18:01 -0300
Subject: [Cascavel-pm] [OT] DVDs FISL 7.0 a venda ?!
In-Reply-To: <65934b450606281836p639ff727k7c9229fca75d557b@mail.gmail.com>
References: <65934b450606280455y4618557k536eaca644491893@mail.gmail.com>	<20060628121335.63262.qmail@web30812.mail.mud.yahoo.com>
	<65934b450606281836p639ff727k7c9229fca75d557b@mail.gmail.com>
Message-ID: <44A497E9.80304@dcc.ufba.br>

Foi dito (não me lembro se no encerramento, mas tenho quase certeza) que
os vídeos seriam disponibilizados sim para download.
E essa do DVD é uma comodidade. O que eles vendem é essa comodidade.. o
mesmo de vender CD's de distribuições, por exemplo. Nada me impede de
gravar os 14 CD's do debian e vendê-los, mas não posso proibir que a
pessoa pra quem eu vendi copie ou revenda...
Se no DVD tiver aquelas coisinhas de "não pode ser exibido publicamente,
não pode copiar, não pode revender" aí teríamos um problema e eu iria
reclamar fortemente, mas esse não é o caso. ;-)
Ainda não vi como esses dvd's serão vendidos nem vi o espaço pra
download então não vou me alongar. Vou esperar pra ver ;-)

[]'s
Gilmar
- Salvador Perl Monger

Joenio Marques escreveu:
> Em 28/06/06, Alceu R. de Freitas Jr.<glasswalk3r em yahoo.com.br> escreveu:
>   
>> Que mal lhe pergunte... vocês cederam os direitos das
>> palestras em troca de quê mesmo? Se as edições dos
>> vídeos estivessem disponíveis para download gratuito
>> (nem que seja via bit torrent) eu até entenderia; caso
>> contrário, IMHO eu acho que ou vocês ou o SPB devessem
>> receber algum apoio (se é que isso á não é feito).
>>     
>
> Não lembro direito o que era... assinei o papel vendendo minha alma... hehehe...
> Acredito que serao disponibilizados para download sim...
>
> os videos do FISL6 estão aqui:
> http://torrents.softwarelivre.org
>
> Att,
>   


From fglock em gmail.com  Fri Jun 30 11:06:23 2006
From: fglock em gmail.com (Flavio S. Glock)
Date: Fri, 30 Jun 2006 15:06:23 -0300
Subject: [Cascavel-pm] YAPC::NA palestras on-line
Message-ID: <aa47605d0606301106t2f4490b3qb35a43db864f18dd@mail.gmail.com>

Algumas palestras do YAPC::NA, que está ocorrendo nesta semana:
	
Audrey Tang
"Deploying Perl 6"

  http://pugs.blogs.com/talks/yapcna-deploy-perl6.pdf
  http://pugs.blogs.com/talks/yapcna-deploy-perl6.swf
  http://pugs.blogs.com/talks/yapcna-deploy-perl6.tar.gz (HTML+images)

  - esta palestra já fala do meu novo módulo:
  http://search.cpan.org/~fglock/v6-pugs-0.002/lib/v6.pm

Patrick R. Michaud 	
"Perl 6 Compiler Status and the Parrot Compiler Toolkit"

   http://www.pmichaud.com/2006/pres/yapc-perl6/slide.html

Patrick R. Michaud 	
"Parser, Perl 6 Rules, and the Parrot Grammar Engine"

   http://www.pmichaud.com/2006/pres/yapc-parsers/slide.html

Will Coleda
"Parrot Target Practice"
   http://www.pmichaud.com/2006/pres/yapc-apl/start.html

- Flavio S. Glock