[Cascavel-pm] Digest Cascavel-pm, volume 195, assunto 9

Veronica Soraia veronica.soara em gmail.com
Quinta Maio 3 11:02:29 PDT 2007


olá Luiz G. P. de Almeida , é sim o mesmo problema, na vdd a gente
trabalha juntos , estamos começando com perl agora com o pessoal aqui
. Então ele me perguntou isso mas não souber responder rsrsr . Mas
mesmo assim obrigada pela ajuda !

abraços

verônica

Em 02/05/07, cascavel-pm-request em pm.org<cascavel-pm-request em pm.org> escreveu:
> Enviar submissões para a lista de discussão Cascavel-pm para
> 	cascavel-pm em pm.org
>
> Para se cadastrar ou descadastrar via WWW, visite o endereço
> 	http://mail.pm.org/mailman/listinfo/cascavel-pm
> ou, via email, envie uma mensagem com a palavra 'help' no assunto ou
> corpo da mensagem para
> 	cascavel-pm-request em pm.org
>
> Você poderá entrar em contato com a pessoa que gerencia a lista pelo
> endereço
> 	cascavel-pm-owner em pm.org
>
> Quando responder, por favor edite sua linha Assunto assim ela será
> mais específica que "Re: Contents of Cascavel-pm digest..."
>
>
> Tópicos de Hoje:
>
>    1. keypress em perl (Marcelo)
>    2. Re: keypress em perl (Fernando Oliveira)
>    3. Re: keypress em perl (Luiz Gonzaga)
>    4. Re: keypress em perl (Luiz Gonzaga)
>    5. Re: keypress em perl (Eden Cardim)
>    6. keypress evento em perl (Marcelo)
>    7. keypress evento em perl "MELHORADO!" (Marcelo)
>    8. Re: keypress evento em perl "MELHORADO!" (Eden Cardim)
>    9. Re: keypress evento em perl "MELHORADO!" (Eden Cardim)
>   10. Re: keypress evento em perl "MELHORADO!" (Luiz Gonzaga)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Wed, 2 May 2007 09:21:54 -0300
> From: Marcelo <mclpaltrin em gmail.com>
> Subject: [Cascavel-pm] keypress em perl
> To: cascavel-pm em pm.org
> Message-ID:
> 	<2baf10d90705020521g146877eake52ea25575a1db2d em mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> bom dia !
>
> - Alguem já fez um script usando keypress uma função alguma coisa
> parecida com isso: ex.
>
> tenho um script em .pl esta num loop se usuario digitar um <> 1 exibe
> msg senao exibe resultado do script . Alguem sabe como fazer issu?
> pode me passar um exemplo para meu problema.
>
> grato pela ajuda.
>
>
>
> --
> Marcelo
>
>
> ------------------------------
>
> Message: 2
> Date: Wed, 2 May 2007 09:25:36 -0300
> From: "Fernando Oliveira" <fernandocorrea em gmail.com>
> Subject: Re: [Cascavel-pm] keypress em perl
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Message-ID:
> 	<f40026c0705020525j13e778b8ub25838858d4b4218 em mail.gmail.com>
> Content-Type: text/plain; charset="iso-8859-1"
>
> Term::ReadKey
>
> Em 02/05/07, Marcelo <mclpaltrin em gmail.com> escreveu:
> >
> > bom dia !
> >
> > - Alguem já fez um script usando keypress uma função alguma coisa
> > parecida com isso: ex.
> >
> > tenho um script em .pl esta num loop se usuario digitar um <> 1 exibe
> > msg senao exibe resultado do script . Alguem sabe como fazer issu?
> > pode me passar um exemplo para meu problema.
> >
> > grato pela ajuda.
> >
> >
> >
> > --
> > Marcelo
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
>
> --
> []'s Fernando
> -------------- Próxima Parte ----------
> Um anexo em HTML foi limpo...
> URL:
> http://mail.pm.org/pipermail/cascavel-pm/attachments/20070502/e52f9b43/attachment-0001.html
>
> ------------------------------
>
> Message: 3
> Date: Wed, 2 May 2007 09:32:19 -0300
> From: Luiz Gonzaga <lgonzaga em lncc.br>
> Subject: Re: [Cascavel-pm] keypress em perl
> To: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Message-ID: <200705020932.19317.lgonzaga em lncc.br>
> Content-Type: text/plain;  charset="iso-8859-1"
>
> Marcelo, acabei esquecendo de escrever na mensagem anterior, coloque na
> mensagem o codigo do script que voce fez.
>
> Luiz.
>
> Em Quarta 02 Maio 2007 09:21, Marcelo escreveu:
> > bom dia !
> >
> > - Alguem já fez um script usando keypress uma função alguma coisa
> > parecida com isso: ex.
> >
> > tenho um script em .pl esta num loop se usuario digitar um <> 1 exibe
> > msg senao exibe resultado do script . Alguem sabe como fazer issu?
> > pode me passar um exemplo para meu problema.
> >
> > grato pela ajuda.
>
> --
> Luiz G. P. de Almeida
> Analista de Sistemas
> Laboratório Nacional de Computação Científica / MCT
>
>
> ------------------------------
>
> Message: 4
> Date: Wed, 2 May 2007 09:31:09 -0300
> From: Luiz Gonzaga <lgonzaga em lncc.br>
> Subject: Re: [Cascavel-pm] keypress em perl
> To: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Message-ID: <200705020931.09325.lgonzaga em lncc.br>
> Content-Type: text/plain;  charset="iso-8859-1"
>
> Bom dia Marcelo,
>
> Nao entendi nada do que voce escreveu. Voce pode tentar reformular a
> pergunta.
>
> Abracos, Luiz.
>
> Em Quarta 02 Maio 2007 09:21, Marcelo escreveu:
> > bom dia !
> >
> > - Alguem já fez um script usando keypress uma função alguma coisa
> > parecida com isso: ex.
> >
> > tenho um script em .pl esta num loop se usuario digitar um <> 1 exibe
> > msg senao exibe resultado do script . Alguem sabe como fazer issu?
> > pode me passar um exemplo para meu problema.
> >
> > grato pela ajuda.
>
> --
> Luiz G. P. de Almeida
> Analista de Sistemas
> Laboratório Nacional de Computação Científica / MCT
>
>
> ------------------------------
>
> Message: 5
> Date: Wed, 2 May 2007 09:34:16 -0300
> From: "Eden Cardim" <edencardim em gmail.com>
> Subject: Re: [Cascavel-pm] keypress em perl
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Message-ID:
> 	<3de55ead0705020534s74a7fe0l9a928e0ed3fde767 em mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> On 5/2/07, Marcelo <mclpaltrin em gmail.com> wrote:
> > bom dia !
> >
> > - Alguem já fez um script usando keypress uma função alguma coisa
> > parecida com isso: ex.
> >
> > tenho um script em .pl esta num loop se usuario digitar um <> 1 exibe
> > msg senao exibe resultado do script .
>
> Keypress? Isso pode significar várias coisas. Não entendi... 'digitar
> um <> 1' significa o que? Que o 'usuário' vai digitar literalmente a
> string '<> 1'? Que ele vai digitar qualquer caracter que não seja o
> caracter '1'? Que ele vai passar 1 pro operador diamante?
> Esclareça o problema, de preferncia com algum código ou pseudocódigo,
> quem sabe não conseguimos achar uma solução pro teu problema.
>
> --
> Eden Cardim
> Instituto Baiano de Biotecnologia
> Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
> Laboratório de Bioinformática
>
>
> ------------------------------
>
> Message: 6
> Date: Wed, 2 May 2007 09:44:16 -0300
> From: Marcelo <mclpaltrin em gmail.com>
> Subject: [Cascavel-pm] keypress evento em perl
> To: cascavel-pm em pm.org
> Message-ID:
> 	<2baf10d90705020544o8a8e756v7d06797ae3dcdae9 em mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Turma !
>
> EXEMPLO:
>
> while(1)
> {
> 	
> 	if(not $socket	=	(IO::Socket::INET->new(PeerAddr => 'PeerAddr',
> PeerPort     => 'PeerPort', Proto => "tcp")))
> 	{
> 		$a++;
> 	}
> 	
> 	if(not $scket2	=	(IO::Socket::INET->new(PeerAddr =>'PeerAddr',
> PeerPort => 'PeerPort', Proto => "tcp")))
> 	{
> 		$b++;
> 	}
> 	#TOTAL DE CONEXOES
> 	$cont++;
> 	
> 	if(usuario digitar != 1)
> 	{
> 		print "\n";
> 		print "PARA EXIBIR O RESULTADO DIGITE O NUM.  1\n\n";
> 		print "\n";
> 		next;
> 	}
> 	elsif(usario digitou == 1)
> 	{
> 		print "\n";
> 		print "----- RESULTADO -----\n\n";
> 		print "- ERROS EM:".$a."\n";
> 		print "- ERROS EM :".$b."\n";
> 		print "- TOTAL DE CONEXOES   :".$cont."\n";
> 		print "\n";
> 	}
> 	sleep(60);
> }
>
>
>
> --
> Marcelo
>
>
> ------------------------------
>
> Message: 7
> Date: Wed, 2 May 2007 09:50:39 -0300
> From: Marcelo <mclpaltrin em gmail.com>
> Subject: [Cascavel-pm] keypress evento em perl "MELHORADO!"
> To: cascavel-pm em pm.org
> Message-ID:
> 	<2baf10d90705020550u40537dbfl5d92b5710cdeddde em mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Turma !
>
> " USUARIO VAI IMFORMAR O VALOR DEPOIS QUE O SCRIPT ESTIVAR RODANDO"
>
>
> EXEMPLO:
> while(1)
> {
> 	
> 	if(not $socket	=	(IO::Socket::INET->new(PeerAddr => 'PeerAddr',
> PeerPort     => 'PeerPort', Proto => "tcp")))
> 	{
> 		$a++;
> 	}
> 	
> 	if(not $scket2	=	(IO::Socket::INET->new(PeerAddr =>'PeerAddr',
> PeerPort => 'PeerPort', Proto => "tcp")))
> 	{
> 		$b++;
> 	}
> 	#TOTAL DE CONEXOES
> 	$cont++;
> 	
> 	if(usuario digitar != 1)
> 	{
> 		print "\n";
> 		print "PARA EXIBIR O RESULTADO DIGITE O NUM.  1\n\n";
> 		print "\n";
> 		next;
> 	}
> 	elsif(usario digitou == 1)
> 	{
> 		print "\n";
> 		print "----- RESULTADO -----\n\n";
> 		print "- ERROS EM:".$a."\n";
> 		print "- ERROS EM :".$b."\n";
> 		print "- TOTAL DE CONEXOES   :".$cont."\n";
> 		print "\n";
> 	}
> 	sleep(60);
> }
>
>
>
> --
> Marcelo
>
>
>
> --
> Marcelo
>
>
> ------------------------------
>
> Message: 8
> Date: Wed, 2 May 2007 10:25:25 -0300
> From: "Eden Cardim" <edencardim em gmail.com>
> Subject: Re: [Cascavel-pm] keypress evento em perl "MELHORADO!"
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Message-ID:
> 	<3de55ead0705020625y2db690dje1516c35093fbb6b em mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> On 5/2/07, Marcelo <mclpaltrin em gmail.com> wrote:
> < snip... programa exemplo aqui >
>
> tem um exemplo de como fazer o que você pediu e algumas recomendações
> de módulos na documentação da função getc(): perldoc -f getc
>
> Se você vai implementar um programa baseado em eventos, dê uma olhada
> no POE, ele é extremamente recomendável para fazer esse tipo de coisa.
>
> --
> Eden Cardim
> Instituto Baiano de Biotecnologia
> Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
> Laboratório de Bioinformática
>
>
> ------------------------------
>
> Message: 9
> Date: Wed, 2 May 2007 10:25:25 -0300
> From: "Eden Cardim" <edencardim em gmail.com>
> Subject: Re: [Cascavel-pm] keypress evento em perl "MELHORADO!"
> To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
> Message-ID:
> 	<3de55ead0705020625y2db690dje1516c35093fbb6b em mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> On 5/2/07, Marcelo <mclpaltrin em gmail.com> wrote:
> < snip... programa exemplo aqui >
>
> tem um exemplo de como fazer o que você pediu e algumas recomendações
> de módulos na documentação da função getc(): perldoc -f getc
>
> Se você vai implementar um programa baseado em eventos, dê uma olhada
> no POE, ele é extremamente recomendável para fazer esse tipo de coisa.
>
> --
> Eden Cardim
> Instituto Baiano de Biotecnologia
> Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
> Laboratório de Bioinformática
>
>
> ------------------------------
>
> Message: 10
> Date: Wed, 2 May 2007 10:37:39 -0300
> From: Luiz Gonzaga <lgonzaga em lncc.br>
> Subject: Re: [Cascavel-pm] keypress evento em perl "MELHORADO!"
> To: Cascavel Perl Mongers <cascavel-pm em pm.org>
> Message-ID: <200705021037.39667.lgonzaga em lncc.br>
> Content-Type: text/plain;  charset="iso-8859-1"
>
> Marcelo,
>
> Me parece, por favor me corrija se eu estiver errado, que este problema é
> bem
> semelhante ao problema, para o qual a Veronica Soraia mandou na
> segunda-feira, um email pedindo ajuda.
>
> É o mesmo problema ?
>
> Luiz.
>
> Em Quarta 02 Maio 2007 09:50, Marcelo escreveu:
> > Turma !
> >
> > " USUARIO VAI IMFORMAR O VALOR DEPOIS QUE O SCRIPT ESTIVAR RODANDO"
> >
> >
> > EXEMPLO:
> > while(1)
> > {
> >
> > 	if(not $socket	=	(IO::Socket::INET->new(PeerAddr => 'PeerAddr',
> > PeerPort     => 'PeerPort', Proto => "tcp")))
> > 	{
> > 		$a++;
> > 	}
> >
> > 	if(not $scket2	=	(IO::Socket::INET->new(PeerAddr =>'PeerAddr',
> > PeerPort => 'PeerPort', Proto => "tcp")))
> > 	{
> > 		$b++;
> > 	}
> > 	#TOTAL DE CONEXOES
> > 	$cont++;
> >
> > 	if(usuario digitar != 1)
> > 	{
> > 		print "\n";
> > 		print "PARA EXIBIR O RESULTADO DIGITE O NUM.  1\n\n";
> > 		print "\n";
> > 		next;
> > 	}
> > 	elsif(usario digitou == 1)
> > 	{
> > 		print "\n";
> > 		print "----- RESULTADO -----\n\n";
> > 		print "- ERROS EM:".$a."\n";
> > 		print "- ERROS EM :".$b."\n";
> > 		print "- TOTAL DE CONEXOES   :".$cont."\n";
> > 		print "\n";
> > 	}
> > 	sleep(60);
> > }
> >
> >
> >
> > --
> > Marcelo
>
> --
> Luiz G. P. de Almeida
> Analista de Sistemas
> Laboratório Nacional de Computação Científica / MCT
>
>
> ------------------------------
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> Fim da Digest Cascavel-pm, volume 195, assunto 9
> ************************************************
>


Mais detalhes sobre a lista de discussão Cascavel-pm